...
| Code Block | ||
|---|---|---|
| ||
procedure userTimer1OnTimer(Sender: TObject); var CheckView: TCheckView; begin // Проверка на корректный чек Checking for a correct receipt CheckView := TCheckView(GUI.FindComponentByName('CheckView')); if CheckView = Nil then Exit; if not RKCheck.Valid then Exit; if (GUI.CheckFormInPayMode) then exit; if RKCheck.CurrentOrder.IsEmpty then exit; AddEveryOtherDiscount(10); // указать код суммовой открытой скидки на заказ end; |
...
specify the code of open amount discount for the order
end; |
Above this script, place the function for recalculating the previously created open amount discount for the order:
| Code Block | ||
|---|---|---|
| ||
procedure AddEveryOtherDiscount(DiscCode: integer);
var i, j: integer;
it, CurItem: TCheckItem;
a, BaseSum, discsum, DiscPerc: double;
d: TDish;
CheckView: TCheckView;
ed: TObject;
Time1: TDateTime;
begin
//************************** Set parameters **********************************//
DiscPerc := 10; // %
//************************** Set parameters **********************************//
discsum := 0;
BaseSum := 0;
CheckView := TCheckView(GUI.FindComponentByName('CheckView'));
if CheckView = Nil then Exit;
CurItem := RKCheck.CurrentCheckItem;
try
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 (RKCheck.CurrentOrder.StartService >= (TDish(it).Session.StartService)) then
// if ((it.State = disOpened) or (it.State = disPrinted)) then
begin
if (TDish(it).Quantity > 0) then
begin
BaseSum := BaseSum + TDish(it).PRListSum;
end;
end;
end;
begin
a:= BaseSum*DiscPerc/100;
// Delete discount, if a sum changed
for j := RKCheck.CurrentOrder.Sessions.LinesCount - 1 downto 0 do
begin
it := RKCheck.CurrentOrder.Sessions.Lines[j];
if SYS.ObjectInheritsFrom(TObject(it), 'TDiscountItem') then //Check dish lines only
if (it.Code = DiscCode) then
begin
if abs(TDiscountItem(it).SrcAmount) = a then a := 0
else
begin
if not(TDiscountItem(it).State = disOpened) then
begin
RKCheck.DeleteCheckItem(it); // Delete discount, if a sum changed
end
else
begin
if it <> Nil then CheckView.GotoItem(it);
ed := TObject(gui.FindComponentByName('Editor'));
TNumEditor(ed).Text := FloatToStr(a);
RK7.PerformOperation(rkoEditOpenPrice, 0); // change discount, if a sum changed
a := 0;
end;
end
break;
end;
end;
// Create discount to a dish
if a > 0 then
begin
RKCheck.CreateCheckItem(rkrefDiscounts, IntToStr(DiscCode), FloatToStr(a));
end;
end;
finally
if CurItem <> Nil then CheckView.GotoItem(CurItem);
end;
RKCheck.CurrentOrder.Recalc();
end; |
Скрипт для автоматического добавления модификаторов
На форме редактирования чека разместить таймер и в его событии OnTimer указать:
A script to add modifiers automatically
Place a timer on the receipt editing form and specify it in its OnTimer event:
| Code Block | ||
|---|---|---|
| ||
procedure userTimer1OnTimer(Sender: TObject); |
...
But above this procedure insert the following:
| Code Block | ||
|---|---|---|
| ||
procedure SliceStrToStrings(StrIn,marker:String; var StringsOut:TStringList); |
...
As a result, you should get the following listing:
| Code Block | ||
|---|---|---|
| ||
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 userTimer1OnTimer(Sender: TObject);
var i, j, k, z, p, linenum: integer;
it,it2,CurItem: TCheckItem;
CheckView: TCheckView;
SL,SLtmp: TStringList;
str: string;
ModifPresent: boolean;
begin
// Проверка на корректный чек
CheckView := TCheckView(GUI.FindComponentByName('CheckView'));
if CheckView = Nil then Exit;
if not RKCheck.Valid then Exit;
if (GUI.CheckFormInPayMode) then exit;
if SYS.ObjectInheritsFrom(RKCheck.CurrentCheckItem, 'TPrintCheckItem') then Exit;
CurItem := RKCheck.CurrentCheckItem;
SL := TStringList.Create;
SL.Clear;
SL.Sorted := false;
// serch and remember modificators
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).Modifiers.Count > 0 then
begin
str := inttostr(i)+'=';
for j := 0 to TDish(it).Modifiers.Count - 1 do // checking by modifier
begin
str := str+IntToStr(TDish(it).Modifiers.Items[j].Code)+';';
end;
SL.Add(str);
end;
end;
// adding modificators
for i := 0 to SL.Count - 1 do
begin
SLtmp := TStringList.Create;
SLtmp.Clear;
SLtmp.Sorted := false;
p := pos('=',SL.strings[i]);
linenum := StrToInt(copy(SL.strings[i],1,p-1));
SliceStrToStrings(copy(SL.strings[i],p+1,length(SL.strings[i])-p),';',SLtmp);
//dbg.dbgprint(' '+SL.strings[i]+' '+IntToStr(linenum)+ ' ' +copy(SL.strings[i],p+1,length(SL.strings[i])-p));
// cycle for dish
for j := 0 to RKCheck.CurrentOrder.Sessions.LinesCount - 1 do
if linenum <= j then
begin
it2 := RKCheck.CurrentOrder.Sessions.Lines[j];
if SYS.ObjectInheritsFrom(it2, 'TDish') then
begin
// cycle for remember modifiers
for k := 0 to SLtmp.Count - 1 do
begin
ModifPresent := False;
// cycle for dish modifiers
for z := 0 to TDish(it2).Modifiers.Count - 1 do // checking by modifier
begin
if TDish(it2).Modifiers.Items[z].Code = StrToInt(SLtmp.strings[k]) then
ModifPresent := True;
end;
if not(ModifPresent) then
begin
//dbg.dbgprint('add modif '+SLtmp.strings[k]+' to dish '+TDish(it2).Name);
CheckView.GotoItem(it2);
RKCheck.CreateCheckItem(rkrefModifiers, SLtmp.strings[k], '1'); // add modificator
end;
end;
end;
end;
SLtmp.Free();
end;
SL.Free();
if CurItem <> Nil then CheckView.GotoItem(CurItem);
end; |
...
The previous script, which does not add all the modifiers of the previous dish but only the last modifier within the range of codes from 46 to 53.
| Code Block | ||
|---|---|---|
| ||
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 userTimer1OnTimer(Sender: TObject);
var i, j, k, z, p, linenum1,linenum2, ModifCodeLimit1,ModifCodeLimit2: integer;
it,it2,CurItem: TCheckItem;
CheckView: TCheckView;
SL,SLtmp: TStringList;
str: string;
ModifPresent: boolean;
begin
ModifCodeLimit1 := 1; //46;
ModifCodeLimit2 := 53;
// Ïðîâåðêà íà êîððåêòíûé ÷åê
CheckView := TCheckView(GUI.FindComponentByName('CheckView'));
if CheckView = Nil then Exit;
if not RKCheck.Valid then Exit;
if (GUI.CheckFormInPayMode) then exit;
if SYS.ObjectInheritsFrom(RKCheck.CurrentCheckItem, 'TPrintCheckItem') then Exit;
CurItem := RKCheck.CurrentCheckItem;
SL := TStringList.Create;
SL.Clear;
SL.Sorted := false;
// serch and remember modificators
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).Modifiers.Count > 0 then
begin
str := inttostr(i)+'=';
for j := TDish(it).Modifiers.Count - 1 downto 0 do // checking by modifier
if (TDish(it).Modifiers.Items[j].Code >= ModifCodeLimit1)and(TDish(it).Modifiers.Items[j].Code <= ModifCodeLimit2) then // select range code
begin
str := str+IntToStr(TDish(it).Modifiers.Items[j].Code)+';';
SL.Add(str);
break;
end;
end;
end;
// adding modificators
for i := 0 to SL.Count - 1 do
begin
SLtmp := TStringList.Create;
SLtmp.Clear;
SLtmp.Sorted := false;
p := pos('=',SL.strings[i]);
linenum1 := StrToInt(copy(SL.strings[i],1,p-1));
if i+1 > SL.Count - 1 then
linenum2 := RKCheck.CurrentOrder.Sessions.LinesCount - 1
else
linenum2 := StrToInt(copy(SL.strings[i+1],1,p-1));
SliceStrToStrings(copy(SL.strings[i],p+1,length(SL.strings[i])-p),';',SLtmp);
// cycle for dish
for j := linenum1 to linenum2 do
// if linenum1 <= j then
begin
it2 := RKCheck.CurrentOrder.Sessions.Lines[j];
if SYS.ObjectInheritsFrom(it2, 'TDish') then
begin
// cycle for remember modifiers
for k := 0 to SLtmp.Count - 1 do
begin
ModifPresent := False;
// cycle for dish modifiers
for z := TDish(it2).Modifiers.Count - 1 downto 0 do // checking by modifier
begin
if (TDish(it2).Modifiers.Items[z].Code >= ModifCodeLimit1)and(TDish(it2).Modifiers.Items[z].Code <= ModifCodeLimit2) then
ModifPresent := True;
end;
if not(ModifPresent) then
begin
CheckView.GotoItem(it2);
RKCheck.CreateCheckItem(rkrefModifiers, SLtmp.strings[k], '1'); // add modificator
end;
end;
end;
end;
SLtmp.Free();
end;
SL.Free();
if CurItem <> Nil then CheckView.GotoItem(CurItem);
end; |
...
When adding one modifier of the specified range of codes, the script removes all other current dish modifiers from this range:
| Code Block | ||
|---|---|---|
| ||
procedure CheckViewOnBeforeCheckViewEdit(Sender: TObject; AEditType: TEditType; AObjectBef, AObjectAft: TObject; var AAllow: boolean; var AMessage: string);
var j,ModifCodeLimit1,ModifCodeLimit2: integer;
begin
ModifCodeLimit1 := 46;
ModifCodeLimit2 := 53;
if SYS.ObjectInheritsFrom(AObjectAft, 'TModiItem') then
if (TModiItem(AObjectAft).code >= ModifCodeLimit1)and(TModiItem(AObjectAft).code <= ModifCodeLimit2) then
begin
for j := TDish(RKCheck.CurrentCheckItem).Modifiers.Count - 1 downto 0 do // checking by modifier
if (TDish(RKCheck.CurrentCheckItem).Modifiers.Items[j].Code >= ModifCodeLimit1)and(TDish(RKCheck.CurrentCheckItem).Modifiers.Items[j].Code <= ModifCodeLimit2) then // select range code
RKCheck.DeleteCheckItem(TModiItem(TDish(RKCheck.CurrentCheckItem).Modifiers.Items[j]));
end;
end; |
Скрипт, добавляющий блюда при определенном типе заказа
...
A script to add dishes for a certain type of order
On the order editing form, add a timer and specify a script for it:
| Code Block | ||
|---|---|---|
| ||
procedure userTimer1OnTimer(Sender: TObject);
var i,CntDish1,OrderTypeCode,DishCode:integer;
it: TCheckItem;
begin
//************************** Set parameters **********************************//
DishCode := 220;
OrderTypeCode := 1; // |
...
order |
...
type |
...
code //************************** Set parameters **********************************// // |
...
Checking for |
...
a |
...
correct |
...
receipt if not RKCheck.Valid then Exit; if (GUI.CheckFormInPayMode) then exit; if SYS.ObjectInheritsFrom(RKCheck.CurrentCheckItem, 'TPrintCheckItem') then Exit; if (RKCheck.CurrentOrder.OrderTypeCode = OrderTypeCode) then // for different OrderTypeCode if RKCheck.CurrentOrder.UserTag1 = 0 then begin CntDish1 := 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 CntDish1 := CntDish1 + trunc(TDish(it).Quantity); end; if CntDish1<>0 then RKCheck.CurrentOrder.UserTag1 := 2; if CntDish1=0 then begin RKCheck.CurrentOrder.UserTag1 := 1; RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(DishCode), inttostr(1)); // add dish end; end; end; |
Скрипт, отслеживающий суммы чеков в денежных диапазонах
Необходимо при каждом превышении лимита выводить сообщение и не выводить его повторно пока не превышен следующий лимит.
Нижеприведенный скрипт отрабатывает корректно до момента печати чека. В этот момент начинают сыпаться несвоевременные сообщения.
A script to track receipt totals within money ranges
It is necessary to display a message every time the limit is exceeded and not to display it again until the next limit is exceeded.
The following script works correctly until the receipt is printed. At this moment, untimely messages begin to appear.
| Code Block | ||
|---|---|---|
| ||
procedure userTimerSumLimitOnTimer(Sender: TObject); var ToPaySum, SumInterval : double; tt : TTimer; begin //14-09-16 Show message and open selector when order reaches every 200 rubles //if (TRK7Restaurant(RK7.CashGroup.MainParent).Code = 6) if not RKCheck.Valid then Exit; if (GUI.CheckFormInPayMode) then exit; if SYS.ObjectInheritsFrom(RKCheck.CurrentCheckItem, 'TPrintCheckItem') then Exit; begin if (TRK7Restaurant(RK7.CashGroup.MainParent).Code <> 294) and (TRK7Restaurant(RK7.CashGroup.MainParent).Code <> 293) and (TRK7Restaurant(RK7.CashGroup.MainParent).Code <> 172) and (TRK7Restaurant(RK7.CashGroup.MainParent).Code <> 9053) and (TRK7Restaurant(RK7.CashGroup.MainParent).Code <> 240) and (TRK7Restaurant(RK7.CashGroup.MainParent).Code <> 190) and (TRK7Restaurant(RK7.CashGroup.MainParent).Code <> 116) and (TRK7Restaurant(RK7.CashGroup.MainParent).Code <> 113) and (TRK7Restaurant(RK7.CashGroup.MainParent).Code <> 9017) and (TRK7Restaurant(RK7.CashGroup.MainParent).Code <> 67) and (TRK7Restaurant(RK7.CashGroup.MainParent).Code <> 24) then begin SumInterval := 200; ToPaySum := RKCheck.CurrentOrder.ToPaySum; if RKCheck.CurrentOrder.UserTag1 = 0 then RKCheck.CurrentOrder.UserTag1 := trunc(SumInterval); if (ToPaySum >= RKCheck.CurrentOrder.UserTag1) and (RKCheck.CurrentOrder.UserTag1 >= SumInterval) then begin RKCheck.CurrentOrder.UserTag1 := trunc(ToPaySum / SumInterval)*SumInterval +SumInterval; gui.ShowMessage(' «Take a |
...
snack/dessert at a special price! (49 |
...
rub.)» '); RK7.PostOperation(rkoTableSelector, 147); end; if (ToPaySum <= (RKCheck.CurrentOrder.UserTag1)) and (RKCheck.CurrentOrder.UserTag1 >= SumInterval) then // ???? ????? ???? ?????????? ???? ?????? begin RKCheck.CurrentOrder.UserTag1 := trunc(ToPaySum / SumInterval)*SumInterval +SumInterval; end; end; end; //14-09-16 Show message and open selector when order reaches every 200 rubles end; |
Скрипт на добавление\удаление блюда при определенной сумме заказа
На форме редактирования заказа разместить объект «TTimer?», назвав его «userTimerSumLimit». В свойствах этого объекта задать интервал срабатывания (по умолчанию задано 1000. что соответствует 1 секунде). В событии OnTimer указать скрипт:
A script to add or remove dishes at a certain order amount
On the order editing form, place the "TTimer?" object, naming it "userTimerSumLimit". In the properties of this object, set the trigger interval (1000 is set by default, which corresponds to 1 second). In the OnTimer event, specify the script:
| Code Block | ||
|---|---|---|
| ||
procedure userTimerSumLimitOnTimer(Sender: TObject);
var ToPaySum, SumInterval : double;
tt : TTimer;
i, j: integer;
it: TCheckItem;
DiscCode, DishCode, CntDish1: integer;
begin
SumInterval := 700; // limit |
...
receipt total upon reaching which the dish is added automatically DishCode := 43; // special dish code |
...
automatically |
...
added |
...
dish |
...
code CntDish1 := 0; if not RKCheck.Valid then Exit; if (GUI.CheckFormInPayMode) then exit; if SYS.ObjectInheritsFrom(RKCheck.CurrentCheckItem, 'TPrintCheckItem') then Exit; begin ToPaySum := 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 if (TDish(it).Code = DishCode) then CntDish1 := CntDish1 + trunc(TDish(it).Quantity); end; if ToPaySum < SumInterval then // deleting |
...
a |
...
dish |
...
when |
...
the |
...
receipt |
...
total |
...
is less than specified |
...
if CntDish1 > 0 then begin for j := RKCheck.CurrentOrder.Sessions.LinesCount - 1 downto 0 do begin it := RKCheck.CurrentOrder.Sessions.Lines[j]; if SYS.ObjectInheritsFrom(it, 'TDish') then if (TDish(it).Code = DishCode) then RKCheck.DeleteCheckItem(it); end; end; if ToPaySum >= SumInterval then // check limit exceed adding a |
...
dish |
...
when |
...
the |
...
receipt |
...
total |
...
is more than specified |
...
if CntDish1 = 0 then RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(DishCode), '1'); end; end; |
В скрипте задать необходимые значения для SumInterval и DishCode.
...
Set the required values for SumInterval and DishCode in the script.
A script to add or remove dishes at a certain amount of the saved order
| Code Block | ||
|---|---|---|
| ||
procedure userTimerSumLimitOnTimer(Sender: TObject);
var ToPaySum, SumInterval : double;
tt : TTimer;
i, j: integer;
it,CurItem: TCheckItem;
DiscCode, DishCode, CntDish1: integer;
CheckView:TCheckView;
begin
SumInterval := 700; // limit |
...
receipt total upon reaching which the dish is added automatically DishCode := 43; // special dish code |
...
automatically |
...
added |
...
dish |
...
code CntDish1 := 0; CheckView := TCheckView(GUI.FindComponentByName('CheckView')); if CheckView = Nil then Exit; if not RKCheck.Valid then Exit; if (GUI.CheckFormInPayMode) then exit; if SYS.ObjectInheritsFrom(RKCheck.CurrentCheckItem, 'TPrintCheckItem') then Exit; CurItem := RKCheck.CurrentCheckItem; begin ToPaySum := 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 if (TDish(it).Code = DishCode) then CntDish1 := CntDish1 + trunc(TDish(it).Quantity); end; if ToPaySum < SumInterval then // |
...
deleting a dish when the receipt total is less than specified if CntDish1 > 0 then begin for j := RKCheck.CurrentOrder.Sessions.LinesCount - 1 downto 0 do begin it := RKCheck.CurrentOrder.Sessions.Lines[j]; if SYS.ObjectInheritsFrom(it, 'TDish') then if (TDish(it).Code = DishCode) then begin CheckView.GotoItem(TObject(it)); if it.State = disOpened then begin RK7.PerformOperation(rkoDeleteLine, 1); // |
...
deletion continue; end else RKCheck.CreateCheckItem(rkrefOrderVoids, '1', FloatToStr(TDish(it).Quantity)); // |
...
write-off end; end; end; if ToPaySum >= SumInterval then // check limit exceed |
...
adding a dish when the receipt total is more than specified if CntDish1 = 0 then RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(DishCode), '1'); end; if CurItem <> Nil then CheckView.GotoItem(CurItem); end; |
Скрипт для акции «Блюдо в подарок при сумме заказа 1300 руб. со скидкой»
В период Пн-Пт с 10:00 до 18:00, при сумме заказа 1300 руб. (со скидкой), в заказ, вручную, добавляется одно конкретное блюдо. необходимо, чтобы это блюдо появлялосьв списке только в том случае, если сумма заказа больше или равна 1300 руб
На форме редактирования чека разместить таймер (TTimer) и в его событии указать скрипт:
A script for the «Gift dish for an order amount of 1300 rubles with a discount» special offer
During the period Mon-Fri from 10:00 till 18:00 one specified dish is added manually to the order with the amount 1300 rub (with a discount). This dish should appear the list only if the order amount is greater than or equal to 1300 rub.
Place a timer (TTimer) on the receipt editing form and specify a script in its event:
| Code Block | ||
|---|---|---|
| ||
procedure userTimer1OnTimer(Sender: TObject);
var ToPaySum : double;
i, DishCode1: integer;
qnt, qntMax: double;
LimitSum1: double;
it: TCheckItem;
CurrTime, Time1, Time2: TDateTime;
tt : TTimer;
begin
qnt := 0;
DishCode1 := 25; // |
...
controlled |
...
dish |
...
code qntMax := 1; // |
...
controlled dish |
...
max |
...
quantity |
...
for |
...
the |
...
order Time1 := EncodeTime(10,00,00,00); // |
...
special |
...
offer |
...
start Time2 := EncodeTime(18,00,00,00); // |
...
special |
...
offer |
...
end LimitSum1 := 1300; // |
...
the receipt total over which the bonus dish will be allowed to be added CurrTime := Time; |
...
//1 = |
...
Sunday //2 = |
...
Monday //3 = |
...
Tuesday //4 = |
...
Wednesday //5 = |
...
Thursday //6 = |
...
Friday //7 = |
...
Saturday |
...
if not RKCheck.Valid then Exit; if (GUI.CheckFormInPayMode) then exit; if SYS.ObjectInheritsFrom(RKCheck.CurrentCheckItem, 'TPrintCheckItem') then Exit; if (DayOfWeek(Now)>=2)and(DayOfWeek(Now)<=6) then // |
...
week |
...
day |
...
check if (Time1<=CurrTime) and(CurrTime<=Time2) then begin ToPaySum := 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 if TDish(it).code = DishCode1 then qnt := qnt + TDish(it).Quantity; end; if (ToPaySum <= LimitSum1)and(qnt>0) then 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), 'TDish') then if (TDish(it).Code = DishCode1) then begin if it.State = disOpened then begin RK7.PerformOperation(rkoDeleteLine, 1); // |
...
deletion continue; end else RKCheck.CreateCheckItem(rkrefOrderVoids, '1', FloatToStr(TDish(it).Quantity)); // |
...
write-off end; RK7.PerformOperation(rkoDown, 0); end; end; end; end; |
...
|
A script for the OnBeforeCheckViewEdit event of the CheckView object located on the check editing form:
| Code Block | ||
|---|---|---|
| ||
procedure CheckViewOnBeforeCheckViewEdit(Sender: TObject; AEditType: TEditType; AObjectBef, AObjectAft: TObject; var AAllow: boolean; var AMessage: string); var i, DishCode1: integer; qnt, qntMax: double; checksum, LimitSim1: double; it: TCheckItem; CurrTime, Time1, Time2: TDateTime; begin qnt := 0; DishCode1 := 25; // |
...
controlled |
...
dish |
...
code qntMax := 1; // |
...
controlled dish |
...
max |
...
quantity |
...
for |
...
the |
...
order. Time1 := EncodeTime(10,00,00,00); / / |
...
|
...
special |
...
offer |
...
start Time2 := EncodeTime(18,00,00,00); / / |
...
|
...
special |
...
offer |
...
end LimitSim1: |
...
= 1300; / / |
...
the receipt total over which the bonus dish will be allowed to be added CurrTime := Time; checksum := 0; / /1 = |
...
Sunday / /2 = |
...
Monday / /3 = |
...
Tuesday / /4 = |
...
Wednesday / /5 = |
...
Thursday / /6 = |
...
Friday / /7 = |
...
Saturday |
...
if SYS.ObjectInheritsFrom(AObjectAft, 'TDish') then if TDish(AObjectAft).code = DishCode1 then if not(AEditType = etRemove) then begin AAllow := false; AMessage := 'Access denied'; if (DayOfWeek(Now)>=2)and(DayOfWeek(Now)<=6) then // |
...
week |
...
day |
...
check if (Time1<=CurrTime)and(CurrTime<=Time2) then begin // gui.showmessage(Timetostr(time1)+' '+Timetostr(currtime)+' '+Timetostr(time2)); AAllow := true; AMessage := ''; checksum := RKCheck.CurrentOrder.ToPaySum; qnt := TDish(AObjectAft).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; if (qnt > qntMax)or(LimitSim1>checksum) then // check limit exceed begin AAllow := false; AMessage := 'Quantity exceeded the permitted limit '; end; end; end; end; |
Скрипт для печати в пречеке процента изменяемой скидки!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!
Создали по желанию клиента "скидку равную возрасту", которая имеет изменяемое значение от 0 до 60%.
...