Histórico da Página

#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. //Solamente español
cPosMoed    := "2"

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

CONOUT("******************")
CONOUT(cTexto)//TRES MIL, CUATROCIENTOS Y CINCUENTA Y SEIS REALES Y SETENTA Y DOS CENTAVOS
CONOUT("******************")


Return

//Ejemplos y devoluciones:

/*
EscritoPor escrito(500.00)= «QUINIENTOS REALES"
EscritoPor escrito(500.00,.f.,2,,1)= «QUINIENTOS DÓLARES" 
EscritoPor escrito(1999.78 ,.T.,2) = "ONE THOUNSAND NINE HUNDRED AND NINETY-NINE"
EscritoPor escrito(1999.78 ,.F.,1) = "ONE THOUNSAND NINE HUNDRED AND NINETY-NINE DOLLARS AND SEVENTY-EIGHT CENTS"
EscritoPor escrito(1999.78 ,.F.,1,,,.F.) = "ONE THOUNSAND NINE HUNDRED AND NINETY-NINE DOLLARS"
EscritoPor escrito(1999.78 ,.F.,1,,"3",.T.,.T.) = "ONE THOUNSAND NINE HUNDRED AND NINETY-NINE AND 78/100 DOLLARS"
EscritoPor escrito(1999.78 ,.F.,1,,»2»,.T.,.F.)= «MIL, NOVECIENTOS NOVENTA Y NUEVE DÓLARES Y SETENTA Y OCHO CENTAVOS"
EscritoPor escrito(1999.78 ,.F.,1,,»1»,.T.,.F.)= «MIL, NOVECIENTOS Y NOVENTA Y NUEVE DÓLARES Y SETENTA Y OCHO CENTAVOS"
EscritoPor escrito(0.85,.F.,1,,"3",.T.,.T.)= "85/100 DOLLARS"
EscritoPor escrito(0.85,.F.,1,,"3",.T.,.F.)= "EIGHTY-FIVE CENTS"
EscritoPor escrito(2001,.F.,1,,»2»,.T.,.F.)= «DOS MIL DÓLARES"
EscritoPor escrito(500.05,.F.,1,,"3",.T.,.F.)= "FIVE HUNDRED DOLLARS AND FIVE CENTS"
EscritoPor escrito(500.05,.F.,1,,"3",.T.,.T.)= "FIVE HUNDRED AND 5/100 DOLLARS"
EscritoPor escrito(500.05,.F.,2,,»1»,.T.,.T.)= «QUINIENTOS REALES Y CINCO CENTAVOS"
*/