|
|
| Adds search field to window. |
 |
| title |
Title of search field |
|
WindowBegin("Purchase Invoices",VILClass,CGmlist,VIView);
SetWRect(20,80,620,299);
Sizeable(-1,-1,0,0);
SpawnClass(VIDClass);
UseView(VIVc);
RecordList(4,17,-21,-39);
RlColKey(4,1, "N_o",SerNr,false,SerNr);
RlColKey(71,57, "O_K",OKFlag,false,OKFlag);
RlColKey(96,96, "Supp. Inv. No.",InvoiceNr,false,InvoiceNr);
RlColKey(200,200,"Invoice Date",InvDate,false,InvDate);
RlColKey(285,285,"Supplier",VECode,false,VECode);
RlColKey(365,365,"Name",VEName,false,VEName);
RlColKey(-70,-80,"Total",PayVal,true,PayVal);
SearchField("Search");
SpecialMenu("OK",'G',0,"OKVILsm");
SpecialMenu("Invoice Status",'r',1,"VIInfoVILsm");
EndWindow;
««