Histórico da Página

O ponto de entrada CRMXCTRENT, permite remover tabelas do Controle de Privilégios do CRM.

#INCLUDE "PROTHEUS.CH"
#INCLUDE "FWMVCDEF.CH"

User Function CRMXCTRENT()

Local aEntCtrtPri := PARAMIXB[1]
Local nX                nX := 0
Local aRetorno    aRetorno := {}
Local cEntRemove  cEntRemove := "SU5AD1|SC5SA1|SU5" 

For nX := 1 To Len(aEntCtrtPri)
      If !(aEntCtrtPri[nX] $ cEntRemove)
            aAdd(aRetorno,aEntCtrtPri[nX])
      EndIf
Next nX

Return(aRetorno)

Português(Brasil)

Microsiga_Protheus12

Todos

Todas

aEntidades (Array) - Entidades controladas pelo Controle de Privilégios do CRM.

aRetorno(Array) - Entidades que serão controladas pelo Controle de Privilégios do CRM.

CRMXFUN.PRW