Nesse vídeo demonstraremos a utilização da função FWJoinFilial, que serve para retornar o relacionamento 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 zExe224
Prepara o relacionamento entre duas tabelas conforme o compartilhamento delas na SX2
@type Function
@author Atilio
@since 20/02/2023
@see https://tdn.totvs.com/display/public/framework/FWJoinFilial
@obs
Função FWJoinFilial
Parâmetros
+ cAlias1 , Caractere , Alias da primeira tabela
+ cAlias2 , Caractere , Alias da segunda tabela
+ cTbAlias1 , Caractere , Alias do SQL da primeira tabela
+ cTbAlias2 , Caractere , Alias do SQL da segunda tabela
+ lPrefixo , Lógico , Informa se deverá utilizar o prefixo das tabelas
+ cDbMs , Caractere , Banco de Dados utilizado
+ lFilCompJoin , Lógico , Indica se irá utilizar o campo filial na montagem do join
Retorno
+ Retorna o relacionamento entre as tabelas no formato Caractere
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe224()
Local aArea := FWGetArea()
Local cJoin := ""
//Monta um relacionamento simples entre duas tabelas
cJoin := FWJoinFilial("SC5", "SC6")
FWAlertInfo(cJoin, "Teste 1 FWJoinFilial")
//Monta um relacionamento usando prefixo entre duas tabelas
cJoin := FWJoinFilial("SB1", "SC6")
FWAlertInfo(cJoin, "Teste 2 FWJoinFilial")
//Monta um relacionamento dando nome entre duas tabelas
cJoin := FWJoinFilial("SC5", "SC6", "SC5TST", "SC6TST", .T., , .T.)
FWAlertInfo(cJoin, "Teste 3 FWJoinFilial")
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
