Error de variable en bucle for

[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