|
|
| Make a new tab inside the matrix |
 |
| 0 |
Number of tab |
|
WindowBegin("Últimos Costos",LateCostDClass,CGview,-);
SetWRect(20,80,620,430);
Sizeable(-1,-1,0,0);
UseView(LateCostVc);
FormName(LateCostForm);
Tile(0,70,false,"",TransDate);
v = 6; vs = 20;
EditField(h=110,v,55, "Nro.",Normal,SerNr,false,TSerSClass);
EditField(h2=255,v,82,"Fecha Trans.",Normal,TransDate,false,PasteCurDate);
EditField(h,v+=20,80, "Nro.Proveedor",Normal,VECode,false,VESClass);
EditField(h2,v,-20,"Nombre",Normal,VEName,false,0);
EditField(h,v+=20,55, "Nro. MR",Normal,PUNr,false,0);
TileButton(1,"Comentario");
TileButton(2,"Ítems");
TileButton(3,"Moneda");
TileButton(4,"Costos Extra");
// CheckBox(400,-20,0,"OK",OKFlag);
Tile(1,50,false,"1",Comment);
EditField(h,v=6,-20,"Comentario",Normal,Comment,false,0);
EditField(h,v+=vs,100,"Objetos",Normal,Objects,false,ObjSClass);
EditField(300,v,80,"Contrato OC",ViewOnly,POCOSerNr,true,POCOSClass);
EnterSkip(Math);
CheckBox(400,v,0,"Precio Incl.IVA",InclVAT);
Tile(2,150,true,"2",Math);
v = 24;
MatrixBegin(4,v,-50,-44,-,199);
MatTypedRow(stp);
MatOverStrike(ovst);
Flip(0);
MatCol(1,28,"Ítem",0,ArtCode,false,INSClass);
MatCol(1,94,"Cant.",0,Quant,true,0);
MatText(t=3,28,"Firma",true);
MatCol(t,100,"",0,Sign,false,0);
MatText(t,160,"Fecha Corrección",true);
MatCol(t,290,"Actual.",0,UpdDate,false,0);
Flip(1);
MatCol(1,144,"Descripción",0,Spec,false,0);
MatCol(1,-270,"Precio Unit.",0,UPrice,true,0);
MatCol(1,-180,"Precio Costo",0,CostPrice,true,0);
MatCol(1,-90,"Suma",0,Sum,true,0);
InsertRowTest;
DeleteRowTest;
EndMatrix;
vs = 20;
v = 18; VTab(-35,v,-16,v+vs,ToolFlip,1,"A");
v=v+ vs; VTab(-35,v,-16,v+vs,ToolFlip,2,"B");
CheckBox(20,-20,0,"OK",OKFlag);
EditField(50,-40,70,"Cant.",ViewOnly,SumQuant,true,0);
EditField(190,-40,70,"Flete",Normal,ShipCost,true,0);
EditField(320,-40,70,"Aduanas",Normal,CustomsCost,true,0);
EditField(-130,-40,70,"Pr. Costo",ViewOnly,SumCostPrice,true,0);
EditField(190,-20,70,"Sub Total",Normal,SubTotal,true,0);
EditField(320,-20,70,"IVA",Normal,VATVal,true,0);
EditField(-130,-20,70,"Total",ViewOnly,PayVal,true,0);
Tile(3,70,false,"3",FrRate);
vs = 20;
EditField(h=110,v=6,50,"Moneda",Normal,CurncyCode,false,CurncyCodeSClass);
EditField(h2=295,v,50,"TC",Normal,FrRate,true,0);
EditField(h3=360,v,50,":",Normal,ToRateB1,true,0);
StaticText(h3+60,v+12,"Moneda Base 1",false);
EditField(h,v+=vs,50,"Moneda Base 1",Normal,BaseRate1,true,0);
EditField(h3,v,50,":",Normal,ToRateB2,true,0);
StaticText(h3+60,v+12,"Moneda Base 2",false);
EditField(h,v+=vs,50,"Moneda Base 2",Normal,BaseRate2,true,0);
Tile(4,70,false,"4",Cost1);
vs = 20;
EditField(h=110,v=6,70,"Costo Extra 1",Normal,Cost1,true,0);
EditField(h2=295,v,70,"Costo Extra 2",Normal,Cost2,true,0);
EditField(h,v+=vs,70,"Costo Extra 3",Normal,Cost3,true,0);
EditField(h2,v,70,"Costo Extra 4",Normal,Cost4,true,0);
EditField(h,v+=vs,70,"Costo Extra 5",Normal,Cost5,true,0);
SpecialMenu("Abrir Asiento",' ',1,"OpenTRFromLateCost");
EndWindow;
|
««