|
|
| Put a string onto a header report |
 |
| rw |
Row number |
| tstr |
Text to print out |
| 1 |
1=right alignment, 0=left alignment |
|
global
procedure TestRn(Record RcVc RepSpec)
begin
record TestVc Testr;
StartReportjob("Test Report");
if (nonblank(RepSpec.f1)) then begin //RepSpec.f1<>""
tstr = "Customers: " & RepSpec.f1;
end else begin
tstr = "All Customers";
end;
Header(rw,tstr,1);
endheader;
while LoopKey("Comment1:AB",Testr,1,true) begin
StartFormat(15);
OutString(0,0,Testr.SerNr,false);
OutString(100,0,Testr.TransDate,false);
OutString(200,0,Testr.Comment0,false);
OutString(300,0,Testr.Comment1,false);
endformat;
end;
endjob;
return;
end;
««