Pular para o conteúdo
Início » 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