procedure TForm_ServiceWizard.act_AddFrmExecute(Sender: TObject);
var
  i: integer;
begin
  if (asgFormuls.Focused) or (PageControl1.ActivePage = AdvTabSheet_2_Formuls) then
  begin
    if asgFormuls.Cells[2, asgFormuls.rowcount - 1] <> '' then
    begin
      asgFormuls.AddRow;
      asgFormuls.Cells[2, asgFormuls.rowcount - 1] := '01.' + AddChar('0',
        gOperDateMonth, 2) + '.' + gOperDateYear;
      asgFormuls.Cells[3, asgFormuls.rowcount - 1] := '';
      asgFormuls.SelectRows(asgFormuls.RowCount - 1, 1);
      asgFormuls.Col := 2;
      asgFormulsEditingDone(asgFormuls);
      for i := 1 to asgFormuls.RowCount - 1 do
      begin
        //if (asgFormuls.Cells[3,i]=gMaxDate) then
        if TFormulServ(asgFormuls.objects[0, i]).dat_po = gMaxDate then
        begin
          asgFormuls.Cells[3, i] := DateToStr(strToDate(asgFormuls.Cells[2,
            asgFormuls.rowcount - 1]) - 1);
          asgFormuls.SelectRows(i, 1);
          asgFormuls.Col := 3;
          //TFormulServ(asgFormuls.Objects[0,i]).dat_po:=asgFormuls.Cells[3,i];
          asgFormulsEditingDone(asgFormuls);   
        end;
      end;
      asgFormuls.SelectRows(asgFormuls.RowCount - 1, 1);
    end;

  end;
end;

asgFormuls.Cells[3, asgFormuls.rowcount - 1] := '';

asgFormuls.Col := 2;