Скрипты на операции

Одновременная печать пользовательского макета и сохранение заказа

Задача: Необходим скрипт, который одновременно печатает на кассе пользовательский макет и сохранять заказ. Скрипт использует функциональную клавишу, а та — пользовательский селектор.

Решение:

procedure ProcessOperation1001188(Parameter: integer);
begin

RK7.PerformRefObject( RK7.FindItemByCode(rkrefMaketSchemeDetails, 127) );

RK7.PostOperation(rkoSaveOrder, 0);

end;

DELPHI

Полное удаление чека

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

Решение:

procedure ProcessOperation1000522(Parameter: integer);

var it: TCheckItem;

begin 

if GUI.CheckFormInPayMode then Exit;

if RK7.CashUser.ConfirmOperation(rkoCreateVoid) = False then Exit;

RK7.PerformOperation(rkoHome, 0);

while True do begin

it := RKCheck.CurrentCheckItem;

if TObject(it) = Nil then break;

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


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

if (TDiscountItem(it).ChargeSource <> chsAuto) and (it.State = disOpened) then begin

RK7.PerformOperation(rkoDeleteLine, 1);

continue;

end;

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

if it.State = disOpened then begin

RK7.PerformOperation(rkoDeleteLine, 1);

continue;

end else

RKCheck.CreateCheckItem(rkrefOrderVoids, '1', FloatToStr(TDish(it).Quantity));

end;

RK7.PerformOperation(rkoDown, 0);

end;

RK7.PerformOperation(rkoCloseMode, 0);

RK7.PerformOperation(rkoPackDishes, 0);

end;

DELPHI

Создание функциональной клавиши «удалить все элементы меню из заказа», в том числе тарификации, но не скидки

Задача: Необходимо создать скрипт для кнопки, которая будет удалять все содержимое, оставляя только свойства заказа и скидки\наценки\предоплаты. Для всех удаляемых элементов указывать только одну причину удаления.

Решение:

procedure ProcessOperation1000998(Parameter: integer);

var it: TCheckItem;

VoidCode, step: integer; 

ed: TObject;

begin 

step := 0;

if GUI.CheckFormInPayMode then Exit;

if RK7.CashUser.ConfirmOperation(rkoCreateVoid) = False then Exit;

VoidCode := -1;

ed := TObject(gui.FindComponentByName('Editor'));

if SYS.ObjectInheritsFrom(TObject(ed), 'TNumEditor') then

begin

if TNumEditor(ed).Text='' then

begin

gui.showmessage('Не указан код причины списания!');

Exit;

end

else 

VoidCode := StrToInt(TNumEditor(ed).Text);

end;

if VoidCode<0 then Exit;


RK7.PerformOperation(rkoHome, 0);

while step< RKCheck.CurrentOrder.Sessions.LinesCount do begin

it := RKCheck.CurrentCheckItem;

if TObject(it) = Nil then break;

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

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

begin

if it.State = disOpened then begin

// dbg.dbgprint('delete dish');

RK7.PerformOperation(rkoDeleteLine, 1); // удаление

continue;

end else

begin

// dbg.dbgprint('void dish');

RKCheck.CreateCheckItem(rkrefOrderVoids, IntToStr(VoidCode), FloatToStr(TDish(it).Quantity)); // списание

end;

end;

// dbg.dbgprint('move down');

step := step + 1;

RK7.PerformOperation(rkoDown, 0);

end;

end;

DELPHI

Создание акции «Блюдо в подарок» в будние дни при достижении суммы заказа в 1000 р

Задача: Необходимо, чтобы в будние дни при достижении суммы заказа в 1000 р и при нажатии кнопки «Сохранить заказ» высвечивалось предложение о добавление бесплатного пива (сорт №1).

Если же сумма заказа достигает 2000р — система предлагает другое пиво (сорт №2), либо два пива сорта №1.

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

procedure ProcessOperation1002227(Parameter: integer);

var i, DishCode1,DishCode2: integer;

qnt1, qnt2, qntMax11, qntMax12, qntMax21, qntMax22: double;

checksum, LimitSum1,LimitSum2: double;

it: TCheckItem;

CurrTime, Time1, Time2: TDateTime; 

begin

if not RKCheck.Valid then exit; //important checking

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

DishCode1 := 45; // код контролируемого блюда1

DishCode2 := 46; // код контролируемого блюда2

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

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

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

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

Time1 := EncodeTime(10,00,00,00); // начало периода акции

Time2 := EncodeTime(18,00,00,00); // конец периода акции

LimitSum1 := 1000; // сумма чека превысив которую будет разрешено добавить бонусное блюдо.

LimitSum2 := 2000; // сумма чека превысив которую будет разрешено добавить бонусное блюдо.

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

qnt1 := 0;

qnt2 := 0;

CurrTime := Time;

checksum := 0;

//1 = воскресенье

//2 = понедельник

//3 = вторник

//4 = среда

//5 = четверг

//6 = пятница

//7 = суббота


begin

if (DayOfWeek(Now)>=2)and(DayOfWeek(Now)<=6) then // проверка дня недели

if (Time1<=CurrTime)and(CurrTime<=Time2) then

begin

checksum := RKCheck.CurrentOrder.ToPaySum;

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

begin

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

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

begin 

if TDish(it).code = DishCode1 then

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

if TDish(it).code = DishCode2 then

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

end;

end; 

if (checksum >= LimitSum1) and (checksum < LimitSum2) then

begin

if (qnt1 < qntMax11) then // check limit exceed

if GUI.RKMessageDlg('Добавить подарочное блюдо Пиво1?', 0, 3, 100000) = 6 then

begin

RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(DishCode1), IntToStr(Trunc(qntMax11)));

RK7.PerformOperation(rkoSaveOrder, 0);

exit;

end;

end

else if (checksum >= LimitSum2) then

begin

if (qnt2 < qntMax22) then // check limit exceed

if GUI.RKMessageDlg('Добавить подарочное блюдо Пиво2?', 0, 3, 100000) = 6 then

begin

RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(DishCode2), IntToStr(Trunc(qntMax22)));

RK7.PerformOperation(rkoSaveOrder, 0);

exit;

end

else

if (qnt1 < qntMax21) then // check limit exceed

if GUI.RKMessageDlg('Добавить подарочное блюдо Пиво1?', 0, 3, 100000) = 6 then

begin

RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(DishCode1), IntToStr(Trunc(qntMax21)));

RK7.PerformOperation(rkoSaveOrder, 0);

exit;

end;

end;

end;

end;

RK7.PerformOperation(rkoSaveOrder, 0);

end;

DELPHI

Создание акции «3 по цене 2-х»

Задача: создать акцию «3 по цене 2-х»

Решение: в менеджерской станции r_Keeper_7, в разделе «Скидки и наценки» создайте новую скидку и обязательно выберите:

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

Назначьте данный скрипт на селектор:

procedure ProcessOperation1001326(Parameter: integer);

var i, j, k: integer;

it: TCheckItem;

d: TDish;

a, PaySum, q: double;

str: string; 

info: string;

DiscCode: integer; 

Categ: TClassificatorGroup;

begin

RK7.PerformOperation(rkoPackDishes, 0);

DiscCode := 11; // код скидки

info := ';'; 

RK7.PerformOperation(rkoHome, 0);

while True do begin

it := RKCheck.CurrentCheckItem;

if TObject(it) = Nil then break;

Categ := TClassificatorGroup(RK7.FindItemByCode(rkrefClassificatorGroups, 8)); // указать код классификации

if SYS.ObjectInheritsFrom(TObject(it), 'TEmptyLine') then break;

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

