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

Тема: Акция на все красное Вино + "Винный сет" в подарок.

  1. #1
    Разбирающийся Аватар для ravakyan
    Регистрация
    09.11.2010
    Адрес
    Moscow
    Сообщений
    151
    Поблагодарил(а)
    1
    Благодарностей: 8 (сообщений: 6)

    Акция на все красное Вино + "Винный сет" в подарок.

    Добрый день.

    Огромная просьба скинуть хоты-бы приблизительный скрипт по внедрению акции (добавления в заказ автоматической скидки):
    В понедельник, на все красное Вино + "Винный сет" в подарок.
    Задача стоит в том, чтобы сервис печать вина выходила в баре, а Винного сета в хол. цеху.

    Заранее очень благодарю.
    У меня все работает. Скажите что я делаю не так?

  2. #2
    Разбирающийся
    Регистрация
    27.02.2017
    Адрес
    Москва
    Сообщений
    279
    Поблагодарил(а)
    8
    Благодарностей: 101 (сообщений: 66)
    procedure CheckViewOnOrderVerify(Sender: TObject; AVerifyType: TVerifyType; oper: integer; var AContinue: boolean);
    var
    i, CategRedWineCode, WineSetCode: integer;
    CategRedWine: TClassificatorGroup;
    it: TCheckItem;
    begin
    CategRedWineCode:=10; // код категории красное вино
    WineSetCode:=12; // код добавляемого к вину блюда.
    if DayOfWeek(now)=2 then
    if (AVerifyType=vtBeforeSave) then
    begin
    CategRedWine:= TClassificatorGroup(getitemBycodeNum('Classificato rGroups', CategRedWineCode));
    for i := 0 to RKCheck.CurrentOrder.Sessions.LinesCount - 1 do
    begin
    it := RKCheck.CurrentOrder.Sessions.Lines[i];
    if SYS.ObjectInheritsFrom(TObject(it), 'TDish') then
    if it.State = disOpened then
    if CategRedWine.IsChild(it.RefItem) then
    begin
    RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(WineSetCode), '1');
    GUI.ShowMessage('Ololoshenbka');
    end;
    end;
    end;
    end;

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

Похожие темы

  1. Ответов: 2
    Последнее сообщение: 07.06.2016, 16:40
  2. Акция "Детское день рождение. Скидка 10% + Пицца в подарок"
    от mnekin в разделе Скидки и дисконтные системы в R-Keeper 7
    Ответов: 3
    Последнее сообщение: 25.04.2016, 09:00
  3. Ответов: 11
    Последнее сообщение: 02.12.2015, 11:31

Ваши права

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