";
print "
";
print "| Proveedor | ";
print "Nombre Prov.\Benef. | ";
print "Banco | ";
print "Nombre Banco | ";
print "Cuenta | ";
print "Denominación Cuenta | ";
print "
";
if($ls_operacion=="BUSCAR")
{
$ls_sql="SELECT b.cod_pro as cod_pro,c.nompro as nompro,a.codban as codban,a.ctaban as ctaban
FROM scb_prog_pago a,cxp_solicitudes b,rpc_proveedor c
WHERE ( b.codemp = a.codemp ) AND ( b.numsol = a.numsol ) AND ( c.codemp = b.codemp ) AND ( c.cod_pro = b.cod_pro )
AND (( a.codemp = '".$ls_codemp."') AND ( b.estprosol = 'S' ) AND ( a.estmov = 'P' ) AND ( b.tipproben = 'P' ))
GROUP BY a.codemp,a.codban,a.ctaban,c.sc_cuenta,c.nompro,b.cod_pro
ORDER BY c.nompro ASC";
$rs_mov=$SQL_mov->select($ls_sql);
$data=$rs_mov;
if(($rs_mov===false))
{
$io_msg->message("Error en select");
}
else
{
if($row=$SQL_mov->fetch_row($rs_mov))
{
$data=$SQL_mov->obtener_datos($rs_mov);
$arrcols=array_keys($data);
$totcol=count($arrcols);
$ds->data=$data;
$totrow=$ds->getRowCount("cod_pro");
for($z=1;$z<=$totrow;$z++)
{
$ls_prov = $data["cod_pro"][$z];
$ls_nompro = $data["nompro"][$z];
$ls_codban = $data["codban"][$z];
$ls_ctaban = $data["ctaban"][$z];
$ls_nomban=uf_select_data($SQL,"SELECT * FROM scb_banco WHERE codemp='".$as_codemp."' AND codban='".$ls_codban."'","nomban");
$ls_dencta=uf_select_data($SQL,"SELECT * FROM scb_ctabanco WHERE codemp='".$as_codemp."' AND codban='".$ls_codban."' AND ctaban='".$ls_ctaban."'","dencta");
print "
";
print "| ".$ls_prov." | ";
print "".$ls_nompro." | ";
print "".$ls_codban." | ";
print "".$ls_nomban." | ";
print "".$ls_ctaban." | ";
print "".$ls_dencta." | ";
print "
";
}
$SQL_mov->free_result($rs_mov);
}
else
{
$io_msg->message("No se han realizado programaciones de pago");
}
}
}
print "";
?>