|
|
| Puts coursor in specified Edit Field when creating saving record |
 |
| tstr |
Field Name |
|
WindowBegin("Cash Invoice",IVCashDClass,CGview,-);
SetWRect(20,80,620,400);
Sizeable(-1,-1,0,0);
DynamicWindow;
UseView(IVCashVc);
if (CheckOffLineRecords(false)) then begin
StaticText(50,20,"There are Invoices to Synchronize.",false);
StaticText(50,40,"In order to create new POS Invoices please select",false);
StaticText(50,60,"Synchronize Offline Invoices from Invoices Browse Operations Menu",false);
end else begin
ActiveFieldOnOK("CashValue");
Tile(0,48+24,false,"",CustCode);
EditField(75,vm=(v=6), 82,"No.",Normal,SerNr,false,TSerSClass);
EditField(75,v+=20,95, "Customer",Normal,CustCode,false,CUSClass);
EnterSkip(Math);
EditField(h=216,v=vm,-40,"Name",Normal,Addr0,false,0);
TileButton(1,"Payment");
TileButton(2,"Items");
TileButton(3,"Date");
TileButton(4,"Location");
TileButton(5,"Currency");
// CheckBox(230,v,0,"OK",OKFlag);
// CheckBox(330,v,0,"Cust. Info on Trans.",ARonTR);
Tile(1,70,false,"1",CashValue);//PayDeal
vs = 20;h=75;h2=160;h3=310;h4=480;
EditField(h2,v=6,70,"Cash",Normal,CashValue,true,0);
EnterSkip(PayDeal);
EditField(h4,v,70,"Cash Back",ViewOnly,RetValue,true,0);
EditField(h,v+=vs,30,"Pay Mode",Normal,PayDeal,false,PMSClass);
EditField(h2,v,80,"Paid",Normal,RecValue,true,0);
EditField(h3,v,100,"Cr. Card",Normal,CreditCard,false,CreditCardSClass);
EditField(h4,v,70,"Authorise.",Normal,AuthorizationCode,false,0);
EditField(h,v+=vs,30,"Pay Mode",Normal,PayDeal2,false,PMSClass);
EditField(h2,v,80,"Paid",Normal,RecValue2,true,0);
EditField(h3,v,100,"Cr. Card",Normal,CreditCard2,false,CreditCardSClass);
EditField(h4,v,70,"Authorise.",Normal,AuthorizationCode2,false,0);
// EditField(330,-26,95,"Base",ViewOnly,BaseSum4,true,0);
EnterSkip(Math);
Tile(2,120,true,"2",Math);
CheckBox(30,-21,0,"OK",OKFlag);
EditField(-433,-21,80,"VAT",ViewOnly ,Sum3,true,0);
EditField(-283,-21,95,"Sub-Total",ViewOnly ,Sum1,true,0);
EditField(-133,-21,95,"TOTAL",ViewOnly ,Sum4,true,0);
v = 24;
MatrixBegin(4,v,-50,-29,-,200);
MatTypedRow(stp);
Flip(0);
MatCol(t=1,32,"Item",0,ArtCode,false,INSClass);
MatCol(t,144,"Qty",0,Quant,true,0);
EnterSkip(ArtCode);
Flip(1);
MatCol(t=1,184,"Description",0,Spec,false,0);
MatCol(t,-270,"Serial No",0,SerialNr,false,SerialNrSClass);
MatCol(t,-175,"Unit Price",0,Price,true,0);
MatCol(t,-105,"%",0,vRebate,true,0);
MatCol(t,-70,"Sum",0,Sum,true,0);
Flip(2);
MatCol(t=1,184,"Description",0,Spec,false,0);
MatCol(t,-200,"Objects",0,Objects,false,ObjSClass);
Flip(3);
MatCol(t=1,184,"Description",0,Spec,false,0);
MatCol(t,-200,"Late Delivery",0,OrdQuant,false,0);
MatCol(t,-100,"Down Paid",0,DownPaidSum,false,0);
InsertRowTest;
DeleteRowTest;
EndMatrix;
v = 18; 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");
Tile(3,150,false,"3",InvDate);
vs = 20; h1 = 110; h2 = 300; h3 = 520;
EditField(h1,vm=(v=6),82,"Inv. Date",Normal,InvDate,false,PasteCurDate);
EditField(h1,v+=vs,82,"Due Date",Normal,PayDate,false,PasteCurDate);
EditField(h1,v+=vs,82,"Trans. Date",Normal,TransDate,false,PasteCurDate);
EditField(h2,v=vm,135,"Our Ref",Normal,OurContact,false,0);
EditField(h2,v+=vs, 135,"Attn.",Normal,ClientContact,false,ContactSClass);
EditField(h2,v+=vs,50,"Salesman",Normal,SalesMan,false,UserSClass);
// EditField(h3,v=vm,50,"POS Nr",Normal,POSNr,true,0);
EditField(h3,v=vm,50,"Local Machine Code",ViewOnly,LocalMachineCode,true,0);
EditField(h3,v+=vs, 50,"Trans Time",Normal,TransTime,true,PasteCurTime);
vs = 22;
Tile(4,110,false,"4",Location);
vs = 20;h=110;h2=400;
EditField(h,v=6,60,"Location",Normal,Location,false,LocationSClass);
// CheckBox(230,v,0,"Update Stock",UpdStockFlag);//not supported any more
EditField(h2,v,-20,"Objects",Normal,Objects,false,ObjSClass);
EditField(h,v+=vs, 50,"Price List",Normal,PriceList,false,PLDefSClass);
EditField(h2,v,-20,"Cust. Ord. No.",Normal,CustOrdNr,false,0);
EditField(h,v+=vs, 50,"Discount Matrix",ViewOnly,RebCode,false,0);
EditField(h2,v, 50,"Language",Normal,LangCode,false,LangSClass);
EditField(h,v+=vs, -20,"Comment",Normal,InvComment,false,0);
EditField(h,v+=vs,80,"Tot Quantity",ViewOnly,TotQty,true,0);
EditField(h+170,v,80,"Tot Weight",ViewOnly,TotWeight,true,0);
EditField(h+340,v,80,"Tot Volume",ViewOnly,TotVolume,true,0);
Tile(5,70,false,"5",CashValue);
vs = 20;h=75;h2=170;h3=310;h4=480;
EditField(h2,v=6,70,"Cash B1",Normal,CashValue,true,0);
EditField(h4,v,70,"Cash Back B1",ViewOnly,RetValue,true,0);
EditField(h2,v+=vs,70,"Cash B2",Normal,CashValueB2,true,0);
EditField(h4,v,70,"Cash Back B2",ViewOnly,RetValueB2,true,0);
EditField(h2,v+=vs,30,"Extra Currency",Normal,POSCurncyCode,true,CurncyCodeSClass);
EditField(h3,v,70,"Cash Cur",Normal,CashValueCur,true,0);
// EditField(h4,v,70,"Cash Back Cur",ViewOnly,RetValueCur,true,0);
SpecialMenu("Previous Sales Prices",' ',0,"IVCashLastSPrsm");
SpecialMenu("Transfer to Sales Order",' ',1,"IVCashToORsm");
SpecialMenu("Credit",' ',2,"IVCashToCredit");
SpecialMenu("Transfer to Invoice",' ',3,"IVCashToIVDsm");
SpecialMenu("Item Status",' ',4,"ItemStatusIVCashDsm");
SpecialMenu("Create Late Delivery Sales Order",' ',5,"IVCashToLateDelivORsm");
end;
EndWindow;
|
««