Nesse vídeo demonstraremos a utilização da função xRetModo, que serve para testar o modo de compartilhamento entre duas tabelas do sistema.

Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe547
Testa o modo de compartilhamento entre duas tabelas
@type Function
@author Atilio
@since 07/04/2023
@obs 
    Função xRetModo
    Parâmetros
        Recebe o nome do primeiro alias
        Recebe o nome do segundo alias
        .T. se irá mostrar a mensagem de Help caso haja diferenças ou .F. se não
        Recebe a variável que será atualizada com o modo de compartilhamento do primeiro alias (passar com @)
        Recebe a variável que será atualizada com o modo de compartilhamento do segundo alias (passar com @)
    Retorno
        Retorna .T. se for igual o compartilhamento ou .F. se não

    **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/

User Function zExe547()
    Local aArea      := FWGetArea()
    Local cTabProd   := ""
    Local cTabGrup   := ""
    Local cModProd   := ""
    Local cModGrup   := ""
    Local lIguais    := .F.
    
    //Define as tabelas que serão comparadas
    cTabProd := "SB1"
    cTabGrup := "SBM"
    
    //Valida o compartilhamento de ambas
    lIguais  := xRetModo(cTabProd, cTabGrup , .F. , @cModProd, @cModGrup)

    //Se for igual, mostra mensagem de sucesso, senão mostra mensagem de erro
    If lIguais
        FWAlertSuccess("As tabelas tem o mesmo tipo de compartilhamento", "Teste xRetModo")
    Else
        FWAlertError("O compartilhamento da " + cTabProd + " é [" + cModProd + "], enquanto da " + cTabGrup + " é [" + cModGrup + "]", "Teste xRetModo")
    EndIf

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima.

Tags: AdvPLMaratonaProtheusTL++