Быстрая продажа дробного количества блюда

В r_keeper 7 можно добавлять в заказ, как целое блюдо, так и его часть, например, половину или четверть порции.

Для этого в свойствах блюда в параметре Точность для количества указывается количество знаков, которое можно использовать после запятой.

Тогда на кассовой станции сотрудник с помощью цифровой клавиатуры может указать, какую долю блюда он продает.

В статье описано создание функциональной клавиши, с помощью которой дробное количество продаваемого блюда можно будет указывать в один клик (целое, половина или четверть) без ввода значения на цифровой клавиатуре.

Технология работы

В меню r_keeper создаются блюда, в свойствах которых Точность для количества выставляется 1 или 2. В первом случае будет возможность указать половину блюда (0,5), во втором – половину (0,5) или четверть (0,25).

Создаётся скрипт для функциональной клавиши, нажатие на которую открывает диалог с выбором доли блюда: целое, половина или четверть.

Настройки в менеджерской

1. Откройте справочник Сервис > Скрипты и перейдите в раздел Операции.

2. Создайте новый скрипт с именем Продажа дробного количества. Вставьте в созданный скрипт код, указанный ниже.

   Скрипт

   procedure ProcessOperation1015363(Parameter: integer);

   var

   k:integer;

   kolvo:double;

   CurItem: TCheckItem;

   ed: TObject;

   begin

     if not RKCheck.Valid then Exit;

     if GUI.CheckFormInPayMode then exit; 

     CurItem := RKCheck.CurrentCheckItem;

     ed := TObject(gui.FindComponentByName('Editor'));

     kolvo:=0;

     if SYS.ObjectInheritsFrom(TObject(CurItem), 'TDish') then

        if SYS.ObjectInheritsFrom(CurItem, 'TPortion')=false then

        if trk7menuItem(TDish(curitem).RefItem).QntDecDigits>=1 then

          begin

            if trk7menuItem(TDish(curitem).RefItem).QntDecDigits>=2 then  k:=gui.MessageDlgEx('Половина, четверть или целое блюдо?', mtInformation, mbYes+mbNo+mbCancel, 'Половина;Четверть;Целое')

            else k:=gui.MessageDlgEx('Половина или целое блюдо?', mtInformation, mbYes+mbCancel, 'Половина;Целое') ;

            if k=ID_Yes then kolvo:=0.5;

            if k=ID_No then kolvo:=0.25;

            if k=ID_Cancel then kolvo:=1;

            if kolvo>0 then

              begin

                TNumEditor(ed).Text := FloatToStr(kolvo);

                RK7.PerformOperation(rkoEditAmount, 0);

              end;

   
   

          end

          else

          begin

            gui.showmessage('Это блюдо не может быть разбито, т.к. продается только целым!');

          end;

   end;

   

3. После этого привяжите созданный скрипт к любой пользовательской операции. Для этого:

   1. Откройте справочник Сервис > Операции, внутри этого справочника перейдите в раздел Пользовательские операции

   2. Переименуйте любую свободную операцию в Продажа дробного количества

   3. В свойстве Скрипт выберите ранее созданный скрипт.
      
      

4. Далее создайте новую функциональную клавишу, к которой привяжите пользовательскую операцию из предыдущего шага. Для этого:

   1. Откройте справочник Настройки > Графический интерфейс > Функциональные клавиши и перейдите в раздел Операции с заказом > Селектор операций (можно выбрать и другой раздел).

   2. Создайте новую функциональную клавишу Дробн. Кол-во

   3. Заполните в свойствах функциональной клавиши свойства Операция и Операция пуст., выбрав операцию из предыдущего пункта Продажа дробного количества.
      

5. Добавьте функциональную клавишу в селектор для быстрого или классического чека.

   • Для быстрого чека сделайте копию из селектора Быстрый чек: операции, на вкладке Доп или Селектор операций добавьте функциональную клавишу.
     
     Добавьте созданный селектор в Использование селекторов.

   • Для классического чека сделайте копию из селектора Чек: операции, добавьте функциональную клавишу и назначьте селектор в использование.

Готово. Теперь при добавления блюда, с Точностью для количества равной 1 или 2, у кассира откроется диалоговое окно для выбора доли блюда.