• 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 false if argument is not blank and true if argument is blank

Parameters:
str	String for comparison with blank string

function val GetVATprc(string vatcode)
BEGIN
  record VATCodeBlock VATRec;
  row VATCodeBlock VATrw;
  Integer i,rwcnt;
  val res;
  
  BlockLoad(VATRec);
  rwcnt = MatRowCnt(VATRec);
  for (i=i;i<rwcnt;i=i+1) begin
    MatRowGet(VATRec,i,VATrw);
    if (vatcode==VATrw.VATCode) then begin
      res = VATrw.ExVatpr;
      if (blank(res))  then begin
        res = VATrw.ExVatpr;
      end;  
      i = rwcnt;
    end;
  end;
  GetVATprc = res;
  RETURN;
END;

Related topics: