ayuda con autogeneracion

[josi]

hola

tengo un form que con un adotable para registrar clientess pero nececito que el campo codigocliente se autogenere en este formato '0001' tengo este codigo:

var
id,id2:string;
begin
clientetable1.Last;
clientetable1.Insert;
id:='0001';
if clientetable1.FieldValues['codigo']=null then

clientetable1.FieldValues['codigo']:= id
else
begin
id2:=clientetable1.FieldValues['codigo']+1;
id:='000'+id2;

end;
end;

pero cuando inserto en todos los registro del campo codigo me le inserta el mismo valor '0001' lo que quiero es que me lo vaya generando osea '0001' que el siguiente sea '0002'

gracias........

[[poliburro]]

que motor de base de datos utilizas?

[[felipe88]]

Empezado por josi

Código Delphi [-]
var
id,id2:string;
begin
clientetable1.Last;
clientetable1.Insert;
 id:='0001'; // <--- Aqui
 if clientetable1.FieldValues['codigo']=null then

  clientetable1.FieldValues['codigo']:= id
 else
 begin
 id2:=clientetable1.FieldValues['codigo']+1;
 id:='000'+id2;

end;
end;

Esto lo haces cada que creas uno nuevo
Ademas, no deberia ser integer ?

[josi]

bueno estoy usando acces.

[[Caral]]

Hola
Primero, felipe88 tiene razon, tiene que ser integer.
segundo, si usas este formato 000, cuando llegue a 10 quedara asi 00010, 100 quedara asi 000100 y asi sucesivamente, por lo menos como lo estas haciendo.
Ahora, no se por que la necesidad de los ceros adelante, esto se podria hacer formateando el dato, sin que este en la tabla.
Yo lo haria asi:

Código Delphi [-]
var
 id, id2: integer;
begin
id:= 1;
id2:= id + 1;
clientetable1.Last;
 if clientetable1.FieldValues['codigo']= null then
    clientetable1.FieldValues['codigo']:= id
   else
 begin
    clientetable1.Insert;
    clientetable1.FieldValues['codigo']:= id2
    clientetable1.Post;

Bueno, empecemos por ahi, ya nos diras como te fue.
Saludos

[marcoszorrilla]

Yo utilizo algo parecido, pero que conste que el campo es de tipo Texto.

En una tabla guardo el último valor (como Integer), le sumo uno y luego.

Código Delphi [-]
MiTablaMiDat.Value:=FormatFloat('0000', Numero);

Tambien puedes lanzar un Sql:

Código SQL [-]
Select Max(CampoEntero) From MiTabla

Código Delphi [-]
MiTablaMiDat.Value:=FormatFloat('0000', Quer1.Fields[0].AsInteger);

Un Saludo.