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

Parameters:
str	String for comparison with blank string

global
procedure AT2Form(record RcVc RepSpec)
BEGIN
  record AT2UnitVc AT2Unitr;
  Boolean TrHs;
  string 30 afr,ato;
  Boolean tmpf;
  
  afr = FirstInRange(RepSpec.f1,10);
  ato = LastInRange(RepSpec.f1,10);
  AT2Unitr.InventoryNr = afr;
  TrHs = true;
  while (LoopMain(AT2Unitr,1,TrHs)) begin
    if (TrHs) then begin
      if (nonblank(ato)) then begin
        if (AT2Unitr.InventoryNr>ato) then begin
          TrHs = false;
        end;
      end;
    end;
    if (TrHs) then begin
      tmpf = PrintDocument(AT2Unitr,"AT2Form",false);    
    end;
  end;
  RETURN;
END;

Related topics: