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,entre outros.
Sintaxe Extenso(nValor,lQtd,nMoeda) Parâmetros 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 nValor := SF2->F2_VALFAT // Gera o extenso do valor, formatando a variavel com // 100 caracteres preenchendo os espacos em branco com * cExtenso := PADR(Extenso(nValor),100,"*") // Imprime o extenso em duas linhas (50 caracteres em cada): For nLi := 20 To 21 @nLi,10 Say Substr(cExtenso,(nLi-20)*50+1,50) Next nLi Return
