Versions Compared

Old Version 2

changes.mady.by.user Ekaterina Marchenko

Saved on

compared with

New Version Current

changes.mady.by.user Ekaterina Marchenko

Saved on

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

Code Block
languagedelphi
procedure CheckViewOnBeforeCheckViewEdit(Sender: TObject; AEditType: TEditType; AObjectBef, AObjectAft: TObject; var AAllow: boolean; var AMessage: string);

var DishCode1: integer;

begin

//********** Set parameters ***********//

DishCode1 := 46; // non-addable dish code

//********** Set parameters ***********//

if RKCheck.CurrentOrder.ToPaySum < 300 then // the check amount below which the dish selector is hidden   

if SYS.ObjectInheritsFrom(AObjectAft, 'TDish') then 

if (TDish(AObjectAft).Code = DishCode1) then

begin

AAllow := false;

AMessage := 'Запрещено добавлять блюдо '+TDish(AObjectAft).Name+' !'; 

end; 

end;

A script to prohibit the payment in the currency with the code «1», if there is a discount or a markup with the code «5» in the receipt

Code Block
languagedelphi
procedure CheckViewOnBeforeCheckViewEdit(Sender: TObject; AEditType: TEditType; AObjectBef, AObjectAft: TObject; var AAllow: boolean; var AMessage: string);

var i, discpresent: integer;

it: TCheckItem;

begin

discpresent := 0;

for i := 0 to RKCheck.CurrentOrder.Sessions.LinesCount - 1 do begin

it := RKCheck.CurrentOrder.Sessions.Lines[i];

if SYS.ObjectInheritsFrom(TObject(it), 'TDiscountItem') then

if (it.Code = 5) then

discpresent := discpresent + 1;

end;

if discpresent > 0 then

if SYS.ObjectInheritsFrom(AObjectAft, 'TPayLine') then

if (TPayLine(AObjectAft).code=1) then

begin 

AAllow := false;

AMessage := 'Payment in this currency is prohibited!';

end;

end;

...

Code Block
languagedelphi
procedure CheckViewOnBeforeCheckViewEdit(Sender: TObject; AEditType: TEditType; AObjectBef, AObjectAft: TObject; var AAllow: boolean; var AMessage: string);

begin

if SYS.ObjectInheritsFrom(AObjectAft, 'TPayLine') then

if tClassifierItem(RK7.FindItemBySifr(rkrefEmployees,rk7.CashUser.Ident)).MainParent.Code <> 2 then // check for manager

if RKCheck.CurrentOrder.MainWaiter <> RK7.CashUser.ident then // check mainwaiter with current waiter

begin 

AAllow := false;

AMessage := 'You aren't mainwaiter for this order!';

end;

end;

A script for editing an order if a PDS discount is available

Cashiers should be prohibited to add new dishes after entering the customer's card details. But they should be able to edit the order (apply bonuses, delete or replace the customer's card in the order, etc.)

...

Code Block
languagedelphi
procedure CheckViewOnBeforeCheckViewEdit(Sender: TObject; AEditType: TEditType; AObjectBef, AObjectAft: TObject; var AAllow: boolean; var AMessage: string);

var i, discCode, currCode:integer;

discPresent:boolean;

it: TCheckItem;

begin

discPresent := false;

discCode := 14; //код скидки ПДС

if SYS.ObjectInheritsFrom(AObjectAft, 'TDish') then

for i := 0 to RKCheck.CurrentOrder.Sessions.LinesCount - 1 do

begin

it := RKCheck.CurrentOrder.Sessions.Lines[i];

if SYS.ObjectInheritsFrom(it, 'TDiscountItem') then

if (it.code = discCode) and (TDiscountItem(it).State <> disDeleted) then discPresent := true;

end;


if SYS.ObjectInheritsFrom(AObjectAft, 'TDish') and discPresent then

begin 

AAllow := false;

AMessage := 'Adding dishes is prohibited because the card is used.';

end;

end;

A script to prohibit the payment in a specified currency if there are discounts in the receipt

Code Block
languagedelphi
procedure CheckViewOnBeforeCheckViewEdit(Sender: TObject; AEditType: TEditType; AObjectBef, AObjectAft: TObject; var AAllow: boolean; var AMessage: string);

var i, discCode, currCode:integer;

discPresent:boolean;

it: TCheckItem;

begin

discPresent := false;

discCode := 3; //discount code

currCode := 1; //prohibited currency code

for i := 0 to RKCheck.CurrentOrder.Sessions.LinesCount - 1 do

begin

it := RKCheck.CurrentOrder.Sessions.Lines[i];

if SYS.ObjectInheritsFrom(it, 'TDiscountItem') then

if it.code = discCode then discPresent := true;

end;


if SYS.ObjectInheritsFrom(AObjectAft, 'TPayLine') then

if ((TPayLine(AObjectAft).code=currCode) and discPresent) then // specify prohibited currency code

begin 

AAllow := false;

AMessage := 'Payment is prohibited if there is a discount';

end;

end;

...

Code Block
languagedelphi
procedure CheckViewOnBeforeCheckViewEdit(Sender: TObject; AEditType: TEditType; AObjectBef, AObjectAft: TObject; var AAllow: boolean; var AMessage: string);

var i, discountpresent, DiscountCode: integer;

it: TCheckItem;

begin

DiscountCode := 10; // manageable discount code

discountpresent := 0;

// checking discount presence in the order

for i := 0 to RKCheck.CurrentOrder.Sessions.LinesCount - 1 do begin

it := RKCheck.CurrentOrder.Sessions.Lines[i];

if SYS.ObjectInheritsFrom(TObject(it), 'TDiscountItem') then

if TDiscountItem(it).Code=DiscountCode then

if TDiscountItem(it).CalcAmount < 0 then

discountpresent := discountpresent + 1;

end; 

// payment control

if SYS.ObjectInheritsFrom(AObjectAft, 'TPayLine') then

if discountpresent > 0 then

AAllow:= True

else

begin 

AAllow := false;

AMessage := 'Apply the discount!';

end; 

end;

...

A script to restrict the payment

...

in a certain currency in the receipt

There are coupons with certain denominations (2000 rubles). If the order amount is < 2000 rubles, the guest can pay the order in full in this currency. If the amount is > 2000 rubles, 2000 rubles can be paid in this currency, and the rest — either in cash or by non-cash payment.

...

Code Block
languagedelphi
procedure CheckViewOnBeforeCheckViewEdit(Sender: TObject; AEditType: TEditType; AObjectBef, AObjectAft: TObject; var AAllow: boolean; var AMessage: string);

var i, currpresent: integer;

it: TCheckItem;

begin

currpresent := 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 (it.Code = 1) then // code of first currency (Lit)

if TPayLine(it).CurrLineSum > 0 then

currpresent := currpresent + 1;

end;

if currpresent > 0 then

if SYS.ObjectInheritsFrom(AObjectAft, 'TPayLine') then

if (TPayLine(AObjectAft).code=2) then // code of second currency (Euro) 

if TPayLine(AObjectAft).CurrLineSum >=0 then 

begin 

AAllow := false;

AMessage := 'Payment in this currency is prohibited!';

end;

end;

A script to prohibit a combined payment in fiscal and non-fiscal

...

currencies

The script prohibits combining the specified currency type with other currency types. Insert it in the OnBeforeCheckViewEdit event, on the receipt editing form for the CheckView object:

...

Code Block
languagedelphi
procedure CheckViewOnBeforeCheckViewEdit(Sender: TObject; AEditType: TEditType; AObjectBef, AObjectAft: TObject; var AAllow: boolean; var AMessage: string);

var i, CurrencyCode: integer;

currsum: double;

it: TCheckItem;

begin

//********** Set parameters ***********//

CurrencyCode := 1; // currency (bonuses) code  

//********** Set parameters ***********//

currsum := 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 (it.Code = CurrencyCode) then

currsum := currsum + TPayLine(it).NationalSum;

end;


if SYS.ObjectInheritsFrom(AObjectAft, 'TPayLine') then

if (TPayLine(AObjectAft).code = CurrencyCode) then

if ((currsum+TPayLine(AObjectAft).NationalSum) > (RKCheck.CurrentOrder.ToPaySum-1)) then

begin

AAllow := false;

AMessage := 'Payment by bonuses is exceeded!';

end;

end;

A script for limiting the payment amount

...

  by the classification

The script calculates the amount of dishes from the specified category and does not allow to enter the amount of currency that exceeds this amount. The limit on exceeding the maximum amount is also checked by setting the MaxCurrSum variable.

...

A script to add only dishes from a certain category to the check

The instruction.scenario:1.

  1. Create an order.

...

  1. Add the first dish. It is placed in the category with code, f.ex., 257.

...

  1. Add the second dish.

      ...

        1. The script verifies the category code of the added dish and compares it with the category code of the first added dish.

      ...

        1. If they are equal, then add the dish to the order.

      ...

        1. If different, it outputs the message «This dish has different department code. \n Please create different (next) order with this dish» and the dish is not added to the order.

      ...

      1. Check every next dish the same way.

      The objective: to ensure that only dishes from the same category of the classification are included in the check.

      ...

      (so that they do not have to count) automatically - 18 years + 1 day

      ...

      1. If the cashier chooses YES, then the dish is added to the order.

      ...

      1. Another dish from this category added to the same order does not re-open this dialog box. The dish selector remains in the same folder.

      ...

      1. If the cashier selects NO, then the dish is not added to the order and the cash register returns to the root folder of the menu.

      On the quick check editing form, insert the script for the CheckView object in the OnBeforeCheckViewEdit event:

      ...

      A script to add no more than one combo dish with a certain code into a quick check 

      A script to add  of add no more than one combo dish CATERING STAFF «STAFF MEALS» with the code 157 into a quick check. !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!Скрипт разместить на форме редактирования быстрого чека у объекта CheckView в событии OnBeforeCheckViewEdit

      Insert the script on the quick check editing form of the CheckView object in the OnBeforeCheckViewEdit event.

      Code Block
      languagedelphi
      procedure CheckViewOnBeforeCheckViewEdit(Sender: TObject; AEditType: TEditType; AObjectBef, AObjectAft: TObject; var AAllow: boolean; var AMessage: string);

var i, DishCode1: integer;

qnt, qntMax: double;

it: TCheckItem;

begin

qnt := 0;

DishCode1 := 34; // кодspecial dish контролируемогоcode блюда 

qntMax := 1; // максимальноеspecial dish количествоmax контролируемогоquantity блюдаin вthe заказеorder.  

if SYS.ObjectInheritsFrom(AObjectAft, 'TDish') then

if TDish(AObjectAft).code = DishCode1 then

if not(AEditType = etRemove) then

begin

qnt := TDish(AObjectAft).Quantity-TDish(AObjectBef).Quantity; 

for i := 0 to RKCheck.CurrentOrder.Sessions.LinesCount - 1 do

begin

it := RKCheck.CurrentOrder.Sessions.Lines[i];

if SYS.ObjectInheritsFrom(it, 'TDish') then

if TDish(it).code = DishCode1 then 

qnt := qnt + TDish(it).Quantity;

end; 

end;

if qnt > qntMax then // check limit exceed

begin 

AAllow := false;

AMessage := 'Quantity exceeded the permitted limit ';

end;

end;

      Скрипт проверяет добавляемое в заказ блюдо, подсчитывая его текущее количество. Если оно превышает заданный лимит, то добавление блюда блокируется.

      Скрипт на запрет оплаты стола до прокатывания картой лояльности (ПДС)

      В форме редактирования чека у объекта CheckView в событии OnBeforeCheckViewEdit указать скрипт:

      ...

      The script checks the dish added to the order, counting its current quantity. If it exceeds the specified limit, the addition of the dish is blocked.

      A script to prohibit the payment for the table before swiping the loyalty card (PDS)

      On the check editing form of the CheckView object, insert the script in the OnBeforeCheckViewEdit event:

      The example for three categories:

      Code Block
      languagedelphi
      procedure CheckViewOnBeforeCheckViewEdit(Sender: TObject; AEditType: TEditType; AObjectBef, AObjectAft: TObject; var AAllow: boolean; var AMessage: string);

var i, CategCode, CategCode2, CategCode3, dishpresent: integer;

it: TCheckItem;

Categ, Categ2, Categ3: TClassificatorGroup;

CardCode: string;

McrPay: TMcrPay;

begin

CategCode := 8; // категорияspecial dishes контролируемыхcategory блюд 

dishpresent := 0;

Categ := TClassificatorGroup(getitemBycodeNum('ClassificatorGroups', CategCode));

Categ2 := TClassificatorGroup(getitemBycodeNum('ClassificatorGroups', CategCode2));

Categ3 := TClassificatorGroup(getitemBycodeNum('ClassificatorGroups', CategCode3));

CardCode := '';

// проверка наличия карты в заказе checking the card presence in the order  

for i := 0 to RKCheck.CurrentOrder.Sessions.McrPays.ItemCount - 1 do begin

McrPay := TMcrPay(RKCheck.CurrentOrder.Sessions.McrPays.Items[i]);

CardCode := McrPay.CardNum;

end;

// проверка наличия контролируемых блюд в заказеchecking the special dishes presence in the order  

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 Categ.IsChild(it.RefItem) then

dishpresent := dishpresent + 1;

if Categ2.IsChild(it.RefItem) then

dishpresent := dishpresent + 1;

if Categ3.IsChild(it.RefItem) then

dishpresent := dishpresent + 1;

end;

// контрольpayment приcontrol оплате 

if SYS.ObjectInheritsFrom(AObjectAft, 'TPayLine') then

if dishpresent > 0 then

if CardCode <> '' then

AAllow:= True

else

begin 

AAllow := false;

AMessage := 'ПрименитеUse картуPLASTEK ПЛАСТЕКcard!';

end; 

end;

      Скрипт на изменение типа оплаты

      Скриптами реализована блокировка добавление любых объектов в чек кроме оплаты разрешённой валютой при смене валюты платежа в закрытом чеке.

      ...

      A script for changing the payment type

      The scripts block adding any objects to the receipt except for the payment in the allowed currency when changing the payment currency in a closed receipt.

      A script for the selector:

      Code Block
      languagedelphi
      procedure ProcessOperation1003036(Parameter: integer);

var i, HaveCurrency1, HaveDenyCurr, AllowCurrType1, DennyCurrType1: integer;

it: TCheckItem;

begin

//***************** Set parameters ***********************//

DennyCurrType1 := 91; // Code of currency type

AllowCurrType1 := 15; // Code of currency type

//***************** Set parameters ***********************//

HaveCurrency1 := 0;

HaveDenyCurr := 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

begin

if (TCurrencyType(TCurrency(TPayLine(it).RefItem).MainParent).Code = AllowCurrType1) then

HaveCurrency1 := HaveCurrency1 + 1;

if (TCurrencyType(TCurrency(TPayLine(it).RefItem).MainParent).Code = DennyCurrType1) then

HaveDenyCurr := HaveDenyCurr + 1;

end;

end;

if HaveDenyCurr > 1 then

begin

gui.showmessage('You can''t change this payment!');

exit;

end;

if HaveCurrency1 > 0 then

begin 

RKCheck.CurrentOrder.UserTag1 := 10000;

RK7.PerformOperation(rkoUndoReceipt,0);

RKCheck.CurrentOrder.UserTag1 := 10000;

end

else

gui.showmessage('You can''t change this payment!');

end;

      ...

      On the check editing form of the CheckView object, insert the script in the OnBeforeCheckViewEdit event:

      Code Block
      languagedelphi
      procedure CheckViewOnBeforeCheckViewEdit(Sender: TObject; AEditType: TEditType; AObjectBef, AObjectAft: TObject; var AAllow: boolean; var AMessage: string);

var AllowCurrType1: integer;

i, numcateg, TypeCurrCode, CurrCode, maxqntvoucher: integer;

categsum, currsum,vouchersum: double;

it: TCheckItem;

Categ: TClassificatorGroup;

begin

//********************* 54276 *********************

//***************** Set parameters ***********************//

