• 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:

Data conversion - from String to Date

Parameters:
datestr	String with date

global
procedure GetBasedOnDate(string custcode,Date orddatep,Date despatchdatep,string planship,var Date resp)
BEGIN
  record CUVc CUr;

  CUr.Code = custcode;
  if (ReadFirstMain(CUr,1,true)) then begin
    if (CUr.PriceBasedOn==2) then begin
      resp = despatchdatep;
    end;  
    if (CUr.PriceBasedOn==1) then begin
      resp = StringToDate(planship);
    end;
    if ((CUr.PriceBasedOn!=1) and (CUr.PriceBasedOn!=2)) then begin      
      resp = orddatep;
    end;
  end else begin
    resp = orddatep;
  end;
  RETURN;
END;

Related topics: