Ya encontre el error:
1)Dmodulo.En_Espera.Close; // Es codigo lo tenia en guardar y me borrava los datos.
2)Dmodulo.ibt.Commit; // lo tenia dentro del ciclo;
Codigo quedo asi:
Código Delphi
[-]var
I: Integer;
A,B:String;
Fecha:String;
TT,Cad,Cad1,Cad2:String;
Cuenta,Cuenta2,NumeroCuenta:String;
Cedula:String;
Monto:String;
Nombre:String;
C,D,E,F,G:String;
begin
TT:=memo1.Lines[1];
A:='HGOBERNACIÓN ESTADO CARABOBO 01020388170000019651';
Cad:=cad+StringOfChar(' ',2); Fecha:=DateToSTR (DateTimePicker1.Date);
Cad1:='00000';
Cad2:=cad2+StringOfChar(' ',8); B:='03291 ';
Memo1.Lines.Add(A+Cad+Fecha+Cad1+Cad2+B);
Dmodulo.ASISTENCIA_COBRAR.First;
while not Dmodulo.ASISTENCIA_COBRAR.Eof do
begin
if DMODULO.ASISTENCIA_COBRAR.FieldByName('NumeroCuenta').AsString>'' then
begin
Cuenta:= DMODULO.ASISTENCIA_COBRAR.FieldByName('Cuenta').AsString;
NumeroCuenta:= DMODULO.ASISTENCIA_COBRAR.FieldByName('NumeroCuenta').AsString;
C:='0000';
Monto:= DMODULO.ASISTENCIA_COBRAR.FieldByName('Monto').AsString;
Cuenta2:= DMODULO.ASISTENCIA_COBRAR.FieldByName('CuentaII').AsString;
Nombre:= DMODULO.ASISTENCIA_COBRAR.FieldByName('Nombre').AsString;
E:=StringOfChar(' ',26);
F:='00';
Cedula:= DMODULO.ASISTENCIA_COBRAR.FieldByName('Cedula').AsString;
G:='003291 ';
Memo1.Lines.Add(Cuenta+NumeroCuenta+C+Monto+C+Cuenta2+Nombre+E+F+Cedula+G);
end
else
begin
Dmodulo.En_Espera.SelectSQL.Text:=Dmodulo.En_Espera.InsertSQL.Text;
Dmodulo.En_Espera.ParamByName('CEDULA').AsString:=DMODULO.ASISTENCIA_COBRAR.FieldByName('Cedula').As String;
Dmodulo.En_Espera.ParamByName('TIPO_DOCUMENTO').AsString:=DMODULO.ASISTENCIA_COBRAR.FieldByName('TIP O_DOCUMENTO').AsString;
Dmodulo.En_Espera.ParamByName('NOMBRE').Value:=DMODULO.ASISTENCIA_COBRAR.FieldByName('Nombre').AsStr ing;
Dmodulo.En_Espera.ParamByName('APELLIDO').Value:=DMODULO.ASISTENCIA_COBRAR.FieldByName('APELLIDO').A sString;
Dmodulo.En_Espera.ParamByName('TLF_FIJO').Value:=DMODULO.ASISTENCIA_COBRAR.FieldByName('TLF_FIJO').A sString;
Dmodulo.En_Espera.ParamByName('TLF_CELULAR').Value:=DMODULO.ASISTENCIA_COBRAR.FieldByName('TLF_CELUL AR').AsString;
Dmodulo.En_Espera.ParamByName('CORREO').Value:=DMODULO.ASISTENCIA_COBRAR.FieldByName('CORREO').AsStr ing;
Dmodulo.En_Espera.ParamByName('MUNICIPIO').Value:=DMODULO.ASISTENCIA_COBRAR.FieldByName('MUNICIPIO') .AsString;
Dmodulo.En_Espera.ParamByName('PARROQUIA').Value:=DMODULO.ASISTENCIA_COBRAR.FieldByName('PARROQUIA') .AsString;
Dmodulo.En_Espera.ParamByName('DIAS_TRABAJADO').Value:=DMODULO.ASISTENCIA_COBRAR.FieldByName('DIAS_T RABAJADO').AsString;
Dmodulo.En_Espera.ParamByName('Monto').Value:=DMODULO.ASISTENCIA_COBRAR.FieldByName('Monto').AsStrin g;
Dmodulo.En_Espera.ParamByName('Semana').Value:=DMODULO.ASISTENCIA_COBRAR.FieldByName('Semana').AsStr ing;
Dmodulo.En_Espera.ParamByName('Cuenta').Value:=DMODULO.ASISTENCIA_COBRAR.FieldByName('Cuenta').AsStr ing;
Dmodulo.En_Espera.ParamByName('CuentaII').Value:=DMODULO.ASISTENCIA_COBRAR.FieldByName('CuentaII').A sString;
Dmodulo.En_Espera.ParamByName('NumeroCuenta').Value:=DMODULO.ASISTENCIA_COBRAR.FieldByName('NumeroCu enta').AsString;
Dmodulo.En_Espera.ExecSQL;
Dmodulo.En_Espera.SelectSQL.Text:=('select * from ASSTC_PAGO_ESPERA ');
SHOWMESSAGE('A sido Insertado');
end;
Dmodulo.ASISTENCIA_COBRAR.Next;
end;
Dmodulo.ibt.Commit;
if SaveDialog1.Execute then
begin
Memo1.Lines.SaveToFile(SaveDialog1.FileName);
Memo1.SetFocus;
end;
end;
Gracias por la ayuda.