Agregar registros a una tabla con datos

[alcides]

gracias vtdeleon,

en el rango de fecha hay 18 registros.


Gracias mil,

Alcides
Rep.Dom.

[vtdeleon]

Saludos

Bueeno, no se me ocurre mas nada, solo veo algo extra~o y que deberia darte error. Por que usas Open y no ExecSQL. Es una transaccion de insercion y no devolvera nada. No te da error?

cual es el rango de fecha?

[alcides]

gracias vtdeleon,

el rango de fecha es desde 01/06/2005 hasta 30/06/2005
lee el primer registro y sale

no me da ningun error, sencillamente termina.


Gracias mil,

Alcides
Rep.Dom.

[alcides]

el registro que me transfiere es el ultimo del rango de fecha,


Gracias mil,

Alcides
Rep. Dom.

[vtdeleon]

Has una prueba

Conecta un Dbgrid a ese dataset, quita la linea de Insert, dejando el Select, eeh bueno, arreglalo de manera que puedas mostrarlo en un DBgrid y mira a ver que registros te salen

Saludos

[alcides]

Gracias vtdeleon,

ok, voy hacer la prueba.



Gracias mil,

Alcides
Rep. Dom.

[alcides]

gracias mil,
esta es la rutina que finalmente me funciono perfectamente,

Código PHP:

          Tbl_Encabezado.Insert;
          qry_Encabezado_cheques.Close;
          qry_Encabezado_cheques.Parameters.ParamByName('pfecha_inicial').Value := strtodate(fecha_inicial.Text);
          qry_Encabezado_cheques.Parameters.ParamByName('pfecha_final').Value   := strtodate(fecha_final.Text);
          qry_Encabezado_cheques.Open;
    While not qry_Encabezado_cheques.eof do begin
          Tbl_Encabezado.FieldByName('numero_transacion').Value := qry_encabezado_chequesnumero_cheques.Value;
          Tbl_Encabezado.FieldByName('fecha_transacion').Value  := qry_encabezado_chequesfecha_cheques.Value;
          Tbl_Encabezado.FieldByName('tipo_documento').Value    := 1;
          Tbl_Encabezado.FieldByName('concepto').Value          := qry_encabezado_chequesconcepto_cheques1.Value;
          Tbl_Encabezado.FieldByName('valor_transacion').Value  := qry_encabezado_chequesvalor_cheques.Value;
          Tbl_Encabezado.FieldByName('codigo_banco').Value      := 0;
          Tbl_Encabezado.FieldByName('debito').Value            := qry_encabezado_chequesdebito.Value;
          Tbl_Encabezado.FieldByName('credito').Value           := qry_encabezado_chequescredito.Value;
          Tbl_Encabezado.FieldByName('beneficiario').Value      := qry_encabezado_chequesbeneficiario_cheques.Value;
          Tbl_Encabezado.FieldByName('nulo').Value              := qry_encabezado_chequesnulo_cheques.Value;
          Tbl_Encabezado.FieldByName('posteada').Value          := ' ';
          Tbl_Encabezado.Post;
          Tbl_Encabezado.Close;
          Tbl_Encabezado.Open;
          Tbl_Encabezado.Insert;
          qry_Encabezado_cheques.next
end 


Gracias mil,


Alcides
Rep.Dom.