Ignore:
Timestamp:
May 8, 2015, 7:52:55 AM (9 years ago)
Author:
healthsevak
Message:

Committing the files for first time to this new branch

File:
1 edited

Legend:

Unmodified
Added
Removed

  • cprs/branches/HealthSevak-CPRS/CPRS-Chart/Options/fOptionsNotes.pas

    r829 r1693  
    3232    procedure cboCosignerExit(Sender: TObject);
    3333  private
     34    FStartingCosigner: Int64;
    3435    { Private declarations }
    3536  public
    … …  
    9899  cboCosigner.InitLongList(cosignername);
    99100  cboCosigner.SelectByIEN(cosigner);
    100   cboCosigner.Tag := cosigner;
     101  FStartingCosigner := cosigner;
    101102  chkAskSubject.Checked := rpcGetSubject;
    102103  if chkAskSubject.Checked then chkAskSubject.Tag := 1;
    … …  
    126127    rpcSetSubject(Checked);
    127128  with cboCosigner do
    128     if Tag <> ItemIEN then
     129    if FStartingCosigner <> ItemIEN then
    129130      rpcSetDefaultCosigner(ItemIEN);
    130131  ResetTIUPreferences;
Note: See TracChangeset for help on using the changeset viewer.