Nesse vídeo demonstraremos a utilização da função FWCodEmp, que serve para buscar o código da empresa logada no sistema.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas #Include "TOTVS.ch" /*/{Protheus.doc} User Function zExe211 Exemplo de função que traz o código da empresa logada @type Function @author Atilio @since 20/02/2023 @see https://tdn.totvs.com/pages/releaseview.action?pageId=6815128 @obs Função FWCodEmp Parâmetros + cAlias , Caractere , Alias da tabela que será validada Retorno + cEmp , Caractere , Código da Empresa **** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao **** /*/ User Function zExe211() 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 FWCodEmp") FWRestArea(aArea) Return
Bom pessoal, por hoje é só.
Abraços e até a próxima
No seu exemplo ele trouxe o código do grupo de empresas logado. Então, caso seja gestão de empresas ele trará o código da empresa definida no layout e não do grupo, correto?
Se sim, como faço para acessar as informações do grupo de empresas logado (Código e descrição) independente se for modelo gestão de empresas ou não?
Obrigado!
Boa tarde Charles, tudo joia?
O que você pode tentar fazer é buscar direto da SM0 através da FWSM0Util, onde você passa quais campos da SYS_COMPANY (antiga tabela SM0) você quer buscar.
Segue um exemplo de uso: https://terminaldeinformacao.com/2024/02/20/buscando-informacoes-das-empresas-atraves-da-fwsm0util-maratona-advpl-e-tl-247/
Segue documentação do TDN: https://tdn.totvs.com/display/public/framework/FWSM0Util
Um grande abraço.