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

Starts a new page for report or document printout

Parameters:
Reserved	Reserved for internal use. Should be set to false.

global
procedure VIRn(record RcVc RepSpec)
BEGIN
  record VIVc VIr;
  Boolean TrHs;
  LongInt afr,ato;
  Boolean testf;
//  Integer MediaPrinter;

/*
  MediaPrinter = 1;
  if ((RepSpec.Media<>MediaPrinter)) then begin
//    Error0(1048);
    goto L99;
  end;
  if (RepSpec.Media==MediaPrinter) then begin
*/
    afr = FirstInRange(RepSpec.f1,20);
    ato = LastInRange(RepSpec.f1,20);
    StartReportJob(USetStr(4161));     
    EndHeader;
    VIr.SerNr = afr;
    TrHs = true;
    while (LoopMain(VIr,1,TrHs)) begin
      if ((VIr.SerNr<=ato) or (ato==-1)) then begin
        testf = true;
        if (RepSpec.OnlyUnprntd==0) then begin
          if (VIr.OKFlag<>0) then begin testf = false; end;
        end;  
//        if (VIr.Invalid<>0) then begin testf = false; end;// they want to be able to print invalidated
        if (testf) then begin
          VIFormat(VIr);
          NewPage(false);
        end;
      end else begin
        TrHs = false;
      end;
    end;
    EndJob;
//  end;
L99:;
  RETURN;
END;

Related topics: