Перейти к основному контенту

RkPayQR - вывод QR-кода фискального чека на второй экран

Необходимо добавить скрипт на форму по аналогии со статьей RkPayQR - Настройки под фастфуд (Быстрый чек).

  • Перейти в редактирование формы быстрого чека, один раз нажать на белую зону (CheckView) и во вкладке События нажать двойной клик на пустое поле возле OnOrderVerify:

    image-1650269069869.png

  • Вставить следующий скрипт:
procedure CheckViewOnOrderVerify(Sender: TObject; AVerifyType: TVerifyType; oper: integer; var AContinue: boolean);
var
rkqrOrder,rkqrQuery:string;
rkqrI,rkqrJ:integer;
begin
 if(AVerifyType=vtAfterReceipt) then
 begin
 rkqrOrder := RKCheck.CurrentOrder.Guidstring;
 rkqrI:=Pos('{', rkqrOrder); 
 rkqrJ:=Pos('}', rkqrOrder);
 rkqrOrder := copy(rkqrOrder,rkqrI+1,rkqrJ-rkqrI-1);
 //GUI.ShowMessage('Произошла оплата по заказу '+rkqrOrder);
 rkqrQuery:='http://127.0.0.1:6800/terminal/closeCheck/'+rkqrOrder;
 httppost(rkqrQuery,'QR Fisc',rkqrQuery);
 end;
end;
  • При необходимости сменить ip-адрес в переменной rkqrQuery на ip-адрес клиента RkPayQR

Результат показан на скриншоте:

image-1650269502937.png