MainSelectorOnSuitableItemLink to MainSelectorOnSuitableItem

Скрипт на скрытие селекторов модификаторов

Блюдо сендвич имеет схему модификаторов из нескольких групп (виды хлеба, виды сыра, топпинги, соусы). Вводится дополнительная группа модификаторов «Запреты Диеты» с модификаторами: Соя, Рыба, Глютен, Яйцо.

При выборе модификаторов из этой группы должны быть недоступны к выбору некоторые модификаторы из других групп.

Пример №1 Выбираем Глютен — в группе соусы становиться недоступен соус «Терьяки», а в группе «Хлеб»  — выбор Белого хлеба.

Пример №2 Выбираем Глютен и Яйцо — недоступен к выбору Майонез.

Скрипт скрывает указанные в скрипте модификаторы. Разместить на форме редактирования заказа у объекта MainSelector в событии OnSuitableItem:

procedure MainSelectorOnSuitableItemScript(Sender: TBasePanel; item: TReferentItem; var Suitable: boolean);

var i, j, p, z, ModifCode1: integer;

it, CurItem: TCheckItem;

DishCode, CntDish1, CntDish2, AddDishCode: integer;

CheckView: TCheckView;

DishesCode,ModifDenyList: TStringList;

ModifDenied: boolean;

s,s1:string; ii:Integer;

begin

if SYS.ObjectInheritsFrom(item, 'TModifier') then

begin

ModifDenied := false;

DishesCode := TStringList.Create;

ModifDenyList := TStringList.Create;

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

DishesCode.Add('1002016=1002017;45'); // код модификатора = код скрываемого модификатора ;

DishesCode.Add('20=21;46');

DishesCode.Add('17=18;43'); 

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

begin

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

begin

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

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

begin

for j := 0 to TDish(it).Modifiers.Count - 1 do // checking by modifier

begin

for z := 0 to DishesCode.Count-1 do

begin

p:=pos('=',DishesCode.Strings[z]);

ModifCode1 := StrToInt(copy(DishesCode.Strings[z],1,p-1)); // код ключевого модификатора

if TDish(it).Modifiers.Items[j].Code = ModifCode1 then

begin

s:=copy(DishesCode.Strings[z],p+1,length(DishesCode.Strings[z]));

while length(s)<>0 do begin

ii:=pos(';',s);

if ii=0 then begin

s1:=s;

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

ModifDenyList.Add(s1);

end

else begin

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

delete(s,1,ii);

ModifDenyList.Add(s1)

end;

end; 

end;

end;

end;

end;

end;

end;


for i := 0 to ModifDenyList.Count - 1 do

begin

if TModifier(item).code = StrToInt(ModifDenyList.Strings[i]) then

ModifDenied := True;

end;


ModifDenyList.Free();

DishesCode.Free();

Suitable := Suitable and not(ModifDenied); // скрыть запрещенные модификаторы

end;

end;
DELPHI


Cкрипт по выбору макета печати из 2-х доступных в зависимости от используемой валюты в диалоге «Пополнения баланса карты PDS»Link to Cкрипт по выбору макета печати из 2-х доступных в зависимости от используемой валюты в диалоге «Пополнения баланса карты PDS»

На форме «Подкрепление/Инкассация денег» у объекта MainSelector в событии OnSuitableItem поместить скрипт:

procedure MainSelectorOnSuitableItemScript(Sender: TBasePanel; item: TReferentItem; var Suitable: boolean);

var ed: TBasePanel;

begin

ed := TBasePanel(GUI.FindComponentByName('edtCurrency'));

if StrToInt(TCodeEditor(ed).Text) = 1 then // если валюта с кодом 1

begin // сюда пишем коды макетов которые скрыть

Suitable := Suitable and (item.code <> 12062);

end

else 

begin // сюда пишем коды макетов которые открыть

Suitable := Suitable and (item.code <> 1002364);

end;

end;
DELPHI

Протестировано в 7.5.6.049

Скрипт на временные ограничения на причины удаленияLink to Скрипт на временные ограничения на причины удаления

Скрипт разместить на форме редактирования заказа у объекта MainSelector в событии OnSuitableItem:

procedure MainSelectorOnSuitableItemScript(Sender: TBasePanel; item: TReferentItem; var Suitable: boolean);

var

i: integer;

it: TCheckItem;

CurrTime, Time1: TDateTime;

Allow:Boolean;

begin

if SYS.ObjectInheritsFrom(item, 'TOrderVoid') then

if not(TOrderVoid(item).WriteOffOnStore) then

begin

Allow := False;

Time1 := EncodeTime(00,05,00,00); // граничное время

CurrTime := now;

it := RKCheck.CurrentCheckItem;

if it <> Nil then

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

if (CurrTime < (TDish(it).Session.StartService+Time1)) then

