|
|
| Creates a graphical vertical level indicator column into record list that is being defined. Used inside WindowBegin/EndWindow block. |
 |
| ColPos |
Column position |
| HeadPos |
Header position |
| Title |
Column title |
| FieldName |
Field name |
| Lred |
Determines from what indicator percentage is the indicator colored red |
| LYellow |
Determines from what indicator percentage is the indicator colored yellow |
| LGreen |
Determines from what indicator percentage is the indicator colored green |
|
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;
|
««