Nesse vídeo demonstraremos a utilização da função Moeda2Nome, que serve para buscar o nome da moeda configurada conforme os parâmetros MV_MOEDA1 até o MV_MOEDA5.
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "Totvs.ch"
/*/{Protheus.doc} User Function zExe349
Retorna o nome da moeda cadastra conforme os parâmetros MV_MOEDA1 ao MV_MOEDA5
@type Function
@author Atilio
@since 25/03/2023
@obs
Função Moeda2Nome
Parâmetros
Recebe o número da moeda de 1 a 5
Retorno
Retorna o nome da moeda usada no sistema
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe349()
Local aArea := FWGetArea()
Local cMensagem := ""
//Monta a mensagem a ser exibida com as 5 moedas
cMensagem := "Moeda 1: " + Moeda2Nome(1) + CRLF
cMensagem += "Moeda 2: " + Moeda2Nome(2) + CRLF
cMensagem += "Moeda 3: " + Moeda2Nome(3) + CRLF
cMensagem += "Moeda 4: " + Moeda2Nome(4) + CRLF
cMensagem += "Moeda 5: " + Moeda2Nome(5)
FWAlertInfo(cMensagem, "Teste Moeda2Nome")
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
