Скрипт на запрет добавления блюда при сумме заказа менее указанной

Скрипт запрещает добавление подарочного блюда при сумме заказа менее указанной (300р.):

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

var DishCode1: integer;

begin

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

DishCode1 := 46; // код блюда запрещённого для добавления

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

if RKCheck.CurrentOrder.ToPaySum < 300 then // сумма чека, ниже которой скрывается селектор блюда

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

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

begin

AAllow := false;

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

end; 

end;

DELPHI

Скрипт на запрет оплаты валютой с кодом «1», если в чеке имеется скидка/наценка с кодом «5»

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 := 'Oplata etoj valutoj zapreshena!';

end;

end;

DELPHI

Скрипт на запрет оплаты заказа всем, кроме основного официанта заказа

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

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;

DELPHI

Скрипт на редактирование заказа при наличии скидки ПДС

Необходимо, чтобы кассиры не могли добавлять новые блюда после ввода карты клиента. Но могли редактировать заказ (применение бонусов, удаление\замена карты клиента в заказе и т.п.)

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

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 := 'Добавление блюд запрещено, т.к. проведена карта.';

end;

end;

DELPHI

Скрипт на запрет оплаты определенной валютой, если в чеке есть скидки

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; //код скидки

currCode := 1; //код запрещаемой валюты

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 // указать код запрещаемой валюты

begin 

AAllow := false;

AMessage := 'Оплата запрещена при наличии скидки';

end;

end;

DELPHI

Скрипт запрещающий вносить предоплату, если нет скидки в заказе

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

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; // код контролируемой скидки

discountpresent := 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 TDiscountItem(it).Code=DiscountCode then

if TDiscountItem(it).CalcAmount < 0 then

discountpresent := discountpresent + 1;

end; 

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

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

if discountpresent > 0 then

AAllow:= True

else

begin 

AAllow := false;

AMessage := 'Примените скидку!';

end; 

end;

DELPHI

Скрипт для ограничения оплаты определенной валюты в чеке

Есть купоны с определенным номиналов (2000 р.) При сумме заказа <2000 рублей, гость может полностью оплатить заказ данной валютой, а при сумме >2000 р., валютой 2000 р., а остаток либо наличными либо безналом.

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

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

var i, codecurr: integer;

currsum, limitcurrsum: double;

it: TCheckItem;

begin

currsum := 0;

limitcurrsum := 2000; // лимит оплаты валютой

codecurr := 5; // код валюты

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 = codecurr) then

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

end;


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

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

if (currsum + TPayLine(AObjectAft).NationalSum) > limitcurrsum then

begin 

AAllow := false;

AMessage := 'Оплата этой валютой ограничена лимитом в '+FloatToStr(limitcurrsum)+' !';

end;

end;

DELPHI

Скрипт, меняющий активность кнопки национальной валюты

При оплате скрипт проверяет:

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

Замените коды валют на актуальные в строках скрипта с комментариями.

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 := 'Oplata etoj valutoj zapreshena!';

end;

end;

DELPHI

Скрипт на запрет комбинированной оплаты фискальной и не фискальной валютой

Скрипт запрещает комбинировать указанный тип валюты с другими типами валют. Размещается на форме редактирования чека в событии OnBeforeCheckViewEdit у объекта CheckView:

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

var i, CurrType1Code, CntCurrType1, CntCurrTypeOther: integer;

it: TCheckItem;

begin

CurrType1Code := 91; // код типа валюты для которого запретить комбинирование с другими валютами

if not SYS.ObjectInheritsFrom(AObjectAft, 'TPayLine') then Exit;

CntCurrType1 := 0;

CntCurrTypeOther := 0;


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

CntCurrType1 := CntCurrType1 + 1

else

CntCurrTypeOther := CntCurrTypeOther + 1;


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=CurrType1Code then

CntCurrType1 := CntCurrType1 + 1

else

CntCurrTypeOther := CntCurrTypeOther + 1; 

end;

end;


if (CntCurrType1 > 0) and (CntCurrTypeOther > 0) then

begin

AAllow := False;

AMessage := 'Данная комбинация валют запрещена!';

Exit;

end; 

end;

DELPHI

Скрипт на комбинирование фискальных и нефискальных валют с ПДС оплатами

Необходимо чтобы безнличный расчет мог комбинироваться только с платежными картами, но ПДС-оплата не должна быть запрещена к комбинированию с другими группами.

Скрипт запрещает комбинировать типы валют CurrType1Code и CurrType2Code с другими валютами, но разрешает их комбинацию между собой.

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

