Histórico da Página

...

nNumToExt	Valor generado por escrito.
lQuantid	Determina si el extenso texto escrito será en valor o en cantidad (estándar = .F.).
nMoeda	Identifica la descripción de la moneda que se obtendrá del parámetro MV_MOEDAx (con x= 1...5).
cPrefixo	Prefijo alternativo. Si se especifica, determina la devolución por escrito, haciendo que la unidad monetaria no se devuelva (estándar = \" \" ).
cIdioma	Determina en qué idioma debe devolverse el valor por escrito (1=Port,2=Espa,3=Ingl). El estándar es el idioma del sistema.
lCent	Determina si la función debe traer los centavos. El estándar es .T..
lFrac	Determina si los centavos deben devolverse en modo fraccionado (solamente se ejecuta con cIdioma = 3 (Inglés) ).
lUsaCon	-Especifica si se utilizará «y» o «con» (Solamente se utiliza en el idioma español).
cPosMoed	cPosMoed -Especifica la posición de la descripción de la moneda (1=Antes del texto; 2=Entre los valores enteros y los centavos; 3=Al final del texto)

...

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. //SolamenteSomente españolespanhol
cPosMoed    := "2"

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

CONOUT("******************")
CONOUT(cTexto)//TRES MIL, CUATROCIENTOSQUATROCENTOS YE CINCUENTACINQUENTA YE SEIS REALESREAIS YE SETENTA YE DOSDOIS CENTAVOS
CONOUT("******************")


Return

//EjemplosExemplos ye devolucionesretornos:

/*
EscritoExtenso(500.00)= «QUINIENTOS"QUINHENTOS REALESREAIS"
EscritoExtenso(500.00,.f.,2,,1)= «QUINIENTOS"QUINHENTOS DÓLARESDOLARES" 
EscritoExtenso(1999.78 ,.T.,2) = "ONE THOUNSAND NINE HUNDRED AND NINETY-NINE"
EscritoExtenso(1999.78 ,.F.,1) = "ONE THOUNSAND NINE HUNDRED AND NINETY-NINE DOLLARS AND SEVENTY-EIGHT CENTS"
EscritoExtenso(1999.78 ,.F.,1,,,.F.) = "ONE THOUNSAND NINE HUNDRED AND NINETY-NINE DOLLARS"
EscritoExtenso(1999.78 ,.F.,1,,"3",.T.,.T.) = "ONE THOUNSAND NINE HUNDRED AND NINETY-NINE AND 78/100 DOLLARS"
EscritoExtenso(1999.78 ,.F.,1,,»2»"2",.T.,.F.)= «MIL,"MIL NOVECIENTOS NOVENTA Y NUEVE DÓLARESDOLARES Y SETENTA Y OCHO CENTAVOS"
EscritoExtenso(1999.78 ,.F.,1,,»1»"1",.T.,.F.)= "UM «MILMIL, NOVECIENTOSNOVECENTOS YE NOVENTA YE NUEVENOVE DÓLARESDOLARES YE SETENTA YE OCHOOITO CENTAVOS"
EscritoExtenso(0.85,.F.,1,,"3",.T.,.T.)= "85/100 DOLLARS"
EscritoExtenso(0.85,.F.,1,,"3",.T.,.F.)= "EIGHTY-FIVE CENTS"
EscritoExtenso(2001,.F.,1,,»2»"2",.T.,.F.)= «DOS"DOS MIL Y UM DÓLARESDOLARES"
EscritoExtenso(500.05,.F.,1,,"3",.T.,.F.)= "FIVE HUNDRED DOLLARS AND FIVE CENTS"
EscritoExtenso(500.05,.F.,1,,"3",.T.,.T.)= "FIVE HUNDRED AND 5/100 DOLLARS"
EscritoExtenso(500.05,.F.,2,,»1»"1",.T.,.T.)= «QUINIENTOS"QUINHENTOS REALESREAIS YE CINCO CENTAVOS"
*/

04. OTRAS INFORMACIONES

Función genérica - Extenso

...

Atalhos

Árvore de páginas

Versões comparadas

Versão antiga 3

Nova versão Atual

Chave

04. OTRAS INFORMACIONES