...
| Code Block | ||
|---|---|---|
| ||
procedure CheckViewOnOrderVerify(Sender: TObject; AVerifyType: TVerifyType; oper: integer; var AContinue: boolean);
begin
if AVerifyType = vtNewQuickCheck then
if RKCheck.CurrentOrder.IsEmpty then
RK7.PerformRefObject(RK7.FindItemByCode(rkrefCategList, 5 {Menu group code}));
end; |
A script to create 2+1 and 3+1
...
special offers
Insert the script in the OnOrderVerify event of the CheckView component on the check editing form. The discount will be calculated and added to the receipt when the bill is printed.
...
- When swiping the PDS card (the OnProcessCard handler), the script checks if it is possible to add a discount to the dish.
- If the discount was not used, the script finds for a dish that can be given a 100% discount:
- This dish is given a 100% discount.
- The discount "DISCOUNT USED" is added to the order via PerformMCRAlgoritm, so that the card code is registered in the discount.
У скидки «СКИДКА ИСПОЛЬЗОВАНА» должны быть выставлен флаг «Не вручную» и не отмечено «Печатать нулевые».
Скрипт нужно вставить в метод OnProcessCard на форме редактирования заказа.
The «DISCOUNT USED» discount must have the «Not manually» flag set and the «Print nulls» option unchecked.
Insert the script in the OnProcessCard method on the order editing form.
...
| Code Block | ||
|---|---|---|
| ||
procedure CheckViewOnOrderVerify(Sender: TObject; AVerifyType: TVerifyType; oper: integer; var AContinue: boolean);
var i, Interval, RND, DEV,happynum, CntDish, HaveSpecialDish: integer;
rr : double;
tt: string;
it: TCheckItem;
begin
//************************************//
// stop service without special dish //
//************************************//
if (AVerifyType = vtBeforeSave) then
begin
HaveSpecialDish := 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
if (TDish(it).Quantity <> 0) then
begin
CntDish := CntDish + 1;
if ((it.CODE = 5502) OR (it.CODE = 1003)) then
HaveSpecialDish := HaveSpecialDish + 1;
end;
end;
if (CntDish>0) and (HaveSpecialDish = 0) then
begin
// gui.showmessage('НетNo обязательногоmandatory блюдаdish! СохранениеSaving запрещеноprohibited');
if GUI.RKMessageDlg('Return to edit order?', 0, 3, 10000) = 6 then
AContinue := False
else
AContinue := True;
end;
end;
//************************************//
// stop service without special dish //
//************************************//
// show meessage on special order
Interval := 10;
DEV := 5;
tt := TimeToStr(time);
rr := 10*1/StrToInt(Copy(tt,length(tt)-1,2));
happynum := trunc(Interval + rr*DEV - trunc(DEV/2));
// GUI.ShowMessage('Happy Num='+IntToStr(happynum));
// GUI.ShowMessage('Happy Time='+tt+' --'+Copy(tt,length(tt)-1,2));
if (AVerifyType = vtBill) and (happynum=RKCheck.CurrentOrder.SeqNumber) then
begin
GUI.ShowMessage('Happy Order '+IntToStr(RKCheck.CurrentOrder.SeqNumber));
// ss := RKCheck.CurrentOrder.OrderName;
// CheckView.Tag:=1;
end;
end; |
...
| Code Block | ||
|---|---|---|
| ||
procedure CheckViewOnOrderVerify(Sender: TObject; AVerifyType: TVerifyType; oper: integer; var AContinue: boolean);
var DishCode1, DishCode2, DishCode3, DishCode4, ZoneId1,ZoneId2,ZoneId3,ZoneId4: integer;
limit1, limit2, limit3, limit4: double;
begin
DishCode1 := 43; // special dish1 code
DishCode2 := 46; // special dish2 code
DishCode3 := 47; // special dish3 code
DishCode4 := 48; // special dish4 code
limit1 := 600; // paid delivery limit 1
limit2 := 750; // paid delivery limit 2
limit3 := 850; // paid delivery limit 3
limit4 := 950; // paid delivery limit 4
ZoneId1 := 2; // delivery zone 1 ID
ZoneId2 := 3; // delivery zone 2 ID
ZoneId3 := 4; // delivery zone 3 ID
ZoneId4 := 5; // delivery zone 4 ID
if (AVerifyType=vtBill) // bill
if (AVerifyType=vtBill) // bill !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
then
if RKCheck.CurrentOrder.ZoneID > 0 then
begin
if RKCheck.CurrentOrder.ZoneID = ZoneId1 then
if RKCheck.CurrentOrder.ToPaySum <= limit1 then
RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(DishCode1), IntToStr(1) ); // доставкаdelivery 1
if RKCheck.CurrentOrder.ZoneID = ZoneId2 then
if RKCheck.CurrentOrder.ToPaySum <= limit2 then
RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(DishCode2), IntToStr(1) ); // доставкаdelivery 2
if RKCheck.CurrentOrder.ZoneID = ZoneId3 then
if RKCheck.CurrentOrder.ToPaySum <= limit3 then
RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(DishCode3), IntToStr(1) ); // доставкаdelivery 3
if RKCheck.CurrentOrder.ZoneID = ZoneId4 then
if RKCheck.CurrentOrder.ToPaySum <= limit4 then
RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(DishCode4), IntToStr(1) ); // доставкаdelivery 4
end;
end; |
Скрипт, контролирующий прокат карты PDS
Есть блюда, которые доступны только держателям клубных карт. При выборе этого блюда должно появляться окно — «Используйте карту PDS». Если нет карты, то блюдо в чек не попадает.
A script to control swiping of the PDS card
There are dishes that are only available to club card holders. When you select this dish, the «Use the PDS card» window should appear. If there is no card, the dish is not added to the order.
| Code Block | ||
|---|---|---|
| ||
procedure CheckViewOnOrderVerify(Sender: TObject; AVerifyType: TVerifyType; oper: integer; var AContinue: boolean); var i, DishCode1, DishCode2, DishCode3, DiscountCode1, DiscountCode2, DiscountCode3, CardPresent,DishPresent: integer; CardCode: string; it: TCheckItem; begin DishCode1 := 1; DiscountCode1 := 12; DiscountCode2 := 13; DiscountCode3 := 14; CardPresent := 0; DishPresent := 0; CardCode := ''; if (AVerifyType = vtBill)or(AVerifyType = vtPrintReceipt) then begin 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 if (TDish(it).code = DishCode1) then //Check category of the dish if TDish(it).Quantity > 0 then DishPresent := DishPresent + 1; if SYS.ObjectInheritsFrom(TObject(it), 'TDiscountItem') then //Check discount lines only if (TDiscountItem(it).code = DiscountCode1) or(TDiscountItem(it).code = DiscountCode2) or(TDiscountItem(it).code = DiscountCode3) then // defining |
...
PDS card by PDS discount availability CardPresent := 1; end; if DishPresent > 0 then if CardPresent > 0 then AContinue:= True else { if GUI.RKMessageDlg(' |
...
Special |
...
dishes |
...
available, |
...
use |
...
PDS |
...
card' ,0,3, 10000)=6 then AContinue := false else AContinue := True; } begin // gui.showmessage(' |
...
There |
...
are special dishes in the order, use PDS card' '); gui.showmessage(' |
...
Special |
...
dishes: '+inttostr(DishPresent)+' ; Cards |
...
found |
...
in |
...
the |
...
order: '+inttostr(CardPresent)); // |
...
test |
...
line AContinue := false; end; end; if (AVerifyType = vtBill) or(AVerifyType = vtPrintReceipt) or (AVerifyType=vtBeforeSave) then for i := 0 to RKCheck.CurrentOrder.Sessions.LinesCount - 1 do begin it := RKCheck.CurrentOrder.Sessions.Lines[i]; if SYS.ObjectInheritsFrom(it, 'TDish') then if CheckDishCode(TDish(it).Code) then // if (TDish(it).Code = DishCode) then begin // checking by Consumators if TDish(it).Consumators.Count = 0 then begin gui.ShowMessage(' |
...
Operation |
...
impossible, |
...
add |
...
consumator'); AContinue := false; end; end; end; end; |
Скрипт, ограничивающий оплату картами PDS только быстрым чеком
Необходимо разрешить оплату картами PDS только в случае, если заказ создан с помощью кнопки «Быстрый чек».
На форме быстрого чека у объекта CheckView в событии OnOrderVerify указать скрипт:
A script to restrict the payment with PDS cards to a quick check only
Payments with PDS cards should be allowed only if the order is created using the «Quick Check» button.
On the quick check form of the CheckView object, insert the script in the OnOrderVerify event:
| Code Block | ||
|---|---|---|
| ||
procedure CheckViewOnOrderVerify(Sender: TObject; AVerifyType: TVerifyType; oper: integer; var AContinue: boolean);
begin
if AVerifyType = vtNewQuickCheck then
if RKCheck.CurrentOrder.IsEmpty then
RKCheck.CurrentOrder.UserTag2 := 33;
end; |
...
Add a line to the MCR script to check the specified custom tag:
| Code Block | ||
|---|---|---|
| ||
if (RKCheck.CurrentOrder.UserTag2 = 33) then |
...
A script to control the number of consumators for some dishes
Необходимо сделать так, чтобы к одним блюдам был привязан один консумант, а к другим — два консуманта.
...
На форме редактирования заказа у объекта CheckView в событии OnOrderVerify укажите скрипт:
...
Some dishes should be given one consumator, while other dishes should be given 2 consumators.
To do this, set the limit of consumators — 2 in the parameter, and use the script to limit the dishes of a special category to one consumator.
On the order editing form for the CheckView object, insert the script in the OnOrderVerify event:
| Code Block | ||
|---|---|---|
| ||
procedure CheckViewOnOrderVerify(Sender: TObject; AVerifyType: TVerifyType; oper: integer; var AContinue: boolean); var i,j,CntConsumators,MaxQntConsumCateg1:integer; it: TCheckItem; CategCode2: integer; Categ2: TClassificatorGroup; begin //************************* Set parameters ******************************// CategCode2 := 8; // |
...
controlled |
...
dishes |
...
category MaxQntConsumCateg1 := 1; //************************* Set parameters ******************************// Categ2 := TClassificatorGroup(getitemBycodeNum('ClassificatorGroups', CategCode2)); if (AVerifyType = vtBeforeSave)or(AVerifyType = vtBill)or(AVerifyType = vtPrintReceipt) then for i:= 0 to RKCheck.CurrentOrder.Sessions.LinesCount - 1 do begin it := RKCheck.CurrentOrder.Sessions.Lines[i]; if SYS.ObjectInheritsFrom(TObject(it), 'TDish') then begin CntConsumators := 0; CntConsumators := TDish(it).Consumators.Count; //dbg.dbgprint(' |
...
dish '+TDish(it).Name +' of |
...
modifiers '+inttostr(CntConsumators)); if not(Categ2.IsChild(it.RefItem)) then //Check category of the dish if CntConsumators>MaxQntConsumCateg1 then begin AContinue := False; gui.showmessage(' |
...
The |
...
number |
...
of |
...
dish consumants |
...
is exceeded'+TDish(it).Name); end; end; end; end; |
Скрипт для проверки наличия подарочного блюда в заказе
Акция — Подарок от суммы заказа. От 1000 рублей — одно блюдо бесплатно,
от 1200 - одно из двух на выбор.
Необходимо чтобы кассир не смог рассчитать заказ от 1000 рублей, если в нём нет подарочного блюда.
Cкрипт разместить на форме редактирования заказа у объекта CheckView в событии OnOrderVerify
A script to check the presence of a gift dish in the order
The special offer: A gift depending on the order sum. One dish is for free if the order sum is bigger than 1000 rubles. When it is bigger than 1200 rubles, one of two free dishes may be chosen.
The cashier shouldn't be able to calculate the order equal to or bigger than 1000 rubles if there is no gift dish in it.
Place the script on the order editing form at the CheckView object in the OnOrderVerify event.
| Code Block | ||
|---|---|---|
| ||
procedure CheckViewOnOrderVerify(Sender: TObject; AVerifyType: TVerifyType; oper: integer; var AContinue: boolean);
var i, CntDish, HaveSpecialDish, SpecialDishCode1, SpecialDishCode2: integer;
LimitSum : double;
it: TCheckItem;
begin
//************************************//
// stop service without special dish //
//************************************//
//********** Set parameters ***********//
SpecialDishCode1 := 23; // |
...
dish |
...
code SpecialDishCode2 := 24; // |
...
dish |
...
code LimitSum := 1000; // |
...
the sum of the check, over which the gift dish is due //********** Set parameters ***********// if ((AVerifyType=vtBill) // |
...
bill or (AVerifyType=vtBeforeSave) // |
...
save |
...
order or (AVerifyType=vtFirstPay) // |
...
first |
...
payment |
...
input or (AVerifyType=vtPrintReceipt)) // |
...
...
receipt then begin HaveSpecialDish := 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 if (TDish(it).Quantity <> 0) then begin CntDish := CntDish + 1; if (it.CODE = SpecialDishCode1)or(it.CODE = SpecialDishCode2) then HaveSpecialDish := HaveSpecialDish + 1; end; end; if (HaveSpecialDish = 0)and(RKCheck.CurrentOrder.ToPaySum >= LimitSum) then begin gui.showmessage(' |
...
No |
...
gift |
...
dishes!'); AContinue := False end; end; //************************************// // stop service without special dish // //************************************// end; |
Скрипт для привязки валют к типу гостя
Для организации питания персонала введено:
- два типа гостя («Гость» и «Персонал») и дополнительный тип цены;
- тип цены для персонала привязан к типу гости «Персонал»;
- для оплаты заказа по ценам для персонала используется две специальные валюты.
Скрипт ограничивает оплату только данными типами валют при выборе типа гостя «Персонал»
...
A script for link currencies to the type of guest
To arrange the staff meals, the following options were created:
- two guest types («Guest» and «Staff») and an additional type of price;
- the staff price type is linked to the «Staff» guests type;
- two special currencies are used to pay for the order at staff prices.
The script restricts the payment only to these currency types when selecting the «Staff» guests type.
The version of the cash register system 7.5.2.377
В форме редактирования заказ у объекта CheckView в событии OnOrderVerify указать скрипт:
On the order editing form for the CheckView object, insert the script in the OnOrderVerify event:
| Code Block | ||
|---|---|---|
| ||
procedure CheckViewOnOrderVerify(Sender: TObject; AVerifyType: TVerifyType; oper: integer; var AContinue: boolean);
var i, CntDish, HaveSpecialDish, HaveDiscount: integer;
it: TCheckItem;
HaveAnotherCurr: integer;
begin
//***********41012********************//
if (AVerifyType = vtBill)or(AVerifyType = vtPrintReceipt) then
// if RKCheck.CurrentOrder.GuestType = ' |
...
Staff' then if RKCheck.CurrentOrder.Visit.GuestType <> 0 then if RK7.FindItemBySifr(rkrefGuestTypes, RKCheck.CurrentOrder.Visit.GuestType).Code = 2 then begin HaveAnotherCurr := 0; for i := 0 to RKCheck.CurrentOrder.Sessions.LinesCount - 1 do begin it := RKCheck.CurrentOrder.Sessions.Lines[i]; if SYS.ObjectInheritsFrom(TObject(it), 'TPayLine') then if (TPayLine(it).Code <> 98)and(TPayLine(it).Code <> 99) then // |
...
Currency |
...
code |
...
for |
...
staff HaveAnotherCurr := HaveAnotherCurr + 1; end; if (HaveAnotherCurr>0) then begin AContinue := False; gui.showmessage(' |
...
Prohibited |
...
currency |
...
for |
...
this |
...
order!'); end; end; //***********41012********************// end; |
...
A script to print the final receipt in R_Keeper_7
Ресторан работает под ООО и ИП. В ООО - фискальный регистратор и накопитель. В ИП — роловый принтер. В качестве чекового принтера — фискалкальный регистратор, на котором задана классификация — отдел ФР. Необходимо, чтобы кроме этих двух разделенных чеков, дополнительно печатался третий — общий, на роловом принтере.
Создать макет в "Прочее -- Пользовательский макет" Загрузить в него макет чека. Создать для него представление печати в схемах печати.
...
The restaurant works under two types of business entities — private limited company and sole proprietorship. In the first one, a fiscal register and a fiscal memory device are used. In the second one, a check printer is used. A fiscal register works as a POS printer and has the «FR department» classification set. Alongside these two separated receipts, the third — a common one — should be printed on a check printer.
Create a layout in «Other — Custom Layout» and load a check layout. Create a print view for it in the print layouts.
On the check editing form of the CheckView object, insert the script in the OnOrderVerify event:
| Code Block | ||
|---|---|---|
| ||
procedure CheckViewOnOrderVerify(Sender: TObject; AVerifyType: TVerifyType; oper: integer; var AContinue: boolean);
begin
if (AVerifyType=vtAfterReceipt) then
begin
RK7.PerformRefObject(RK7.FindItemByCode(rkrefMaketSchemeDetails,219)); // |
...
...
view |
...
code end; end; |
Вместо «219» указать код представления печати пользовательского макета.
Скрипт на удаление наценки, если в заказе есть определенная скидка
...
Specify the print view code of the custom layout instead of «219».
A script to remove the markup, if the order has a certain discount
The « Service 10% » charge applies only to waiters and is calculated from the order amount. A set of discounts (5%, 10%,
...
Employee,
...
Private) is calculated from the order amount.
Discounts «Employee» (code 5) and «Private» (code 6) remove the markup.
On the check editing form of the CheckView object, insert the script in the OnOrderVerify event:
Скидки «Сотрудник» (код 5) и «Приват» (код 6) убирают наценку.
На форме редактирования чек у объекта CheckView в событии OnOrderVerify указать скрипт:
| Code Block | ||
|---|---|---|
|
procedure CheckViewOnOrderVerify(Sender: TObject; AVerifyType: TVerifyType; oper: integer; var AContinue: boolean);
var i,dsk1, dsk2: integer;
it, it2: TCheckItem;
begin
dsk1 := 0; // |
...
discounts |
...
counter |
...
canceling |
...
markup dsk2 := 0; // |
...
markup |
...
counter for i := 0 to RKCheck.CurrentOrder.Sessions.LinesCount - 1 do begin it := RKCheck.CurrentOrder.Sessions.Lines[i]; if SYS.ObjectInheritsFrom(TObject(it), 'TDiscount') then Begin if ((it.CODE = 5) or (it.CODE = 6)) then // |
...
discounts |
...
codes |
...
canceling |
...
markup dsk1 := dsk1 + 1; if (it.CODE = 10) then // |
...
markup |
...
code begin dsk2 := dsk2 + 1; it2 := it; end; End; end; if (dsk1 > 0) and (dsk2 > 0) then RKCheck.DeleteCheckItem(it2); // |
...
delete markup
end; |
A script to activate the «Plastek» loyalty card
If there is a deposit or activation item in the receipt— the table cannot be closed without using a loyalty card.
The script checks the presence of the specified dish and the discount in the order. If there is a dish, but there is no discount, then a message is displayed and the action is blocked until the discount is added or the dish is removed.
Скрипт на активацию карты лояльности «Пластек»
Если в чеке есть блюдо пополнения или активации — стол невозможно закрыть без применения карты лояльности
Скрипт проверяет наличие в заказе указанного блюда и скидки. Если блюдо есть, а скидки нет, то выводится сообщене и блокируется действие, пока не добавят скидку или удалят блюдо.
| Code Block | ||
|---|---|---|
|
procedure CheckViewOnOrderVerify(Sender: TObject; AVerifyType: TVerifyType; oper: integer; var AContinue: boolean);
var i, Interval, RND, DEV,happynum, CntDish, HaveSpecialDish, HaveSpecialDisc, SpecialDishCode, SpecialDiscCode: integer;
rr : double;
tt: string;
it: TCheckItem;
begin
//************************************//
// stop service without special dish //
//************************************//
if ((AVerifyType=vtBill) // |
...
bill or (AVerifyType=vtBeforeSave) // |
...
save |
...
order or (AVerifyType=vtFirstPay) // input of |
...
the |
...
first |
...
payment or (AVerifyType=vtPrintReceipt)) // |
...
...
receipt |
...
then begin SpecialDishCode := 23; // |
...
dish |
...
code SpecialDiscCode := 10; // |
...
discount |
...
code HaveSpecialDish := 0; HaveSpecialDisc := 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 if (TDish(it).Quantity <> 0) then begin CntDish := CntDish + 1; if (it.CODE = SpecialDishCode) then HaveSpecialDish := HaveSpecialDish + 1; end; if SYS.ObjectInheritsFrom(TObject(it), 'TDiscountItem') then if (it.CODE = SpecialDiscCode) then HaveSpecialDisc := HaveSpecialDisc + 1; end; if (HaveSpecialDisc = 0) and (HaveSpecialDish > 0) then begin gui.showmessage(' |
...
No |
...
mandatory |
...
discount!'); AContinue := False end; end; //************************************// // stop service without special dish // //************************************// end; |
...
A script to print a coupon layout
| Code Block | ||
|---|---|---|
| ||
procedure CheckViewOnOrderVerify(Sender: TObject; AVerifyType: TVerifyType; oper: integer; var AContinue: boolean); var i, CntDish2, CntDish3, CntDish4, CodeDish2, CodeDish3_1, CodeDish3_2, CodeCateg4_1, CodeCateg4_2: integer; it: TCheckItem; Categ: TClassificatorGroup; s1: string; begin s1 := FormatDateTime('hh',Now); CntDish2 := 0; CntDish3 := 0; CntDish4 := 0; CodeDish2 := 10; // dish code |
...
...
CodeDish3_1 := 100; // |
...
dish code |
...
...
CodeDish3_2 := 105; // dish |
...
code |
...
...
CodeCateg4_1 := 5; // |
...
"Salad" |
...
category |
...
code CodeCateg4_2 := 8; // |
...
"Drink" |
...
category |
...
code for i := 0 to RKCheck.CurrentOrder.Sessions.LinesCount - 1 do begin it := RKCheck.CurrentOrder.Sessions.Lines[i]; if SYS.ObjectInheritsFrom(TObject(it), 'TDish') then begin if TDish(it).Code = CodeDish2 then CntDish2 := CntDish2 + 1; if (TDish(it).Code = CodeDish3_1) or (TDish(it).Code = CodeDish3_2) then CntDish3 := CntDish3 + 1; Categ := TClassificatorGroup(getitemBycodeNum('ClassificatorGroups', CodeCateg4_1)); if Categ.IsChild(it.RefItem) then CntDish4 := CntDish4 + 1; Categ := TClassificatorGroup(getitemBycodeNum('ClassificatorGroups', CodeCateg4_2)); if Categ.IsChild(it.RefItem) then CntDish4 := CntDish4 + 1; end end; if AVerifyType = vtPrintReceipt then if StrtoInt(s1) <= 18 then Begin // |
...
order |
...
sum >= 500 |
...
rub. if (RKCheck.CurrentOrder.ToPaySum >= 500) {and (RKCheck.CurrentOrder.ToPaySum < 1000)} then RK7.PerformRefObject(RK7.FindItemByCode(rkrefMaketSchemeDetails,3031)) else // |
...
there is |
...
the |
...
dish |
...
with |
...
the |
...
code |
...
"xxx" in the order |
...
if (CntDish2 > 0) then begin RK7.PerformRefObject(RK7.FindItemByCode(rkrefMaketSchemeDetails,3032)); end else // |
...
there is |
...
the |
...
dish |
...
with |
...
the |
...
code "100" |
...
and "105" in the order if (CntDish3 > 0) then begin RK7.PerformRefObject(RK7.FindItemByCode(rkrefMaketSchemeDetails,3033)); end else // |
...
there |
...
is |
...
the |
...
dish |
...
from " |
...
salad" |
...
and " |
...
drink" category in the order |
...
...
if (CntDish4 > 0) then
begin
RK7.PerformRefObject(RK7.FindItemByCode(rkrefMaketSchemeDetails,3034));
end;
end;
end; |
...
Скрипт, запрещающий продавать весовой товар, если вес меньше нормы
...
A script to prohibit selling a catch weight product if the weight is less than the norm
On the check editing form of the CheckView object, insert the script in the OnOrderVerify event:
| Code Block | ||
|---|---|---|
| ||
procedure CheckViewOnOrderVerify(Sender: TObject; AVerifyType: TVerifyType; oper: integer; var AContinue: boolean);
var i: integer;
minweight: double;
it: TCheckItem;
begin
minweight := 0.3; // |
...
setting the minimum weight for sale if |
...
(AVerifyType = vtBill)or(AVerifyType = vtPrintReceipt) then
begin
for i := 0 to RKCheck.CurrentOrder.Sessions.LinesCount - 1 do begin
it := RKCheck.CurrentOrder.Sessions.Lines[i];
if SYS.ObjectInheritsFrom(TObject(it), 'TDish') then
if TDish(it).Quantity>0.0 then
if SYS.ObjectInheritsFrom(it, 'TPortion') then // |
...
check |
...
for |
...
a |
...
catch weight dish if |
...
Tdish(it).Quantity < minweight then
begin
gui.showmessage('Too small weight! Set more then '+FloatToStr(minweight));
AContinue := False;
end;
end;
end;
end; |
Скрипт на подтверждение картой менеджера сохранения акционного блюдо
Алгоритм :
1.Официант пробивает блюдо/напиток по акции (с литерой А)
2.Нажимает «сохранить заказ». После этого всплывает окно «Требуется подтверждение картой менеджера»
3. Менеджер поводит своей картой (контролирует в этот момент корректность применения акции), после чего всплывает окно «Сохранить заказ».
4. После этого пробитые блюда печатаются в цеховых принтерах.
...
A script to confirm saving the special dish by the manager's card
The algorithm :
- The waiter adds a special dish or drink (with the letter A) to the order.
- Then he or she clicks «Save order». After that, the «Confirmation by the manager's card is required » window pops up.
- The manager swipes his or her card, controlling if the special offer is correctly applied. The "Save order" window pops up.
- After that, the added dishes are printed on the kitchen printers.
On the order editing form of the CheckView object, insert the script in the OnOrderVerify event:
| Code Block | ||
|---|---|---|
| ||
procedure CheckViewOnOrderVerify(Sender: TObject; AVerifyType: TVerifyType; oper: integer; var AContinue: boolean);
var i, DishCode, CntDish, HaveSpecialDish: integer;
it: TCheckItem;
begin
//************************************//
// 57799 //
//************************************//
if (AVerifyType = vtBeforeSave) then
begin
DishCode := 25; // code of dish
HaveSpecialDish := 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
if (TDish(it).Quantity <> 0) then
begin
CntDish := CntDish + 1;
if (it.CODE = DishCode) then
HaveSpecialDish := HaveSpecialDish + 1;
end;
end;
if (CntDish>0) and (HaveSpecialDish > 0) then
begin
// gui.showmessage('??? ????????????? ?????! ?????????? ?????????');
if RK7.PerformOperation(rkoUser07, 0)=1 then
AContinue := True
else
AContinue := False;
end;
end;
//************************************//
// 57799 //
//************************************//
end; |
...
|
Specify an empty script for a custom operation (operation #7 is used in the example):
Для пользовательской операции (в примере используется операция №7) задать пустой скрипт:
| Code Block | ||
|---|---|---|
|
procedure ProcessOperation1001837(Parameter: integer);
begin
end; |
В свойствах операции выставить галочку «Контроль доступа» и назначить права соотвествующему пользователю.
Скрипт на автоматическое добавление блюда при создании заказа
В форме редактирования чека у компонента CheckView в событии OnOrderVerify укажите скрипт:
In the operation properties, check the box «Access Control» and assign rights to the appropriate user.
A script to automatically add a dish when creating an order
On the check editing form for the CheckView component, insert the script in the OnOrderVerify event:
| Code Block | ||
|---|---|---|
| ||
procedure CheckViewOnOrderVerify(Sender: TObject; AVerifyType: TVerifyType; oper: integer; var AContinue: boolean);
var i, CntDish, HaveSpecialDish: integer;
it:Tcheckitem;
begin
//************************************//
// stop service without special dish //
//************************************//
if (AVerifyType = vtBeforeSave) then
begin
HaveSpecialDish := 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
if (TDish(it).Quantity <> 0) then
begin
CntDish := CntDish + 1;
if ((it.CODE = 5502) OR (it.CODE = 1003)) then
HaveSpecialDish := HaveSpecialDish + 1;
end;
end;
if (CntDish>0) and (HaveSpecialDish = 0) then
begin
// gui.showmessage(' |
...
No |
...
mandatory |
...
dish! |
...
Saving |
...
prohibited'); if GUI.RKMessageDlg('Return to edit order?', 0, 3, 10000) = 6 then AContinue := False else AContinue := True; end; end; //************************************// // stop service without special dish // //************************************// end; |
...
In the line:
| Code Block | ||
|---|---|---|
| ||
if ((it.CODE = 5502) OR (it.CODE = 1003)) then |
указаны коды обязательных блюд. Замените условие в этой строке на своё.
Скрипт, печатающий чек и предчек в режиме «быстрый чек»
Скрипт для формы «Редактирование заказа(быстрый чек)»
codes of required dishes are specified. Replace the condition in this line with your own.
The script that prints a receipt and a bill in the «quick check» mode
A script for the «Edit Order (quick receipt)» form:
| Code Block | ||
|---|---|---|
| ||
procedure CheckViewOnOrderVerify(Sender: TObject; AVerifyType: TVerifyType; oper: integer; var AContinue: boolean);
begin
if (AVerifyType=vtAfterReceipt) then
RK7.PerformRefObject(RK7.FindItemByCode(rkrefMaketSchemeDetails,1001965));
end; |
Вместо 1001965 подставите код представления своего чека. Печать будет происходить сразу после печати основного чекаInsert the code of your check view instead of 1001965. Printing will take place immediately after printing the main receipt.