|
|
| Prints a specified amount of text from a record that has M4TextField type of record field defined. Used inside StartReportJob/EndJob block. |
 |
| ColumnId |
Specifies into which report column id (position set with SetRepCol the text will be printed) |
| WrapLen |
Specifies the number of character after what the text in one line will be wrapped. |
| AnyRecord |
Any record that holds the M4TextField field. |
|
global
procedure LetterHeader(record RcVc RepSpec,record LetVc Letp,Boolean printprevf)
BEGIN
if (printprevf==false) then begin
StartFormat(15);
OutString(0,0,USetStr(7101),false);
OutLongInt(40,0,Letp.SerNr,false);
OutString(160,0,USetStr(7107),false);
OutString(210,0,Letp.Signature,false);
OutString(300,0,USetStr(7103),false);
OutString(370,0,Letp.DocName,false);
EndFormat;
StartFormat(15);
OutString(0,0,USetStr(7105),false);
OutDate(40,0,Letp.TransDate,false);
OutString(160,0,USetStr(7106),false);
OutString(210,0,Letp.TransTime,false);
OutString(300,0,USetStr(7104),false);
OutString(370,0,Letp.LangCode,false);
EndFormat;
Gray_Divider(0,1);
StartFormat(15);
EndFormat;
StartFormat(15);
OutString(0,0,Letp.Header,false);
EndFormat;
StartFormat(15);
EndFormat;
if (RepSpec.flags[1]==1) then begin
if (Letp.HtmlFlag!=0) then begin
OutHtmlAsText(0,85,Letp);
end else begin
OutText(0,85,Letp);
end;
end;
StartFormat(15);
EndFormat;
StartFormat(15);
OutString(0,0,Letp.Greet,false);
EndFormat;
StartFormat(15);
OutString(0,0,Letp.Signature,false);
EndFormat;
StartFormat(15);
EndFormat;
Gray_Divider(0,1);
StartFormat(15);
EndFormat;
StartFormat(15);
OutString(0,0,USetStr(7109),false);
EndFormat;
Gray_Divider(0,1);
StartFormat(15);
OutString(0,0,USetStr(7110),false);
OutString(180,0,USetStr(7111),false);
OutString(240,0,USetStr(7112),false);
OutString(280,0,USetStr(7113),false);
//OutString(380,0,USetStr(7114),false);
OutString(380,0,USetStr(7119),false);
EndFormat;
Gray_Divider(0,1);
end;
RETURN;
END;
|
««