CRMXCTRENT - Remove as tabelas do Controle de Privilégios do CRM

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 := 0
Local aRetorno := {}
Local cEntRemove := "AD1|SA1|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