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.