numcateg := 39; // Code of dish category

TypeCurrCode := 91; // Code of currency type

//***************** Set parameters ***********************//

currsum := 0;

categsum := 0;

maxqntvoucher := 0;

Categ := TClassificatorGroup(getitemBycodeNum('ClassificatorGroups', numcateg)); // category code


if SYS.ObjectInheritsFrom(AObjectAft, 'TPayLine') then

if TCurrencyType(TCurrency(TPayLine(AObjectAft).RefItem).MainParent).Code=TypeCurrCode then // checking dish category

begin

CurrCode := TPayLine(AObjectAft).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 //Check dish lines only

if Categ.IsChild(it.RefItem) then //Check category of the dish

if TDish(it).Quantity > 0 then

categsum := categsum + TDish(it).PRListSum;

if SYS.ObjectInheritsFrom(TObject(it), 'TPayLine') then

if (it.Code = CurrCode) then

if (TPayLine(it).BasicSum > 0) then

currsum := currsum + TPayLine(it).NationalSum;

end;


vouchersum := TPayLine(AObjectAft).DBKurs;

maxqntvoucher := trunc(0.99+categsum / vouchersum);

if (categsum > 0) and (maxqntvoucher=0) then

maxqntvoucher := 1; 

if ((currsum + vouchersum*TPayLine(AObjectAft).OriginalSum)/vouchersum) > (maxqntvoucher) then

begin

AAllow := false;

AMessage := 'Decreese quantity of vouchers to '+IntToStr(maxqntvoucher)+' !';

end;

end;

//********************* 54276 *********************

//********************* 53641 *********************

//***************** Set parameters ***********************// 

AllowCurrType1 := 91; // allow curency type

//***************** Set parameters ***********************//

if RKCheck.CurrentOrder.UserTag1 = 10000 then // it's don't work in current version R-Keeper

begin


AMessage := 'Denied this action!';

AAllow := False;

if not(AEditType = etRemove) then

if SYS.ObjectInheritsFrom(TObject(AObjectAft), 'TPayLine') then

if TCurrencyType(TCurrency(TPayLine(AObjectAft).RefItem).MainParent).Code=AllowCurrType1 then // ??? ???? ?????? ??? ???????? ?????????????? ?????????? ?????? 

begin

AAllow := True

end 

else

begin

AMessage := 'You can''t add this currency';

AAllow := False;

end;

if AAllow then

begin

RK7.PerformRefObject(RK7.FindItemByCode(rkrefMaketSchemeDetails,342)); // print check

end;

end;

//********************* 53641 *********************

