Скрипты для кассовых операций

Закрытие смены

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

procedure DesignFormOnShowScript(Sender: TObject);
var
s:double ;
begin

s:=(now-RK7.ShiftStartTime)/0.0417*60;
if s>RK7.Parameters.IntegerValue(prmMinutesMaxShift)then
   if gui.MessageDlgEx('Смена превысила установленное в параметре значение, закрыть общую смену?', mtInformation, mbYes+mbNo, 'Да;Нет') = ID_Yes then RK7.PerformOperation(rkoMMCloseCommonShift,0);
end;

CODE

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

procedure DesignFormOnOperation(Sender: TBasePanel; Operation, Param: integer; var res: integer);
begin
If (operation=455) then gui.showmessage('ТЕКСТ');
end;

CODE

Копия пречека на доп. назначение принтера

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

Решение: В типе документа «Пользовательский макет» создайте свой макет и вызовите его с кассы с помощью команды

RK7.PerformRefObject(RK7.FindItemByCode(rkrefMaketSchemeDetails, 2));

где 2 — код представления документа.

Внесите изменения в скрипт на подтверждение печати пречека (кассовые операции):

procedure CheckOperation1005943(Operation, Parameter: integer; var ValidResult, CallNextTime: boolean);

begin
     if operation = rkoPrintBill then
        begin
        ValidResult := GUI.RKMessageDlg('Напечатать пречек?', 0, 3, 10000) = 6;
        if ValidResult then
        RK7.PerformRefObject(RK7.FindItemByCode(rkrefMaketSchemeDetails,350));
        end; 
end;