if Categ.IsChild(it. RefItem) then begin // если блюдо из заданной классификации, то работаем дальше.

d := TDish(it);

PaySum := d.PaySum;

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

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

if (it.Code = DiscCode) and SYS.ObjectInheritsFrom(TObject(it), 'TDiscountItem') then begin

PaySum := PaySum - TDiscountItem(it).CalcAmount;

RKCheck.DeleteCheckItem(it);

end;

end;

i := Pos(';' + IntToStr(d.Sifr) + '=', info);

if i = 0 then a := 0

else begin

str := Copy(info, i+1, 10000);

k := Pos(';', str);

str := Copy(info, i+1, k - 1);

Delete(info, i, k);

a := StrToFloat(Copy(str, Pos('=', str)+1, 10000));

end;

a := a + d.Quantity;

if a > 2 then begin

q := int64(Trunc(a) div 3);

a := a - 3*q;

str := FloatToStr(PaySum*q/d.Quantity);

RKCheck.CreateCheckItem(rkrefDiscounts, IntToStr(DiscCode), str);

end;

info := info + IntToStr(d.Sifr) + '=' + FloatToStr(a) + ';'; 

end;

RK7.PerformOperation(rkoDown, 0);

end;

end;

DELPHI

Создание скидки 50% на каждое второе блюдо в заказе

Задача: необходим скрипт для создания 50%-ой скидки на каждое второе блюдо в заказе.

Решение: создайте новую скидку с настройками:

мин. кличество — 2
кол.режим — «Для всех»
процент — 50

Назначьте данный скрипт на селектор:

procedure ProcessOperation1002352(Parameter: integer);
var i, j, k: integer;

it: TCheckItem;

d: TDish;

a, PaySum, q, perc: double;

str: string; 

info: string;

DiscCode: integer; 

begin

RK7.PerformOperation(rkoPackDishes, 0);

DiscCode := 11; // код суммовой открытой скидки на блюдо

perc := 0.5; // % скидки

info := ';'; 

RK7.PerformOperation(rkoHome, 0);

while True do begin

it := RKCheck.CurrentCheckItem;

if TObject(it) = Nil then break;

if SYS.ObjectInheritsFrom(TObject(it), 'TEmptyLine') then break;

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

d := TDish(it);

PaySum := d.PaySum;

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

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

if (it.Code = DiscCode) and SYS.ObjectInheritsFrom(TObject(it), 'TDiscountItem') then begin

PaySum := PaySum - TDiscountItem(it).CalcAmount;

RKCheck.DeleteCheckItem(it);

end;

end;

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

i := Pos(';' + IntToStr(d.Sifr) + '=', info);

if i = 0 then a := 0

else begin

str := Copy(info, i+1, 10000);

k := Pos(';', str);

str := Copy(info, i+1, k - 1);

Delete(info, i, k);

a := StrToFloat(Copy(str, Pos('=', str)+1, 10000));

end;

dbg.dbgprint('str = '+(str)); 

a := a + d.Quantity;

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

if a > 1 then begin

q := int64(Trunc(a) div 2);

a := a - 2*q;

str := FloatToStr(PaySum*q/d.Quantity*perc); 

dbg.dbgprint('str = '+(str));

RKCheck.CreateCheckItem(rkrefDiscounts, IntToStr(DiscCode), str);

end;

info := info + IntToStr(d.Sifr) + '=' + FloatToStr(a) + ';'; 

end;

RK7.PerformOperation(rkoDown, 0);

end;

end;

DELPHI

Данный скрипт делает скидку 50% на все позиции после первой,

Если необходима скидка на каждое второе блюдо то модифицируйте строки:

if a > 1 then begin

q := int64(Trunc(a) div 2);

a := a - 2*q;

DELPHI

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

Задача: создать 100%-ую скидку на второе блюдо определенной категории

Решение:

procedure ProcessOperation1000695(Parameter: integer);

var i, j, k: integer;

it: TCheckItem;

d: TDish;

a, PaySum, q: double;

str: string; 

info: string;

DiscCode: integer; 

begin

RK7.PerformOperation(rkoPackDishes, 0);

DiscCode := 32;

info := ';'; 

RK7.PerformOperation(rkoHome, 0);

while True do begin

it := RKCheck.CurrentCheckItem;

if TObject(it) = Nil then break;

if SYS.ObjectInheritsFrom(TObject(it), 'TEmptyLine') then break;

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

d := TDish(it);

PaySum := d.PaySum;

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

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

if (it.Code = DiscCode) and SYS.ObjectInheritsFrom(TObject(it), 'TDiscountItem') then begin

PaySum := PaySum - TDiscountItem(it).CalcAmount;

RKCheck.DeleteCheckItem(it);

end;

end;


i := Pos(';' + IntToStr(d.Sifr) + '=', info);

if i = 0 then a := 0

else begin

str := Copy(info, i+1, 10000);

k := Pos(';', str);

str := Copy(info, i+1, k - 1);

Delete(info, i, k);

a := StrToFloat(Copy(str, Pos('=', str)+1, 10000));

end;

a := a + d.Quantity;

if a > 1 then begin

q := int64(Trunc(a) div 2);

a := a - 2*q;

str := FloatToStr(PaySum*q/d.Quantity);

RKCheck.CreateCheckItem(rkrefDiscounts, IntToStr(DiscCode), str);

end;

info := info + IntToStr(d.Sifr) + '=' + FloatToStr(a) + ';'; 

end;

RK7.PerformOperation(rkoDown, 0);

end;

end;

DELPHI

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

Задача: Создать акцию по флайеру — 1 десерт в подарок. Сумма чека от 500 рублей. Скидка 100% только на одно блюдо из категории «десерты». Цены разные, в чеке может быть несколько десертов. Скидку необходимо дать только один раз на десерт, который попал в заказ первым.

Решение:

скрипт для ручного добавления акции

procedure ProcessOperation1001621(Parameter: integer);

var i, j, numcateg: integer;

DiscCode: integer;

it, CurItem: TCheckItem;

SL: TStringList;

a, q, Price: double;

d: TDish;

CheckView: TCheckView;

Categ: TClassificatorGroup;

skip: boolean;

begin

CheckView := TCheckView(GUI.FindComponentByName('CheckView'));

if CheckView = Nil then Exit;

CurItem := RKCheck.CurrentCheckItem;

SL := TStringList.Create;

try

// Create list of the dishes, sorted by price

SL.Sorted := true;

DiscCode := 11;

numcateg := 8; //5 - category code

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

begin

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

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

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

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

// if (it.RefItem.MainParent.code =11 ) then // if dish from categore of menu and have same code

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

if TDish(it).Quantity > 0 then

begin

if SL.Count<1 then

begin

if (TDish(it).Quantity = 0) or (TDish(it).PRListSum = 0) then Price := TDish(it).Price

else Price := TDish(it).PRListSum/TDish(it).Quantity;

SL.AddObject(FormatFloat('00000000.00', Price) + IntToStr(TDish(it).UNI), TObject(it));

end; 

end;

end;

//Magic

q:=0;


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

begin

a:= 0;

d:= TDish(SL.Objects[i]);

q:= d.Quantity;

if (d.Quantity = 0) or (d.PRListSum = 0) then Price := d.Price

else Price := d.PRListSum/d.Quantity;

a:= a + Price;


if RKCheck.CurrentOrder.UnpaidSum-a >= 500 then

begin 

// Delete discount, if a sum changed

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

begin

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

if (it.Code = DiscCode) then

begin


if abs(TDiscountItem(it).CalcAmount) = a then a := 0

else begin


RKCheck.DeleteCheckItem(it);

end;

