";
echo "
";
echo "| 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 cxp_solicitudes.cod_pro, rpc_proveedor.nompro, 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_proveedor, 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='P'
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_proveedor.codemp
AND cxp_solicitudes.cod_pro=rpc_proveedor.cod_pro
AND cxp_solicitudes.numsol=scb_prog_pago.numsol
ORDER BY cxp_solicitudes.cod_pro, rpc_proveedor.nompro, 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_codpro = trim($rs_data->fields["cod_pro"]);
$ls_nompro = $rs_data->fields["nompro"];
$ls_codban = trim($rs_data->fields["codban"]);
$ls_nomban = $rs_data->fields["nomban"];
$ls_ctaban = trim($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_codpro." | ";
echo "".$ls_nompro." | ";
echo "".$ls_codban." - ".$ls_nomban." | ";
echo "".$ls_ctaban." - ".$ls_nomcta." | ";
echo "
";
$rs_data->MoveNext();
}
}
else
{
$io_msg->message("No se han realizado programaciones !!!");
}
}
}
echo "";
?>