end;

      Скрипт для замены типа оплаты

      Необходим скрипт который будет позволять производить замену типа оплаты в пробитом чеке.

      Подготовка:

      1. Заводим 2 валюты

      тип 1-ой валюты - Наличные

      тип 2-ой валюта - Платежные карты

      2. Указываем скрипт-коды этих валют

      3. Создаем причину отмены (Замена типа оплаты). Ее код указываем в скрипте

      Сценарий:

      1. Пробиваем чек

      2. Идем в закрытые заказы

      3. Выбираем чек, в котором хотим поменять тип оплаты

      4. Жмем кнопку «Заменить тип оплаты»

      5. Скрипт проверяет код валюты, на которую закрыт чек:

      5.1. Если чек закрыт на любую другую валюты, код которой мы не указали в скрипте, то операцию не производим, а выдаем сообщение пользователю, что данная операция не возможна.

      5.2. Если код валюты тот, который указан в скрипте, то идем дальше

      6. Скрипт отменяет чек, указываем причину отмены

      7. Скрипт в заказ из этого чека добавляет сохраняемый комментарий (Чек отменен при замене валюты с EUR на VISA (например))

      7.1. Желательно в этот комментарий поместить номер следующего чека, того который будет закрыт на нужную валюту.

      8. Скрипт пробивает новый чек с тем же содержимым, но закрываем его на другую валюту, код которой указан в скрипте.

      8.1. При печати нового чека в мемо или не сохраняемый комментарий или еще в какое поле пишем «Чек с измененной валютой оплаты, напечатан вместо  НОМЕР ОТМЕНЕННОГО чека»

      8.2. В сохраняемый комментарий заказа добавляем «Корректный чек - НОМЕР НОВОГО ЧЕКА»

      ...

      A script to change the payment type

      You need a script allowing you to change the payment type in the already printed receipt.

      Preparation:

      1. Create 2 currencies:
        • the first currency type is Cash.
        • the second currency type is Cards.
      2. Specify script codes for these currencies.
      3. Create canceling reason (Change payment type) Specified its code in the script.

      The scenario:

      1. Print the receipt
      2. Go to closed orders.
      3. Choose the receipt to change the payment type for.
      4. Press the «Change payment type» button.
      5. The script checks the code of the currency for which the receipt is closed:
        1. If the receipt is closed for any other currency, the code of which we did not specify in the script, then we do not perform the operation, but issue a message to the user that this operation is not possible.
        2. If the currency code is the one specified in the script, then make the following steps.
      6. The script cancels the receipt, specify the reason.

      7. The script adds a saved comment to the order from this receipt (f.ex.: «Receipt canceled when changing currency from EUR to VISA»).

        • It is advisable to specify the number of the next receipt in this comment, the one that will be closed for the desired currency.
      8. The script prints a new receipt with the same content, but we close it for a different currency, the code of which is specified in the script. 
        1. When printing a new receipt, write in the memo, or in the unsaved comment, or in some other field, «A receipt with a changed payment currency, printed instead of NUMBER OF THE CANCELED RECEIPT».
        2. In the saved order comment, add «Correct receipt - THE NUMBER OF THE NEW RECEIPT».

      A script for a custom operation, assigned to the closed receipt form selector.

      Code Block
      languagedelphi
      procedure ProcessOperation1002528(Parameter: integer);

var i, HaveCurrency1, HaveDenyCurr, AllowCurrType1, DennyCurrType1, CheckNum: integer;

CurrName: string;

it: TCheckItem;

begin

//***************** Set parameters ***********************//

DennyCurrType1 := 91; // Code of currency type

AllowCurrType1 := 13; // Code of currency type

//***************** Set parameters ***********************//

HaveCurrency1 := 0;

HaveDenyCurr := 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

begin

if (TCurrencyType(TCurrency(TPayLine(it).RefItem).MainParent).Code = AllowCurrType1) then

begin

HaveCurrency1 := HaveCurrency1 + 1;

CurrName := TCurrencyType(TCurrency(TPayLine(it).RefItem).MainParent).Name;

end;

if (TCurrencyType(TCurrency(TPayLine(it).RefItem).MainParent).Code = DennyCurrType1) then

HaveDenyCurr := HaveDenyCurr + 1;

end;

if SYS.ObjectInheritsFrom(TObject(it), 'TPrintCheckItem') then

CheckNum := TPrintCheckItem(it).CheckNum;

end;

if HaveDenyCurr > 1 then

begin

gui.showmessage('You can''t change this payment!');

exit;

end;

if HaveCurrency1 > 0 then

begin 

RKCheck.CurrentOrder.UserTag1 := 10000;

RK7.PerformOperation(rkoUndoReceipt,0);

RKCheck.UpdateVisitComment(' #'+IntToStr(CheckNum)+' currency '+CurrName, '');

RKCheck.CurrentOrder.UserTag1 := 10000;

end

else

gui.showmessage('You can''t change this payment!');

end;

      ...

      On the check editing form, insert the script for the CheckView object in the OnBeforeCheckViewEdit event:

      Code Block
      languagedelphi
      procedure CheckViewOnBeforeCheckViewEdit(Sender: TObject; AEditType: TEditType; AObjectBef, AObjectAft: TObject; var AAllow: boolean; var AMessage: string);

var AllowCurrType1: integer;

i, numcateg, TypeCurrCode, CurrCode, maxqntvoucher: integer;

categsum, currsum,vouchersum: double;

it: TCheckItem;

Categ: TClassificatorGroup;

begin

//********************* 81848 *********************

//***************** Set parameters ***********************// 

AllowCurrType1 := 91; // allow curency type

