-- Para llobet se puede obtimizar la vista seg_matriz pues cod_grupo es compuesto:
--      COD_CIA||'_'||MODID||'_'||XXX
create or replace view seg_matriz as
   select s.modid, c.cod_cia, g.cod_grupo, s.owner, s.name, c.des_cia, g.des_grupo
   from gen_compania c, seg_mnumod s, seg_grupo g
   where g.cod_grupo like c.cod_cia||'\_'||s.modid||'\_%' ESCAPE '\';


-- O ESTA OTRA
create or replace view seg_matriz as
   select s.modid, c.cod_cia, g.cod_grupo, s.owner, s.name, c.des_cia, g.des_grupo
   from gen_compania c, seg_mnumod s, seg_grupo g
   where g.cod_grupo like c.cod_cia||s.modKEY||'%' or g.cod_grupo='ADMINISTRADOR';

select depth, label, CalcGen.SegDerecho(6, itemid, 'ADMINISTRADOR','001') icon
   from seg_itmjer
   where modid=6;
