 |
| number |
number of the tile |
| height |
height of the tile in pixels |
| sizef |
true - if tile height is changing together with window height |
| tilename |
"", not used in current moment |
| fieldname |
name of the first field for cursor in this tile |
|
event DefineWindows
begin
Real i,h,h1,h2,h3,h4,h5,v,vs,vm,hl,l;
SetLangMode(LangEnglish,"ENG",0);
WindowBegin("Account",AccDClass,CGview,AccView);
SetWRect(64,80,509,372);
UseView(AccVc);
Tile(0,70,false,"",AccNumber);
EditField(h=105,v=6, 55, "Account",Normal,AccNumber,false,0);
EditField(h,v+=20,300,"Name",Normal,Comment,false,0);
TileButton(1,"Misc");
TileButton(2,"Texts");
Tile(1,250,false,"",AccNumber);
EditField(h,v=6,55, "Autotrans.",Normal,AutCode,false,AutSClass);
EditField(h2=280,v,55, "SRU Code",Normal,SRUCode,false,0);
EditField(h,v+=20,55, "VAT Code",Normal,VATCode,false,VATCodeSClass);
EditField(h2,v,55, "Consolidation A/C",Normal,ConsAccNumber,false,0);
EditField(h,v+=20,55, "Currency",Normal,Curncy,false,CurncyCodeSClass);
EditField(h2,v,55, "Accrual",Normal,PeriodCode,false,AutSimPerSClass);
EditField(h2,v+=20,55, "Aut. Autotrans.",Normal,TransAutCode,false,AutSClass);
ButtonFrame(h=22,vm=(v+=41),150,5,"Account Type");
RadioButton(h,v,0,0, "Asset",AccType);
RadioButton(h,v+=16,1,0, "Liability",AccType);
RadioButton(h,v+=16,2,0, "Eq_uity",AccType);
RadioButton(h,v+=16,3,0, "Income",AccType);
RadioButton(h,v+=16,4,0, "Expense",AccType);
ButtonFrame(h=192,v=vm,150,2,"Normal Amount");
CheckBox(h,v,0, "Debit",NVD);
CheckBox(h,v+=16,0, "C_redit",NVC);
CheckBox(h,v+=40,0, "Closed",blockedFlag);
CheckBox(h,v+=16,0, "Group Account",GroupAcc);
CheckBox(h,v+=16,0, "Reduce Minorities",Conspr);
Tile(2,205,false,"2",Math);
MatrixBegin(4,v=26,-32,-20,INTextRowType,99);
MatCol(1,24,"Language",0,LangCode,false,LangSClass);
MatCol(1,84,"Text",0,Text,false,0);
EndMatrix;
EndWindow;
return;
end;
|
««