Pular para o conteúdo
Início » Advpl Extenso

Advpl Extenso

Advpl Extenso

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

Veja também: