Histórico da Página

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