Codigos de Clientes

Question

OlaGostaria de Saber como fazer para localizar um codigo vago e usar ele.Tenho uma tabela paradox de cadastro de Clientes com um campo CODIGO do tipo numerico.ExeCODIGO   DESC00001       maria00003   ...

Okama · Answer

Voc� pode fazer um loop na Tabela e verificar se o codigo atual � igual ao c�digo seguinte mais 1. Por�m eu n�o recomendo esse tipo de controle.

LOOP

Var Codigo: Integer;
Begin
While not Table1.EOF do begin 
     Codigo := Table1.FieldByName(�codigo�).AsInteger+1;
     Next;
     if Codigo <> Table1.FieldByName(�codigo�).AsInteger then 
         break;
end;   
Showmessage(�Pr�ximo C�digo => � +intToStr( Codigo ) );

Agora image a situa��o:

Voce cadastra um cliente com codigo 5 e lan�a duplicatas com valores altos pra ele. O Cliente d� o cano e voc� remove e ap�s 2 anos voc� cadastra um cliente excel�nte com esse mesmo c�digo e todo o hist�rico do caloteiro vai para esse cliente, j� pensou??

Use um campo autoincremento para esse controle, nunca volte a numera��o.

F�rum Codigos de Clientes #167331