PHP toba::perfil_de_datos方法代码示例

 function get_ua()
 {
     $sql = "select sigla,descripcion from unidad_acad ";
     $sql = toba::perfil_de_datos()->filtrar($sql);
     $resul = toba::db('designa')->consultar($sql);
     return $resul;
 }

 function programa_defecto()
 {
     $sql = "select m_p.id_programa from mocovi_programa m_p ,mocovi_tipo_programa m_t, unidad_acad t_u where m_p.id_tipo_programa=m_t.id_tipo_programa and m_t.id_tipo_programa=1 and m_p.id_unidad=t_u.sigla";
     $sql = toba::perfil_de_datos()->filtrar($sql);
     $resul = toba::db('designa')->consultar($sql);
     return $resul[0]['id_programa'];
 }

 function get_materias()
 {
     $sql = "select id_materia,cod_carrera||'('||ordenanza||')'||desc_materia||'('||cod_siu||')' as descripcion from materia t_m, plan_estudio t_p, unidad_acad t_u" . " where t_m.id_plan=t_p.id_plan " . " and t_p.uni_acad=t_u.sigla";
     $sql = toba::perfil_de_datos()->filtrar($sql);
     $sql = $sql . " order by descripcion";
     return toba::db('designa')->consultar($sql);
 }

 function generar_layout()
 {
     foreach ($this->sql as $id => $sql) {
         $sql2 = toba::perfil_de_datos()->filtrar($sql);
         echo "<hr><h1>" . ($id + 1) . "</h1>";
         $datos = toba::db()->consultar($sql);
         $tit1 = "<pre>" . $sql . "</pre>";
         $this->tabla($datos, $tit1);
         echo "<hr>";
         $datos = toba::db()->consultar($sql2);
         $tit2 = "<pre>" . $sql2 . "</pre>";
         $this->tabla($datos, $tit2);
     }
     echo "<hr>";
     echo "<hr>";
     echo "<hr>";
     foreach ($this->sql2 as $id => $sql) {
         $sql2 = toba::perfil_de_datos()->filtrar($sql, 'referencia');
         echo "<hr><h1>" . ($id + 1) . "</h1>";
         $datos = toba::db('referencia')->consultar($sql);
         $tit1 = "<pre>" . $sql . "</pre>";
         $this->tabla($datos, $tit1);
         echo "<hr>";
         $datos = toba::db('referencia')->consultar($sql2);
         $tit2 = "<pre>" . $sql2 . "</pre>";
         $this->tabla($datos, $tit2);
     }
 }

 function ini()
 {
     $fuente = toba::proyecto()->get_parametro('fuente_datos');
     ei_arbol(toba::perfil_de_datos()->get_id(), 'get_id');
     ei_arbol(toba::perfil_de_datos()->posee_restricciones($fuente), 'posee_restricciones');
     ei_arbol(toba::perfil_de_datos()->get_restricciones($fuente), 'get_restricciones');
     ei_arbol(toba::perfil_de_datos()->get_lista_dimensiones_restringidas($fuente), 'get_lista_dimensiones_restringidas');
     ei_arbol(toba::perfil_de_datos()->get_gatillos_activos($fuente), 'get_gatillos_activos');
 }

 function get_listado($where = null)
 {
     if (!is_null($where)) {
         $where = ' and ' . $where;
     } else {
         $where = '';
     }
     $sql = "SELECT\n\t\t\tt_t.id_tutoria,\n\t\t\tt_t.descripcion,\n\t\t\tt_ua.descripcion as uni_acad_nombre\n\t\tFROM\n\t\t\ttutoria as t_t, unidad_acad as t_ua\n                WHERE  t_t.uni_acad = t_ua.sigla\n\t\t";
     $sql = toba::perfil_de_datos()->filtrar($sql);
     return toba::db('designa')->consultar($sql);
 }

 function get_categorizaciones($where = null)
 {
     if (!is_null($where)) {
         $where = ' WHERE ' . $where;
     } else {
         $where = '';
     }
     $sql = "select * from (select distinct a.*,t_de.uni_acad from " . "(select t_do.id_docente,t_do.apellido,t_do.nombre,t_do.legajo,t_c.anio_categ,t_c.id_cat,t_ci.descripcion as categoria" . " from categorizacion t_c" . " LEFT OUTER JOIN docente t_do ON (t_c.id_docente=t_do.id_docente)" . " LEFT OUTER JOIN categoria_invest t_ci ON (t_c.id_cat=t_ci.cod_cati)" . ")a" . " LEFT OUTER JOIN designacion t_de ON (a.id_docente=t_de.id_docente)" . $where . ")b, unidad_acad c" . " where b.uni_acad=c.sigla" . " order by id_docente,anio_categ";
     $sql = toba::perfil_de_datos()->filtrar($sql);
     return toba::db('designa')->consultar($sql);
 }

 function get_designaciones()
 {
     if ($this->s__anio != null) {
         $pdia = $this->dep('datos')->tabla('mocovi_periodo_presupuestario')->primer_dia_periodo_anio($this->s__anio);
         $udia = $this->dep('datos')->tabla('mocovi_periodo_presupuestario')->ultimo_dia_periodo_anio($this->s__anio);
         $sql = "select distinct t_d.id_designacion,case when t_d.id_norma is null then (t_d1.apellido||', '||t_d1.nombre||'('||'id:'||t_d.id_designacion||'-'||t_d.cat_mapuche||')') else t_d1.apellido||', '||t_d1.nombre||'('||'id:'||t_d.id_designacion||'-'||t_d.cat_mapuche||'-'||t_no.nro_norma||'/'|| extract(year from t_no.fecha)||')' end as descripcion " . " from designacion t_d LEFT OUTER JOIN norma t_no ON (t_d.id_norma=t_no.id_norma), docente t_d1, unidad_acad t_u" . " where t_d.id_docente=t_d1.id_docente " . " and t_d.uni_acad=t_u.sigla " . "and t_d.desde<'" . $udia . "' and (t_d.hasta>'" . $pdia . "' or t_d.hasta is null)" . " order by descripcion";
         $sql = toba::perfil_de_datos()->filtrar($sql);
         //aplico el perfil de datos
         return toba::db('designa')->consultar($sql);
     }
 }

 function get_designaciones()
 {
     if ($this->s__anio != null) {
         $pdia = $this->dep('datos')->tabla('mocovi_periodo_presupuestario')->primer_dia_periodo_anio($this->s__anio);
         $udia = $this->dep('datos')->tabla('mocovi_periodo_presupuestario')->ultimo_dia_periodo_anio($this->s__anio);
         $sql = "select distinct t_d.id_designacion,t_d1.apellido||', '||t_d1.nombre||'('||'id:'||t_d.id_designacion||'-'||t_d.cat_mapuche||')' as descripcion" . " from designacion t_d, docente t_d1, unidad_acad t_u" . " where t_d.id_docente=t_d1.id_docente " . " and t_d.uni_acad=t_u.sigla " . "and t_d.desde<='" . $udia . "' and (t_d.hasta>='" . $pdia . "' or t_d.hasta is null)" . " order by descripcion";
         $sql = toba::perfil_de_datos()->filtrar($sql);
         //aplico el perfil de datos
         return toba::db('designa')->consultar($sql);
     }
 }

 function get_listado($where = null)
 {
     if (!is_null($where)) {
         $where = ' and ' . $where;
     } else {
         $where = '';
     }
     $sql = "select * from (SELECT t_ci.id_docente,t_ci.id_proyecto,t_ci.anio,t_do.apellido,t_do.apellido||', '||t_do.nombre as nombre_docente,t_ci.fecha,t_ci.monto,t_ci.cuota, t_i.denominacion as nombre_proyecto, t_i.uni_acad \n                        FROM cobro_incentivo as t_ci \n                        LEFT OUTER JOIN docente t_do ON (t_ci.id_docente=t_do.id_docente) \n                        LEFT OUTER JOIN pinvestigacion t_i ON (t_i.id_pinv=t_ci.id_proyecto))a, unidad_acad b\n                 where a.uni_acad=b.sigla\n                        ";
     $sql = toba::perfil_de_datos()->filtrar($sql);
     $sql = $sql . $where;
     return toba::db('designa')->consultar($sql);
 }

 /**
 	Retorna la lista de personas
 */
 static function get_personas($filtro = null)
 {
     $where = '';
     if (isset($filtro)) {
         if (isset($filtro['nombre'])) {
             $nombre = quote("%{$filtro['nombre']}%");
             $where = " WHERE nombre ILIKE {$nombre}";
         }
     }
     $sql = "SELECT id, nombre, fecha_nac FROM ref_persona {$where} ORDER BY nombre";
     $sql = toba::perfil_de_datos()->filtrar($sql);
     return consultar_fuente($sql);
 }

 function get_departamentos($id_ua = null)
 {
     $where = "";
     if (isset($id_ua)) {
         $where = " and idunidad_academica='" . $id_ua . "'";
     }
     $sql = "SELECT distinct t_d.iddepto, t_d.descripcion " . " FROM departamento t_d," . " unidad_acad t_u " . " WHERE t_u.sigla=t_d.idunidad_academica" . "  {$where}" . " order by descripcion";
     //obtengo el perfil de datos del usuario logueado
     $con = "select sigla,descripcion from unidad_acad ";
     $con = toba::perfil_de_datos()->filtrar($con);
     $resul = toba::db('designa')->consultar($con);
     if (trim($resul[0]['sigla']) != 'CRUB' && trim($resul[0]['sigla']) != 'FACA' && trim($resul[0]['sigla']) != 'ASMA' && trim($resul[0]['sigla']) != 'CUZA' && trim($resul[0]['sigla']) != 'FAAS') {
         $sql = toba::perfil_de_datos()->filtrar($sql);
         //aplico el perfil para que solo aparezcan los departamentos de su facultad
     }
     $resul = toba::db('designa')->consultar($sql);
     return $resul;
 }

 function get_credito_ua($estado)
 {
     switch ($estado) {
         case 1:
             $where = ' and c.actual ';
             break;
         case 2:
             $where = ' and c.presupuestando ';
             break;
     }
     $sql = "select sum(b.credito) as cred " . " from mocovi_programa a, mocovi_credito b, mocovi_periodo_presupuestario c, unidad_acad d " . " where  a.id_programa=b.id_programa" . " and b.id_periodo=c.id_periodo " . " and a.id_unidad=d.sigla" . $where;
     $sql = toba::perfil_de_datos()->filtrar($sql);
     //aplico el perfil de datos
     $resul = toba::db('designa')->consultar($sql);
     if ($resul[0]['cred'] != null) {
         $credito = $resul[0]['cred'];
     } else {
         $credito = 0;
     }
     return $credito;
 }

 function generar_layout()
 {
     $fuente = toba::proyecto()->get_parametro('fuente_datos');
     echo "<pre>";
     foreach ($this->sql as $s) {
         echo "SQL: {$s}<br>";
         $tablas_gatillo = toba::perfil_de_datos()->buscar_tablas_gatillo_en_sql($s, $fuente);
         ei_arbol($tablas_gatillo, 'Gatillos encontrados');
         $dimensiones = toba::perfil_de_datos()->reconocer_dimensiones_implicadas(array_keys($tablas_gatillo), $fuente);
         ei_arbol($dimensiones, 'Dimensiones implicadas');
         $where = array();
         foreach ($dimensiones as $dimension => $tabla) {
             //-- 2 -- Obtengo la porcion de WHERE perteneciente a cada gatillo
             $alias_tabla = $tablas_gatillo[$tabla];
             $where[] = toba::perfil_de_datos()->get_where_dimension_gatillo($fuente, $dimension, $tabla, $alias_tabla);
         }
         ei_arbol($where, 'WHERE dim: ');
         echo "<br>";
     }
     echo "</pre>";
 }

 function get_listado_perfil($where = null)
 {
     if (!is_null($where)) {
         $where1 = ' WHERE ' . $where;
         $where2 = ' and ' . $where;
     } else {
         $where1 = '';
         $where2 = '';
     }
     //obtengo el perfil de datos del usuario logueado
     $con = "select sigla,descripcion from unidad_acad ";
     $con = toba::perfil_de_datos()->filtrar($con);
     $resul = toba::db('designa')->consultar($con);
     $salida = array();
     if ($resul[0]['sigla'] != null) {
         $sql = "select distinct n.id_norma,nro_norma,tipo_norma,emite_norma,fecha,b.quien_emite_norma,c.nombre_tipo,uni_acad " . " from norma n " . "INNER JOIN tipo_emite b ON (n.emite_norma=b.cod_emite)\n                       INNER JOIN tipo_norma_exp c ON (n.tipo_norma=c.cod_tipo)" . " INNER JOIN designacion d ON (n.id_norma=d.id_norma and d.uni_acad='" . trim($resul[0]['sigla']) . "')" . $where1 . " UNION " . "select distinct n.id_norma,nro_norma,tipo_norma,emite_norma,fecha,b.quien_emite_norma,c.nombre_tipo,uni_acad " . " from norma n " . " INNER JOIN tipo_emite b ON (n.emite_norma=b.cod_emite)\n                        INNER JOIN tipo_norma_exp c ON (n.tipo_norma=c.cod_tipo)" . " INNER JOIN designacion d ON (n.id_norma=d.id_norma_cs and d.uni_acad='" . trim($resul[0]['sigla']) . "')" . $where1;
         //agrego todas las normas que no estan asociadas a ninguna designacion
         $sql .= " UNION\n                    select distinct n.id_norma,nro_norma,tipo_norma,emite_norma,fecha,b.quien_emite_norma,c.nombre_tipo,''\n                    from norma n\n                    INNER JOIN tipo_emite b ON (n.emite_norma=b.cod_emite)\n                    INNER JOIN tipo_norma_exp c ON (n.tipo_norma=c.cod_tipo)\n                    where  not exists (select * from designacion b\n                                      where n.id_norma=b.id_norma)\n                          and not exists (select * from designacion c\n                                      where n.id_norma=c.id_norma_cs)      \n                    {$where2}\n                    ";
         $salida = toba::db('designa')->consultar($sql);
     }
     return $salida;
 }