Error de variable en bucle for

[jafera]

Buenas a todos.

Estoy tratando de usar un bucle for para añadir automaticamente n registros a una tabla, pueden ir de uno a 150 aproximadamente y claro al hacerlo a mano siempre tenemos la posibilidad de olvidarnos de uno, de repetir otro, etc.
Para esto he intentado armar el siguiente bucle:


procedure TF_Real.ToolButton9Click(Sender: TObject);
var Temp,Codi,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;
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;
i:=i+1;
end;
end;
finally
F_ConfirmacioCreaCodis.Free;
end;
Showmessage('Procés finalitzat');
end;


Al compilar me da esto: [Error] Real.pas(776): For loop control variable must be simple local variable

He colocado la variable donde está, en la declaracion public, en var del formulario y nada, siempre el mismo error.

Alguien me puede echar un cable? y de pasada me podeis decir si el código es correcto o necesitaria alguna modificacion.

El identificador único ID ya se lo paso en el evento onnewrecord de la tabla al igual que otro campo que es fijo ID_SERIE.

Gracias por adelantado

Josep

[aposi]

Prueba de poner



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í:


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.


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:

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:

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:

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:

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

[ecfisa]

Hola Josep.

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

Los valores que toma el código (001, 115, 201, 359,..., 999) están determinados por la variable de control del ciclo for. Por lo tanto si queres que los códigos vayan desde el 201 al 317 (por ejemplo), basta con que asignes esos valores como inicio y fin del ciclo:

for i := 201 to 317 do
...


Saludos :)

[jafera]

De nuevo gracias.

Me has dado una idea que no se si la puedo implementar correctamente.

Como se que la subserie empieza por un dígito concreto, puedo crear un campo que sea por ejemplo 500 y sumarle tantos valores como unidades tenga.

Pero y si el dígito inicial es 0?

Lo tendré que tratar como una cadena?

Cada vez el lio es mayor

Quiero automatizarlo al máximo, ya que si quien hace la operación no soy yo y empieza el sistema a pedir valores iniciales etc, se puede liar gorda.

Saludos

Josep

[ecfisa]

Hola Josep.

Como se que la subserie empieza por un dígito concreto, puedo crear un campo que sea por ejemplo 500 y sumarle tantos valores como unidades tenga.
No entiendo la lógica que deseas aplicar, pero a ver... Siempre que sean dígitos y no superen la cantidad de dos, el código:
StringOfChar('0', 3 - Length(IntToStr(i))) + IntToStr(i))
completa con ceros delante hasta lograr las tres cifras, vg.:

1 = 001
...
99 = 099
541 = 541 (aquí no agrega cero delante)

Pero y si el dígito inicial es 0?
Lo tendré que tratar como una cadena?

No, en absoluto si el dígito es cero, el código queda "000". Pero no entiendo en base a qué o de donde estas tomando los valores de inicio y fin que conforman el código (no los tres dígitos obtenidos a partir de la serie).

Es decir, yo te entendí que el nuevo código está formado por tres partes que son:

Los tres primeros dígitos de la serie.
Un punto.
Un valor incremental consecutivo que debe completarse con ceros delante hasta la cantidad de tres cífras.

¿ Es correcto ?

Saludos :)

[jafera]

Gracias de nuevo.

Te explico:

Es decir, yo te entendí que el nuevo código está formado por tres partes que son:

Los tres primeros dígitos de la serie. CORRECTO
Un punto. CORRECTO
Un valor incremental consecutivo que debe completarse con ceros delante hasta la cantidad de tres cífras. CORRECTO a MEDIAS,Si el código de la subserie empieza por 0 es correcto pero si empieza por 2, 3, 4, 5, 6, 7, 8 o 9 entonces no es correcto se debe empezar a contar por la centena más el incremento controlando que sean siempre tres dígitos 201,221, etc.

Lo que puedo encontrar es que alguna subserie supere la centena con lo que se empieza en la centena siguiente como expliqué en un post anterior, empiezo en la 201 y acabo en la 331, en realidad la subserie 300 no existe es continuacion de la 200

No se si me he explicado bien.

Con el código que solté en el otro post me genera bien los códigos.

Saludos

Josep

[ecfisa]

Hola Josep.

A ver si entendí...

procedure TF_Real.SaveSerie(const Serie, CodDesde, Cantidad: string);
var
i, desde, hasta : Integer;
begin
if not TryStrToInt(CodDesde[1], desde) then
raise Exception.Create('El código no es número válido');
if not TryStrToInt(Cantidad, hasta) then
raise Exception.Create('La cantidad no es número válido');
desde := desde * 100;
hasta := desde + hasta;
with F_ModulDades do
begin
for i := desde to hasta do
begin
Numeros_Serie_Real.Open;
Numeros_Serie_Real.Append;
Numeros_Serie_RealNUM_SERIE.Value := Copy(Serie, 1, 3) +
'.' + StringOfChar('0', 3 - Length(IntToStr(i))) + IntToStr(i));
Numeros_Serie_Real.Post;
Numeros_Serie_Real.Next;
end
end
end;


Ejemplo de uso:

procedure TF_Real.ToolButton9Click(Sender: TObject);
begin
SaveSerie('56780123', '305', '120');
end;

En el ejemplo, generaría este resultado:

567.300
567.301
....
567.419
567.420

Se puede jugar un poco con los parámetros, como por ejemplo usar enteros en lugar de cadena, pero desconozco en que formato están guardados los datos en la tabla...

Saludos :)