Autonumericos

[crc2005]

Empezado por maeyanes

Bueno, teniendo el valor del campo del registro anterior, puedes hacer algo como esto:


Código Delphi [-]
var
ValorNuevo: string;
ParteNumerica: Integer;

begin
ParteNumerica := StrToInt(Copy(ValorAnterior, 2, 4));
Inc(ParteNumerica);
ValorNuevo := Format('A%.4d', [ParteNumerica]) // Esto te devolvería algo como A0003
end;






Saludos...

Pero tengo una duda como podria saber cual es el valor anterior
Gracias
Saludos
Carlos