begin

Allow := True;

end

else

Suitable := Suitable and (Allow); // отобразить причины списания

end;

end;
DELPHI

Скрипт на OpenPrice для блюд с признаком AllowPurchase

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

procedure OperSelectorOnSuitableItemScript(Sender: TBasePanel; item: TReferentItem; var Suitable: boolean);

begin

try 

if (item.code = 16) then

Suitable := Suitable and (SYS.ObjectInheritsFrom(RKCheck.CurrentCheckItem, 'TPurchaseDish'));

except

end; 

end;
DELPHI

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

procedure CheckViewCurItemChangedScript(Sender: TObject);

var MainSelector: TSelectorPanel;

begin

MainSelector := TSelectorPanel(GUI.FindComponentByName('OperSelector'));

MainSelector.RedrawLevel; 

end;
DELPHI

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

procedure MainSelectorOnSuitableItemScript(Sender: TBasePanel; item: TReferentItem; var Suitable: boolean);

var i: integer;

it: TcheckItem;

begin

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

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

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

Begin

if ((TPayLine(it).code = 1) or (TPayLine(it).code = 4)) then // Наличные

begin // сюда пишем коды макетов которые скрыть

Suitable := Suitable and (item.code <> 1014);

Suitable := Suitable and (item.code <> 1017);

break;

end

if ((TPayLine(it).code = 95) or (TPayLine(it).code = 96)) then // Кредитные карты

begin // сюда пишем коды макетов которые скрыть

Suitable := Suitable and (item.code <> 1010);

Suitable := Suitable and (item.code <> 1017);

break;

end

if ((TPayLine(it).code = 380) or (TPayLine(it).code = 3003) or (TPayLine(it).code = 3002) or (TPayLine(it).code = 380) or (TPayLine(it).code = 3004) or (TPayLine(it).code = 551)) then // Нефискальные валюты

begin // сюда пишем коды макетов которые скрыть

Suitable := Suitable and (item.code <> 1010);

Suitable := Suitable and (item.code <> 1014);

break;

end

End;

end;

end;
DELPHI

Скрипт, прячущий определенный селектор при попадании в режим оплаты

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

procedure OperSelectorOnSuitableItemScript(Sender: TBasePanel; item: TReferentItem; var Suitable: boolean);

begin

if GUI.CheckFormInPayMode then // если сейчас режим оплаты

Suitable := Suitable and (item.code <> 9110); // указать код селектора, который надо скрыть

end;
DELPHI

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

procedure MainSelectorOnSuitableItemScript(Sender: TBasePanel; item: TReferentItem; var Suitable: boolean);

begin

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

Suitable := Suitable and (item.code <> 46); // скрыть блюдо с кодом 46

end;
DELPHI

Скрипт, отображающий валюту только при предоплате

procedure MainSelectorOnSuitableItemScript(Sender: TBasePanel; item: TReferentItem; var Suitable: boolean);

var

SB: TGStatusBar;

begin

if GUI.CheckFormInPayMode then // если сейчас режим оплаты

begin

SB := TGStatusBar(GUI.findComponentByName('StatusBar'));

if SYS.ObjectInheritsFrom(item, 'TCurrency') then

Suitable := Suitable and (pos('Предоплаты',SB.DefCaption)>0); // отобразить при предоплате

end;

end;
DELPHI

Скрипт, скрывающий валюты в списке оплат, если гостей равно либо больше 10

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

procedure MainSelectorOnSuitableItemScript(Sender: TBasePanel; item: TReferentItem; var Suitable: boolean);

begin

if GUI.CheckFormInPayMode then // если сейчас режим оплаты

if SYS.ObjectInheritsFrom(item, 'TCurrency') then

if RKCheck.CurrentOrder.GuestsCount < 10 then

begin

Suitable := Suitable and ((TCurrency(item).code = 1)or(TCurrency(item).code = 2)or(TCurrency(item).code = 3)or(TCurrency(item).code = 4)or(TCurrency(item).code = 5)); // отобразить валюты

end

else

begin

Suitable := Suitable and ((TCurrency(item).code = 6)or(TCurrency(item).code = 7)or(TCurrency(item).code = 8)or(TCurrency(item).code = 9)or(TCurrency(item).code = 10)); // отобразить валюты

end; 

end;
DELPHI

MainSelectorOnSuitableObjectLink to MainSelectorOnSuitableObject

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

Скрипт разместить на форме редактирования чека в событии OnSuitableObject у объекта MainSelector.

procedure MainSelectorOnSuitableObjectScript(Sender: TBasePanel; Obj: TObject; var Suitable: boolean);

begin

if SYS.ObjectInheritsFrom(Obj, 'TMcrCoupon') then begin

