Показано с 1 по 9 из 9

Тема: Скрипт для автоматического добавления блюда в заказ, при превышении определенной суммы заказа

  1. #1
    Сведущий
    Регистрация
    28.06.2009
    Адрес
    Калуга
    Сообщений
    95
    Поблагодарил(а)
    0
    Благодарностей: 0 (сообщений: 0)

    Скрипт для автоматического добавления блюда в заказ, при превышении определенной суммы заказа

    Добрый день! Помогите с написанием скрипта, который будет автоматически добавлять блюдо в заказ, если сумма заказа больше определенной суммы. Заранее большое спасибо!

  2. #2
    Разбирающийся
    Регистрация
    28.06.2013
    Адрес
    Краснодар
    Сообщений
    1,333
    Поблагодарил(а)
    23
    Благодарностей: 143 (сообщений: 101)
    Взял с трекера, немного изменил, не проверял, но работать должно:
    Форма "редактирование заказа", объект CheckView, событие "onCurItemChenged" .

    procedure CheckViewCurItemChangedScript(Sender: TObject);
    var Categ: TClassificatorGroup;
    it: TCheckItem;
    grSum:double;
    i,cnt,dishCode:integer;

    begin

    dishCode:=1000191; // 1000191 - Here paste your code of dish

    grSum:=0;
    cnt:=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
    begin
    grSum:= grSum + TDish(it).Price*TDish(it).Quantity;;
    if it.code=dishCode then cnt:=1; //
    end;
    end;
    if cnt<1 then
    if grSum > 600 then RKCheck.CreateCheckItem(rkrefMenuItems, intToStr(dishCode), '1');
    end;



    Последний раз редактировалось satan; 26.11.2015 в 19:01.

  3. #3
    Сведущий
    Регистрация
    28.06.2009
    Адрес
    Калуга
    Сообщений
    95
    Поблагодарил(а)
    0
    Благодарностей: 0 (сообщений: 0)
    Что-то не работает в режиме быстрого чека(( Хотя вроде бы все правильно, создал новую схему, добавил обработчик события для формы 800x600 редактирования заказа быстрый чек, указал использование данной схемы для конкретной станции. Что может быть не так?

  4. #4
    Разбирающийся
    Регистрация
    28.06.2013
    Адрес
    Краснодар
    Сообщений
    1,333
    Поблагодарил(а)
    23
    Благодарностей: 143 (сообщений: 101)
    как будет чуть свободного времени проверю у себя

  5. #5
    Разбирающийся
    Регистрация
    28.06.2013
    Адрес
    Краснодар
    Сообщений
    1,333
    Поблагодарил(а)
    23
    Благодарностей: 143 (сообщений: 101)
    Исправил, у меня работает, в т.ч. в быстром чеке

  6. #6
    Сведущий
    Регистрация
    28.06.2009
    Адрес
    Калуга
    Сообщений
    95
    Поблагодарил(а)
    0
    Благодарностей: 0 (сообщений: 0)
    А что надо исправить?)

  7. #7
    Разбирающийся
    Регистрация
    28.06.2013
    Адрес
    Краснодар
    Сообщений
    1,333
    Поблагодарил(а)
    23
    Благодарностей: 143 (сообщений: 101)
    grSum:= grSum + TDish(it).Price*TDish(it).Quantity;

    почему-то в оригинальном скрипте, с трекера считали сумму цен блюд в каждой строке, может там задача так стояла, я уже не помню.
    Сейчас при сумме заказа больше 600 рублей (проверка в конце скрипта) добавляется блюдо с кодом, указанным в начале скрипта. Но: 1. Удалить его не получится, если сумма блюд заказа не стала меньше или равной 600руб.
    2. Если сумма блюд заказа стала меньше 600 рублей, блюдо само не удалится, надо удалять руками.

  8. #8
    Сведущий
    Регистрация
    28.06.2009
    Адрес
    Калуга
    Сообщений
    95
    Поблагодарил(а)
    0
    Благодарностей: 0 (сообщений: 0)
    Спасибо, сегодня попробую.

  9. #9
    Сведущий
    Регистрация
    28.06.2009
    Адрес
    Калуга
    Сообщений
    95
    Поблагодарил(а)
    0
    Благодарностей: 0 (сообщений: 0)
    Спасибо, все работает!

Похожие темы

  1. Бесследно исчезают блюда из заказа
    от olegash в разделе R-Keeper 7
    Ответов: 48
    Последнее сообщение: 24.09.2015, 15:36
  2. Автоматическое добавление блюда в заказ
    от nikolabogetic в разделе Создание меню R-Keeper 7 (Акции, комбо-блюда, модификаторы и т.д.)
    Ответов: 4
    Последнее сообщение: 24.02.2015, 15:57
  3. Изменить кол-во блюда у сохраненного заказа
    от olegash в разделе Работа с заказами на станциях в R-Keeper 7
    Ответов: 25
    Последнее сообщение: 20.01.2015, 18:49
  4. Нужно написать программу для добавления брони в R-keeper
    от shum в разделе Связь R-Keeper 7 с внешними системами
    Ответов: 1
    Последнее сообщение: 17.07.2013, 03:30

Ваши права

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