• Introduction
  • What is HAL?
  • Get Started
  • Language Reference
    • Declarations, assignments and statements
    • Keywords and operations
• Tutorials
  • Change a window
    • Find the window
    • Modify the window
  • Create a report
• HAL Primitives
• HAL Procedures/Functions
• HAL Discussions

Description:

Returns true if argument is correct date and false if argument is blank date

Parameters:
wdate	Date for comparision with blank date

global
function Integer IsUnOKAllowed_FEVIVc(record FEVIVc FEVIp)
BEGIN
  record DBLockBlock DBLockRec;
  Integer res;
  
  res = 0;
  BlockLoad(DBLockRec);
  if (nonblankdate(DBLockRec.SLLock)) then begin
    if (FEVIp.TransDate<=DBLockRec.SLLock) then begin
      res = 1046;
    end;
  end;
LIsUnOKAllowed_FEVIVc:;  
  IsUnOKAllowed_FEVIVc = res;
  RETURN;
END;

Related topics: