Function

CanCosign

Module

rTIU

Last Modified

7/15/2014 3:26:44 PM

Scope

Interfaced

Declaration

function CanCosign(ATitle, ADocType: integer; AUser: Int64; ADate: TFMDateTime): Boolean;

Calls Hierarchy


CanCosign
 └TIUPatch175Installed
   └ServerHasPatch

Called-By Hierarchy


                                   CanCosign
             TfrmNoteProperties.cmdOKClick┤ 
  TfrmNoteProperties.cboNewTitleDblClick┘ │ 
           TfrmDCSummProperties.cmdOKClick┤ 
TfrmDCSummProperties.cboNewTitleDblClick┘ │ 
                TfrmAddlSigners.CosignerOK┘ 
              TfrmAddlSigners.cmdOKClick┤   
       TfrmAddlSigners.cboCosignerChange┘   

Calls

Name Declaration Comments
TIUPatch175Installed function TIUPatch175Installed: boolean; -

Called-By

Name Declaration Comments
TfrmNoteProperties.cmdOKClick procedure cmdOKClick(Sender: TObject); -
TfrmDCSummProperties.cmdOKClick procedure cmdOKClick(Sender: TObject); -
TfrmAddlSigners.CosignerOK function CosignerOK: Boolean; -


Source

287   function CanCosign(ATitle, ADocType: integer; AUser: Int64; ADate: TFMDateTime): Boolean;
288   begin
289     if ATitle > 0 then ADocType := 0;
290     if TIUPatch175Installed and (ADocType = 0) then
291       Result := Piece(sCallV('TIU REQUIRES COSIGNATURE', [ATitle, ADocType, AUser, ADate]), U, 1) <> '1'
292     else
293       Result := Piece(sCallV('TIU REQUIRES COSIGNATURE', [ATitle, ADocType, AUser]), U, 1) <> '1';
294   end;