RK7
[
r_keeper 7|file:///D:\profile\Documents%D0%9A%D0%B8%D1%80%D0%B8%D0%BB%D0%BB%D0%A2%D0%B5%D1%85%D0%BD%D0%B8%D1%87%D0%B5%D1%81%D0%BA%D0%B0%D1%8F%20%D0%B4%D0%BE%D0%BA%D1%83%D0%BC%D0%B5%D0%BD%D1%82%D0%B0%D1%86%D0%B8%D1%8F.html]
*
A script that offers to print a fully paid receipt when opening an order
...
| Code Block | ||
|---|---|---|
| ||
procedure CheckViewOnShowScript(Sender: TObject); |
...
var i : |
...
integer; it: TCheckItem; paysum, cntdish: |
...
double; begin |
...
if not(RKCheck.CurrentOrder.FinishedService) |
...
then // if the receipt is open, then... begin paysum := |
...
0; cntdish := |
...
0; |
...
for i := |
...
0 to RKCheck.CurrentOrder.Sessions.LinesCount - |
...
1 do begin it := RKCheck.CurrentOrder.Sessions.Lines |
...
[i |
...
];
|
...
if SYS.ObjectInheritsFrom(TObject(it), |
...
'TDish') |
...
then //Check dish lines only cntdish := cntdish + TDish(it).Quantity; |
...
if SYS.ObjectInheritsFrom(TObject(it), |
...
'TPayLine') |
...
then //Check pay lines only paysum := paysum + TPayLine(it).NationalSum; end; |
...
if cntdish > 0 then if RKCheck.CurrentOrder.UnpaidSum <= paysum |
...
then |
...
if GUI.RKMessageDlg('Order is paid. Print the receipt?', |
...
0, |
...
3, |
...
10000) = |
...
6 then begin RK7.PostOperation(rkoBalanceReceipt, |
...
0); end; end; end |
...
; |
...