Y que se supone que haces con esto
Código Delphi
[-]
Numero:= ModuloDatos.TblComprobantes.FieldValues['Numero'];
No seria mejor omitir esa linea y hacer esto?
Código Delphi
[-]
While Not ModuloDatos.TblSocios.EOF do begin
Codigo:= ModuloDatos.TblSocios.FieldValues['Codigo'];
Inc(Numero); ModuloDatos.TblComprobantes.Append;
ModuloDatos.TblComprobantes.FieldValues['Numero']:= Numero;
ModuloDatos.TblComprobantes.FieldValues['Cod_socio']:= Codigo;
ModuloDatos.TblComprobantes.FieldValues['Cod_periodo']:=Periodo;
ModuloDatos.TblComprobantes.FieldValues['Importe']:=6.00;
ModuloDatos.TblComprobantes.FieldValues['Fecha']:=Fecha;
ModuloDatos.TblComprobantes.Post;
Form17.ProgressBar1.StepIt; ModuloDatos.TblSocios.Next;
end;
Salud OS