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. //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:

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