Error de variable en bucle for

[aposi]

Prueba de poner

Código Delphi [-]
 
for i := 1 to Total do

[jafera]

Gracias, tiene toda la razón había olvidado los dos puntos, el código modificado queda así:

Código Delphi [-]
 
procedure TF_Real.ToolButton9Click(Sender: TObject);
var Temp,Codi,Serie,a: String;
    i, Total: Integer;
begin
        F_ConfirmacioCreaCodis:=TF_ConfirmacioCreaCodis.Create(Self);
        try
                If F_ConfirmacioCreaCodis.ShowModal = mrok then
                begin
                        Total:=F_ModulDades.Tren_RealUNITATS_CONSTRUIDES.Value;
                        Serie:=F_ModulDades.Tren_RealID_SERIE.Value;
                        for i := 1 to Total do
                        begin
                                a:=IntToStr(i);
                                Temp:='000';
                                Delete(Temp,1,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;
        finally
                F_ConfirmacioCreaCodis.Free;
        end;
        Showmessage('Procés finalitzat');
end;

Saludos

Josep

[jafera]

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

[ecfisa]

Hola Josep.

Por lo que pude inferir deseas componer un código compuesto por: Los primeros tres dígitos del número de serie, mas un punto, mas un código consecutivo de tres dígitos.

Te pongo un ejemplo que realiza esa tarea para que lo adaptes a tu código:

Código Delphi [-]
procedure DoCodes(const Serie: string; const Total: Integer; TS: TStrings);
var
  i: Integer;
begin
  for i:= 1 to Total do
    TS.Add(Copy(Serie,1, 3) + '.' + StringOfChar('0', 3- Length(IntToStr(i))) +IntToStr(i));
end;

// Ejemplo de uso:
procedure TForm1.Button1Click(Sender: TObject);
begin
  DoCodes('269012890023', 500, ListBox1.Items);
end;

Para probar el ejemplo sólo agrega un TListBox y un TButton en un TForm.

Saludos

[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

[ecfisa]

Hola Josep.

Entiendo que el valor máximo del for (Total) se encuentra en Tren_RealUNITATS_CONSTRUIDES.Value y el código de serie en Tren_RealID_SERIE.Value.

Aplicando a tu código lo que te sugerí en el mensaje #5, debería quedar algo parecido a:

Código Delphi [-]
procedure TF_Real.ToolButton9Click(Sender: TObject);
var
  i: Integer;
begin
  with F_ModulDades do
  begin
    for i := 0 to Tren_RealUNITATS_CONSTRUIDES.Value do
    begin
       Numeros_Serie_Real.Open;
       Numeros_Serie_Real.Append;
       Numeros_Serie_RealNUM_SERIE.Value := Copy(Tren_RealID_SERIE.Value,1,3) +
        '.' + StringOfChar('0', 3- Length(IntToStr(i))) + IntToStr(i));
       Numeros_Serie_Real.Post;
       Numeros_Serie_Real.Next;
    end
  end
end;

(Tomá en cuenta que lo hice en el aire y puede tener algún error)

Saludos

[jafera]

Gracias de nuevo.

No acabo de hacerlo funcionar, aunque creo que no se acaba de ajustar a las distintas posibilidades que tengo.

Como lo hago si debo empezar a contar en el 201 en vez del 001?

No se, me voy a comer y luego continúo.

Saludos

Josep