Акция на все красное Вино + "Винный сет" в подарок.

[ravakyan]

Добрый день.

Огромная просьба скинуть хоты-бы приблизительный скрипт по внедрению акции (добавления в заказ автоматической скидки):
В понедельник, на все красное Вино + "Винный сет" в подарок.
Задача стоит в том, чтобы сервис печать вина выходила в баре, а Винного сета в хол. цеху.

Заранее очень благодарю.

[SLion]

procedure CheckViewOnOrderVerify(Sender: TObject; AVerifyType: TVerifyType; oper: integer; var AContinue: boolean);
var
i, CategRedWineCode, WineSetCode: integer;
CategRedWine: TClassificatorGroup;
it: TCheckItem;
begin
CategRedWineCode:=10; // код категории красное вино
WineSetCode:=12; // код добавляемого к вину блюда.
if DayOfWeek(now)=2 then
if (AVerifyType=vtBeforeSave) then
begin
CategRedWine:= TClassificatorGroup(getitemBycodeNum('Classificato rGroups', CategRedWineCode));
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 it.State = disOpened then
if CategRedWine.IsChild(it.RefItem) then
begin
RKCheck.CreateCheckItem(rkrefMenuItems, IntToStr(WineSetCode), '1');
GUI.ShowMessage('Ololoshenbka');
end;
end;
end;
end;

[satan]

Комбо блюдами не проще?