var i, CurrType1Code, CurrType2Code, CntCurrType1, CntCurrType2, CntCurrTypeOther: integer;

it: TCheckItem;

begin

CurrType1Code := 91; // код типа валюты для которого запретить комбинирование с другими валютами    

CurrType2Code := 99; // код типа валюты для которого запретить комбинирование с другими валютами    

if not SYS.ObjectInheritsFrom(AObjectAft, 'TPayLine') then Exit;

CntCurrType1 := 0;

CntCurrType2 := 0;

CntCurrTypeOther := 0;


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

CntCurrType1 := CntCurrType1 + 1

else

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

CntCurrType2 := CntCurrType2 + 1

else

CntCurrTypeOther := CntCurrTypeOther + 1;


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=CurrType1Code then

CntCurrType1 := CntCurrType1 + 1

else

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

CntCurrType2 := CntCurrType2 + 1

else

CntCurrTypeOther := CntCurrTypeOther + 1; 

end;

end;


if ((CntCurrType1 > 0)or(CntCurrType2 > 0)) and (CntCurrTypeOther > 0) then

begin

AAllow := False;

AMessage := 'This currency combination is prohibited!';

Exit;

end; 

end;

DELPHI

Для валюты типа №1 разрешена комбинация с валютой типа №2, но с другими - запрещена.

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

var i, CurrType1Code, CurrType2Code, CntCurrType1, CntCurrType2, CntCurrTypeOther: integer;

it: TCheckItem;

begin

CurrType1Code := 91; // код типа валюты для которого запретить комбинирование с другими валютами кроме типа валюты2   

CurrType2Code := 99; // код типа валюты  

if not SYS.ObjectInheritsFrom(AObjectAft, 'TPayLine') then Exit;

CntCurrType1 := 0;

CntCurrType2 := 0;

CntCurrTypeOther := 0;


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

CntCurrType1 := CntCurrType1 + 1

else

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

CntCurrType2 := CntCurrType2 + 1

else

CntCurrTypeOther := CntCurrTypeOther + 1;


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=CurrType1Code then

CntCurrType1 := CntCurrType1 + 1

else

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

CntCurrType2 := CntCurrType2 + 1

else

CntCurrTypeOther := CntCurrTypeOther + 1; 

end;

end;


if (CntCurrType1 > 0) and (CntCurrTypeOther > 0) then

begin

AAllow := False;

AMessage := 'Данная комбинация валют запрещена!';

Exit;

end; 

end;

DELPHI

Скрипт на комбинирование фискальных и нефискальных валют

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

var i, CurrType1Code1,CurrType1Code2,CurrType1Code3,CurrType1Code4, CurrType2Code1,CurrType2Code2,CurrType2Code3,CurrType2Code4, CntCurrType1, CntCurrType2, CntCurrTypeOther: integer;

it: TCheckItem;

begin

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

CurrType1Code1 := 91; // код типа валюты фискальной
 
CurrType1Code2 := 93; // код типа валюты фискальной
 
CurrType1Code3 := 1; // код типа валюты фискальной
 
CurrType1Code4 := 2; // код типа валюты фискальной
 
 
CurrType2Code1 := 14; // код типа валюты нефискальной
 
CurrType2Code2 := 94; // код типа валюты нефискальной
 
CurrType2Code3 := 13; // код типа валюты нефискальной
 
CurrType2Code4 := 24; // код типа валюты нефискальной   

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


if not SYS.ObjectInheritsFrom(AObjectAft, 'TPayLine') then Exit;

CntCurrType1 := 0;

CntCurrType2 := 0;

CntCurrTypeOther := 0;


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

or(TCurrencyType(TCurrency(TPayLine(AObjectAft).RefItem).MainParent).Code=CurrType1Code2)

or(TCurrencyType(TCurrency(TPayLine(AObjectAft).RefItem).MainParent).Code=CurrType1Code3)

or(TCurrencyType(TCurrency(TPayLine(AObjectAft).RefItem).MainParent).Code=CurrType1Code4)

then

CntCurrType1 := CntCurrType1 + 1

else

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

or(TCurrencyType(TCurrency(TPayLine(AObjectAft).RefItem).MainParent).Code=CurrType2Code2)

or(TCurrencyType(TCurrency(TPayLine(AObjectAft).RefItem).MainParent).Code=CurrType2Code3)

or(TCurrencyType(TCurrency(TPayLine(AObjectAft).RefItem).MainParent).Code=CurrType2Code4)

