Nesse vídeo demonstraremos a utilização da função Numeral, que serve para buscar o texto numeral de um valor numérico (por exemplo, primeiro, segundo, terceiro, etc).
Abaixo o código fonte desenvolvido para o exemplo em vídeo acima:
//Bibliotecas
#Include "TOTVS.ch"
/*/{Protheus.doc} User Function zExe372
Retorna o nome numeral de um valor (até 100)
@type Function
@author Atilio
@since 28/03/2023
@obs
Função Numeral
Parâmetros
Recebe o valor numérico (inteiro)
Retorno
Retorna o nome numeral desse valor (ex.: primeiro; segundo; terceiro; quarto; etc...)
**** Apoie nosso projeto, se inscreva em https://www.youtube.com/TerminalDeInformacao ****
/*/
User Function zExe372()
Local aArea := FWGetArea()
Local nValor := 0
Local cTexto := ""
//Define o valor e busca o numeral dele
nValor := 5
cTexto := Numeral(nValor)
FWAlertInfo("O valor '" + cValToChar(nValor) + "' é o numeral '" + cTexto + "'", "Teste 1 Numeral")
//Define o valor e busca o numeral dele
nValor := 83
cTexto := Numeral(nValor)
FWAlertInfo("O valor '" + cValToChar(nValor) + "' é o numeral '" + cTexto + "'", "Teste 2 Numeral")
FWRestArea(aArea)
Return
Bom pessoal, por hoje é só.
Abraços e até a próxima.
