problema com máscara, ajuda

[pena]

boa tarde, aparentemente era pra ser simples de se resolver, mas não consegui.

Tenho uma variável

Código: Selecionar todos

vcodigo:=" "

onde no banco de dados eu salvo ele com ".", resumindo é a cfop dos produtos.

meu codigo esta assim

Código: Selecionar todos

  @ Lpg+010,080 TEXTBOX T_Codigo               ;
                 WIDTH 60                       ;
                 VALUE vCodigo                  ;
                 FONT 'Arial' SIZE 09           ;
                 FONTCOLOR BLACK BOLD           ;
                 TOOLTIP 'Código do Cfop'       ;
                 NUMERIC INPUTMASK "9.999"

como falei por sua vez no banco grava ex: 5.102

quando vou acessar este registro
na tela o T_Codigo fica assim "..02"
ou seja, se eu tirar o

Código: Selecionar todos

 NUMERIC INPUTMASK "9.999"

fica normal, não sei como resolver, pq eu preciso da mascara
ja tentei colocar assim tb, mas nao funcionou

Código: Selecionar todos

                 VALUE tran( vCodigo,"@R 9.999")           ;

[HASA]

)

Pena, se o campo no BD for caractere apenas retire o NUMERIC ficando assim:

Código: Selecionar todos

@ Lpg+010,080 TEXTBOX T_Codigo       ;
        WIDTH 60           ;
        VALUE vCodigo         ;
        FONT 'Arial' SIZE 09     ;
        FONTCOLOR BLACK BOLD     ;
        TOOLTIP 'Código do Cfop'   ;
        INPUTMASK "9.999"

:)Pos

HASA

[pena]

Caraca, muito obrigado Hasa, :%
bem simples, não sei o que seria dos colegas empenhados a ajudar, to enferrujado, um abração :-Y