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!!!!!!!!!