Histórico da Página

Índice

01.

...

VISIÓN GENERAL

Retornar Devolver valores em extensopor escrito.

02.

...

PARÁMETROS

nNumToExt

Valor

gerado

generado por

extenso

escrito.
lQuantid	Determina

se o

si el extenso será

em valor ou quantidade (default

en valor o en cantidad (estándar = .F.).
nMoeda	Identifica

a descrição da moeda que será obtida do parâmetro MV

la descripción de la moneda que se obtendrá del parámetro MV_MOEDAx (

com

con x= 1...5).

cPrefixo

Prefixo

Prefijo alternativo.

Caso especificado, prefixa o retorno do extenso, fazendo com que a unidade monetária não seja retornada (default

Si se especifica, determina la devolución por escrito, haciendo que la unidad monetaria no se devuelva (estándar = \" \" ).

cIdioma

Especifica em que idioma deve retornar o valor do extenso

Determina en qué idioma debe devolverse el valor por escrito (1=Port,2=Espa,3=Ingl).

O padrão é o idioma do Sistema

El estándar es el idioma del sistema.

lCent

Especifica se a função deve retornar os centavos. O padrão é

Determina si la función debe traer los centavos. El estándar es .T..

lFrac

Especifica se os centavos retornam em modo fracionado (somente é executado com cIdioma

Determina si los centavos deben devolverse en modo fraccionado (solamente se ejecuta con cIdioma = 3 (

Inglês

Inglés) ).
lUsaCon	-

Especifica se será utilizado "y" ou "con" (Somente utilizado no idioma espanhol

Especifica si se utilizará «y» o «con» (Solamente se utiliza en el idioma español).
cPosMoed	cPosMoed -

Especifica a posicao da descrição da moeda

Especifica la posición de la descripción de la moneda (1=

Antes do Texto

Antes del texto; 2=

Entre os valores inteiros e os

Entre los valores enteros y los centavos; 3=

No final do texto

Al final del texto)

Informações

title	Importante¡Importante!

Ao Al utilizar a funcionalidade la funcionalidad de idioma, o sistema buscará a descrição da moeda através dos parâmetro el sistema buscará la descripción de la moneda por medio de los parámetros MV_MOEDAx e y MV_MOEDAPx, onde donde x é o número da moeda desejada e passada para a função Extenso através da variável es el número de la moneda deseada e informada en la función Extenso por medio de la variable nMoeda.

Para o el texto (em en singular) que representa a moeda serão usados os já la moneda, se utilizarán los existentes MV_MOEDAx (onde donde x es de 1 a 5) e deverão ser criados mais cinco parâmetros y deben crearse cinco parámetros más MV_MOEDAPx (onde donde x es de 1 a 5) para os los respectivos pluraisplurales.

03.

...

EJEMPLO DE

...

UTILIZACIÓN

Bloco de código

language	actionscript3
theme	RDark
title	EXTENSO

#Include "Protheus.ch"
#Include "rwmake.ch"

user function Exte()

Local nValor as numeric
Local lQuantid as logical
Local nMoeda as numeric
Local cPrefixo as character
Local cIdioma as character
Local lCent as logical
Local lFrac as logical
Local lUsaCon as logical
Local cPosMoed as character

nValor		:= 3456.72
lQuantid    := .F.
nMoeda  	:= 1
cPrefixo	:= ""
cIdioma 	:= "1"
lCent   	:= .T.
lFrac   	:= .F.
lUsaCon 	:= .T. //SomenteSolamente espanholespañol
cPosMoed    := "2"

cTexto  := ExtensoEscrito(nValor, lQuantid, nMoeda, cPrefixo,cIdioma,lCent,lFrac,lUsaCon, cPosMoed )

CONOUT("******************")
CONOUT(cTexto)//TRES MIL, QUATROCENTOSCUATROCIENTOS EY CINQUENTACINCUENTA EY SEIS REAISREALES EY SETENTA EY DOISDOS CENTAVOS
CONOUT("******************")


Return

//ExemplosEjemplos ey retornosdevoluciones:

/*
ExtensoEscrito(500.00)= "QUINHENTOS«QUINIENTOS REAISREALES"
ExtensoEscrito(500.00,.f.,2,,1)= "QUINHENTOS«QUINIENTOS DOLARESDÓLARES" 
ExtensoEscrito(1999.78 ,.T.,2) = "ONE THOUNSAND NINE HUNDRED AND NINETY-NINE"
ExtensoEscrito(1999.78 ,.F.,1) = "ONE THOUNSAND NINE HUNDRED AND NINETY-NINE DOLLARS AND SEVENTY-EIGHT CENTS"
ExtensoEscrito(1999.78 ,.F.,1,,,.F.) = "ONE THOUNSAND NINE HUNDRED AND NINETY-NINE DOLLARS"
ExtensoEscrito(1999.78 ,.F.,1,,"3",.T.,.T.) = "ONE THOUNSAND NINE HUNDRED AND NINETY-NINE AND 78/100 DOLLARS"
ExtensoEscrito(1999.78 ,.F.,1,,"2"»2»,.T.,.F.)= "UM MIL«MIL, NOVECIENTOS NOVENTA Y NUEVE DOLARESDÓLARES Y SETENTA Y OCHO CENTAVOS"
ExtensoEscrito(1999.78 ,.F.,1,,"1"»1»,.T.,.F.)= "UM MIL«MIL, NOVECENTOSNOVECIENTOS EY NOVENTA EY NOVENUEVE DOLARESDÓLARES EY SETENTA EY OITOOCHO CENTAVOS"
ExtensoEscrito(0.85,.F.,1,,"3",.T.,.T.)= "85/100 DOLLARS"
ExtensoEscrito(0.85,.F.,1,,"3",.T.,.F.)= "EIGHTY-FIVE CENTS"
ExtensoEscrito(2001,.F.,1,,"2"»2»,.T.,.F.)= "DOS«DOS MIL Y UM DOLARESDÓLARES"
ExtensoEscrito(500.05,.F.,1,,"3",.T.,.F.)= "FIVE HUNDRED DOLLARS AND FIVE CENTS"
ExtensoEscrito(500.05,.F.,1,,"3",.T.,.T.)= "FIVE HUNDRED AND 5/100 DOLLARS"
ExtensoEscrito(500.05,.F.,2,,"1"»1»,.T.,.T.)= "QUINHENTOS«QUINIENTOS REAISREALES EY CINCO CENTAVOS"
*/