Procedure

TfrmAddlSigners.cboCosignerNeedData

Module

fAddlSigners

Last Modified

7/15/2014 3:26:36 PM

Visibility

Public/Published

Owner

TfrmAddlSigners

Declaration

procedure cboCosignerNeedData(Sender: TObject; const StartFrom: String;
  Direction, InsertAt: Integer);

Calls Hierarchy


TfrmAddlSigners.cboCosignerNeedData
 ├SubSetOfUsersWithClass
 ├SubSetOfCosigners
 └FMToday
   └FMNow

Calls

Name Declaration Comments
FMToday function FMToday: TFMDateTime; -
SubSetOfCosigners function SubSetOfCosigners(const StartFrom: string; Direction: Integer; Date: TFMDateTime; ATitle: integer; ADocType: integer): TStrings; -
SubSetOfUsersWithClass function SubSetOfUsersWithClass(const StartFrom: string; Direction: Integer; DateTime: string): TStrings; -


Source

324   procedure TfrmAddlSigners.cboCosignerNeedData(Sender: TObject;
325     const StartFrom: String; Direction, InsertAt: Integer);
326   begin
327     case FTabID of
328       CT_NOTES:     TORComboBox(Sender).ForDataUse(SubSetOfUsersWithClass(StartFrom, Direction, FToday));
329       CT_CONSULTS:  TORComboBox(Sender).ForDataUse(SubSetOfUsersWithClass(StartFrom, Direction, FToday));
330   
331       //CQ #17218 - Updated to properly filter co-signers - JCS
332       //CT_DCSUMM:    TORComboBox(Sender).ForDataUse(SubSetOfProviders(StartFrom, Direction));
333       CT_DCSUMM: (Sender as TORComboBox).ForDataUse(SubSetOfCosigners(StartFrom, Direction,
334           FMToday, 0, frmDCSumm.lstSumms.ItemIEN));
335     end;
336   end;