[jafera]

Muchas gracias ecfisa.

El código genera 500 valores con el formato que yo quiero, esto es perfecto aunque no entiendo muy bien la linea:

Código Delphi [-]
 
DoCodes('269012890023', 500, ListBox1.Items);

No acabao de ver claro como implemento esto en mi código ya que aunque las series siempre constan de tres digitos, tengo varios escenarios:

Serie de 3 numeros sin subserie (ejemplo 309) y 20 ejemplares los codigos deben empezar por 309.001 y llegar al 309.020.
Serie de 3 numeros con subserie (ej. 269.2) y 131 ejemplares los códigos deben empezar por 269.201 y llegar al 269.331.
Serie de 3 numeros con subserie (ej. 269.5) y 22 ejemplares los códigos deben empezar por 269.501 y llegar al 269.522.

Como es estos datos son variables debo controlarlos antes de generar los registros de la tabla, yo se de antemano ya que estan en la tabla el valor de la serie y el numero de unidades.

Ahora he hecho una "chapuza" que funciona:

Código Delphi [-]
 
if Length(F_ModulDades.Tren_RealID_SERIE.Value) > 3 then
        begin
                d:=Copy(Serie,5,5);
                Serie:=Copy(Serie,1,3);
                for i:=1 to Total do
                begin
                        a:=IntToStr(i);
                        if Length(a) = 1 then
                        begin
                                Temp:=d+'0';
                        end;
                        if Length(a) = 2 then
                        begin
                                Temp:=d;
                        end;
                        if Length(a) = 3 then
                        begin
                                t:=StrToInt(d)+1;
                                Temp:=IntToStr(t);
                                a:=Copy(a,2,3);
                        end;
                        Codi:=Concat(Temp+a);
                        F_ModulDades.Numeros_Serie_Real.Open;
                        F_ModulDades.Numeros_Serie_Real.Append;
                        F_ModulDades.Numeros_Serie_RealNUM_SERIE.Value:=Serie+'.'+Codi;
                        F_ModulDades.Numeros_Serie_Real.Post;
                        Next;
                end;
        end;

aunque así me genera los registros pero creo que debe haber una solucion más fácil al problema.

Voy a dar alguna vuelta más a tu función a ver si le saco el entresijo.

Saludos

Josep