SberQR - Настройки под фастфуд (Быстрый чек)

Перед настройкой под режим фастфуда сначала необходимо выполнить общие настройки в системе r_keeper_7

В режиме фастфуда есть два формата вывода QR-кода:

1. Вывод QR-кода для оплаты на второй экран
2. Печать QR-кода для оплаты на фискальном регистраторе или сервис-принтере, с передачей чека клиенту

Настройка под режим печати чека с QR-кодом

Настройка пользовательского макета

Зайти в менеджерской r_keeper_7 в пункт меню:

Настройки→ Печать → Документы и макеты

Перейти к пункту бокового меню:

Прочее → Пользовательский макет

1. Создать новый макет (через правую кнопку мыши)
2. Ввести название ПМ SberQR
   

   

3. Перейти в дизайн макета
4. В свойствах макета добавить глобальные переменные (после входа в макет сразу нажать Свойства):
   

   printtextQR - тип “string”

   printtextErr - тип “string”

   test_1 - тип “string”

   ToPaySum - тип “double”
   

   

5. Создать 2 Бенда, 3 Мемо как на изображении ниже:
   

   
   
   

   Обязательно указать бендам источники данных - Заказы и Чеки как на изображении выше

   Содержимое первого Мемо:
   ПЛАТИ QR-кодом
   От SBER
   Содержимое второго Мемо:
   <QRProperties 150;15%>
   [printtextQR]
   Содержимое третьего Мемо:
   Отсканируй QR-код в мобильном
   приложении банка

6. Перейти в Мемо с параметрами QR-кода и указать следующий скрипт:

var
    host, tOrder, PostData, Ghost, tSum, sumToSend, StrSum, restaurantcode1,code :string;
begin
  begin
    printtextQR := '';
    printtextErr := '';
    ToPaySum :=[Сумма];
       
    host:='http://127.0.0.1:6800/terminal/Qr/';
    tOrder := [Заказы.GUID];
    tOrder := copy(tOrder,2,length(tOrder) - 2);
    tSum := IntToStr(trunc(ToPaySum));
    StrSum := FloatToStr(ToPaySum);
    Code := inttoStr([RestaurantCode]);
    sumToSend := tsum + copy(StrSum, pos('.',StrSum)+1,2);
    PostData:= '?sum=' + sumToSend;
    restaurantcode1:=  '&restaurantCode=' + Code;
    Ghost:= host + tOrder + PostData + restaurantcode1;
    httppost(Ghost, PostData,  printtextQR);
  
    printtextErr := HttpLastErrorMessage();
      if printtextQR[1] = '$' then
        begin
          printtextErr := copy(printtextQR, 2, length(printtextQR) - 1);
          printtextQR := '';
          test_1 := Ghost; 
        end
        else
          printtextQR := '<QRCODE ' + printtextQR + '>';
        end;    
end

Добавление пользовательского макета в схему печати

Зайти в менеджерской r_keeper_7 в пункт меню:

Настройки→ Печать → Схемы печати

1. В используемой схеме печати в корне нажать ПКМ → Добавить представление документа
   

   

2. В появившемся окне выбрать созданный пользовательский макет ПМ SberQR и нажать кнопку ОК
3. Выставить класс основного принтера Для чеков
   

   

4. Запомнить или записать код представления пользовательского макета - это понадобится при дальнейшей настройке

Настройка скрипта на форме быстрого чека