function getListenPermissions($iMenu)
{
    $sql = "SELECT\n\t\t\t\tmenu_rules\n\t\t\tFROM\n\t\t\t\t`general_menu` `general_menu`\n\t\t\tWHERE idgeneral_menu='{$iMenu}' LIMIT 0,1";
    $Itbl = obten_filas($sql);
    $sPerms = $Itbl["menu_rules"];
    $aPerms = explode(",", $sPerms);
    //Array de Tipos de Permisos
    $aTipoPerms = array(0 => "false", 1 => "rw", 2 => "ro");
    $options = "";
    $sqlP = "SELECT\n\t\t\t\t`general_niveles`.`idgeneral_niveles`,\n\t\t\t\t`general_niveles`.`descripcion_del_nivel` \n\t\t\tFROM\n\t\t\t\t`general_niveles` `general_niveles` WHERE idgeneral_niveles != 99 ";
    $rs = getRecordset($sqlP);
    $xHSel = new cHSelect();
    $xHSel->addOptions(array("" => "Ninguno", "ro" => "Solo Puede Ver", "rw" => "Todo"));
    while ($rw = mysql_fetch_array($rs)) {
        $nivel = $rw["idgeneral_niveles"];
        $desc = $rw["descripcion_del_nivel"];
        $tds = "";
        $selOp = "";
        foreach ($aTipoPerms as $key => $value) {
            if (in_array("{$nivel}@{$value}", $aPerms)) {
                $selOp = $value;
            }
        }
        $xHSel->setDivClass("tx1");
        $mNivel = $xHSel->get("idNiv{$nivel}", "{$desc}", $selOp);
        $options .= $mNivel;
    }
    return $options;
}
function jsaCargaDeCreditos($persona)
{
    $xL = new cSQLListas();
    $ql = new MQL();
    $xs = new cHSelect();
    $xs->setDivClass("");
    $sql = $xL->getListadoDeCreditos($persona);
    $rs = $ql->getDataRecord($sql);
    $aOpts = array();
    //setLog($sql);
    foreach ($rs as $row) {
        $aOpts[$row["credito"]] = $row["credito"] . "-" . $row["producto"] . "-" . $row["periocidad"] . "-" . $row["saldo"];
    }
    $xs->addOptions($aOpts);
    return $xs->get("idcreditodescontado", "TR.CLAVE_de_credito");
}