Error de variable en bucle for

[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