| ( |
|
|
|||
| End a header in a report | |||
global
procedure ERDateRn(var record RcVc RepSpec)
BEGIN
String 20 datstr;
if (blankdate(RepSpec.d1)) then begin
RepSpec.d1 = CurrentDate;
end;
StartReportJob(USetStr(6700));
datstr = PackStrDate(RepSpec.d1);
Header(1,datstr,1);
EndHeader;
StartFormat(15);
OutString(0,0,USetStr(6699),false);
OutString(60,0,USetStr(6698),false);
OutString(200,0,USetStr(6697),false);
OutString(400,0,USetStr(6696),true);
OutString(480,0,USetStr(6695),true);
EndFormat;
Gray_Divider(0,1);
EndJob;
return;
END;
 |
|
| Related topics: | |