Fórum Problema com função de autonumeração? #351728

function TFDear.NextDoc(Num, Calendar: string): string;
var
 S, D: integer;
 Ano, Mes, Dia: string;
begin
 Ano := ´/´ + IntToStr(YearOf(Date));
 if MonthOf(Date) < 10 then
    Mes := ´/0´ + IntToStr(MonthOf(Date))
 else
    Mes := ´/´ + IntToStr(MonthOf(Date));
 if DayOf(Date) < 10 then
    Dia := ´/0´ + IntToStr(DayOf(Date))
 else
    Dia := ´/´ + IntToStr(DayOf(Date));
 if Calendar = ´Ano´ then Calendar := Ano;
 if Calendar = ´Mes´ then Calendar := Mes;
 if Calendar = ´Dia´ then Calendar := Dia;
 if (Num <> ´´) and (Calendar = Copy(Num, Pos(´/´, Num), Length(Calendar))) then begin
     D := (Pos(´/´, Num) - 1);
     S := StrToInt(Copy(Num, 1, D)) + 1;
     FmtStr(Num, ´¬.´ + IntToStr(D) + ´d´, [S]);
     Result := Num + Calendar;
 end else
   Result := ´0001´ + Calendar;
end;

With DM.cdsDear do
  begin
    if State in [dsInactive] then
       Open;
       if CanModify then
       begin
         dm.zqdearcontrole.close;
         dm.zqdearcontrole.sql.clear;
         dm.zqdearcontrole.sql.text:=´select Max(gerarchave)as Controle From declara´;
         dm.zqdearcontrole.open;
         NextDoc(dm.zqdearcontrole.FieldByName(´controle´).AsString, ´Ano´);
         Append;
         Lb_AutoInc.Caption := NextDoc(dm.zqdearcontrole.FieldByName(´controle´).AsString, ´Ano´);
         DBEdit1.SetFocus;
       end else
         Application.MessageBox(´Não foi possível incluir o registro´,
                                ´Erro´, MB_ICONINFORMATION+MB_Ok);
      end;