Nesse vídeo demonstraremos a utilização da função X2ModAcess, que serve para buscar o modo de compartilhamento configurado em uma tabela (se é compartilhada ou exclusiva).
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe537
Função que busca o modo de compartilhamento de uma tabela (X2_MODO)
@type Function
@author Atilio
@since 07/04/2023
@obs
Função X2ModAcess
Parâmetros
Recebe o alias da tabela que será analisada
Retorno
Retorna o modo de compartilhamento encontrado
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe537()
Local aArea := FWGetArea()
Local cTabela := ""
Local cModo := ""
//Busca de uma tabela que seja compartilhada
cTabela := "SB1"
cModo := X2ModAcess(cTabela)
FWAlertInfo("Para a tabela '" + cTabela + "' o modo de compartilhamento é '" + cModo + "'", "Teste 1 X2ModAcess")
//Busca de uma tabela que seja exclusiva
cTabela := "SC5"
cModo := X2ModAcess(cTabela)
FWAlertInfo("Para a tabela '" + cTabela + "' o modo de compartilhamento é '" + cModo + "'", "Teste 2 X2ModAcess")
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
