Скрипт, запрещающий принимать купюру в 1000 и 5000 р. без подтверждения менеджера

Скрипт пишется на обработчике OnRefObject самой формы.

procedure DesignFormOnRefObject(Item: TReferentItem; Param: integer; var res: integer);
begin
if SYS.ObjectInheritsFrom(Item, 'TCurrencyFaceValue') then begin
if TCurrencyFaceValue(Item).FaceValue > 1000 then begin
if not RK7.CashUser.ConfirmOperation(rkoUser11) then
res := 1;
end;
end; 
end;

Скрипт использует rkoUser11 (пользовательская операция 11). С помощью данной операции выполняется подтверждение менеджера.

Предварительно нужно сконфигурировать данную операцию (справочник «Операции» в менеджерской станции R_Keeper_7) :

• Выставить галочку «Контроль доступа»
• Изменить название операции на «Подтверждение номиналов 1000 и 5000»
• Дать менеджеру право на данную операцию, и не дать это право кассиру.

Скрипт, открывающий ящик при входе в режим оплаты

У формы редактирования чека в событии OnRefObject указать скрипт:

procedure DesignFormOnRefObject(Item: TReferentItem; Param: integer; var res: integer);
begin
if SYS.ObjectInheritsFrom(Item, 'TCurrencyFaceValue') then
RK7.PerformOperation(rkoOpenDrawer, 0);
end;

При выборе номинала валюты происходит вызов команды открытия денежного ящика.