break;

end;

end; 

// Create discount to a dish

if a > 0 then

begin

CheckView.GotoItem(TObject(d));

RKCheck.CreateCheckItem(rkrefDiscounts, IntToStr(DiscCode), FloatToStr(a));

end;

end

else

begin

// Delete discount, if a sum changed

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

begin

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

if (it.Code = DiscCode) then

begin

// gui.showmessage('44444'); 

RKCheck.DeleteCheckItem(it);

break;

end;

end; 

end;

end;

finally

SL.Free();

if CurItem <> Nil then CheckView.GotoItem(CurItem);

end;

RKCheck.CurrentOrder.Recalc();

end;

DELPHI

Два скрипта для формы редактирования чека, которые автоматически добавляют/удаляют скидку:


procedure CheckViewOnAfterCheckViewEdit(Sender: TObject; AEditType: TEditType; AObjectBef, AObjectAft: TObject);

var i, j, numcateg, OrderTypeCode, GuestTypeIdent: integer;

DiscCode, HaveDisc: integer;

it, CurItem: TCheckItem;

SL: TStringList;

newsum, aftersum, beforesum, limitsum, topay, a, q, Price: double;

d: TDish;

CheckView: TCheckView;

Categ: TClassificatorGroup;

begin

CheckView := TCheckView(GUI.FindComponentByName('CheckView'));

if CheckView = Nil then Exit;

HaveDisc := 0;

// ******************************************************************

DiscCode := 11; // код скидки для акционного блюда

numcateg := 8; // код категории акционного блюда

limitsum := 500; // минимальная сумма заказа в учетом всех скидок

OrderTypeCode := 1; // код типа заказа

GuestTypeIdent := 1000087; // идентификатор типа гостя

// ******************************************************************

CurItem := RKCheck.CurrentCheckItem;

SL := TStringList.Create;

// if (RKCheck.CurrentOrder.OrderTypeCode = 2) then // for different OrderTypeCode

// if (RKCheck.CurrentOrder.OrderCategoryCode = 2) then // for different OrderCategoryCode

// if (RKCheck.CurrentOrder.Visit.GuestType = 0) then // for different GuestType

if (RKCheck.CurrentOrder.OrderTypeCode = OrderTypeCode) // for different OrderTypeCode

or(RKCheck.CurrentOrder.Visit.GuestType = GuestTypeIdent) // for different GuestType

then

try

// Create list of the dishes, sorted by price

SL.Sorted := False;

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

begin

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

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

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

// if TDiscountItem(it).code = 11 then

// gui.showmessage('111111111');

// if TDiscountItem(it).CalcAmount > 0 then

// HaveDisc := HaveDisc + 1;

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

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

// if (it.RefItem.MainParent.code =11 ) then // if dish from categore of menu and have same code

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

if TDish(it).Quantity > 0 then

begin

if SL.Count<1 then

begin

if (TDish(it).Quantity = 0) or (TDish(it).PRListSum = 0) then Price := TDish(it).Price

else Price := TDish(it).PRListSum/TDish(it).Quantity;

SL.AddObject(FormatFloat('00000000.00', Price) + IntToStr(TDish(it).UNI), TObject(it));

end; 

end;

end;


//Magic

q:=0;

newsum := 0;

aftersum := 0;

beforesum := 0; 

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

aftersum := TDish(AObjectAft).PRListSum

else

aftersum := 0; 

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

beforesum := TDish(AObjectBef).PRListSum

else

beforesum := 0; 

newsum := aftersum-beforesum; 

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

begin

a:= 0;

d:= TDish(SL.Objects[i]);

q:= d.Quantity; 

if (d.Quantity = 0) or (d.PRListSum = 0) then Price := d.Price

else Price := d.PRListSum/d.Quantity;

a:= a + Price;


// search special discount

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

begin

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

if (it.Code = DiscCode) then

HaveDisc := HaveDisc + 1;

end; 


if HaveDisc > 0 then

topay := RKCheck.CurrentOrder.UnpaidSum + a

else

topay := RKCheck.CurrentOrder.UnpaidSum;


if topay-a+newsum >= limitsum then

begin 

// Delete discount, if a sum changed

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

begin

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

if (it.Code = DiscCode) then

begin


if abs(TDiscountItem(it).CalcAmount) = a then a := 0

else begin

RKCheck.DeleteCheckItem(it);

end;

break;

end;

end; 

// Create discount to a dish

if a > 0 then

begin

CheckView.GotoItem(TObject(d));

RKCheck.CreateCheckItem(rkrefDiscounts, IntToStr(DiscCode), FloatToStr(a));

end; 

end

else

begin

// Delete discount, if a sum changed

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

begin

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

if (it.Code = DiscCode) then

begin

RKCheck.DeleteCheckItem(it);

break;

end;

end; 

end; 

end; 

finally

SL.Free();

if CurItem <> Nil then CheckView.GotoItem(CurItem);

end;

RKCheck.CurrentOrder.Recalc();

end;


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

var i, j, numcateg, OrderTypeCode, GuestTypeIdent: integer;

DiscCode, HaveDisc: integer;

it, CurItem: TCheckItem;

SL: TStringList;

newsum, aftersum, beforesum, limitsum, topay, a, q, Price: double;

d: TDish;

CheckView: TCheckView;

Categ: TClassificatorGroup;

begin

CheckView := TCheckView(GUI.FindComponentByName('CheckView'));

if CheckView = Nil then Exit;

HaveDisc := 0;

// ******************************************************************

DiscCode := 11; // код скидки для акционного блюда

numcateg := 8; // код категории акционного блюда

limitsum := 500; // минимальная сумма заказа в учетом всех скидок

OrderTypeCode := 1; // код типа заказа

GuestTypeIdent := 1000087; // идентификатор типа гостя

// ****************************************************************** 

CurItem := RKCheck.CurrentCheckItem;

SL := TStringList.Create;

// if (RKCheck.CurrentOrder.OrderTypeCode = 2) then // for different OrderTypeCode

// if (RKCheck.CurrentOrder.OrderCategoryCode = 2) then // for different OrderCategoryCode

// if (RKCheck.CurrentOrder.Visit.GuestType = 0) then // for different GuestType

if (RKCheck.CurrentOrder.OrderTypeCode = OrderTypeCode) // for different OrderTypeCode

or(RKCheck.CurrentOrder.Visit.GuestType = GuestTypeIdent) // for different GuestType

then

if AEditType = etRemove then

try

// Create list of the dishes, sorted by price

SL.Sorted := False;

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

begin

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

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

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

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

// if (it.RefItem.MainParent.code =11 ) then // if dish from categore of menu and have same code

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

if TDish(it).Quantity > 0 then

if SL.Count<1 then

begin

if (TDish(it).Quantity = 0) or (TDish(it).PRListSum = 0) then Price := TDish(it).Price

else Price := TDish(it).PRListSum/TDish(it).Quantity;

SL.AddObject(FormatFloat('00000000.00', Price) + IntToStr(TDish(it).UNI), TObject(it));

end; 

end;

//Magic

q:=0;

newsum := 0;

aftersum := 0;

beforesum := 0; 

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

aftersum := TDish(AObjectAft).PRListSum

else 

aftersum := 0; 

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

beforesum := TDish(AObjectBef).PRListSum

else

beforesum := 0; 

// newsum := aftersum-beforesum;

newsum := -beforesum;

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

begin

a:= 0;

d:= TDish(SL.Objects[i]);

q:= d.Quantity; 

if (d.Quantity = 0) or (d.PRListSum = 0) then Price := d.Price

else Price := d.PRListSum/d.Quantity;

a:= a + Price;


