|
|
| Puts coursor in specified Edit Field when creating new record |
 |
| tstr |
Field Name |
|
WindowBegin("Cash Event",CashDClass,CGview,-);
SetWRect(64,80,590,420);
UseView(CashVc);
ActiveFieldOnNew("Drawer");
vs = 20; h = 100; h2 = 260; h3 = 350;
EditField(h,v=6,70,"Number",Normal,SerNr,false,0);
EditField(h2,vm=v,70,"Corresp. Acc.",Normal,CredAcc,false,AccSClass);
EditField(h,v=v+vs,70,"Drawer",Normal,Drawer,false,DrawerSClass);
EditField(h2,vm=v,70,"Machine",Normal,MachineName,false,0);
EditField(h,v=v+vs,70,"Date",Normal,TransDate,false,PasteCurDate);
EditField(h2,v,70,"Time",Normal,TransTime,false,PasteCurTime);
EditField(h,v3=(v=v+vs),-40,"Comment",Normal,Comment,false,0);
EditField(h,v3=(v=v+vs),50,"Sign",ViewOnly,Sign,false,0);
ButtonFrame(h3,v=vm,123,2,"Event");
RadioButton(h3,v,0,0,"Cash Out",Event);
RadioButton(h3,v+=16,1,0,"Cash In",Event);
MatrixBegin(h,v=v3+2*vs,h+150,v+10*17+1,-,99);
MatCol(1,24,"Mode",0,PMCode,false,PMSClass);
MatCol(1,70,"Amount",0,Amount,false,0);
InsertRowTest;
DeleteRowTest;
EndMatrix;
EditField(h+70,-30,80,"Total",Normal,Total,true,0);
CheckBox(20,-20,0,"OK",OKFlag);
EndWindow;
|
««