Página 1 de 1

duvida com mascara?

Enviado: 24 Mai 2016 19:37
por pena
boa noite, to com a seguinte duvida, num campo numerico, eu determino uma variavel numerica exemplo :=0, porem, ao focar neste campo e digitar o valor necessario a informacao nao fica correta, e nao sei como resolver

Código: Selecionar todos

cVendedor:=0
// ele foi declarado no inicio do programa

          @ Lpg+013,080 TEXTBOX T_Vendedor             ;
                        WIDTH 060                      ;
                        VALUE cVendedor                ;
                        TOOLTIP 'Informe o Vendedor'   ;
                        FONT 'Arial' SIZE 09           ;
                        FONTCOLOR BLACK BOLD           ;
                        NUMERIC INPUTMASK 99999        ;
                        ON LOSTFOCUS Carrega_Vend_Clientes(Frm_Clientes.T_Vendedor.Value)



ao focar neste campo e digitar por exemplo 1, ele fica 10, pq ele nao substitui o zero, eu retirei o INPUTMASK, so que dae o campo fica estranho tambem, ele nao alinha a direita o numero, até funcionou como queria, mas ficou feio, qual solucao?

duvida com mascara?

Enviado: 24 Mai 2016 19:45
por pena
Pessoal, pesquisando, descobri que o GETBOX, com picture 99999 atendeu o que eu queria, mas mesmo assim, a nivel de conhecimento, como faria com textbox ?

duvida com mascara?

Enviado: 25 Mai 2016 09:52
por Toledo
Estranho isto, pois geralmente se o TEXTBOX já tem um valor, o seu conteúdo é totalmente selecionado e ao digitar o primeiro número o conteúdo selecionado é deletado.

Mas tenta isto:

Código: Selecionar todos

          @ Lpg+013,080 TEXTBOX T_Vendedor             ;
                        WIDTH 060                      ;
                        VALUE cVendedor                ;
                        TOOLTIP 'Informe o Vendedor'   ;
                        FONT 'Arial' SIZE 09           ;
                        FONTCOLOR BLACK BOLD           ;
                        NUMERIC                        ;
                        MAXLENGTH 5                    ;
                        RIGHTALIGN                     ;
                        ON LOSTFOCUS Carrega_Vend_Clientes(Frm_Clientes.T_Vendedor.Value)
Abraços,