AUTO INCREMENTO

Question

ESTOU COM A SEGUINTE DUVIDA.COMO FA�O PARA DEPOIS QUE DIGITAR O ZERO E DEPOIS ENTER GERAR UM INCREMENTO DESSE CODIGO.GRATOANDR�...

.lg. · Answer

Todo banco de dados tem um tipo auto-incremento ( pelo menos os que eu uso tem ). Mas a desvantagem � que se voc� deleta um numero...
Ta l� a sequencia...:

1 2 3 4 5 6 . . .

E voc� vai e deleta um registro... O 3th registro, fica assim:

1 2 4 5 6 . . .

O auto incremento n�o entende esse numero que esta faltando. Ele vai no �ltimo e acrescenta +1.

Eu fiz uma fun��o que lhe permite procurar falhas no c�digo ( como mostrei acima ).

Pra isso voc� precisa de um DataSet query pra trazer somente o c�digo.

function GetNextCode: Integer;
var
  num1: Integer;
  num2: Integer;
begin
  num1 := 0;
  num2 := 0;

  with adqCodigo do begin
    adqCodigo.Close;
    Open;

    if not (IsEmpty) then begin
      First;
      num1 := adqCodigoCDTABELA.AsInteger;
      while not Eof do begin
        Next;
        if ((adqCodigoCDTABELA.AsInteger - num1) = 1) then begin
          num1 := adqCodigoCDTABELA.AsInteger;
        end else begin
          num2 := (num1 + 1);
          break;
        end;
      end;

      if (num2 = 0) then begin
        Last;
        num2 := adqCodigoCDTABELA.AsInteger;
      end;
      adqCodigoCDTABELA.Close;
    end else Result := 1;
  end;

  Result := num2;
end;

Talvez possa ter vari�veis atoa, mas o resultado � o esperado. D� uma estudana nele, se ainda lhe vier d�vidas, posta ae que damos um help.

Att,
.lg.

Andsantos · Answer

Obrigado pela dica.Me ajudou!!...

F�rum AUTO INCREMENTO #370555