";
echo "
";
echo "| Cédula/Código | ";
echo "Nombre | ";
echo "Banco | ";
echo "Cuenta | ";
echo "
";
if ($ls_operacion=="BUSCAR")
{
require_once("sigesp_c_cuentas_banco.php");
$io_ctaban = new sigesp_c_cuentas_banco();
$ld_fecdesde = $io_funcion->uf_convertirdatetobd($ld_fecdesde);
$ld_fechasta = $io_funcion->uf_convertirdatetobd($ld_fechasta);
$ls_sql = "SELECT DISTINCT trim(cxp_solicitudes.ced_bene) as ced_bene,rpc_beneficiario.nombene, rpc_beneficiario.apebene,
scb_prog_pago.codban,scb_prog_pago.ctaban, scb_banco.nomban, scb_ctabanco.dencta,
TRIM(scb_ctabanco.sc_cuenta) as sc_cuenta
FROM cxp_solicitudes, rpc_beneficiario, scb_prog_pago, scb_banco, scb_ctabanco
WHERE scb_prog_pago.codemp='".$ls_codemp."'
AND scb_prog_pago.numsol like '%".$ls_numsolpag."%'
AND cxp_solicitudes.estprosol='S'
AND scb_prog_pago.estmov='P'
AND cxp_solicitudes.tipproben='B'
AND scb_prog_pago.fecpropag BETWEEN '".$ld_fecdesde."' AND '".$ld_fechasta."'
AND scb_prog_pago.codemp=scb_banco.codemp
AND scb_prog_pago.codban=scb_banco.codban
AND scb_prog_pago.ctaban=scb_ctabanco.ctaban
AND scb_prog_pago.codban=scb_ctabanco.codban
AND cxp_solicitudes.codemp=rpc_beneficiario.codemp
AND cxp_solicitudes.ced_bene=rpc_beneficiario.ced_bene
AND cxp_solicitudes.numsol=scb_prog_pago.numsol
ORDER BY rpc_beneficiario.nombene, rpc_beneficiario.apebene, scb_prog_pago.codban,
scb_prog_pago.ctaban, scb_banco.nomban, scb_ctabanco.dencta, sc_cuenta ASC";
$rs_data = $io_sql->select($ls_sql);
if ($rs_data===false)
{
$io_msg->message("Error en Consulta, Contacte al Administrador del Sistema !!!");
}
else
{
$li_totrows = $io_sql->num_rows($rs_data);
if ($li_totrows>0)
{
while(!$rs_data->EOF)
{
echo "
";
$ls_cedben = $rs_data->fields["ced_bene"];
$ls_nomben = $rs_data->fields["nombene"].", ".$rs_data->fields["apebene"];
$ls_codban = $rs_data->fields["codban"];
$ls_nomban = $rs_data->fields["nomban"];
$ls_ctaban = $rs_data->fields["ctaban"];
$ls_nomcta = $rs_data->fields["dencta"];
$ls_scgcta = $rs_data->fields["sc_cuenta"];
$lb_valido = $io_ctaban->uf_verificar_saldo($ls_codban,$ls_ctaban,$adec_saldo);
echo "| ".$ls_cedben." | ";
echo "".$ls_nomben." | ";
echo "".$ls_codban." - ".$ls_nomban." | ";
echo "".$ls_ctaban." - ".$ls_nomcta." | ";
echo "
";
$rs_data->MoveNext();
}
}
else
{
$io_msg->message("No se han realizado programaciones !!!");
}
}
}
echo "";
?>