converter valor, perdendo pra linguagem???

por **pena** » 11 Mar 2019 17:31

Boa tarde pessoal, alguem por favor me da uma luz, não sei o que estou fazendo errado
tenho um label onde

a:=Form.valor.value
msgStop(a)                      = 1.722,95
msgStop(val(a))               = 1.722000 
a:=STRTRAN(Form.valor.value,',','.')
msgStop(a)                      = 1,722.95
msgStop(val(a))               = 1,722000

não sei como corrigir isto, desaprendi

por **sygecom** » 11 Mar 2019 22:43

Será que você não está usando uma mascara de TEXTO nesse campo, ou iniciando como carácter ?

por **Nascimento** » 12 Mar 2019 00:11

tem como vc melhorar um pouco o exemplo , explicando melhor ficou meio vago no que vc realmente quer amigo
se possivel um pequeno exemplo compilavel , para melhor entendimento

por **pena** » 12 Mar 2019 08:32

a situação é a seguinte, eu importo dados de xml

Form.valor.value              :=transform(val(PegaDadosXML(tVrNfe,"vNF"))    ,"@E@Z 999,999,999.99")

depois tenho que converter o campo para numerico

eu preciso transformar esse valor em numérico e simplesmente não consigo, so que estranhamente, valores de 5 digitos funcionam 555,55 mas se tiver 6666,66 e corta depois da virgula

por **pena** » 12 Mar 2019 09:33

consegui fazer, não sei pq, mas passei pra uma variavel que criei antes, ae funcionou

local a:=0
a:=STRTTRAN(Form.valor.value,',','.')
MOVNF->TOTAL = val(a)

por **JoséQuintas** » 13 Mar 2019 00:48

Internamente os números sempre são com ponto decimal e não vírgula.
Esse foi o problema.
Quanto à picture @E@Z...... pode usar a picture do zé..... @ZE