|
|
| Adds communicator button to the window that is being defined with WindowBegin/EndWindow. |
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 Letter",LetDClass,CGview,LetView);
UseView(LetVc);
SetWRect(20,80,630,300);
CommunicateButton;
Sizeable(-1,-1,0,0);
vs = 20;h = 60;h2 = 160;h3 = 330;h4 = 500;
Tile(0,70,false,"",SerNr);
EditField(h,v=6,60,"No.",Normal,SerNr,false,TSerSClass);
EditField(h2,v,60,"List",Normal,PersColCode,false,PersColSClass);
EditField(h,v+=vs,60,"Date",Normal,TransDate,false,PasteCurDate);
EditField(h2,v,-20,"Time",Normal,TransTime,false,0);
TileButton(1,"Customer");
TileButton(2,"Header");
TileButton(3,"Text");
TileButton(4,"Cat.");
// CheckBox(-195,v,0,"OK",OKFlag);
Tile(1,50,false,"1",CustCode);
EditField(h,v=6,-120,"Customer",Normal,CustCode,false,AllCUSClass);
EnterSkip(Contact);
CheckBox(-110,v,0,"O_ne per Contact",AllCont);
EditField(h,v+=vs,-20,"Name",Normal,Name,false,0);
EditField(h,v+=vs,-20,"Contact",Normal,Contact,false,ContactSClass);
EditField(h,v+=vs,-20,"Address",Normal,Addr0,false,0);
EditField(h,v+=vs,-20,"",Normal,Addr1,false,0);
EditField(h,v+=vs,-20,"",Normal,Addr2,false,0);
EditField(h,v+=vs, 80,"",Normal,Addr3,false,0);
EditField(h+90,v, -20,"",Normal,Addr4,false,0);
EditField(h,v+=vs,-20,"Fax",Normal,Fax,false,0);
EditField(h,v+=vs,-20,"E-mail",Normal,emailAddr,false,0);
Tile(2,130,false,"2",Header);
EditField(h,v=6,-20,"Header",Normal,Header,false,0);
EditField(h,v+=vs,-20,"Greetings",Normal,Greet,false,0);
EditField(h,v+=vs,-20,"Document",Normal,DocName,false,DocSClass);
EditField(h,v+=vs,-20,"Reply To (E-mail)",Normal,ReplyToAddr,false,ConfSClass);
EditField(h,v+=vs, 50,"Sign",Normal,ShortSign,false,UserSClass);
EditField(h2,v,-20,"Signature",Normal,Signature,false,0);
EditField(h2,v+=vs, -20,"Std.Text",Normal,LTxtCode,false,LTxtSClass);
if (ValuePack(1)) then begin
EditField(h,v,50,"Language",Normal,LangCode,false,LangSClass);
end;
CheckBox(h,v+=vs,0,"OK",OKFlag);
Tile(3,90,true,"3",Math);
StaticText(h-6,15,"Text",true);
TextField(h,6,-21,-16,Math,0);
Tile(4,90,false,"4",CustCat);
EditField(h+=10,v=6,40,"Category",Normal,CustCat,false,CCatSClass);
EditField(h,v+=vs,-20,"Cust. Class",Normal,Classification,false,CClassSClass);
EditField(h,v+=vs,-20,"Contact Class",Normal,ContClass,false,CClassSClass);
EditField(h,v+=vs,-20,"Job Desc.",Normal,JobDesc,false,JobDescSClass);
SpecialMenu("Letter List",'l',0,"LetInfoLetDsm");
SpecialMenu("Send E-mail",'e',1,"SentEmailLetDsm");
SpecialMenu("Create Activity",'c',2,"ActFromLetDsm");
EndWindow;
end;
return;
end;
 |
««