then

CntCurrType2 := CntCurrType2 + 1

else

CntCurrTypeOther := CntCurrTypeOther + 1;


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).state <> disDeleted then begin // статус оплаты

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

or(TCurrencyType(TCurrency(TPayLine(it).RefItem).MainParent).Code=CurrType1Code2)

or(TCurrencyType(TCurrency(TPayLine(it).RefItem).MainParent).Code=CurrType1Code3)

or(TCurrencyType(TCurrency(TPayLine(it).RefItem).MainParent).Code=CurrType1Code4)

then

CntCurrType1 := CntCurrType1 + 1

else

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

or(TCurrencyType(TCurrency(TPayLine(it).RefItem).MainParent).Code=CurrType2Code2)

or(TCurrencyType(TCurrency(TPayLine(it).RefItem).MainParent).Code=CurrType2Code3)

or(TCurrencyType(TCurrency(TPayLine(it).RefItem).MainParent).Code=CurrType2Code4)

then

CntCurrType2 := CntCurrType2 + 1

else

CntCurrTypeOther := CntCurrTypeOther + 1; 

end;

end;


if (CntCurrType1 > 0) and (CntCurrType2 > 0) then

begin

AAllow := False;

AMessage := 'Данная комбинация валют запрещена!';

Exit;

end; 

end;

DELPHI

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

Скрипт запрещает смешанную оплату - нельзя оплатить счет рублями и кредиткой,

а также проводить две оплаты: рубли+рубли или кредитная карта+кредитная карта

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

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

it: TCheckItem;

Categ: TClassificatorGroup;

CategCode: integer;

begin

CategCode := 17; // код категории

CurrCode1 := 1; // код валюты1 (рубли+рубли)

CurrCode2 := 5: // код валюты2 (кредитная карта+кредитная карта)

curr1present := 0;

curr2present := 0;

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

if not(AEditType = etRemove) then

if RKCheck.CurrentOrder.UserTag1 = 0 then

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

if Categ.IsChild(TDish(AObjectAft).RefItem) then

