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.

  • No labels