Cross Segmentos - Backoffice RM - BI - Query para auxiliar no controle de permissões dos Cubos e suas respectivas categorias

 Tempo aproximado para leitura: 00:02:00 min

Dúvida
Como identificar todos os cubos e suas respectivas categorias por meio de uma query?

Ambiente
Cross Segmentos - TOTVS Backoffice (Linha RM) - RM BI - Todas as versões

Solução
Todo controle de acesso dos cubos, são gerenciados através da categoria e seus respectivos perfis associados. Visando facilitar a verificação da categoria de cada cubo, estamos disponibilizando abaixo uma consulta SQL que pode ser cadastrada no produto para retornar os dados:

1. Através do módulo Inteligência de Negócios, acesse o menu Gestão;
2. Clique em Visões de Dados;
3. Crie uma nova consulta com o conteúdo abaixo;
4. Execute a consulta para extração dos dados;

SELECT QCUBOX.CODCOLIGADA,
QCUBOX.ID,
QCUBOX.NOME,
QCUBOX.DESCRICAO,
QCUBOX.IDPAI,
QCATEGORIACUBO.ID IDCATEGORIA,
PERF.PODEINCLUIR,
PERF.PODEEXCLUIR,
PERF.PODEALTERAR,
PERF.PODEATUALIZAR,
PERF.PODEIMPORTAR,
PERF.PODEEXPORTAR,
PERF.PODEEXPORTARCUBX,
PERF.PODEEXPORTARDOC,
PERF.PODEIMPRIMIR,
PERF.PODESALVARGRAFICO,
PERF.PODEPROTEGERCOMSENHA,
PERF.PODECRIARCOPIA
FROM QCUBOX (NOLOCK),
QCATEGORIACUBO (NOLOCK),
GCOLIGADA (NOLOCK),
(SELECT IDCATEGORIA,
Max(PODEINCLUIR) PODEINCLUIR,
Max(PODEEXCLUIR) PODEEXCLUIR,
Max(PODEALTERAR) PODEALTERAR,
Max(PODEATUALIZAR) PODEATUALIZAR,
Max(PODEIMPORTAR) PODEIMPORTAR,
Max(PODEEXPORTAR) PODEEXPORTAR,
Max(PODEEXPORTARCUBX) PODEEXPORTARCUBX,
Max(PODEEXPORTARDOC) PODEEXPORTARDOC,
Max(PODEIMPRIMIR) PODEIMPRIMIR,
Max(PODESALVARGRAFICO) PODESALVARGRAFICO,
Max(PODEPROTEGERCOMSENHA) PODEPROTEGERCOMSENHA,
Max(PODECRIARCOPIA) PODECRIARCOPIA
FROM QCATCUBOPERFIL (NOLOCK),
GUSRPERFIL (NOLOCK)
WHERE QCATCUBOPERFIL.CODSISTEMAPERFIL = GUSRPERFIL.CODSISTEMA
AND QCATCUBOPERFIL.CODPERFIL = GUSRPERFIL.CODPERFIL
AND GUSRPERFIL.CODCOLIGADA = 1
AND GUSRPERFIL.CODUSUARIO = 'mestre'
GROUP BY IDCATEGORIA) PERF
WHERE QCUBOX.IDCATEGORIA = QCATEGORIACUBO.ID
AND QCUBOX.CODCOLIGADA = GCOLIGADA.CODCOLIGADA
AND QCUBOX.IDCATEGORIA = PERF.IDCATEGORIA
AND ( ( QCUBOX.CODCOLIGADA = 0
OR QCUBOX.CODCOLIGADA = :$CODCOLIGADA )
AND ( QCUBOX.CODSISTEMA = :$CODSISTEMA )
AND ( QCUBOX.ID IS NOT NULL ) )
ORDER BY QCUBOX.NOME,
QCUBOX.CODCOLIGADA,
IDPAI

Importante
Caso utilize o banco de dados ORACLE, retire as condições (NOLOCK) antes de salvar a consulta SQL.

Saiba mais
Para obter mais informações sobre esta rotina, acesse nossa documentação no TDN sobre os Cubos