//***************** Set parameters ***********************//

if RKCheck.CurrentOrder.UserTag1 = 10000 then 

begin


AMessage := 'Denied this action!';

AAllow := False;

if not(AEditType = etRemove) then

if SYS.ObjectInheritsFrom(TObject(AObjectAft), 'TPayLine') then

if TCurrencyType(TCurrency(TPayLine(AObjectAft).RefItem).MainParent).Code=AllowCurrType1 then

begin

AAllow := True

end 

else

begin

AMessage := 'You can''t add this currency';

AAllow := False;

end;

if AAllow then

begin

RKCheck.UpdateVisitComment('Change payment '+RKCheck.CurrentOrder.VisitExtraInfo+' to '+TCurrencyType(TCurrency(TPayLine(AObjectAft).RefItem).MainParent).Name, ''); 

RK7.PerformRefObject(RK7.FindItemByCode(rkrefMaketSchemeDetails,342)); // print check

end;

end;

//********************* 81848 *********************

end;

      У пользовательской операции, назначенной на селектор по смене оплаты в закрытом чеке, включить «Запись в журнал», переименовать саму операцию так как хотелось бы видеть в логе операций.

      ...

      For a user operation assigned to the selector for changing payment in the closed receipt, enable "Log entry", rename the operation itself as you would like to see it in the operation log.

      A script to limit the number of vouchers

      Code Block
      languagedelphi
      procedure CheckViewOnBeforeCheckViewEdit(Sender: TObject; AEditType: TEditType; AObjectBef, AObjectAft: TObject; var AAllow: boolean; var AMessage: string);

var i, numcateg, codecurr, maxqntvoucher: integer;

categsum, currsum,vouchersum: double;

it: TCheckItem;

Categ: TClassificatorGroup;

begin

numcateg := 4; // categorycode for special dishes

vouchersum := 500; // sum of 1 voucher

currsum := 0;

categsum := 0;

maxqntvoucher := 0;

codecurr := 14; 

Categ := TClassificatorGroup(getitemBycodeNum('ClassificatorGroups', numcateg)); //5 - 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 //Check dish lines only

if Categ.IsChild(it.RefItem) then //Check category of the dish

if TDish(it).Quantity > 0 then

categsum := categsum + TDish(it).PRListSum;

if SYS.ObjectInheritsFrom(TObject(it), 'TPayLine') then

if (it.Code = codecurr) then

currsum := currsum + TPayLine(it).NationalSum;

end;


maxqntvoucher := trunc(0.99+categsum / vouchersum);

if (categsum > 0) and (maxqntvoucher=0) then

maxqntvoucher := 1; 


if SYS.ObjectInheritsFrom(AObjectAft, 'TPayLine') then

if (TPayLine(AObjectAft).code = codecurr) then

if ((currsum + vouchersum*TPayLine(AObjectAft).OriginalSum)/vouchersum) > (maxqntvoucher) then

begin

AAllow := false;

AMessage := 'Decreese quantity of vouchers to '+IntToStr(maxqntvoucher)+' !';

end;

end;

      Скрипт на ограничение удаления блюд из несохраненного заказа

      Нужен скрипт реализующий следующее:

      - кассир самостоятельно может удалять блюда из заказа до момента нажатия кнопки «Оплата».

      - удалить все блюда до нуля нельзя, хотя бы одно в заказе должно остаться.

      ...

      A script to restrict the deletion of dishes from an unsaved order

      You need a script that implements the following:

      • the cashier can independently delete dishes from the order before the "Payment" button is clicked
      • it is impossible to delete all the dishes, at least one must remain in the order.

      1. Add a script.

      Code Block
      languagedelphi
      procedure ProcessOperation1000185(Parameter: integer);

begin

