| Linha de Produto: | Microsiga Protheus® |
|---|---|
| Segmento: | Logística |
| Módulo: | SIGATMS - Gestão de Transportes |
Ponto de entrada disparado na rotina TMSACESSO.
Parâmetros:
1- cPrograma, cCodUser, nAcesso
Retorno:
lRet retorno falso não permite alteração inclusão ou exclusão.
Programa Fonte
TMSXFUNB
User Function TMSACESS()
Local lRet := .F.
Local __cPrograma := PARAMIXB[1]
Local __cCodUser := PARAMIXB[2]
Local __nAcesso := PARAMIXB[3]
If __cPrograma = 'TMSA120'
If __cCodUser = '000003'
If __nAcesso = 3
lRet := .F.
Else
lRet := .T.
EndIf
Else
lRet := .T.
EndIf
EndIf
Return lRet
Não há.