RkPayQR - вывод QR-кода фискального чека на второй экран
Необходимо добавить скрипт на форму по аналогии со статьей RkPayQR - Настройки под фастфуд (Быстрый чек).
- Перейти в редактирование формы быстрого чека, один раз нажать на белую зону (CheckView) и во вкладке События нажать двойной клик на пустое поле возле OnOrderVerify:
- Вставить следующий скрипт:
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
Результат показан на скриншоте: