Доработка стандартного скрипта добавляющего блюдо в заказ

[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
RK7.PerformOperation(rkoOpenDrawer, 0);
RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(539), '1'); // код блюда 539
end;
RK7.PostOperation(rkoBalanceReceipt, 0);
end;

При нажатии "ДА" ящик открывается, но при этом блюдо в заказ добавляется и по "ДА" и по "НЕТ"

[satan]

if GUI.RKMessageDlg('Добавить Карту в заказ?', 0, 3, 10000) = 6 then
begin
RK7.PerformOperation(rkoOpenDrawer, 0);
RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(539), '1'); // код блюда 539
end;

Наверное, так надо

[pixnet]

Наверное, так надо

Ошибка в коде

[SLion]

Баланс begin и end нарушен, одного end; недостает
Потому ошибка.

[pixnet]

Баланс begin и end нарушен, одного end; недостает
Потому ошибка.

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);
end;
RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(539), '1'); // код блюда 539
end;
RK7.PostOperation(rkoBalanceReceipt, 0);
end;

Ящик открывает, но карту добавляет и по да и по нет.

[sibgaba]

Ящик открывает, но карту добавляет и по да и по нет.

Вы правда совсем совсем не понимаете написанного кода?
Даже на уровне курса информатики???

begin
RK7.PerformOperation(rkoOpenDrawer, 0);
end;
RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(539), '1'); // код блюда 539

RK7.PerformOperation(rkoOpenDrawer, 0); находится внутри контейнера begin...end те выполняется толко в случае выполнения условия (нажали ДА)
Команда
RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(539), '1'); // код блюда 539

Находится вне рамок условия, т.е. выполняется безусловно, т.е. всегда.
Вот оно и выполняется.

[pixnet]

Вы правда совсем совсем не понимаете написанного кода?
Даже на уровне курса информатики???

Какой-то ты злой sibgaba, я в программировании не силен.

Спасибо SLion, все нормально работает!

[SLion]

Вот так, begin - end ограничивают область в которой в данном случае будет исполняться условие.

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;

Ящик открывает, но карту добавляет и по да и по нет.