Procedure

SelectAdditionalSigners

Module

fAddlSigners

Last Modified

7/15/2014 3:26:36 PM

Comments

Displays additional signer form for notes and returns a record of the selection

Scope

Interfaced

Declaration

procedure SelectAdditionalSigners(FontSize, NoteIEN, SigAction: Integer; Exclusions: TStrings;
          var SignerList: TSignerList; TabID: integer; ARefDate: TFMDateTime) ;

Calls Hierarchy


SelectAdditionalSigners
 ├TfrmBase508Form.Create
 │ ├TfrmBase508Form.UpdateAccessibilityActions
 │ ├UnfocusableControlEnter
 │ └AdjustControls
 │   ├TfrmBase508Form.ModifyUnfocusableControl
 │   └..(rec)..
 └FMToday
   └FMNow

Called-By Hierarchy


                      SelectAdditionalSigners
  TfrmDCSumm.mnuActIdentifyAddlSignersClick┤ 
      TfrmDCSumm.popSummMemoAddlSignClick┘ │ 
TfrmConsults.mnuActIdentifyAddlSignersClick┤ 
    TfrmConsults.popNoteMemoAddlSignClick┘ │ 
 TfrmSurgery.mnuActIdentifyAddlSignersClick┤ 
     TfrmSurgery.popNoteMemoAddlSignClick┘ │ 
   TfrmNotes.mnuActIdentifyAddlSignersClick┘ 
       TfrmNotes.popNoteMemoAddlSignClick┘   

Calls

Name Declaration Comments
TfrmBase508Form.Create constructor Create(AOwner: TComponent); override; -
FMToday function FMToday: TFMDateTime; -

Called-By

Name Declaration Comments
TfrmDCSumm.mnuActIdentifyAddlSignersClick procedure mnuActIdentifyAddlSignersClick(Sender: TObject); -
TfrmConsults.mnuActIdentifyAddlSignersClick procedure mnuActIdentifyAddlSignersClick(Sender: TObject); -
TfrmSurgery.mnuActIdentifyAddlSignersClick procedure mnuActIdentifyAddlSignersClick(Sender: TObject); -
TfrmNotes.mnuActIdentifyAddlSignersClick procedure mnuActIdentifyAddlSignersClick(Sender: TObject); -


Source

91    procedure SelectAdditionalSigners(FontSize, NoteIEN, SigAction: Integer; Exclusions: TStrings;
92              var SignerList: TSignerList; TabID: integer; ARefDate: TFMDateTime) ;
93    { displays additional signer form for notes and returns a record of the selection }
94    var
95      frmAddlSigners: TfrmAddlSigners;
96      W, H, i: Integer;
97    begin
98      frmAddlSigners := TfrmAddlSigners.Create(Application);
99      try
100       with frmAddlSigners do
101       begin
102         FTabID := TabID;
103         FSigAction := SigAction;
104         FNoteIEN := NoteIEN;
105         FRefDate := ARefDate;
106         FastAssign(Exclusions, FExclusions);
107         FToday := FloatToStr(FMToday);
108         if FSigAction = SG_COSIGNER then
109           begin
110             pnlAdditional.Visible := False;
111             Height := Height - pnlAdditional.Height;
112           end;
113         Font.Size := FontSize;
114         W := ClientWidth;
115         H := ClientHeight;
116         ResizeToFont(FontSize, W, H);
117         ClientWidth  := W; pnlBase.Width  := W;
118         ClientHeight := H; pnlBase.Height := H;
119         with FExclusions do for i := 0 to Count-1 do
120           begin
121             if Piece(Strings[i],U,3) = 'Author' then txtAuthor.Text := Piece(Strings[i], U, 2)
122             else if Piece(Strings[i],U,3) = 'Expected Cosigner' then
123               begin
124                 cboCosigner.Items.Add(Strings[i]);
125                 cboCosigner.ItemIndex := 0;
126               end
127             else
128             begin
129               DstList.Items.Add(Strings[i]);
130               btnRemoveAllSigners.Enabled := DstList.Items.Count > 0;
131             end;
132           end;
133   
134         if (SigAction = SG_COSIGNER) or (SigAction = SG_BOTH) then
135           begin
136             lblCosigner.Caption := 'Expected cosigner';
137             cboCosigner.Caption := 'Expected cosigner';
138             cboCosigner.Color := clWindow;
139             cboCosigner.Enabled := True;
140             cboCosigner.InitLongList('');
141           end;
142         if (SigAction = SG_ADDITIONAL) or (SigAction = SG_BOTH) then
143           cboSrcList.InitLongList('');
144         FChanged := False;
145         ShowModal;
146         with SignerList do
147           begin
148             Signers := TStringList.Create;
149             FastAssign(FSigners, Signers);
150             Cosigner := FCosigner;
151             Changed := FChanged ;
152           end ;
153       end; {with frmAddlSigners}
154     finally
155       frmAddlSigners.Release;
156     end;
157   end;