Nesse vídeo demonstraremos a utilização da função FWModeAccess, que retorna o modo de compartilhamento de uma tabela conforme o dicionário de dados.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "Totvs.ch"
/*/{Protheus.doc} User Function zExe232
Retorna o modo de compartilhamento de uma tabela
@type Function
@author Atilio
@since 20/02/2023
@see https://tdn.totvs.com/display/public/framework/FWModeAccess+-+Retorna+modo+de+compartilhamento
@obs
Função FWModeAccess
Parâmetros
+ cAlias , Caractere , Alias da Tabela
+ nLevel , Numérico , Qual será o nível a ser avaliado (1=Empresa;2=Unidade De Negócio;3=Filial)
+ cGrpCompany , Caractere , Indica o grupo de empresas a ser avaliado
Retorno
+ cMode , Caractere , Tipo do Compartilhamento da tabela
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe232()
Local aArea := FWGetArea()
Local cTexto := ""
//Pega os 3 tipos de compartilhamento de uma tabela
cTexto += "Empresa: " + FWModeAccess("SB1", 1) + CRLF
cTexto += "Unid. Neg: " + FWModeAccess("SB1", 2) + CRLF
cTexto += "Filial: " + FWModeAccess("SB1", 3)
//Exibe a mensagem
FWAlertInfo(cTexto, "Teste FWModeAccess")
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
