Codigo para convertir un string a decimal
Marcos,
Encontre la rutina donde hacia algo parecido.
Te la paso avisame si te sirvio.
Las Variables Locales que uso:
LOC:String String (20 caracteres)
LOC:RecibeNumero Group
Car String (1 Caracter) Dimension 20
LOC:Numero Decimal 16.2
el còdigo que use es:
C# = 0
I# = 20
LOOP C# = 20 TO 1 BY -1 ! Loop para recorrer el String
Case Sub(LOC:String,C#,1) ! me fijo que caracter tiene en la posicion C#
of '0'
Car[I#] = 0
of '1'
Car[I#] = 1
of '2'
Car[I#] = 2
of '3'
Car[I#] = 3
of '4'
Car[I#] = 4
of '5'
Car[I#] = 5
of '6'
Car[I#] = 6
of '7'
Car[I#] = 7
of '8'
Car[I#] = 8
of '9'
Car[I#] = 9
of '.'
Car[I#] = '.' ! le pongo el punto decimal
End
I# -= 1
End
LOC:Numero = LOC:RecibeNumero
Message ('LOC:RecibeNumero '&LOC:RecibeNumero & ' LOC:Numero '&LOC:Numero) ! Muestro las variables
! Seguramente hay muchas formas de obtener lo mismo.
! Esta a mi me funciono bien.
Saludos