RK7
[
r_keeper 7|file:///D:\profile\Documents%D0%9A%D0%B8%D1%80%D0%B8%D0%BB%D0%BB%D0%A2%D0%B5%D1%85%D0%BD%D0%B8%D1%87%D0%B5%D1%81%D0%BA%D0%B0%D1%8F%20%D0%B4%D0%BE%D0%BA%D1%83%D0%BC%D0%B5%D0%BD%D1%82%D0%B0%D1%86%D0%B8%D1%8F.html]
*
CheckViewOnShow, DesignFormOnProcessCard, DesignFormOnRef, CheckViewOnSuitableObject, CheckViewOnGetColors
CheckViewOnShow
A script that offers to print a fully paid receipt when opening an order
...
| Code Block | ||
|---|---|---|
| ||
procedure CheckViewOnShowScript(Sender: TObject);
var i : integer;
it: TCheckItem;
paysum, cntdish: double;
begin
if not(RKCheck.CurrentOrder.FinishedService) then // if the receipt is open, then...
begin
paysum := 0;
cntdish := 0;
for i := 0 to RKCheck.CurrentOrder.Sessions.LinesCount - 1 do
begin
it := RKCheck.CurrentOrder.Sessions.Lines\[i\];
if SYS.ObjectInheritsFrom(TObject(it), 'TDish') then //Check dish lines only
cntdish := cntdish + TDish(it).Quantity;
if SYS.ObjectInheritsFrom(TObject(it), 'TPayLine') then //Check pay lines only
paysum := paysum + TPayLine(it).NationalSum;
end;
if cntdish > 0 then
if RKCheck.CurrentOrder.UnpaidSum <= paysum then
if GUI.RKMessageDlg('Order is paid. Print the receipt?', 0, 3, 10000) = 6 then
begin
RK7.PostOperation(rkoBalanceReceipt, 0);
end;
end;
end; |
DesignFormOnProcessCard
A script to call up a dialog box when swiping a PDS card
The script displays a message (for example, "No «No personal data"data»), provided that the "To «To show PDS card info" info» parameter is disabled. Script
The script in the OnProcessCard event of the main order editing form:
| Code Block | ||
|---|---|---|
| ||
procedure DesignFormOnProcessCard(IntfID, EntranceCardType: integer; CardCode: string; RKCardInfo: TRKCardInfo; var res:integer); |
...
begin |
...
if trim(RKCardInfo.CardAddInfo)<>'' then |
...
begin |
...
gui.showmessage('CardAddInfo = '+RKCardInfo.CardAddInfo); |
...
res := 0; |
...
// dbg.dbgprint('CardAddInfo = '+RKCardInfo.CardAddInfo); |
...
end; |
...
end; |
DesignFormOnRef
A script to prevent accepting 1000 and 5000 ruble banknotes without manager's approval
The script is written on the OnRefObject handler of the form itself.
| Code Block | ||
|---|---|---|
| ||
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" «Operations» directory in the R_Keeper_7 manager station):
- Check the box "Access control"«Access control»
- Change the name of the operation to "Confirmation «Confirmation of 1000 and 5000 denominations"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:
| Code Block | ||
|---|---|---|
| ||
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.
CheckViewOnSuitableObject
A script to hide the tip line
On the editing form of the CheckView object, insert the following script in the OnSuitableObjectScript event:
| Code Block | ||
|---|---|---|
| ||
procedure CheckViewOnSuitableObjectScript(Sender: TBasePanel; Obj: TObject; var Suitable: boolean); |
...
begin |
...
if RKCheck.CurrentOrder.FinishedService then |
...
if (SYS.ObjectInheritsFrom(Obj, 'TPayLine')) then |
...
Suitable := Suitable and (TPayLine(Obj).code <> 1); // Tips code |
...
end; |
You may also hide the change line by currency type or the discount line by its code in the receipt editor:
| Code Block | ||
|---|---|---|
| ||
procedure CheckViewOnSuitableObjectScript(Sender: TBasePanel; Obj: TObject; var Suitable: boolean); |
...
var TypeCurrCode, DiscountCode: integer; |
...
begin |
...
TypeCurrCode := 15; // Currency type |
...
DiscountCode := 1113; // discount code |
...
if (SYS.ObjectInheritsFrom(Obj, 'TDiscountItem')) then |
...
Suitable := Suitable and (TDiscountItem(Obj).Code <> DiscountCode); |
...
if (SYS.ObjectInheritsFrom(Obj, 'TPayLine')) then |
...
if (TPayLine(Obj).BasicSum < 0) then |
...
Suitable := Suitable and (TCurrencyType(TCurrency(TPayLine(Obj).RefItem).MainParent).Code <> TypeCurrCode); |
...
end; |
A script to hide the change line
...
in closed receipts
| Code Block |
|---|
procedure CheckViewOnSuitableObjectScript(Sender: TBasePanel; Obj: TObject; var Suitable: boolean); |
...
begin |
...
if RKCheck.CurrentOrder.FinishedService then |
...
if (SYS.ObjectInheritsFrom(Obj, 'TPayLine')) then |
...
Suitable := Suitable and (TPayLine(Obj).BasicSum >= 0); // hide payments with a negative amount, i.e. change |
...
end; |
CheckViewOnGetColors
A script to add a colored dish to an order
When ordering a dish marked with a colored button, the script adds this dish to the order with the same color.
| Code Block | ||
|---|---|---|
| ||
procedure CheckViewOnGetColors(Sender: TObject; CheckItem: TObject; Selected: boolean; var Color, FontColor: TColor); |
...
begin |
...
if SYS.ObjectInheritsFrom(CheckItem, 'TDish') then begin |
...
if (TDish(CheckItem).State = disOpened) then |
...
if not Selected then |
...
begin |
...
Color := Trk7menuitem(TDish(CheckItem).RefItem).VisualType_BColor; |
...
FontColor := Trk7menuitem(TDish(CheckItem).RefItem).VisualType_TextColor; |
...
end |
...
else |
...
begin |
...
Color := clBlack; |
...
FontColor := clWhite; |
...
// Color := Trk7menuitem(TDish(CheckItem).RefItem).VisualType_TextColor; |
...
// FontColor := Trk7menuitem(TDish(CheckItem).RefItem).VisualType_BColor; |
...
end; |
...
end; |
...
end; |
...