Error de variable en bucle for

[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.

Empezado por jafera

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:

Código Delphi [-]
  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:

Código SQL [-]
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í...

Código Delphi [-]
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:

Código Delphi [-]
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