// search special discount

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

begin

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

if (it.Code = DiscCode) then

HaveDisc := HaveDisc + 1;

end; 


if HaveDisc > 0 then

topay := RKCheck.CurrentOrder.UnpaidSum + a

else

topay := RKCheck.CurrentOrder.UnpaidSum; 

if topay-a+newsum >= limitsum then 

// if RKCheck.CurrentOrder.UnpaidSum-a+newsum >= limitsum then

begin 

// Delete discount, if a sum changed

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

begin

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

if (it.Code = DiscCode) then

begin

if abs(TDiscountItem(it).CalcAmount) = a then a := 0

else begin 

RKCheck.DeleteCheckItem(it);

end;

break;

end;

end; 

// Create discount to a dish

if a > 0 then

begin

CheckView.GotoItem(TObject(d));

RKCheck.CreateCheckItem(rkrefDiscounts, IntToStr(DiscCode), FloatToStr(a));

end; 

end

else

begin

// Delete discount, if a sum changed

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

begin

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

if (it.Code = DiscCode) then

begin 

RKCheck.DeleteCheckItem(it);

break;

end;

end; 

end; 

end; 

finally

SL.Free();

if CurItem <> Nil then CheckView.GotoItem(CurItem);

end;

RKCheck.CurrentOrder.Recalc();

end;

DELPHI

Создание акции «Детский день рождения. Скидка 10% + Пицца в подарок»

Задача: необходимо настроить акцию «Детский день рождение. Скидка 10% + Пицца в подарок».

Для этого нужно настроить 100%-ую скидку на категорию «пицца», в которой находятся два вида Пицца Домашняя и Пицца Детская. Если в заказе стоят две пиццы из категории "пицца", то 100% скидка действует только на одну пиццу, а на вторую 10%.

Решение: Создайте крипт для селектора «Акция»:

procedure ProcessOperation1002452(Parameter: integer);

var i, j, numcateg: integer;

DiscCode: integer;

it, CurItem: TCheckItem;

SL: TStringList;

a, q, Price: double;

d: TDish;

CheckView: TCheckView;

Categ: TClassificatorGroup;

skip: boolean;

begin

CheckView := TCheckView(GUI.FindComponentByName('CheckView'));

if CheckView = Nil then Exit;

CurItem := RKCheck.CurrentCheckItem;

SL := TStringList.Create;

try

// Create list of the dishes, sorted by price

SL.Sorted := False;

DiscCode := 12; // суммовая изменяемая скидка на блюдо

numcateg := 8; // category code for discount

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

begin

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

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

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

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

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

if TDish(it).Quantity > 0 then

begin

if SL.Count<2 then

begin

if (TDish(it).Quantity = 0) or (TDish(it).PRListSum = 0) then Price := TDish(it).Price

else Price := TDish(it).PRListSum/TDish(it).Quantity;

SL.AddObject(FormatFloat('00000000.00', Price) + IntToStr(TDish(it).UNI), TObject(it));

end; 

end;

end;


q:=0; 

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

begin

a:= 0;

d:= TDish(SL.Objects[i]);

q:= d.Quantity;

if (d.Quantity = 0) or (d.PRListSum = 0) then Price := d.Price

else Price := d.PRListSum/d.Quantity;

if i=0 then

a:= a + Price; // discount 100 %

if i=1 then

a:= a + Price*0.1; // discount 10 %


begin 

// Delete discount, if a sum changed

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

begin

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

if (it.Code = DiscCode) then

begin

if abs(TDiscountItem(it).CalcAmount) = a then a := 0

else begin

RKCheck.DeleteCheckItem(it);

end;

break;

end;

end; 

// Create discount to a dish

if a > 0 then

begin

CheckView.GotoItem(TObject(d));

RKCheck.CreateCheckItem(rkrefDiscounts, IntToStr(DiscCode), FloatToStr(a));

end;

end;

end;

finally

SL.Free();

if CurItem <> Nil then CheckView.GotoItem(CurItem);

end;

RKCheck.CurrentOrder.Recalc();

end;

DELPHI

Блюду обязательно выставить свойство «Добавление в заказ» — «Отдельная строка для каждой порции».

Скрипт для применения скидки 10% автоматически при наличии в заказе у блюда категории скидки 100% :

procedure DiscountUsage1002444(UsageParameters: TDiscountUsageParameters);

var i,j,cntDiscount, DiscountCode: integer;

it,it2: TCheckItem;

Categ: TClassificatorGroup;

begin

dbg.dbgprint('script_disc');

// if not RKCheck.Valid then exit; 

DiscountCode := 12; // код скидки "100% на блюдо"

cntDiscount := 0; 

Categ := TClassificatorGroup(getitemBycodeNum('ClassificatorGroups', 8)); // 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

if TDish(it).Quantity > 0 then 

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

Begin

dbg.dbgprint('script_disc 1_');

dbg.dbgprint('cnt = '+inttostr(RKCheck.CheckItemCount(TObject(TDish(it).Discounts))));

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

dbg.dbgprint('script_disc 2'); 

cntDiscount := cntDiscount + 1;

break;

end;

end;

End;

end;

dbg.dbgprint('cntDiscount = '+inttostr(cntDiscount));

if cntDiscount>0 then

UsageParameters.UsageMode := umAuto

else

UsageParameters.UsageMode := umDeny;

end;

DELPHI

Результат на кассе:

Создание счастливого чека

Задача: Создать скрипт для «счастливого чека» с ограничением

1) по минимальной сумме чека;

2) по общему возможному количеству чеков. Количество чеков зависимости от суммы выручки на данный момент, т.е. если выручка, например, 50 тысяч, то счастливых чеков может быть максимум 5 шт.

Решение:

1) Создайте макет печати в пользовательских отчётах, также, для макета надо создать представление печати.

2) В кассовой форме необходимо добавить компонент TReportPanel:

3) В свойстве «Поведение -- Document» указать ранее созданный макет печати.

4) Вписать скрипт:

procedure ProcessOperation1001035(Parameter: integer);
var t1, t2: TdateTime;

i,QntHO, MaxQntHappyOrd, DiscCode, DiscId: integer;

it: TCheckItem;

a,b,MinOrderSum,MaxOrderSum, KasSum: double;

c: TVisualComponent;

str: string;

begin

DiscCode := 5; // code discount

DiscId := 1001029; // id discount

KasSum := 0;

c := gui.FindComponentByName('UserReportPanel1');

str := TReportPanel(TObject(c)).Text;

// dbg.dbgprint('str = '+str);

i:=pos('выручка=',str);

if i>0 then

begin

KasSum := StrToFloat(copy(str,i+8,length(str)-(i+8)));

//dbg.dbgprint('KasSum = '+FloatToStr(KasSum));

end;


t1:=StrToTime('10:01:00'); // start lottery

t2:=StrToTime('23:59:00'); // end lottery

MaxOrderSum := 15000; // max sum of order максимальная сумма заказа до которой будет разыгрываться счастливый чек

MinOrderSum := 1; // min sum of order минимальная сумма заказа при которой будет разыгрываться счастливый чек

MaxQntHappyOrd := trunc(KasSum / 10); // quantity of happy ordets at shift


//dbg.dbgprint('QntHO = '+FloatToStr(QntHO));

//dbg.dbgprint('MaxQntHappyOrd = '+FloatToStr(MaxQntHappyOrd));

QntHO:=RKCheck.GetDiscountCount(DiscId, 0, ''); // id discount

if QntHO<MaxQntHappyOrd then

if (t1<=Time)and(Time<=t2) then

begin 

// calc sum of order START

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

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

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

