Страница 2 из 2 ПерваяПервая 12
Показано с 11 по 14 из 14

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

  1. #11
    Разбирающийся
    Регистрация
    18.10.2012
    Адрес
    Новосибирск, Омск
    Сообщений
    5,200
    Поблагодарил(а)
    173
    Благодарностей: 394 (сообщений: 310)
    Цитата Сообщение от pixnet Посмотреть сообщение
    Ящик открывает, но карту добавляет и по да и по нет.
    Вы правда совсем совсем не понимаете написанного кода?
    Даже на уровне курса информатики???

    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

    Находится вне рамок условия, т.е. выполняется безусловно, т.е. всегда.
    Вот оно и выполняется.
    Ильин Александр, Компания "Соттос"
    г Новосибирск +7 (383) 373-96-98; +7 (909) 533-93-92; nsk@sottos.ru
    г Омск +7 (3812) 377-902; +7 (905) 098-92-06; abc@sottos.ru
    www.sottos.ru | vk.com/sottos | fb.com/sottosru
    Продажа и установка ПО R-Keeper, обучение, техническая поддержка 24/7

  2. #12
    Разбирающийся
    Регистрация
    27.02.2017
    Адрес
    Москва
    Сообщений
    275
    Поблагодарил(а)
    8
    Благодарностей: 99 (сообщений: 65)
    Вот так, begin - end ограничивают область в которой в данном случае будет исполняться условие.

    Цитата Сообщение от 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;

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

  3. 1 пользователь сказал cпасибо SLion за это полезное сообщение::

    pixnet (05.02.2020)

  4. #13
    Сведущий
    Регистрация
    07.02.2018
    Адрес
    Ижевск
    Сообщений
    80
    Поблагодарил(а)
    30
    Благодарностей: 5 (сообщений: 5)
    Цитата Сообщение от sibgaba Посмотреть сообщение
    Вы правда совсем совсем не понимаете написанного кода?
    Даже на уровне курса информатики???
    Какой-то ты злой sibgaba, я в программировании не силен.

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

  5. #14
    Разбирающийся
    Регистрация
    18.10.2012
    Адрес
    Новосибирск, Омск
    Сообщений
    5,200
    Поблагодарил(а)
    173
    Благодарностей: 394 (сообщений: 310)
    Цитата Сообщение от pixnet Посмотреть сообщение
    Какой-то ты злой sibgaba, я в программировании не силен.
    Есть такое, согласен, но...

    Беда, коль пироги начнет печи сапожник,
    А сапоги тачать пирожник,
    И дело не пойдет на лад.
    Да и примечено стократ...
    Ильин Александр, Компания "Соттос"
    г Новосибирск +7 (383) 373-96-98; +7 (909) 533-93-92; nsk@sottos.ru
    г Омск +7 (3812) 377-902; +7 (905) 098-92-06; abc@sottos.ru
    www.sottos.ru | vk.com/sottos | fb.com/sottosru
    Продажа и установка ПО R-Keeper, обучение, техническая поддержка 24/7

Похожие темы

  1. Блюдо под заказ
    от Виктория122436 в разделе R-Keeper 7 и фискальные регистраторы, а также чеки и пречеки
    Ответов: 6
    Последнее сообщение: 25.04.2019, 09:02
  2. Создание скрипта
    от VINNI87 в разделе Работа с заказами на станциях в R-Keeper 7
    Ответов: 0
    Последнее сообщение: 16.07.2018, 15:33
  3. Не открывается заказ
    от Ninja в разделе R-Keeper 7
    Ответов: 7
    Последнее сообщение: 01.03.2017, 17:31
  4. Ответов: 2
    Последнее сообщение: 03.09.2016, 10:44
  5. исполнения скрипта
    от Anubis в разделе GameKeeper
    Ответов: 5
    Последнее сообщение: 16.12.2012, 00:19

Ваши права

  • Вы не можете создавать новые темы
  • Вы не можете отвечать в темах
  • Вы не можете прикреплять вложения
  • Вы не можете редактировать свои сообщения
  •