Changeset 460 for cprs/branches/foia-cprs/CPRS-Chart/fAddlSigners.pas

Timestamp:

Jul 6, 2008, 8:20:14 PM (16 years ago)

Author:

Kevin Toppenberg

Message:

Uploading from OR_30_258

File:

• cprs/branches/foia-cprs/CPRS-Chart/fAddlSigners.pas (modified) (7 diffs)

cprs/branches/foia-cprs/CPRS-Chart/fAddlSigners.pas

@@ -46 +46 @@
     FChanged: Boolean;
     FNoteIEN: integer;
+    FRefDate: TFMDateTime;
     FToday: string;
     FTabID: integer;
@@ -58 +59 @@
 
 procedure SelectAdditionalSigners(FontSize, NoteIEN, SigAction: Integer; Exclusions: TStrings;
-          var SignerList: TSignerList; TabID: integer) ;
+          var SignerList: TSignerList; TabID: integer; ARefDate: TFMDateTime) ;
 
 const
@@ -83 +84 @@
 
 
-procedure SelectAdditionalSigners(FontSize, NoteIEN, SigAction: Integer; {Status: string;} Exclusions: TStrings;
-          var SignerList: TSignerList; TabID: integer) ;
+procedure SelectAdditionalSigners(FontSize, NoteIEN, SigAction: Integer; Exclusions: TStrings;
+          var SignerList: TSignerList; TabID: integer; ARefDate: TFMDateTime) ;
 { displays additional signer form for notes and returns a record of the selection }
 var
@@ -97 +98 @@
       FSigAction := SigAction;
       FNoteIEN := NoteIEN;
+      FRefDate := ARefDate;
       FExclusions.Assign(Exclusions);
       FToday := FloatToStr(FMToday);
@@ -209 +211 @@
           begin
             j := FExclusions.IndexOf(Items[i]);
-            FSigners.Add(Items[i]+'^REMOVE');
+            FSigners.Add(ORFn.Pieces(Items[i], U, 1, 2) + '^REMOVE');
             if j > -1 then FExclusions.Delete(j);
             Items.Delete(i) ;
@@ -227 +229 @@
     begin
       DstList.Items.Delete(i);
-      FSigners.Add(cboCosigner.Items[cboCosigner.ItemIndex] + '^REMOVE');
+      FSigners.Add(ORFn.Pieces(cboCosigner.Items[cboCosigner.ItemIndex], U, 1, 2) + '^REMOVE');
     end;
 end;
@@ -271 +273 @@
   case FTabID of
     CT_NOTES, CT_CONSULTS:
-      if (not CanCosign(TitleForNote(FNoteIEN), 0, cboCosigner.ItemIEN)) then
+      if (not CanCosign(TitleForNote(FNoteIEN), 0, cboCosigner.ItemIEN, FRefDate)) then
         begin
           InfoBox(cboCosigner.Text + TX_NO_COSIGNER, TX_NO_COSIGNER_CAP, MB_OK or MB_ICONWARNING);