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.