A script to prevent accepting 1000 and 5000 ruble banknotes without the manager's approval

The script is written on the OnRefObject handler of the form itself.

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;

The script uses rkoUser11 (user operation 11). This operation executes the manager's approval.

First, you should configure this operation (the

...

«Operations» directory in the R_Keeper_7 manager station):

• Check the box

...

• «Access control»
• Change the name of the operation to

...

• «Confirmation of 1000 and 5000

...

• denominations»
• Give the right to perform this operation to the manager but not to the cashier.

A script to open the cash drawer when entering payment mode

Insert the script in the OnRefObject event in the receipt editing form:

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

...