Сообщение от
pixnet
procedure ProcessOperation1009005(Parameter: integer);
var
it : TCheckItem;
flag : boolean;
j : integer;
begin
if not RKCheck.Valid then
exit //important checking
else begin
flag := false;
for j := 0 to RKCheck.CurrentOrder.Sessions.LinesCount - 1 do
begin
it := RKCheck.CurrentOrder.Sessions.Lines[j];
if SYS.ObjectInheritsFrom(TObject(it), 'TDiscountItem') then
flag := true;
end;
if ((RKCheck.CurrentOrder.UnpaidSum >= 1000) and (flag = false)) then // проверка суммы заказа
if GUI.RKMessageDlg('Добавить Карту в заказ?', 0, 3, 10000) = 6 then
begin
RK7.PerformOperation(rkoOpenDrawer, 0);
RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(539), '1'); // код блюда 539
end;
end;
RK7.PostOperation(rkoBalanceReceipt, 0);
end;
Ящик открывает, но карту добавляет и по да и по нет.