|
|
| Adds a new column for a RecordList that is being defined. Used within WindowBegin/EndWindow block. Note that creating a column with this procedure will make it un-searchable and unsortable (use RlColKey for that if needed). |
 |
| ColPos |
Column position |
| HeadPos |
Header position |
| title |
Column title |
| FieldName |
Field name of the record that was defined with UseView |
| align |
Alignment: false - left, true - right |
|
event DefineWindows
begin
SetLangMode(LangEnglish,"ENG",0);
WindowBegin("Quotations",QTLClass,CGmlist,-);
SpawnClass(QTDClass);
SetWRect(64,80,900,348);
Sizeable(-1,-1,0,0);
UseView(QTVc);
FormName(PrintQTL);
RecordList(4,17,-21,-39);
RlColKey(4,2,"N_o.",SerNr,false,SerNr);
RlColKey(81,81,"Trans. Date",QTDate,false,QTDate);
RlColKey(153,153,"Customer",CustCode,false,CustCode);
RlColKey(215,215,"Order No.",OrderNr,false,OrderNr);
RlColKey(285,285,"Class",QuoteClass,false,QuoteClass);
RlColKey(325,325, "Salesman",SalesMan,false,SalesMan);
RlColKey(385,385,"Project",PRCode,false,PRCode);
RlColKey(440,440, "Decision",RejectDate,false,RejectDate);
RlColKey(512,512,"Name",Addr0,false,Name);
RlCol(-170,-170,"Total",Sum4,true);
if (GuiType!=kGuiCocoa) then begin
RlColKeyTL(-100,-100,"Probability",M4Val,Probability,true,SerNr);
end else begin
LevelColumn(-100,-100,"Probability",Probability,8,35,60);
end;
SearchField("Search");
BrowseSubsetButton(-40,-15);
SpecialMenu("Create Order",'G',0,"ORFromQTLsm");
SpecialMenu("Create Invoice",'F',1,"IVFromQTLsm");
EndWindow;
retrun;
end;
|
««