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.

Tags: AdvPLMaratonaProtheusTL++