end;

      2.

      ...

      Add it to the user operation, remember its number, and set up the access control property.

      3. Add manager permission to use this custom operation in the user roles properties.

      4. Add the following line in the DesignForm object on the «Editing order: Quick check» form:

      3. В свойствах ролей пользователей добавьте менеджеру разрешение на использование данной пользовательской операцией.

      ...

      Code Block
      languagedelphi
      if Operation = 454 then RKCheck.CurrentOrder.UserTag1 := 1;

      5. Далее объект CheckView, событие OnBeforeCheckView. Тело скрипта с учетом переменных от других скриптов KFCNext are the CheckView object and the OnBeforeCheckView event. The script body with variables from other KFC scripts included:

      Code Block
      languagedelphi
      procedure CheckViewOnBeforeCheckViewEdit(Sender: TObject; AEditType: TEditType; AObjectBef, AObjectAft: TObject; var AAllow: boolean; var AMessage: string);

var i, CurrCode1, CurrCode2, CurrCode2_2, curr1present, curr2present: integer; 

it: TCheckItem;

Categ: TClassificatorGroup;

CategCode: integer;

j,cntrl: integer;

it1:tobject; 

begin

//--------------- 63889 --------------------------

cntrl:=0;

// for i := 0 to RKCheck.CurrentOrder.Sessions.LinesCount - 1 do

// begin

// it:=RKCheck.CurrentOrder.Sessions.Lines[i];;

// if SYS.ObjectInheritsFrom(it, 'TDish') then cntrl:=cntrl+1;

// end;


for i := 0 to RKCheck.CurrentOrder.Sessions.LinesCount - 1 do

begin

it1:=RKCheck.CurrentOrder.Sessions.Lines[i];

if SYS.ObjectInheritsFrom(it1, 'TDish') then

begin

cntrl:=cntrl+1;

if TDish(it1).IsComboComp then cntrl:=cntrl-1;

// gui.showmessage(intToStr(cntrl));

end;

end;


if SYS.ObjectInheritsFrom(AObjectBef, 'TDish') then

if AEditType=etRemove then

begin

if cntrl<2 then

begin

AAllow:=false;

AMessage:='ВAt заказеleast должноone бытьdish хотяrequired быfor одноthe блюдоorder';

end

else 

if RKCheck.CurrentOrder.UserTag2 = 1 then

if RK7.CashUser.ConfirmOperation(rkoUser03) then AAllow:=true

else

begin

AAllow:=false;

AMessage:='Удаление невозможноDeletion is not possible'+#13#10+'нетno доступаaccess!';

end; 

end;


end;

      6. В процедуре CheckViewOnOrderVerify после первого begin добавитьAdd the following in the CheckViewOnOrderVerify procedure after the first «begin»:

      Code Block
      languagedelphi
      if AVerifyType=vtPrintReceipt then begin

RKCheck.CurrentOrder.UserTag2 := 0;

//gui.showmessage('обнулениеreset контрольнойcontrol переменнойvariable');

end;

      ...

      A script to prohibit quantity changing

      Code Block
      languagedelphi
      procedure CheckViewOnBeforeCheckViewEdit(Sender: TObject; AEditType: TEditType; AObjectBef, AObjectAft: TObject; var AAllow: boolean; var AMessage: string);

var i, integer;

it: TCheckItem;

qnt,qntbefore: double;

begin

//Start Lock change DISH QNT for Categ CRM

qnt := 0;

if SYS.ObjectInheritsFrom(AObjectAft, 'TDish') then

if not(AEditType = etRemove) then

if (TDish(AObjectAft).RefItem.MainParent.code = 3100) and (TDish(AObjectBef).Quantity <> 0) then //Check category of the dish

begin

//Gui.SHowMessage('3' + ' QNTBef=' + FloatToStr(TDish(AObjectBef).Quantity));

qntBefore := TDish(AObjectBef).Quantity;

qnt := TDish(AObjectAft).Quantity-TDish(AObjectBef).Quantity;

for i := 0 to RKCheck.CurrentOrder.Sessions.LinesCount - 1 do

begin

it := RKCheck.CurrentOrder.Sessions.Lines[i];

if SYS.ObjectInheritsFrom(it, 'TDish') then

qnt := qnt + TDish(it).Quantity;

end; 

end;

if qnt <> qntBefore then // check limit exceed

begin 

AAllow := false;

AMessage := 'You dont have permissions for change dish quantyti';

end;

//End Lock change DISH QNT for Categ CRM

end;