Não sai decimal certa

Discussão em 'Progress 4GL' iniciado por maicon, Novembro 20, 2012.

  1. maicon

    maicon Membro Participativo

    Bom dia
    Tenho a seguinte questão:
    Não grava na tabela a decimal correta,
    O correto é 0,56 e ele está gravando 56,00, veja o fonte:

    DEF VAR texto AS CHAR FORMAT "X(20)".
    ASSIGN texto = "0000000000056".

    DEF TEMP-TABLE t-tabela NO-UNDO
    FIELD valor AS DEC FORMAT ">>>9.99".

    DEF VAR valor AS DEC FORMAT ">>>9.99".

    ASSIGN valor = dec(texto).

    CREATE t-tabela.
    ASSIGN t-tabela.valor = valor.

    DISP t-tabela.valor.

    O que pode ser?
  2. LFBuozi

    LFBuozi Membro Participativo

    Mas você está jogando o valor 56 na variável valor mesmo.
    Use uma alternativa para este caso:
    Código:
    ASSIGN valor = dec(texto) / 100.
  3. maicon

    maicon Membro Participativo

    Legal cara,
    Deu certo!

    Uma solução tão simples, mas 100% eficaz!
    Obrigado

Compartilhe esta Página