ExtensoMoeda

Esta função gera o extenso de um valor com a moeda informada.

Sintaxe: Funcao ExtensoMoeda(Numero VlrExt, Numero TamLn1, Numero TamLn2, Numero TamLn3, Alfa MoeIS, Alfa MoeIP, Alfa MoeDS, Alfa MoeDP, Alfa End ExtLn1, Alfa End ExtLn2, Alfa End ExtLn3);

Parâmetros:

Nome	Tipo	Descrição
VlrExt	Numero	Campo/Variável do qual se deseja obter o extenso.
TamLn1	Numero	Quantidade de caracteres que será usado na primeira linha para geração do extenso.
TamLn2	Numero	Quantidade de caracteres que será usado na segunda linha para geração do extenso.
TamLn3	Numero	Quantidade de caracteres que será usado na terceira linha para geração do extenso.
MoeIS	Alfa	Moeda, parte inteira no singular.
MoeIP	Alfa	Moeda, parte inteira no plural.
MoeDS	Alfa	Moeda, parte decimal no singular.
MoeDP	Alfa	Moeda, parte decimal no plural.
ExtLn1	Alfa	Variável que receberá a primeira linha do extenso do valor.(retorno)
ExtLn2	Alfa	Variável que receberá a segunda linha do extenso do valor. (retorno)
ExtLn3	Alfa	Variável que receberá a terceira linha do extenso do valor. (retorno)

Tipo de Retorno:

ExtLn1 = Variável tipo Alfa que receberá a primeira linha do extenso do valor.
ExtLn2 = Variável tipo Alfa que receberá a segunda linha do extenso do valor.
ExtLn3 = Variável tipo Alfa que receberá a terceira linha do extenso do valor.

Exemplo: Deseja-se gerar o extenso do valor do salário do empregado em dólares:

Definir Alfa vExtLin1;
Definir Alfa vExtLin2;
Definir Alfa vExtLin3;
ExtensoMoeda(ValSal, 30, 30, 30, "dólar", "dólares", "cent", "cents", VExtLin1, VextLin2, VextLin3);

Logo, se o valor do salário do empregado fosse, por exemplo, $ 1.577,95 teríamos o seguinte resultado:
VextLin1 = "um mil, quinhentos e setenta *"
VextLin2 = "e sete dólares e noventa e ***"
VextLin3 = "cinco cents ******************"

Importante

A função ExtensoMoeda não suporta a conversão multilíngua (tradução). Utilize a função Extenso para se obter o efeito desejado.

PORTAL DE DOCUMENTAÇÃO
Gestão Empresarial \| ERP - versão 5.10.4 (XTended)