Changeset 1679 for cprs/trunk/CPRS-Chart/Options/fOptionsNotes.pas

Timestamp:

May 7, 2015, 12:34:29 PM (10 years ago)

Author:

healthsevak

Message:

Updating the working copy to CPRS version 28

File:

• cprs/trunk/CPRS-Chart/Options/fOptionsNotes.pas (modified) (3 diffs)

cprs/trunk/CPRS-Chart/Options/fOptionsNotes.pas

@@ -32 +32 @@
     procedure cboCosignerExit(Sender: TObject);
   private
+    FStartingCosigner: Int64;
     { Private declarations }
   public
@@ -98 +99 @@
   cboCosigner.InitLongList(cosignername);
   cboCosigner.SelectByIEN(cosigner);
-  cboCosigner.Tag := cosigner;
+  FStartingCosigner := cosigner;
   chkAskSubject.Checked := rpcGetSubject;
   if chkAskSubject.Checked then chkAskSubject.Tag := 1;
@@ -126 +127 @@
     rpcSetSubject(Checked);
   with cboCosigner do
-    if Tag <> ItemIEN then
+    if FStartingCosigner <> ItemIEN then
       rpcSetDefaultCosigner(ItemIEN);
   ResetTIUPreferences;