if GUI.RKMessageDlg('ТЫ ПРОВЕРИЛ ДОКУМЕНТЫ ?! '+#13#10+' Мы не продаём пиво Гостям родившимся позднее ' +FormatDateTime('dd mmmm ',Date-1)+IntToStr(StrToInt(FormatDateTime('yyyy',Date))- 18)+#13#10+' '+#13#10+'ШТРАФ ЗА АДМИНИСТРАТИВНОЕ ПРАВОНАРУШЕНИЕ - 30 000 руб. С КАССИРА!', 0, 3, 100000) = 6 then

begin

RKCheck.CurrentOrder.UserTag1 := 1; // метка, чтобы повторно не открывать диалог

AAllow := True

end 

else

begin

RK7.PostOperation(rkoDishSelector, 0);

AAllow := False;

end;

if not SYS.ObjectInheritsFrom(AObjectAft, 'TPayLine') then Exit;


// Проверяем, что в заказе нет платежей другими валютами

// (сдачу можно давать только этой же валютой)

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

if TPayLine(it).CurrLineSum > 0 then

curr1present := curr1present + 1;

if (it.Code = CurrCode2 ) then // code of first currency (Lit)

if TPayLine(it).CurrLineSum > 0 then

curr2present := curr2present + 1;


if TPayLine(it).Sifr <> TPayLine(AObjectAft).Sifr then begin

AAllow := False;

AMessage := 'Сдачу нужно давать той же валютой, что и основной платеж';

Exit;

end; 

end;

end;


// Запрещаем вносить платеж, если он меньше суммы заказа

if (TPayLine(AObjectAft).BasicSum > 0)

and (TPayLine(AObjectAft).BasicSum < RKCheck.CurrentOrder.UnpaidSum)

then begin

AAllow := False;

AMessage := 'Нельзя платить меньше суммы заказа';

end;


// Запрет ввода более одного платежа

if curr1present > 0 then

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

if (TPayLine(AObjectAft).code=CurrCode1) then // code of 1st currency

if TPayLine(AObjectAft).CurrLineSum >=0 then 

begin 

AAllow := false;

AMessage := 'Oplata zapreshena, т.к. уже был платёж этой валютой!';

end;

if curr2present > 0 then

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

if (TPayLine(AObjectAft).code=CurrCode2) then // code of 2nd currency

if TPayLine(AObjectAft).CurrLineSum >=0 then 

begin 

AAllow := false;

AMessage := 'Oplata zapreshena, т.к. уже был платёж этой валютой!';

end;

end;

DELPHI

Модифицированный скрипт для двух типов кредиток:

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;

begin

CategCode := 17; // код категории

CurrCode1 := 1; // код валюты1 (рубли+рубли)

CurrCode2 := 5: // код валюты2 (кредитная карта+кредитная карта)

CurrCode2_2 := 6; // код валюты2 (кредитная карта+кредитная карта)

curr1present := 0;

curr2present := 0;

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

if not(AEditType = etRemove) then

if RKCheck.CurrentOrder.UserTag1 = 0 then

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

if Categ.IsChild(TDish(AObjectAft).RefItem) then

if GUI.RKMessageDlg('ТЫ ПРОВЕРИЛ ДОКУМЕНТЫ ?! '+#13#10+' Мы не продаём пиво Гостям родившимся позднее ' +FormatDateTime('dd mmmm ',Date-1)+IntToStr(StrToInt(FormatDateTime('yyyy',Date))- 18)+#13#10+' '+#13#10+'ШТРАФ ЗА АДМИНИСТРАТИВНОЕ ПРАВОНАРУШЕНИЕ - 30 000 руб. С КАССИРА!', 0, 3, 100000) = 6 then

begin

RKCheck.CurrentOrder.UserTag1 := 1; // метка, чтобы повторно не открывать диалог

AAllow := True

end 

else

begin

RK7.PostOperation(rkoDishSelector, 0);

AAllow := False;

end;

if not SYS.ObjectInheritsFrom(AObjectAft, 'TPayLine') then Exit;


// Проверяем, что в заказе нет платежей другими валютами

// (сдачу можно давать только этой же валютой)

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

if TPayLine(it).CurrLineSum > 0 then

curr1present := curr1present + 1;

if (it.Code = CurrCode2 ) or (it.Code = CurrCode2_2) then // code of first currency (Lit)

if TPayLine(it).CurrLineSum > 0 then

curr2present := curr2present + 1;


if TPayLine(it).Sifr <> TPayLine(AObjectAft).Sifr then begin

AAllow := False;

AMessage := 'Сдачу нужно давать той же валютой, что и основной платеж';

Exit;

end; 

end;

end;


// Запрещаем вносить платеж, если он меньше суммы заказа

if (TPayLine(AObjectAft).BasicSum > 0)

and (TPayLine(AObjectAft).BasicSum < RKCheck.CurrentOrder.UnpaidSum)

then begin

AAllow := False;

AMessage := 'Нельзя платить меньше суммы заказа';

end;


// Запрет ввода более одного платежа

if curr1present > 0 then

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

if (TPayLine(AObjectAft).code=CurrCode1) then // code of 1st currency

if TPayLine(AObjectAft).CurrLineSum >=0 then 

begin 

AAllow := false;

AMessage := 'Oplata zapreshena, т.к. уже был платёж этой валютой!';

end;

if curr2present > 0 then

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

if (TPayLine(AObjectAft).code=CurrCode2) or (TPayLine(AObjectAft).code=CurrCode2_2) then // code of 2nd currency

if TPayLine(AObjectAft).CurrLineSum >=0 then 

begin 

AAllow := false;

AMessage := 'Oplata zapreshena, т.к. уже был платёж этой валютой!';

end;

end;

DELPHI

Скрипт на ограничение суммы платежа валютой

Необходимо чтобы кассиры не могли ввести 100% оплаты баллами.

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; // код валюты(бонусов)

//********** 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 := 'Превышена оплата бонусами !';

end;

end;

DELPHI

Скрипт на ограничение на сумму оплаты по классификациям

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

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

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

var i, CurrencyCode, CategCode: integer;

currsum, MaxCurrSum, CategSum: double;

it: TCheckItem;

Categ: TClassificatorGroup;

begin

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

CurrencyCode := 1; // код валюты(бонусов)

CategCode := 25; // код категории блюд для ограничения суммы платежа валютой

MaxCurrSum := 500; // максимальная сумма платежа заданной валютой

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

currsum := 0;

CategSum := 0;

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

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

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

begin

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;

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

if Categ.IsChild(it.RefItem) then

if (TDish(it).Quantity > 0) then

CategSum := CategSum + TDish(it).PRListSum

end;


if ((currsum+TPayLine(AObjectAft).NationalSum) > CategSum) then

begin

AAllow := false;

AMessage := 'Превышена оплата валютой !';

end;


if ((currsum+TPayLine(AObjectAft).NationalSum) > MaxCurrSum) then

begin

AAllow := false;

AMessage := 'Превышена максимальная сумма оплаты валютой !';

end;

end;

end;

DELPHI

Скрипт на ограничение ваучеров в 50%

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

var i, codecurr: integer;

currsum, limitcurrsum: double;

it: TCheckItem;

begin

currsum := 0;

limitcurrsum := round(RKCheck.CurrentOrder.ToPaySum*0.5); // limit sum

codecurr := 16; // Currency code

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 = codecurr) then

begin

dbg.dbgprint('TPayLine(it).NationalSum='+floattostr(TPayLine(it).NationalSum));

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

end;

end;


dbg.dbgprint('currsum='+floattostr(currsum));

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

begin

//dbg.dbgprint('TPayLine(AObjectAft).code='+inttostr(TPayLine(AObjectAft).code)); 

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

begin

dbg.dbgprint('TPayLine(AObjectAft).BasicSum='+floattostr(TPayLine(AObjectAft).BasicSum));

dbg.dbgprint('TPayLine(AObjectAft).OriginalSum='+floattostr(TPayLine(AObjectAft).OriginalSum)); 

dbg.dbgprint('TPayLine(AObjectAft).DBKurs='+floattostr(TPayLine(AObjectAft).DBKurs));

if (currsum + TPayLine(AObjectAft).BasicSum) > limitcurrsum then

begin 

dbg.dbgprint('(currsum + TPayLine(AObjectAft).BasicSum) > '+floattostr(limitcurrsum)); 

AAllow := false;

AMessage := 'Payment is limited by this currency '+FloatToStr(limitcurrsum)+' !';

end;

end;

end;

end;

DELPHI

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

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

var i,dd: integer;

tmp1 : string;

begin

dd := 0;

if (AEditType = etInsert) and SYS.ObjectInheritsFrom(AObjectAft, 'TDiscountItem') then begin

if TDiscountItem(AObjectAft).CardCode <> '' then begin

tmp1 := TDiscountItem(AObjectAft).CardCode;

if pos('778=', tmp1) = 1 then begin

delete(tmp1, 1, 4);

tmp1 :=copy(tmp1, pos('=', tmp1) + 1, 7);


i := RKCheck.GetDiscountCount(TDiscountItem(AObjectAft).Sifr, TDiscountItem(AObjectAft).MInterface, TDiscountItem(AObjectAft).CardCode);


dd := StrToIntDef(tmp1,0);

if (dd>=100) and (dd<=500) then

if i > 0 then begin

AAllow := False;

AMessage := 'ПДС может быть применена не более 1 раза в день!';

end;

if (dd>=5001) and (dd<=6000) then

if i > 1 then begin

AAllow := False;

AMessage := 'ПДС может быть применена не более 2 раз в день!';

end;

end;

end;

end;

end;

DELPHI

Скрипт на добавление бесплатного блюда

Акция — при заказе 2-х десертов (1-ая категория блюд) напиток бесплатно (2-ая категория блюд). Нужен скрипт для добавления 100% скидки блюду 2-ой категории, если в заказ добавлены 2 блюда 1-ой категории.

В форме заказа у компонента CheckView в событии OnAfterCheckViewEdit указать скрипт расположенный ниже. В скрипте указать соответствующие коды категорий. Для блюд из бесплатной категории выставить свойства:

Цены — открытая цена: V
Порции — Добавление в заказ: «Отдельная строка для каждой порции»

Скрипт обнуляет стоимость добавляемого блюда из «бонусной» категории, если набрано необходимое количество блюд из основной категории.

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

var i, j, k: integer;

it: TCheckItem;

a: double;

CntCateg1, CntCateg2: integer; 

Categ1, Categ2: TClassificatorGroup;

begin

CntCateg1 := 0;

CntCateg2 := 0;

k := 0;

Categ1 := TClassificatorGroup(getitemBycodeNum('ClassificatorGroups', 1)); //1 - category code

Categ2 := TClassificatorGroup(getitemBycodeNum('ClassificatorGroups', 8)); //8 - category code


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

if Categ1.IsChild(TDish(AObjectBef).RefItem) then //Check category of the dish

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

begin

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

CntCateg1 := CntCateg1 + trunc(TDish(it).Quantity);

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

if TDish(it).Price = 0 then

CntCateg2 := CntCateg2 + trunc(TDish(it).Quantity);

end;

end;

if Categ1.IsChild(TDish(AObjectBef).RefItem) then //Check category of the dish

CntCateg1 := CntCateg1 - 1;


if Categ2.IsChild(TDish(AObjectBef).RefItem) then //Check category of the dish

CntCateg2 := CntCateg2 - 1;


k := (CntCateg1 div 2) - CntCateg2;

if k>0 then

begin 

if SYS.ObjectInheritsFrom(AObjectAft, 'TDish') then //Check dish lines only

if Categ2.IsChild(TDish(AObjectAft).RefItem) then //Check category of the dish

if trk7menuItem(TDish(AObjectAft).RefItem).OpenPrice then

begin

TDish(AObjectAft).IsUserPrice := true;

TDish(AObjectAft).UserPrice := 0;

end;

end; 


if k<0 then

while k<0 do

begin 

for j := RKCheck.CurrentOrder.Sessions.LinesCount - 1 downto 0 do begin

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

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

if TDish(it).Price = 0 then

begin

k := k + trunc(TDish(it).Quantity);

RKCheck.DeleteCheckItem(it);

end;

end;

end;

end;

end;

DELPHI

Скрипт на подтверждение оплаты неплательщиком

В свойстве валюты «Автозаполнение» выставлено «Вся сумма+подтверждение». При оплате заказа на эту валюту выходит сообщение: «Вы хотите оплатить чек с помощью «Питание персонала?»

В приведенных ниже скриптах реализовано подтверждение пользователем операции оплаты валютой с кодом «1». Срабатывает при вводе в чеке суммы этой валютой.

Сначала необходимо создать пустой скрипт для пользовательской операции:

procedure ProcessOperation1001446(Parameter: integer);

begin


end;

DELPHI

Назначить этот скрипт к пользовательской операции. Этой пользовательской операции назначить права доступа только менеджеру.

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

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

begin

begin

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

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

if RK7.CashUser.ConfirmOperation(rkoUser07) then

AAllow := True

else

begin 

AAllow := false;

AMessage := 'Oplata etoj valutoj zapreshena!';

end;

end;

end;

DELPHI

Скрипт, удаляющий скидки при оплате неплательщиком

Скрипт для события OnBeforeCheckViewEdit компонента CheckView на форме редактирования заказа:

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

var i: integer;

it: TCheckItem;

begin

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

if TCurrencyType(TCurrency(TPayLine(AObjectAft).RefItem).MainParent).Code=91 then // 91 - код типа валюты для которого запретить наличие скидок в чеке

begin

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

begin

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

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

RKCheck.DeleteCheckItem(it);

end; 

end;

end;

DELPHI

свойство MainParent реализовано в 7.5.2.253.

В ветке 7.4.21 этого свойства нет.

Скрипт на запрет более чем 15 блюд в заказе

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

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

var i: integer;

qnt: double;

it: TCheckItem;

begin

qnt := 0;

if SYS.ObjectInheritsFrom(AObjectAft, 'TDish') 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

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

end; 

end;

if qnt > 15 then // check limit exceed

begin 

AAllow := false;

AMessage := 'Quantity exceeded the permitted limit ';

end;

end;

DELPHI

Скрипт на добавление в чек только блюда из определенной категории

Сценарий.

1. Создаем заказ;

2. Добавляем первое блюдо. Оно лежит в категории с кодом, например, 257

3. Добавляем второе блюдо

3.1 Скрипт проверяет код категории добавленного блюда и сравнивает его с кодом категории первого добавленного блюда

3.2 Если они равны, то добавляем блюдо в заказ

3.3 Если разные, то выдает сообщение 'This dish has different department code. \n Please create different (next) order with this dish'

и блюдо в заказ не добавляется

4. Так проверяем каждое следующее блюдо

Цель. Обеспечить попадание в чек только тех блюд, которые находятся в одной категории из классификации.

Код классификации так же можно указать в скрипте для проверки.

Скрипт проверяет категорию меню у первого блюда в заказе и не позволяет добавить блюда из других групп меню.

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

var i,CntDish1,numcateg:integer;

it: TCheckItem;

Categ: TClassificatorGroup;

firstdish: boolean;

begin

if AEditType = etInsert then

begin

CntDish1 := 0;

firstdish := false;

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

begin

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

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

if ((it.State = disOpened) or (it.State = disPrinted)) then

if TDish(it).Quantity > 0 then

begin

if not(firstdish) then

begin

numcateg := TDish(it).RefItem.MainParent.code;

firstdish := true;

end;

CntDish1 := CntDish1 + trunc(TDish(it).Quantity);

break;

end;

end;

if CntDish1<>0 then

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

begin

if (TDish(AObjectAft).RefItem.MainParent.code <> numcateg) then //Check category of the dish 

begin

AMessage := 'This dish has different department code.'+#10#13+'Please create different (next) order with this dish';

AAllow := false;

end;

end;

end;

end;

DELPHI

Скрипт контролирует добавление блюд из указанной классификации по категории первого блюда в заказе:

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

var i,j,CntDish1,ClassifCode1:integer;

it: TCheckItem;

Categ1Firts,Categ1,Classif1: TClassificatorGroup;

firstdish: boolean;

begin

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

ClassifCode1 := 16; // code classificator

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


if AEditType = etInsert then

begin

CntDish1 := 0;

firstdish := false;

Classif1 := TClassificatorGroup(getitemBycodeNum('ClassificatorGroups', ClassifCode1));

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

begin

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

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

if ((it.State = disOpened) or (it.State = disPrinted)) then

if TDish(it).Quantity > 0 then

begin

if not(firstdish) then

begin

for j := 0 to Classif1.ChildCount - 1 do begin

Categ1 := TClassificatorGroup(Classif1.ChildItem(j));

if Categ1.IsChild(it.RefItem) then begin

Categ1Firts := Categ1;

break; 

end;

end;

firstdish := true;

end;

CntDish1 := CntDish1 + trunc(TDish(it).Quantity);

break;

end;

end;

if CntDish1<>0 then

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

begin

if not(Categ1Firts.IsChild(TDish(AObjectAft).RefItem)) then //Check category of Classification

begin

AMessage := 'This dish has different department code.'+#10#13+'Please create different (next) order with this dish';

AAllow := false;

end;

end;

end;

end;

DELPHI

Скрипт для контроля продаж алкоголя

Режим работы кассы - быстрый чек. При при добавлении в заказ блюда определенной категории (для KFC категория Crunch/18Alkdish - алкогольные напитки) кассиру выводится следующее диалоговое окно:

_____________________________

ТЫ ПРОВЕРИЛ ДОКУМЕНТЫ?! (крупно)

кнопка ДА кнопка НЕТ

мы не продаем алкоголь гостям, родившимся

после 15 октября 1996 года*

____________________________

*система подсчитывает подсказку для кассира по допустимому возрасту

(чтобы им не приходилось задумываться над подсчетом) автоматически - 18 лет + 1 день

3. Если кассир выбирает ДА, то блюдо добавляется в заказ

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

5. Кассир выбирает НЕТ, то блюдо в заказ не добавляется и касса возвращается в корневую папку меню.

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

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

var Categ: TClassificatorGroup;

CategCode: integer;

begin

CategCode := 8; // код категории

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

if not(AEditType = etRemove) then

if RKCheck.CurrentOrder.UserTag1 = 0 then

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

if Categ.IsChild(TDish(AObjectAft).RefItem) then

if GUI.RKMessageDlg('ТЫ ПРОВЕРИЛ ДОКУМЕНТЫ?! '+#13#10+' Не продаём алкоголь гостям родившимся после '+FormatDateTime('dd mmmm ',Date-1)+IntToStr(StrToInt(FormatDateTime('yyyy',Date)) - 18), 0, 3, 100000) = 6 then

begin

RKCheck.CurrentOrder.UserTag1 := 1; // метка, чтобы повторно не открывать диалог

AAllow := True

end 

else

begin

RK7.PostOperation(rkoDishSelector, 0);

AAllow := False;

end;

end;

DELPHI

Скрипт для объекта CheckView на событие OnOrderVerify:

procedure CheckViewOnOrderVerify(Sender: TObject; AVerifyType: TVerifyType; oper: integer; var AContinue: boolean);

begin

if AVerifyType = vtNewQuickCheck then

if RKCheck.CurrentOrder.IsEmpty then 

RKCheck.CurrentOrder.UserTag1 := 0;

end;

DELPHI

Скрипт вывода сообщения запроса возраста гостя при продаже алкоголя

На форме редактирования заказа назначить скрипт CheckViewOnBeforeCheckViewEdit и над ним обязательно указать вспомогательную процедуру SliceStrToStrings

procedure SliceStrToStrings(StrIn,marker:String; var StringsOut:TStringList);

var s,s1:string; i:Integer;

begin

s:=StrIn;

while length(s)<>0 do begin

i:=pos(marker,s);

if i=0 then begin

s1:=s;

delete(s,1,length(s1));

StringsOut.Add(s1);

end

else begin

s1:=copy(s,1,i-1);

delete(s,1,i);

StringsOut.Add(s1)

end;

end;

end;


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

var Categ, Categ2: TClassificatorGroup;

CategCode, CategCode2: integer;

sdate: string;

bdate, cdate: TDateTime;

Day, Year, Month: integer;

SLtmp: TStringList;

begin

CategCode := 8; // тут указать код категории алкоголя

CategCode2 := 5; // тут указать код категории алкоголя


cdate := EncodeDate((StrToInt(FormatDateTime('yyyy',Date)) - 18), StrToInt(FormatDateTime('mm',Date-1)),StrToInt(FormatDateTime('dd',Date-1)));

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

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


if RKCheck.CurrentOrder.UserTag2 = 20000 then

if RK7.CashUser.ConfirmOperation(rkoUser08) then

AAllow := True

else

begin 

AAllow := false;

AMessage := 'Необходимо подтверждение менеджера!';

exit;

end;


if not(AEditType = etRemove) then

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

if (Categ.IsChild(TDish(AObjectAft).RefItem))

or (Categ2.IsChild(TDish(AObjectAft).RefItem))

then

if (RKCheck.CurrentOrder.UserTag2 <> 10000) then

begin

AAllow := False;

AMessage := 'Неверный формат даты!!!';

sdate:=gui.InputBox('Дата рождения дд.мм.гггг', 'Введите дату рождения гостя', '', true);

if length(trim(sdate))<>10 then

begin

AMessage := 'Неверный формат даты!';

AAllow := False;

end

else

try

SLtmp := TStringList.Create;

SLtmp.Clear;

SLtmp.Sorted := false;

SliceStrToStrings(sdate,'.',SLtmp);

bdate := EncodeDate(StrToInt(SLtmp.strings[2]),StrToInt(SLtmp.strings[1]),StrToInt(SLtmp.strings[0]));

if bdate<=cdate then

begin

RKCheck.CurrentOrder.UserTag2 := 10000;

RKCheck.UpdateVisitComment('',DateToStr(bdate));

AAllow := True;

end

else if bdate>cdate then

begin

RKCheck.CurrentOrder.UserTag2 := 20000;

AMessage := 'Гость моложе 18 лет. Продажа алкоголя запрещена!';

AAllow := False;

end

else gui.showmessage('Ошибка ввода даты рождения');

finally

SLtmp.Free();

end;

end;

end;

DELPHI

Скрипт для пробития в быстрый чек не более одного комбо-блюда с определенным кодом

Скрипт для пробития в быстрый чек не более одного комбо-блюда ПИТАНИЕ ПЕРСОНАЛА с кодом 157.

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

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; // код контролируемого блюда

qntMax := 1; // максимальное количество контролируемого блюда в заказе.

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;

DELPHI

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

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

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

Пример для трёх категорий:

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; // категория контролируемых блюд

dishpresent := 0;

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

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

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

CardCode := '';

// проверка наличия карты в заказе

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

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

CardCode := McrPay.CardNum;

end;

// проверка наличия контролируемых блюд в заказе

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;

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

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

if dishpresent > 0 then

if CardCode <> '' then

AAllow:= True

else

begin 

AAllow := false;

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

end; 

end;

DELPHI

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

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

Скрипт для селектора

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;

DELPHI

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

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;

DELPHI

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

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

Подготовка:

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

Скрипт для пользовательской операции назначаемой на селектор формы закрытого чека

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;

DELPHI

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

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;

DELPHI

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

Скрипт на ограничение количества ваучеров

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;

DELPHI

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

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

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

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

1. добавить скрипт

procedure ProcessOperation1000185(Parameter: integer);

begin

end;

DELPHI

2. добавьте его в пользовательскую операцию, запомните её номер, и установите св-во контроль доступа.

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

4. В форму «Редактирование заказа: Быстрый чек», объект DesignForm добавить строку

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

DELPHI

5. Далее объект CheckView, событие OnBeforeCheckView. Тело скрипта с учетом переменных от других скриптов KFC:

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:='В заказе должно быть хотя бы одно блюдо';

end

else 

if RKCheck.CurrentOrder.UserTag2 = 1 then

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

else

begin

AAllow:=false;

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

end; 

end;


end;

DELPHI

6. В процедуре CheckViewOnOrderVerify после первого begin добавить

if AVerifyType=vtPrintReceipt then begin

RKCheck.CurrentOrder.UserTag2 := 0;

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

end;

DELPHI

Скрипт на запрет изменения количества

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;

DELPHI