a := a + TDish(it).PRListSum

else if SYS.ObjectInheritsFrom(TObject(it), 'TChargeLine') then

a := a + TChargeLine(it).CalcAmount;

// if it.CODE in [5502, 1003] then

// b := b + TDish(it).PRListSum;

end;

// calc sum of order END

// dbg.dbgprint('a = '+floattostr(a));

// dbg.dbgprint('random(100) = '+floattostr(random(100)));

if a>MinOrderSum then // check condition of minimum ordersum

if a<MaxOrderSum then // check condition of maximum ordersum

begin

if (random(100)>1) then //здесь задаётся вероятность срабатывания счастливого чека: 1 - максимальная вероятность; 99 - минимальная вероятность

begin

RKCheck.CreateCheckItem(rkrefDiscounts, IntToStr(DiscCode), FloatToStr(100)); // add discount вместо 100 указать сумму скидки

// dbg.dbgprint('Congratulations!!! Happy Order!!! var1');

gui.ShowMessage('Congratulations!!! Happy Order!!!'); // RkCheck.GetDiscountCount 

end

else if (QntHO=0) and (StrToInt(FormatDateTime('n',t2-Time))<=10) then // lottery at last time(minutes) when no winners

begin

if (random(100)>1) then //здесь задаётся вероятность срабатывания счастливого чека: 1 - максимальная вероятность; 99 - минимальная вероятность

begin

RKCheck.CreateCheckItem(rkrefDiscounts, IntToStr(DiscCode), FloatToStr(100)); // add discount вместо 100 указать сумму скидки

// dbg.dbgprint('Congratulations!!! Happy Order!!! var2');

gui.ShowMessage('Congratulations!!! Happy Order!!!'); // RkCheck.GetDiscountCount

end; 

end;

end;

end;

RK7.PostOperation(rkoBalanceReceipt,0);

end;

DELPHI

Добавление блюда в заказ в момент перехода в режим расчета

Задача: Создать скрипт, добвляющий блюдо в заказ в момент перехода в режим расчета. процесс должен выглядеть так: в режиме быстрого чека при нажатии на кнопку «Расчет заказа» система проверят сумму заказа. Если сумма заказа больше или равно определенной сумме, то система показывает сообщение с кнопками «Да» и «Нет».

При нажатии на «Да», система добавляет блюдо с кодом NNN в заказ и переходит в режим расчета.

При нажатии на «Нет» система сразу переходит в режим расчета

Решение: В быстрый чек добавить пользовательский селектор «Оплата» вместо стандартного. К этому селектору привязать пользовательскую операцию со скриптом:

procedure ProcessOperation1001304(Parameter: integer);
begin

if not RKCheck.Valid then

exit //important checking

else

begin

if RKCheck.CurrentOrder.UnpaidSum >= 300 then // Order sum checking

if GUI.RKMessageDlg('Do You want add bonus dish?', 0, 3, 10000) = 6 then

RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(39), '1'); // add dish with code 39

end;

RK7.PostOperation(rkoBalanceReceipt, 0);

end;

DELPHI

В данном скрипте заменить сумму «300» на требуемую, а также сменить код добавляемого блюда «39» на актуальное значение.

Блокировка блюд

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

Решение:

procedure ProcessOperation1038483(Parameter: integer);
var ed: TObject;

begin

if not RKCheck.Valid then

exit //important checking

else

begin

ed := TObject(gui.FindComponentByName('Editor'));

if SYS.ObjectInheritsFrom(TObject(ed), 'TNumEditor') then

if (Pos('1001',TNumEditor(ed).Text)>0)

or (Pos('1002',TNumEditor(ed).Text)>0)

then 

gui.showmessage('Zapreshennij simvol!!!')

else 

RK7.PerformOperation(rkoCreateDish, StrToInt(TNumEditor(ed).Text));

end;

end;

DELPHI

Статусы

TDrawItemState = (disNone, disOpened, disLocked, disFixed, disPrinted, disPartClosed, disClosed, disDeleted);

DELPHI

Как получить родителя комбо-элемента в скрипте

Взять у блюда свойство ComboDishUNI, найти блюдо с таким UNI.

В R_Keeper 7.5.5.035 можно сделать так:

RKCheck.CurrentOrder.Sessions.FindByUNI(TDish(it).ComboDishUNI).

DELPHI

В более старых версиях нет функции FindByUNI и для поиска блюда с нужным UNI нужно выполнять перебор по всем блюдам заказа

If ((TDish(it).Quantity <> 0) and (TDish(it).IsComboComp)) then //and (Categ5.IsChild(it.RefItem)))
begin

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

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

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

begin

If ((TDish(it).ComboDishUNI = TDish(it2).UNI) and (Categ5.IsChild(it2.RefItem))) then

begin

end;

end; 

end;

//TDish(it).ComboDishUNI

end;

DELPHI

Добавление модификатора всем блюдам в заказе

Задача: Написать скрипт для селектора, добавляющий модификатор всем блюдам в заказе.

Решение:

procedure ProcessOperation1002489(Parameter: integer);
var i,j,CntModif:integer;

it, CurItem: TCheckItem;

CheckView: TCheckView;

begin

CheckView := TCheckView(GUI.FindComponentByName('CheckView'));

if CheckView = Nil then Exit;

CurItem := RKCheck.CurrentCheckItem;

if Parameter > 0 then

try

RK7.PerformOperation(rkoHome, 0);

while True do begin

it := RKCheck.CurrentCheckItem;

if TObject(it) = Nil then break;

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

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

begin

CntModif := 0;

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

begin

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

CntModif := CntModif + 1;

end;

if CntModif = 0 then

RKCheck.CreateCheckItem(rkrefModifiers, IntToStr(Parameter), '1'); // add modificator 

end; 

RK7.PerformOperation(rkoDown, 0);

end;


finally

if CurItem <> Nil then CheckView.GotoItem(CurItem);

end; 

end;

DELPHI

Назначьте селекторам пользовательскую операцию с вышеуказанным скриптом и обязательно задайте в свойстве «Параметр для Пусто» и «Параметр» код соответствующего модификатора.

Добавление новой позиции блюда в заказ при нажатии на строку сохраненого блюда и кнопку количество

Задача: При выделении позиции сохраненного блюда и нажатии на кнопку «количество» необходимо добавлять дополнительную позицию внизу заказа. (Функция работала в R-keeper_6). Сейчас при нажатии на позицию с сохраненным блюдом кнопка «количество» неактивна.

Решение:

Добавить скрипт в скрипты-операции.
Закрепить скрипт за конкретной пользовательской операцией.
Операцию закрепить за функциональной клавишей, а клавишу назначить новому селектору.

Скрипт:

procedure ProcessOperation1001322(Parameter: integer);
var i, code: integer; 

CurItem: TCheckItem;

begin

if not RKCheck.Valid then

exit //important checking

else

begin

CurItem := RKCheck.CurrentCheckItem;

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

begin

code := CurItem.code;

RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(code), '1'); // add dish with code 39

end;

end;

end;

DELPHI

Добавление кнопки «Количество» с функцией «Плюс порция сохраненного блюда»

Задача: объединить функции клавиши «Количество» и «Плюс порция сохраненного блюда» (дозаказ))?

Решение:

procedure ProcessOperation1001322(Parameter: integer);

var i, code: integer; 

CurItem: TCheckItem;

ed: TObject;

begin

if not RKCheck.Valid then

exit //important checking

else

begin

CurItem := RKCheck.CurrentCheckItem;

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

begin

ed := TObject(gui.FindComponentByName('Editor'));

if (TNumEditor(ed).Text='') then

begin

code := CurItem.code;

RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(code), '1'); // add dish with code

end

else

begin

RK7.PerformOperation(rkoEditAmount, 0);

end;

end;

end;

end;

DELPHI

Быстрая оплата рублями в R_Keeper_7

Задача: при нажатии в режиме быстрого чека на клавиши «Оплатить рубли» или «Оплатить» открывалось сразу окно оплаты наличными, минуя экран выбора типа оплаты.

Решение:

procedure ProcessOperation1002215(Parameter: integer);

begin

if not RKCheck.Valid then

exit //important checking

else

begin

RK7.PerformRefObject(RK7.FindItemByCode(rkrefCurrencies, 1)); // 1 - currency code

end;

end;

DELPHI

Определение остатка предоплаты по визиту

Задача: Ресторан работает в режиме «карта на входе» через msr-алгоритм. Необходим скрипт, который бы выводил остаток суммы предоплаты по визиту.

Решение:

procedure ProcessOperation1001537(Parameter: integer);

var i: integer; 

Limit: double;

CardCode: string;

McrPay: TMcrPay;

begin

if TObject(RKCheck.CurrentOrder) = Nil then Exit;


// Limit calculation

Limit := 0;

CardCode := '';

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

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

Limit := Limit + McrPay.MaxAmount;

CardCode := McrPay.CardNum;

end;

if CardCode = '' then Exit

else

gui.Showmessage('На карте '+CardCode+' остаток '+FloatToStr(Limit)+' р.');

end;

DELPHI

Ограничение скидки на категорию 100%

Задача: Скидка 100% должна примениться к блюдам, попадающим в категорию, только в количестве 1 позиции.

Решение:

procedure ProcessOperation1001621(Parameter: integer);

var i, j, numcateg: integer;

DiscCode: integer;

it, CurItem: TCheckItem;

SL: TStringList;

a, q, Price: double;

d: TDish;

CheckView: TCheckView;

Categ: TClassificatorGroup;

skip: boolean;

begin

CheckView := TCheckView(GUI.FindComponentByName('CheckView'));

if CheckView = Nil then Exit;

CurItem := RKCheck.CurrentCheckItem;

SL := TStringList.Create;

try

// Create list of the dishes, sorted by price

SL.Sorted := true;

DiscCode := 11;

numcateg := 8; //5 - category code

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

begin

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

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

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

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

// if (it.RefItem.MainParent.code =11 ) then // if dish from categore of menu and have same code

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

begin

skip := false;

for j:=0 to SL.Count - 1 do

begin

d:= TDish(SL.Objects[j]);

if d.code=it.code then

Skip := True;

end;

if not(skip) then

begin

if (TDish(it).Quantity = 0) or (TDish(it).PRListSum = 0) then Price := TDish(it).Price

else Price := TDish(it).PRListSum/TDish(it).Quantity;

SL.AddObject(FormatFloat('00000000.00', Price) + IntToStr(TDish(it).UNI), TObject(it));

end; 

end;

end;


//Magic

q:=0;

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

begin

a:= 0;

d:= TDish(SL.Objects[i]);

q:= d.Quantity;

if (d.Quantity = 0) or (d.PRListSum = 0) then Price := d.Price

else Price := d.PRListSum/d.Quantity;

a:= a + Price;


// Delete discount, if a sum changed

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

begin

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

if (it.Code = DiscCode) then

begin

if abs(TDiscountItem(it).SrcAmount) = a then a := 0

else RKCheck.DeleteCheckItem(it);

break;

end;

end;


// Create discount to a dish

if a > 0 then

begin

CheckView.GotoItem(TObject(d));

RKCheck.CreateCheckItem(rkrefDiscounts, IntToStr(DiscCode), FloatToStr(a));

end;

end;

finally

SL.Free();

if CurItem <> Nil then CheckView.GotoItem(CurItem);

end;

RKCheck.CurrentOrder.Recalc();

end;

DELPHI

Открытие окна браузера для показа операционных отчетов касс

Задача: необходимо создать функциональную клавишу в главном меню кассы, при нажатии на которую будет выполняться команда — fsWeb.exe "https://172.22.4.57:8088/csthtm/overall1.html", где 172.22.4.57 значение расширенного свойства ресторана

Решение:

procedure ProcessOperation1001763(Parameter: integer);

var s: string;

begin

// TRK7Restaurant(RK7.CashGroup.MainParent).genMessage_Addon_49='1'

s := TRK7Restaurant(RK7.CashGroup.MainParent).genTEL;

GUI.CmdExec('fsWeb.exe "https://'+s+':8088/csthtm/overall1.html"');

end;

DELPHI

Скрипт закрепить за пользовательской операцией, которую в, свою очередь, назначить на функциональную клавишу.

Добавление блюда в заказ

Задача: После прокатывания дисконтной картой, на карту клиента должна возвращаться скидка и подарок — блюдо с определенным кодом.

Процесс должен выглядеть так:

1. Создание кнопки в интерфейсе

2. При нажатии на эту кнопку клиент вводит промокод

3. Этот промокод воспринимается как код карты, на него написан соответствующий MCR-алгоритм.

4. Происходит вызов FarCards, получение скидки и кода подарочного блюда. Его можно вернуть в каком-нибудь поле.

5. Это блюдо добавляется в стол и на стол ставится скидка.

Решение:

1) создать скрипт

procedure ProcessOperation1001765(Parameter: integer);

var ed: TObject;

DeviceID : integer;

begin

if not RKCheck.Valid then

exit //important checking

else

begin

DeviceID := 0; // идентификатор интерфейса ПДС

ed := TObject(gui.FindComponentByName('Editor'));

if SYS.ObjectInheritsFrom(TObject(ed), 'TNumEditor') then

if (Pos('1001',TNumEditor(ed).Text)>0)

or (Pos('1002',TNumEditor(ed).Text)>0)

then 

gui.showmessage('nevernii promokod!!!')

else 

RK7.PerformMCRAlgorith('8989='+TNumEditor(ed).Text, DeviceID);

//RK7.PerformOperation(rkoCreateDish, StrToInt(TNumEditor(ed).Text));

end;

end;

DELPHI

2) В поле ввода кассового терминала вводится промокод (1001 или 1002 в примере). При совпадении введённого промокода с сохранённым в скрипте вызывается MCR-скрипт.

MCR-скрипт нужно создать с такими настройками:

Основное-Область: Скидка
Основное-Объект: Скидка использована

Основное-Типы устройств-Скрипт: поставить галочку

function MCR1001146(DeviceSignal: Integer; DeviceIdent: Integer; var Parameter: String): Boolean;

var RestCode: integer;

begin

Result := False;

if pos('8989=', Parameter) = 1 then begin

RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(43), '1'); // добавление в заказ блюда с кодом 43

Result := True;

end;

end;

DELPHI

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

Задача: Необходим скрипт для проверки количества блюд из определенной категории.

Решение:

procedure ProcessOperation1001742(Parameter: integer);

var i, CategCode: integer;

it: TCheckItem;

iQnt : double;

Categ: TClassificatorGroup;

CurSession: TOrderSession;

begin 

if (not RKCheck.Valid) then

exit; 

else begin

CategCode := 8; //category code

iQnt := 0;

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

if SYS.ObjectInheritsFrom(TObject(RKCheck.CurrentCheckItem), 'TDish') then

CurSession := TDish(RKCheck.CurrentCheckItem).Session;

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

begin

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

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

begin 

if CurSession = TDish(it).Session then 

if (Categ.IsChild(it.RefItem)) then

iQnt := iQnt + Trunc(TDish(it).Quantity);

end;

end;

