Gracias Delphi.com.ar,
cambie y realice esta rutinita para agregar registro de una tabla a otra y resulta que solo me agrega un registro y finaliza.
Código PHP:
Tbl_Detalle.Insert;
qry_detalle_cheques.Close;
qry_detalle_cheques.Parameters.ParamByName('pfecha_inicial').Value := strtodate(fecha_inicial.Text);
qry_detalle_cheques.Parameters.ParamByName('pfecha_final').Value := strtodate(fecha_final.Text);
qry_detalle_cheques.open;
if qry_detalle_cheques.RecordCount > 0 then begin
Tbl_detalle.FieldByName('numero_transacion').Value := qry_detalle_chequesnumero_cheques.Value;
Tbl_detalle.FieldByName('fecha_transacion').Value := qry_detalle_chequesfecha_cheques.Value;
Tbl_detalle.FieldByName('cuenta').Value := qry_detalle_chequescuenta_cheques.Value;
Tbl_detalle.FieldByName('descripcion').Value := qry_detalle_chequesdescripcion.Value;
Tbl_detalle.FieldByName('debito').Value := qry_detalle_chequesdebito.Value;
Tbl_detalle.FieldByName('credito').Value := qry_detalle_chequescredito.Value;
Tbl_detalle.FieldByName('ccdebito').Value := 0;
Tbl_detalle.FieldByName('cccredito').Value := 0;
Tbl_detalle.FieldByName('dia_transacion').Value := 0;
Tbl_detalle.FieldByName('mes_transacion').Value := 0;
Tbl_detalle.FieldByName('ano_transacion').Value := 0;
Tbl_detalle.FieldByName('monto').Value := 0;
Tbl_detalle.FieldByName('posteada').Value := ' ';
Tbl_detalle.FieldByName('usuario').Value := ' ';
Tbl_detalle.Post;
end;
porque solo agrega uno? y luego finaliza
gracias mil,
Alcides
Rep. Dom.