Seleccion de Datos para pago

[maxzama]

Gracias, por la correcion.(Hacerca de como debo comunicarme)...
//____________________________

No lo que quiero decir, que el codigo anterior al que estoy utilizando.

me daba este error.

ERROR del sistema: Asistencia_Cobrar: Cannot perform this operation on a closed dataset.

Me pasa lo mismo a colocar el codigo que modificaste.

ERROR del sistema: Asistencia_Cobrar: Cannot perform this operation on a closed dataset.

[Casimiro Noteví]

Síguelo con el depurador paso a paso y mira en qué línea da el error, porque así es difícil, tienes varios sitios donde puede ocurrir.

[maxzama]

El agrega a los que tienen numero de cuenta, vuelve hacer la pregunta

Código Delphi [-]
if DMODULO.ASISTENCIA_COBRAR.FieldByName('NumeroCuenta').AsString>'' then

Encuentra el que no tiene numero de cuenta, y lo guarda.

Entonces pasa lo siguiente:

Me muestra el error despues de guardar.

Y muestra el error aqui:

Código Delphi [-]
Dmodulo.ASISTENCIA_COBRAR.Next;

//Asi que me imagino, que esta en el codigo donde guardo los datos.

[Casimiro Noteví]

Código Delphi [-]
Dmodulo.En_Espera.ExecSQL;
Dmodulo.ibt.Commit;
SHOWMESSAGE('A sido Insertado');

¿Qué es ibt y qué hace ahí?

Por cierto, has olvidado la 'H' a la frase: "Ha sido insertado"

[maxzama]

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);              // Campo de numero de control de Archivo
    Fecha:=DateToSTR (DateTimePicker1.Date);
    Cad1:='00000';
    Cad2:=cad2+StringOfChar(' ',8);            // Monto total de la nomina
    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  ';
                                                                                   //+Cedula+G

                         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.

[Casimiro Noteví]

Que te diviertas