Nesse vídeo demonstraremos a utilização da função FWCodFil, que serve para buscar o código da filial logada no sistema.

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

//Bibliotecas
#Include "TOTVS.ch"

/*/{Protheus.doc} User Function zExe212
Exemplo de função que traz o código da filial logada
@type Function
@author Atilio
@since 20/02/2023
@see https://tdn.totvs.com/pages/releaseview.action?pageId=6815110
@obs 
    Função FWCodFil
    Parâmetros
        + cGrpCompany  , Caractere , Indica o grupo de empresas a ser validado
        + cEmpUDFil    , Caractere , Indica a empresa; unidade de negócio e filial
    Retorno
        + cCodFil   , Caractere , Código da Filial

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

User Function zExe212()
    Local aArea    := FWGetArea()
    Local cEmprLog := ""
    Local cFiliLog := ""
    Local cMensag  := ""

    //Pega a empresa logada
    cEmprLog := FWCodEmp()

    //Pega a filial logada
    cFiliLog := FWCodFil()

    //Exibe uma mensagem
    cMensag := "Estou logado na empresa '" + cEmprLog + "' e na filial '" + cFiliLog + "'!"
    FWAlertInfo(cMensag, "Teste de FWCodFil")

    FWRestArea(aArea)
Return

Bom pessoal, por hoje é só.

Abraços e até a próxima

Tags: AdvPLMaratonaProtheusTL++