Page History

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

var   ed: TObject;

begin

  if (Operation=rkoPrepaySelector) then

  begin

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

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

      if 0.0 >= StrToFloat(TNumEditor(ed).Text) then  

        gui.showmessage('НеAmount is указанаnot суммаspecified!!!');

    end;

end;

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

begin

  if Operation = 455 then  //   operation code verification - payment  {455 420}

    if RKCheck.CurrentOrder.UserTag1 <> 1 then  // verification if this dialog has been shown before

    begin

      if GUI.RKMessageDlg('Is the guest willing to donate?', 0, 3, 100000) = 6 then

      begin

        RK7.PerformRefObject(RK7.FindItemByCode(rkrefCategList, 22));  // {Menu group code}

        res := 1;

      end;

      RKCheck.CurrentOrder.UserTag1 := 1;  // labeltag to avoid dialog reopening

    end; 

end;

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;