Tipo: Processamento
Gera o extenso de um valor numérico. Esta função retorna um valor, dinheiro ou quantidade, por extenso. Usada para a impressão de cheques, valor de duplicatas, etc.
Sintaxe
Extenso(nValor,lQtd,nMoeda)
Parametros
nValor – Valor a ser gerado o extenso.
lQtd – Verdadeiro (.T.) indica que o valor representa uma quantidade.
Falso (.F.) indica que o valor representa dinheiro. Se não for especificado, o default é falso (.F.).
nMoeda – Qual moeda do sistema deve ser o extenso.
Retorna
cValor – Retorna o valor por extenso.
Exemplo
// Exemplo de uso da funcao Extenso:
nValor := SF2->F2_VALFAT
// Gera o extenso do valor, formatando a variavel com
// 200 caracteres preenchendo os espacos em branco com *
cExtenso := PADR(Extenso(nValor),200,”*”)
// Imprime o extenso em duas linhas (100 caracteres em cada):
For nLi := 20 To 21
@nLi,10 Say Substr(cExtenso,(nLi-20)*100+1,100)
Next nLi
Return
Estude para provas de certificações em TI com os simulados Bynem