Nesse vídeo demonstraremos a utilização das funções FisxLogo e fLogoEmp que servem para buscar o caminho do logo de uma empresa na Protheus Data.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe186
Retorna o logo da empresa
@type Function
@author Atilio
@since 21/12/2022
@obs
Função FisxLogo
Parâmetros
+ Tipo do logo (1 = da empresa ; 2 = da TOTVS)
Retorno
+ Retorna o nome do arquivo
Função fLogoEmp
Parâmetros
+ Nome do arquivo
+ Tipo do logo (1 = da empresa ; 2 = da TOTVS)
Retorno
Função não tem retorno
Se o tipo for 1, ele irá retornar:
LGRL + Empresa + Filial (exemplo: LGRL010101.bmp)
ou
LGRL + Empresa (exemplo: LGRL01.bmp)
Se o tipo for 2, ele irá retornar:
LogoSiga.bmp
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe186()
Local aArea := FWGetArea()
Local cLogo := ""
//Busca o logo com FisxLogo
cLogo := FisxLogo()
FWAlertInfo("O logo da empresa é '" + cLogo + "'", "Teste FisxLogo")
//Busca o logo com fLogoEmp
cLogo := ""
fLogoEmp(@cLogo)
FWAlertInfo("O logo da empresa é '" + cLogo + "'", "Teste fLogoEmp")
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima
