Buenas de nuevo.
Sigo dando palos al agua con el bucle contador, acumulador, generador o como quiera llamarse.
Este es el código que funciona "a medias" si el length de (a) es 1, no hay problema, pero si el length es 2, el resultado obtenido no es el deseado.
Código Delphi
[-]
if Length(F_ModulDades.Tren_RealID_SERIE.Value) > 3 then
begin
d:=Copy(Serie,5,5);
Temp:=digit+'00';
Serie:=Copy(Serie,1,3);
for i:=1 to Total do
begin
a:=IntToStr
Delete(Temp,3,Length(a));
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;
Lo que obtengo:
269.501
269.502.
.
.
.
269.5010
269.5011
.
.
269.5022
Lo que necesito
269.501
269.502
.
.
.
269.510
269.511
.
.
.
269.522
Tambien me encuentro con series en que la primera unidad es la 201 pero hay 133, con lo que tambien deberia cambiar la centena, es decir 269.201,.... 269.299,.... 269.300,.....269.333
No se estoy un poco perdido. Seguro que hay algun metodo para poder realizar este contador pero....
Gracias por leerme
Saludos
Josep