//RKCheck.CurrentOrder.Visit.GuestCnt

if (iQnt < 4) then

begin

GUI.Showmessage('Chua du? diê`u kiê?n a´p du?ng: ' + FloatToStr(iQnt));

Exit;

end; 

end; 

end;

DELPHI

Создание дополнительных отчетов при закрытии смены

Задача: создание скрипта для автоматического создания дополнительных отчетов при закрытии смены.

Решение:

procedure ProcessOperation1001784(Parameter: integer);

begin

RK7.PerformRefObject( RK7.FindItemByCode(rkrefMaketSchemeDetails, 184) ); // код представления документа в схемах печати

RK7.PerformOperation(rkoMMCloseCommonShift, 0); // закрытие общей смены

end;

DELPHI

Запрет на отмену пречека в одном заказе более, чем Х раз

Задача: Необходимо запретить отмену пречека в одном заказе более чем Х раз (указывать в параметре)

-1 (по умолчанию) — разрешено отменять бесчисленно

0 — запрещено вообще отменять пречек

1...999 — столько раз можно отменить пречек в заказе/визите

Order >> print pre-check >> cancel pre-check >> print pre-check again >> can not cancel pre-check (system warning and must not allow).

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

Решение:

Создать расширенное свойство MaxDelBillCnt типа integer и назначить ресторану.
В свойствах ресторана задать значение этому свойству.
Создать скрипт:

procedure ProcessOperation1002346(Parameter: integer);

var i, CntDelBill, MaxDelBillCnt: integer;

it: TCheckItem;

begin

CntDelBill := 0;

MaxDelBillCnt := -1;

// if ( TRK7Restaurant(RK7.CashGroup.MainParent).genMaxDelBillCnt=1) then

MaxDelBillCnt := TRK7Restaurant(RK7.CashGroup.MainParent).genMaxDelBillCnt;


if MaxDelBillCnt = -1 then

RK7.PerformOperation(RkoUnlockBill,0);


if MaxDelBillCnt = 0 then

begin

gui.showmessage('Cancel bill forbidden!');

Exit;

end;


if MaxDelBillCnt > 0 then

begin

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

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

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

if tPrintCheckItem(it).IsBill then

if tPrintCheckItem(it).Deleted then

CntDelBill := CntDelBill + 1;

end;

if CntDelBill >= MaxDelBillCnt then

begin

if RK7.PerformOperation(rkoUser15, 0)=1 then

RK7.PerformOperation(RkoUnlockBill,0)

else

gui.showmessage('Cancel bill forbidden!');

end

else

RK7.PerformOperation(RkoUnlockBill,0);

end;

dbg.dbgprint('CntDelBill = ' + IntToStr(CntDelBill));

dbg.dbgprint('MaxDelBillCnt = ' + IntToStr(MaxDelBillCnt));

end;

DELPHI

Пользовательской операции 15 назначить пустой скрипт:

procedure ProcessOperation1001624(Parameter: integer);

begin


end;

DELPHI

Этой операции включить контроль доступа. Дать право на неё «суперпользователю».

Использование разных типов цен

Задача: необходимо, чтобы при продаже блюд через кассу обычному клиенту (не авторизованному на кассе с помощью карты), цена была «Тип Цен №1», а при продаже блюд клиенту ресторана (авторизованному картой на кассе) — цена была «Тип Цен №2»
Решение:

procedure ProcessOperation1001986(Parameter: integer);

var Props: TVisitOrderInfo;

begin

Props := TVisitOrderInfo.Create();

try

Props.OrderCategoryID := 10033; // указать идентификатор категории заказа

RKCheck.UpdateOrderProps(Props);

finally

Props.Free;

end;

end;

DELPHI

для версии R_Keeper 7.5.4.х включить параметр «Изменить категорию заказа после создания»

Изменение основного официанта

Задача: создать скрипт для изменения основного официанта.

Решение:

procedure ProcessOperation1000813(Parameter: integer);

var Props: TVisitOrderInfo;

begin

Props := TVisitOrderInfo.Create;

try

Props.MainWaiterID := RK7.FindItemByCode(rkrefEmployees, 21).Ident;

RKCheck.UpdateOrderProps(Props);

finally 

Props.Free;

end;

end;

DELPHI

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

Задача: Необходим скрипт, который для блюд определенной категории задает порядок подачи №1, а для всех остальных — порядок подачи №2.

Решение:

procedure ProcessOperation1002417(Parameter: integer);

var CategCode, course1, course2: integer;

Categ: TClassificatorGroup;

it: TCheckItem; 

begin 

if not RKCheck.Valid then

exit //important checking

else

begin

CategCodeList := TStringList.Create;

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

CategCode := 27; // код Категории 1

course1 := 1002378; // идентификатор порядка подачи 1

course2 := 1002379; // идентификатор порядка подачи 2

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

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


while True do begin

it := RKCheck.CurrentCheckItem;

if TObject(it) = Nil then break;

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

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

if (Categ.IsChild(TDish(it).RefItem)) then // checking category of dish

// if TRK7MenuItem(RK7.FindItemBySifr(rkrefMenuItems, TDish(it).Sifr)).genAstor_code = '1' then // check ext property

RK7.PerformOperation(rkoMoveCurrentDishToSes, course1); // ident of course

else

RK7.PerformOperation(rkoMoveCurrentDishToSes, course2); // ident of course;

RK7.PerformOperation(rkoDown, 0);

end; 


end;

end;

DELPHI

Изменение суммовой скидки

Задача: Скидка привязана к карте и работает для заказов с доставкой. Необходимо, чтобы каждый десятый заказ получал скидку 500 рублей, при условии если средний чек по этим 10 заказам был не меньше 500 р.

Решение:

procedure ProcessOperation1001902(Parameter: integer);

var ed: TObject;

it: TCheckItem;

begin

RK7.PerformOperation(rkoHome, 0);

while True do begin

it := RKCheck.CurrentCheckItem;

if TObject(it) = Nil then break;

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

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

if TDiscountItem(it).Code = 14 then // указать код скидки

if (it.State = disOpened) then // проверка несохранённого статуса скидки

begin

ed := TObject(gui.FindComponentByName('Editor'));

if SYS.ObjectInheritsFrom(TObject(ed), 'TNumEditor') then

begin

TNumEditor(ed).Text := IntToStr(trunc(100));

RK7.PerformOperation(rkoEditOpenPrice, 0);

end;

TNumEditor(ed).Text := '';

end;

RK7.PerformOperation(rkoDown, 0);

end;

end;

DELPHI

Изменение размера комбо или блюда по нажатию кнопки

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

Решение:

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

procedure ProcessOperation1002094(Parameter: integer);

var NextCateg,Categ1,Categ2, Classif1,Classif2: TClassificatorGroup;

it, CurItem: TCheckItem;

cv: TObject;

mi_d,mi_s: trk7menuitem;

ex,i,j,MinSize,MaxSize,ClassifCode1,ClassifCode2,CurSize,NextSize,NextCategCode: integer;

begin

if not RKCheck.Valid then

exit //important checking

else

begin

MinSize := 1;

MaxSize := 3;

CurItem := RKCheck.CurrentCheckItem;

ClassifCode1 := 16; // code classificator of dish type

ClassifCode2 := 9; // code classificator of dish size


if SYS.ObjectInheritsFrom(TObject(CurItem), 'TDish') then // if current item is dish

if not TDish(CurItem).IsComboComp then // comment this line if need allow change size for combo-components

begin

// dbg.dbgprint('dish type');

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

// dbg.dbgprint(inttoStr(Classif1.ChildCount));

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

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

if Categ1.IsChild(CurItem.RefItem) then begin

