Procedure

TfrmAddlSigners.cboCosignerChange

Module

fAddlSigners

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmAddlSigners

Declaration

procedure cboCosignerChange(Sender: TObject);

Calls Hierarchy


TfrmAddlSigners.cboCosignerChange
 ├UserInactive
 └TfrmAddlSigners.CosignerOK
   ├CanCosign
   │ └TIUPatch175Installed
   │   └ServerHasPatch
   ├TitleForNote
   ├IsUserAProvider
   └FMNow

Calls

Name Declaration Comments
TfrmAddlSigners.CosignerOK function CosignerOK: Boolean; -
UserInactive function UserInactive(EIN: String): boolean; -


Source

241   procedure TfrmAddlSigners.cboCosignerChange(Sender: TObject);
242   var
243     i: integer;
244   begin
245     with cboCosigner do
246     begin
247       if UserInactive(ItemID) then
248         if (InfoBox(fNoteProps.TX_USER_INACTIVE, TC_INACTIVE_USER, MB_OKCANCEL)= IDCANCEL) then exit;
249       if not CosignerOK then Exit;
250       i := DstList.SelectByID(ItemID);
251       if i > -1 then
252       begin
253         DstList.Items.Delete(i);
254         FSigners.Add(ORFn.Pieces(Items[ItemIndex], U, 1, 2) + '^REMOVE');
255       end;
256       for i := 0 to FExclusions.Count - 1 do
257         if (Piece(FExclusions.Strings[i],U,3) = 'Expected Cosigner') then
258           FExclusions.Strings[i] := ORFn.Pieces(Items[ItemIndex], U, 1, 2) + '^Expected Cosigner';
259     end;
260   end;