Page History

procedure DesignFormOnOperation(Sender: TBasePanel; Operation, Param: integer; var res: integer);

begin

  dbg.dbgprint('Operation '+IntToStr(Operation));

  if Operation = 459 then   // payment operation code

    AddEveryOtherDiscount(11);   // вызов процедуры расчёта скидки с указанием кода открытой суммовой скидки на блюдо calling the procedure for calculating the discount with the indicated code of the open fixed amount discount for the dish

end;