PC SOFT

FORUMS PROFESSIONNELS
WINDEVWEBDEV et WINDEV Mobile

Accueil → WINDEV Mobile 24 → I need help to generate Extensive number, can anyone help me?
I need help to generate Extensive number, can anyone help me?
Débuté par adrianoboller, 18 nov. 2014 14:25 - Aucune réponse
Membre enregistré
3 003 messages
Popularité : +89 (91 votes)
Posté le 18 novembre 2014 - 14:25
Procedure ExtensoNumero(LOCAL Simbolo, LOCAL Valor, LOCAL MoedaMedida, LOCAL FalarSN)

NumeroExtenso is string = ""
sExt is string = "33"
nUniw is int = 6
nUndw is int = 9
nDezw is int = 9
nCenw is int = 12
sUni is string = "um dois três quatrocinco seis sete oito nove "
sUnd is string = "dez onze doze treze quatorze quinze dezesseisdezessetedezoito dezenove "
sDez is string = "vinte trinta quarenta cinqüentasessenta setenta oitenta noventa "
sCen is string = "cento duzentos trezentos quatrocentosquinhentos seiscentos setecentos oitocentos novecentos "

IF Simbolo <> "" AND Valor <> "" AND MoedaMedida <> "" THEN

IF PositionOccurrence(Valor,",",firstRank) THEN
NumeroExtenso = Valor
NumeroExtenso = Replace(Valor, "," ," e ")
NumeroExtenso = NumeroExtenso + MoedaMedida
END

IF FalarSN = "" THEN
LerTexto(NumeroExtenso,"","","")
END

END

NOT OK!!!!!!!!!