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.

Tags: AdvPLMaratonaProtheusTL++