|
|
| Defines which document form type should be used when user executes the printing on window that is being defined. Used inside WindowBegin/EndWindow block. |
 |
| FormName |
The name of the function that is executed on printing event. |
|
// printing function format: PrintLetL(Integer wn,Boolean previewf)
event DefineWindows
begin
real i,h,h1,h2,h3,h4,h5,h6,h7,hm,hs,v,l,vs,v2,vm,f,t,fs;
string 255 label;
SetLangMode(LangEnglish,"ENG",0);
WindowBegin("Customer Letters",LetLClass,CGmlist,LetView);
SetWRect(20,80,660,298);
SpawnClass(LetDClass);
Sizeable(-1,-1,0,0);
UseView(LetVc);
FormName(PrintLetL);
RecordList(4,17,-21,-39);
RlColKey(4,4,"No.",SerNr,false,SerNr);
RlColKey(61,61,"Date",TransDate,false,TransDate);
RlColKey(131,131,"Cust.",CustCode,false,CustCode);
if (PocketVersion==false) then begin
RlColKey(210,210,"Name",Name,false,Name);
RlColKey(310,310,"Contact",Contact,false,Contact);
RlColKey(410,410,"Cat.",CustCat,false,CustCat);
RlColKey(460,460,"M.List",PersColCode,false,PersColCode);
RlColKey(510,510,"Header",Header,false,Header);
end;
RlCol(-40,-40,"OK",OKFlag,false);
SearchField("Search");
EndWindow;
return;
end;
««