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