Function

IsLabCollectTime

Module

rODLab

Last Modified

7/15/2014 3:26:42 PM

Scope

Interfaced

Declaration

function  IsLabCollectTime(ADateTime: TFMDateTime; Location: integer): boolean;

Called-By Hierarchy


                IsLabCollectTime
            TfrmODLab.Validate┤ 
     TfrmODLab.cboCollTimeExit┤ 
       TfrmODBBank.ValidateAdd┘ 
        TfrmODBBank.Validate┤   
        TfrmODBBank.ValidAdd┘   
TfrmODBBank.cmdAcceptClick┘     

Called-By

Name Declaration Comments
TfrmODLab.cboCollTimeExit procedure cboCollTimeExit(Sender: TObject); -
TfrmODLab.Validate procedure Validate(var AnErrMsg: string); override; -
TfrmODBBank.ValidateAdd procedure ValidateAdd(var AnErrMsg: string); -


Source

163   function IsLabCollectTime(ADateTime: TFMDateTime; Location: integer): boolean;
164   begin
165     Result := (StrToInt(sCallV('ORWDLR32 LAB COLL TIME',[ADateTime,Location])) > 0);
166   end;