Prueba este codigo.
He quitado el recorrer las lineas del memo, ja que para insertar no es necesario, con el
Memo1.Lines.Add inserta la linea al final.
Tienes un while de la consulta insert que no pinta nada, solo cargas el sql pasas los parametros y ejecutas el insert
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.Close;
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.ibt.Commit;
SHOWMESSAGE('A sido Insertado');
end;
Dmodulo.ASISTENCIA_COBRAR.Next;
end;
end;