// dbg.dbgprint('Classif1.code='+IntToStr(Classif1.code)+' Categ1.code='+IntToStr(Categ1.code));

break; 

end;

end;


// dbg.dbgprint('dish size');

Classif2 := TClassificatorGroup(getitemBycodeNum('ClassificatorGroups', ClassifCode2));

// dbg.dbgprint(inttoStr(Classif2.ChildCount));

for i := 0 to Classif2.ChildCount - 1 do begin

Categ2 := TClassificatorGroup(Classif2.ChildItem(i));

if Categ2.IsChild(CurItem.RefItem) then begin

CurSize := Categ2.SortOrder;

// dbg.dbgprint('Classif2.code='+IntToStr(Classif2.code)+' Categ2.code='+IntToStr(Categ2.code)+' SortOrder='+IntToStr(Categ2.SortOrder));

break; 

end;

end;


NextSize := CurSize + 1;

if NextSize > MaxSize then

begin

//************for recursy change size **************/

// NextSize := MinSize; // uncomment this recursion to resize

//************for recursy change size **************/

gui.showmessage('reached a maximum size dishes!'); // comment out this recursion to resize

exit; // comment out this recursion to resize

end;


// dbg.dbgprint('serch dish size');

Classif2 := TClassificatorGroup(getitemBycodeNum('ClassificatorGroups', ClassifCode2));

// dbg.dbgprint(inttoStr(Classif2.ChildCount));

for i := 0 to Classif2.ChildCount - 1 do begin

Categ2 := TClassificatorGroup(Classif2.ChildItem(i));

if Categ2.SortOrder=NextSize then begin

NextCategCode := Categ2.Code;

NextCateg := TClassificatorGroup(getitemBycodeNum('ClassificatorGroups', NextCategCode));

// dbg.dbgprint('Classif2.code='+IntToStr(Classif2.code)+' Categ2.code='+IntToStr(Categ2.code)+' SortOrder='+IntToStr(Categ2.SortOrder));

break; 

end;

end; 


// dbg.dbgprint('serch dish type size');

ex := 0;

for i := 0 to Categ1.ChildCount - 1 do begin

mi_d := trk7menuitem(Categ1.ChildItem(i));

// dbg.dbgprint(inttostr(mi_d.code)+' '+mi_d.RightLangName+' '+inttostr(mi_d.extcode)+' '+inttostr(Categ1.SortOrder)+' '+(mi_d.name)+' ');

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

mi_s := trk7menuitem(NextCateg.ChildItem(j));

if mi_d.code = mi_s.code then

begin

RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(mi_s.code), FloatToStr(TDish(CurItem).Quantity)); 

if CurItem <> Nil then

begin

cv := TObject(gui.FindComponentByName('CheckView'));

if SYS.ObjectInheritsFrom(TObject(cv), 'TCheckView') then

TCheckView(cv).GotoItem(CurItem);

end;

// dbg.dbgprint('BINGO '+inttostr(mi_s.ident)+inttostr(mi_s.code)+' '+mi_s.RightLangName+' '+inttostr(mi_s.extcode)+' '+inttostr(NextCateg.SortOrder)+' '+(mi_s.name)+' ');

ex := 1;

break;

end;

end; 

if ex > 0 then break;

end;


end;

end;

end;

DELPHI

Скрипт для уменьшения размера

procedure ProcessOperation1002112(Parameter: integer);

var NextCateg,Categ1,Categ2, Classif1,Classif2: TClassificatorGroup;

it, CurItem: TCheckItem;

cv: TObject;

mi_d,mi_s: trk7menuitem;

ex,i,j,MinSize,MaxSize,ClassifCode1,ClassifCode2,CurSize,PrevSize,NextCategCode: integer;

begin

if not RKCheck.Valid then

exit //important checking

else

begin

MinSize := 1;

MaxSize := 3;

CurItem := RKCheck.CurrentCheckItem;

ClassifCode1 := 16; // code classificator of dish type

ClassifCode2 := 9; // code classificator of dish size


if SYS.ObjectInheritsFrom(TObject(CurItem), 'TDish') then // if current item is dish

if not TDish(CurItem).IsComboComp then // comment this line if need allow change size for combo-components

begin

// dbg.dbgprint('dish type');

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

// dbg.dbgprint(inttoStr(Classif1.ChildCount));

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

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

if Categ1.IsChild(CurItem.RefItem) then begin

// dbg.dbgprint('Classif1.code='+IntToStr(Classif1.code)+' Categ1.code='+IntToStr(Categ1.code));

break; 

end;

end;


// dbg.dbgprint('dish size');

Classif2 := TClassificatorGroup(getitemBycodeNum('ClassificatorGroups', ClassifCode2));

// dbg.dbgprint(inttoStr(Classif2.ChildCount));

for i := 0 to Classif2.ChildCount - 1 do begin

Categ2 := TClassificatorGroup(Classif2.ChildItem(i));

if Categ2.IsChild(CurItem.RefItem) then begin

CurSize := Categ2.SortOrder;

// dbg.dbgprint('Classif2.code='+IntToStr(Classif2.code)+' Categ2.code='+IntToStr(Categ2.code)+' SortOrder='+IntToStr(Categ2.SortOrder));

break; 

end;

end;


PrevSize := CurSize - 1;

if PrevSize < MinSize then

begin

//************for recursy change size **************/

// PrevSize := MaxSize; // uncomment this recursion to resize

//************for recursy change size **************/

gui.showmessage('reached a minimum size dishes!'); // comment out this recursion to resize

exit; // comment out this recursion to resize

end;


// dbg.dbgprint('serch dish size');

Classif2 := TClassificatorGroup(getitemBycodeNum('ClassificatorGroups', ClassifCode2));

// dbg.dbgprint(inttoStr(Classif2.ChildCount));

for i := 0 to Classif2.ChildCount - 1 do begin

Categ2 := TClassificatorGroup(Classif2.ChildItem(i));

if Categ2.SortOrder=PrevSize then begin

NextCategCode := Categ2.Code;

NextCateg := TClassificatorGroup(getitemBycodeNum('ClassificatorGroups', NextCategCode));

// dbg.dbgprint('Classif2.code='+IntToStr(Classif2.code)+' Categ2.code='+IntToStr(Categ2.code)+' SortOrder='+IntToStr(Categ2.SortOrder));

break; 

end;

end; 


// dbg.dbgprint('serch dish type size');

ex := 0;

for i := 0 to Categ1.ChildCount - 1 do begin

mi_d := trk7menuitem(Categ1.ChildItem(i));

// dbg.dbgprint(inttostr(mi_d.code)+' '+mi_d.RightLangName+' '+inttostr(mi_d.extcode)+' '+inttostr(Categ1.SortOrder)+' '+(mi_d.name)+' ');

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

mi_s := trk7menuitem(NextCateg.ChildItem(j));

if mi_d.code = mi_s.code then

begin

RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(mi_s.code), FloatToStr(TDish(CurItem).Quantity)); 

if CurItem <> Nil then

begin

cv := TObject(gui.FindComponentByName('CheckView'));

if SYS.ObjectInheritsFrom(TObject(cv), 'TCheckView') then

TCheckView(cv).GotoItem(CurItem);

end;

// dbg.dbgprint('BINGO '+inttostr(mi_s.ident)+inttostr(mi_s.code)+' '+mi_s.RightLangName+' '+inttostr(mi_s.extcode)+' '+inttostr(NextCateg.SortOrder)+' '+(mi_s.name)+' ');

ex := 1;

break;

end;

end; 

if ex > 0 then break;

end;


end;

end;

end;

DELPHI