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;
When currency denomination is selected, the cash drawer is opened on command.