English
Español
Extenso
Esta função gera o extenso de um valor.
Importante
Esta função contempla no máximo duas casas decimais após a virgula. Caso o valor tenha três ou mais casas decimais após a virgula, ele será arredondado para o valor real de duas.
Exemplo:1,5447 = um real e cinquenta e quatro centavos.
Sintaxe: Extenso( Valor, Tamanho_Linha1, Tamanho_Linha2, Tamanho_Linha3, Linha1, Linha2, Linha3);
Parâmetros:
| Nome | Tipo | Descrição |
|---|---|---|
| Valor | Campo/Variável do qual se deseja obter o extenso. | |
| Tamanho_Linha1 | Numero | Quantidade de caracteres que será usado na primeira linha para geração do extenso. |
| Tamanho_Linha2 | Numero | Quantidade de caracteres que será usado na segunda linha para geração do extenso. |
| Tamanho_Linha3 | Numero | Quantidade de caracteres que será usado na terceira linha para geração do extenso. |
| Linha1 | Alfa | Variável que receberá a primeira linha do extenso do valor. (retorno) |
| Linha2 | Alfa | Variável que receberá a segunda linha do extenso do valor. (retorno) |
| Linha3 | Alfa | Variável que receberá a terceira linha do extenso do valor. (retorno) |
Tipo de retorno:
- Linha1: Variável tipo Alfa que receberá a primeira linha do extenso do valor.
- Linha2: Variável tipo Alfa que receberá a segunda linha do extenso do valor.
- Linha3: Variável tipo Alfa que receberá a terceira linha do extenso do valor.
Exemplo: Deseja-se gerar o extenso da quantidade do pedido.
Definir Alfa VextLin1;
Definir Alfa VextLin2;
Definir Alfa VextLin3;
Extenso(E120Ped.QtdPed, 30, 30, 30, VExtLin1, VextLin2, VextLin3);
Logo, se quantidade do pedido fosse, por exemplo, 1.577.350 teríamos o seguinte resultado:
VextLin1 = "Um milhao, quinhentos e ******"
VextLin2 = "setenta e sete mil e *********"
VextLin3 = "trezentos e cinquenta reais **"
Utilização da Função (dependentes): Nenhum dependente.
English
Español
