|
|
| End a format rows in a report |
procedure PrintHeaderLine(record RcVc RepSpec)
BEGIN
SetRepCol(2,60);
SetRepCol(3,288);
SetRepCol(4,384);
SetRepCol(5,293);
SetRepCol(6,140);
SetRepCol(9,221);
StartFormat(15);
OutString(0,0,USetStr(2542),false);
OutString(120,0,USetStr(2543),false);
OutString(200,0,USetStr(2544),false);
if (RepSpec.flags[0]==2) then begin
OutString(260,0,USetStr(2545),false);
end else begin
OutString(280,0,USetStr(2545),false);
end;;
OutString(390,0,USetStr(2546),true);
OutString(1,0,USetStr(2548),true);
EndFormat;
if (nonblank(RepSpec.f2)) then begin
StartFormat(15);
OutString(120,0,USetStr(4908),false);
EndFormat;
end;
RETURN;
END;
««
