|
|
| Sets the window size to maximum possible value. |
event DefineWindows
begin
Real h,h1,h2,h3,h4,h5,h6,h7,hm,v,v2,v3,l,vs,vm,f,t,x;
WindowBegin("POS Invoice",NPTSIVCashDClass,CGview,-);
SetWRect(lt,tp,rt,bm); // SetWRect(0,100,860,760);
AbsoluteWindowSize;
FullscreenWindow;
BrowseButtons(false);
Sizeable(-1,-1,0,0);
BrowseButtons(false);
DynamicWindow;
UseView(IVCashVc);
ActiveFieldOnNew("ivcashcommand");
ToolBar;
EndToolBar;
v = 20;
h = -300; h2 = -150; h3 = -70; h4 = -10;
if (wn>0) then begin
switch (GetWindowClass(wn)) begin
case "NPTSIVCashDClass":
GetWindowRecord(wn,IVCashr);
end;
end;
td = IVCashr.TransDate;
if (blankdate(td)) then begin td = CurrentDate; end;
tt = IVCashr.TransTime;
if (blanktime(tt)) then begin tt = CurrentTime; end;
lmc = IVCashr.LocalMachineCode;
if (blanktime(lmc)) then begin lmc = LMb.LocalMachineCode; end;
sm = IVCashr.SalesMan;
if (blanktime(sm)) then begin sm = CurrentUser; end;
nr = "Invoice: ";
if (IVCashr.SerNr>0) then begin
nr = nr & IVCashr.SerNr;
end;
DisplayRecordDetails(10,26,compname,td,tt,lmc,sm,nr,IVCashr.CustCode,IVCashr.Addr0,IVCashr.LoyaltyCardNr,LMb.ShowBaggerSupervisor,IVCashr.Bagger,IVCashr.Supervisor,IVCashr.DiscountCardNr,IVCashr.DiscountFwdBal);
if (bm<650) then begin
SoftEditFieldTLX(360,6,h4,"",M4Str,ViewOnly,100,20,patM4black,"CustomerDisplayData_Line1",true,0);
SoftEditFieldTLX(360,36,h4,"",M4Str,ViewOnly,100,30,patM4black,"CustomerDisplayData_Line2",true,0);
end else begin
SoftEditFieldTLX(360,6,h4,"",M4Str,ViewOnly,100,30,patM4black,"CustomerDisplayData_Line1",true,0);
SoftEditFieldTLX(360,46,h4,"",M4Str,ViewOnly,100,50,patM4black,"CustomerDisplayData_Line2",true,0);
end;
switch (LMb.POSButtonsPosition) begin
case kPOSButtonsPositionLeft:
SoftEditField(110,-22,200,"Item/Command" ,Normal ,"ivcashcommand",false,0,M4Str,255);
case kPOSButtonsPositionRight:
SoftEditField(-260,-22,200,"Item/Command" ,Normal ,"ivcashcommand",false,0,M4Str,255);
end;
SoftEditField(2000,-22,200,"" ,Normal ,"ivcashcommandlastitemsernrf",false,0,M4Str,255);
DrawPOSInterface(bc1,bc2,POSBr,acnt);
BottomBar;
EndWindow;
return;
end;
 |
««