if (RKCheck.CurrentOrder.ToPaySum < 300) and (TMcrCoupon(Obj).GroupUNI = 0) then

if (Pos('CARDS', TMcrCoupon(Obj).CouponName) > 0) then

Suitable := True

else

Suitable := False;

end;
DELPHI

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

Разместите скрипт в событии OnSuitableObject у объекта MainSelector на форме редактирования чека.

procedure MainSelectorOnSuitableObjectScript(Sender: TBasePanel; Obj: TObject; var Suitable: boolean);

var i, j, DiscountCode, CntDish1, cntDiscount, AllowCntCoupon, TableGroupCode1, TableGroupCode2: integer;

minOrderSum: double;

it, it2: TCheckItem;

begin

//************************* Set parameter *************************//

minOrderSum := 300; // минимальная сумма заказа

DiscountCode := 70; // код скидки(купона)

AllowCntCoupon := 1; // максимально количество купонов в заказе

TableGroupCode1 := 1001119; // код типа столов

TableGroupCode2 := 1005168; // код типа столов

//************************* Set parameter *************************//

if (TRk7Table(RK7.FindItemBySifr(rkrefTables, RKCheck.CurrentOrder.TableID)).TableGroup = TableGroupCode1)

or(TRk7Table(RK7.FindItemBySifr(rkrefTables, RKCheck.CurrentOrder.TableID)).TableGroup = TableGroupCode2) then // check tables type

if SYS.ObjectInheritsFrom(Obj, 'TMcrCoupon') then

begin

begin

CntDish1 := 0;

cntDiscount := 0;

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).Quantity) > 0 then

begin

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

for j := RKCheck.CheckItemCount(TObject(TDish(it).Discounts)) - 1 downto 0 do

begin

it2 := RKCheck.CheckItemByNumber(TObject(TDish(it).Discounts), j);

if (it2.Code = DiscountCode) then

// if abs(TDiscountItem(it2).SrcAmount)>0 then

begin

cntDiscount := cntDiscount + 1;

end;

end;

end;

end;

end;

Suitable := Suitable and ((RKCheck.CurrentOrder.ToPaySum > minOrderSum) and (CntDish1 > 0) and (cntDiscount < AllowCntCoupon));

end; 

end;
DELPHI

Скрипт проверять на версиях не ниже 7.5.4.237, 7.5.5.081, 7.5.6.024, 7.5.7.003

MainSelectorAfterConnectObjectLink to MainSelectorAfterConnectObject

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

Скрипт прячет сдачу на селекторах с номиналами валют. Разместить на форме редактирования быстрого чека в событии AfterConnectObject у объекта MainSelector

procedure MainSelectorAfterConnectObjectScript(Obj: TObject; Button: TGCustomButton);

begin

if SYS.ObjectInheritsFrom(TObject(Obj), 'TCurrencyFaceValue') then

Button.text := TCurrencyFaceValue(Obj).RightLangName + #10;// + IntToStr(TCurrencyFaceValue(Obj).Tag);

end;
DELPHI

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

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

procedure MainSelectorAfterConnectObjectScript(Obj: TObject; Button: TGCustomButton);

var Categ: TClassificatorGroup;

midserv, CategCode: integer;

begin

CategCode := 8; // code of category

midserv := 15001; // ident of midserver

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

if RK7.CashGroup.Ident = midserv then

if SYS.ObjectInheritsFrom(TObject(Obj), 'TRK7MenuItem') then

if Categ.IsChild(TRK7MenuItem(Obj)) then

Button.Color := clred;

end;
DELPHI

userGOperationButtonLink to userGOperationButton

Скрипт, изменяющий цвет кнопки

Разместите кнопку на форме. В её событии OnClick укажите скрипт:

procedure userGOperationButton1OnClickScript(Sender: TObject; XCoord, YCoord: integer);

begin

If RKCheck.CurrentOrder.BillExists=false then

begin

RK7.PerformOperation(RkoPrintBill,0)

TGOperationButton(Sender).Text := 'отменить пречек';

TGOperationButton(Sender).Color := clRed;

end

else

begin

RK7.PerformOperation(RkoUnlockBill,0);

TGOperationButton(Sender).Text := 'пречек';

TGOperationButton(Sender).Color := clBlue;

end;

end;
DELPHI

А в событии OnShow указать скрипт по отрисовке кнопки согласно текущему состоянию заказа:

procedure userGOperationButton1OnShowScript(Sender: TObject);

begin

If RKCheck.CurrentOrder.BillExists=false then

begin

TGOperationButton(Sender).Text := 'пречек';

TGOperationButton(Sender).Color := clBlue;

end

else

begin

TGOperationButton(Sender).Text := 'отменить пречек';

TGOperationButton(Sender).Color := clRed;

end; 

end;
DELPHI