|
|
| Adds string value to an area without any additional information. (As a comparsion - AddStringToArea also adds the length of the string to the area) |
 |
| text |
text to be added to area |
| area |
area where text has to be added to |
|
global
procedure BuildExportHeader(record RcVc RepSpec)
begin
area a_export;
string 20 sdate;
date startdate;
integer i;
string 10 nextline;
nextline = chr(13) & chr(10);
AddTextToArea("Customer Code",a_export);
AddTextToArea("Customer Name",a_export);
sdate = RepSpec.long1;
sdate = "01.01." & sdate;
startdate = StringToDate(sdate);
for (i=1;i<=12;i=i+1) begin
AddTextToArea(MonthName(startdate) & " " & RepSpec.long1,a_export);
startdate = AddMonth(startdate,1);
end;
AddTextToArea(nextline,a_export);
return;
end;
««