|
|
| draws flip button for matrix |
 |
| x |
left upper corner - horisontal coordinate |
| y |
left upper corner - vertical coordinate |
| x2 |
right bottom corner - horisontal coordinate |
| y2 |
right bottom corner - vertical coordinate |
| type |
always ToolFlip |
| number |
number of the flip |
| name |
button name in interface |
|
event DefineWindows
begin
Real h,h1,h2,h3,h4,h5,h6,h7,hs,hm,v,v3,l,vs,vm,f,t,x,v2;
SetLangMode(LangEnglish,"ENG",0);
WindowBegin("VAT Codes",VATCodeTClass,CGHbl,HBlRecType);
SetBlid(VATCodeBlock);
SetWRect(20,80,600,291);
Sizeable(-1,-1,0,0);
h = 20; v = 27;
MatrixBegin(h,v,-50,-20,VATCodeRowType,299);
Flip(0);
MatCol(1,34,"Code",0,VATCode,false,0);
MatCol(1,70,"Excl %",0,ExVatpr,true,0);
MatCol(1,120,"Incl %",0,IncVatpr,true,0);
Flip(1);
MatCol(1,164,"Outp A/C",0,SalesVATAcc,false,AccSClass);
MatCol(1,224,"O/P A/C",0,PaySalesVATAcc,false,AccSClass);
MatCol(1,284,"Inp A/C",0,PurchVATAcc,false,AccSClass);
MatCol(1,344,"I/P A/C",0,PayPurchVATAcc,false,AccSClass);
MatCol(1,404,"Description",0,Comment,false,0);
Flip(2);
MatCol(1,164,"Tax %",0,Tax1pr,true,0);
MatCol(1,224,"Tax A/C",0,Tax1Acc,false,AccSClass);
MatCol(1,324,"Tax Min.",0,Tax1Min,true,0);
MatCol(1,404,"Real Sales",0,ExcludeFromOfficial,false,SetSClass);
Flip(3);
MatCol(1,164,"Outp A/C Corr.",0,CorSalesVATAcc,false,AccSClass);
MatCol(1,254,"Inp A/C Corr.",0,CorPurchVATAcc,false,AccSClass);
MatCol(1,344,"Description",0,Comment,false,0);
EndMatrix;
vs = 20;
v = 28;
VTab(-35,v,-16,v+vs,ToolFlip,1,"A");
v=v+vs; VTab(-35,v,-16,v+vs,ToolFlip,2,"B");
v=v+vs; VTab(-35,v,-16,v+vs,ToolFlip,3,"C");
EndWindow;
return;
end;
|
««