Formatação no GET

[Daniel_halon]

Olá pessoal, preciso de ajuda:

1) Como limito a entrada de carateres no maximo em 5 quando utilizo no get o parâmetro password, já que não posso misturar o picture com o password, já tentei MAXLENGHT, porén da erro de picture ao compilar.

2) Nesta função, como posso fazer para deixar o foco em OK, já que como esta, ao presionar o enter não acontece nada.

3) No XP os tooltip funcionan, mas no W98 não, estou fazendo algo errado?

@ 14, 20 Say "Usuário:" SIZE 80,20 Tooltip 'Digite sua matrícula'
@110, 20 Get getcUsuario VAR cUsuario SIZE 80, 20 picture '!!!!!!!!' TOOLTIP "Digite sua matricula"

@ 14, 50 Say "Senha:" SIZE 80, 20
@110, 50 Get getcSenha VAR vSenha SIZE 80, 20 PASSWORD STYLE ES_AUTOHSCROLL
TOOLTIP "Digite sua Senha"

@ 117,80 BUTTON btnOk CAPTION "OK" Size 70,20;
ON CLICK {||EndDialog()} Tooltip 'OK'

@ 22,80 BUTTON btnCancel CAPTION "Cancela" Size 70,20;
ON CLICK {||EndDialog()} Tooltip 'Sair'

ACTIVATE DIALOG odlgLogin


ENDIF



Obrigado, Daniel

[Itamar M. Lins Jr.]

Ola!
Cadê a declaração das variaveis?

ex:
vSenha := spac(5)
....
//NO GET COM SENHA:
PICTURE "XXXXX"
//remova o STYLE
//Para o foco ficar no botão ao abrir o DIALOG:

oDlgLogin:bActivate := {||bntOk:SetFocus()}

ACTIVATE DIALOG odlgLogin

Saudações
Itamar M. Lins Jr.

[Daniel_halon]

Valeu Itamar,

Não postei a função completa para ser mas ameno, mas estão declaradas no inicio da função, porém se declaro vSenha := space(5), o get do password aparece cheio de asteriscos.

Tenho entendido que quando se utuliza o password não e possível o uso do picture, ate tratei de usar mas da erro de transform...
Vou testar o teu exemplo.

Obrigadão :{

[Itamar M. Lins Jr.]

Valeu Itamar,

Não postei a função completa para ser mas ameno, mas estão declaradas no inicio da função, porém se declaro vSenha := space(5), o get do password aparece cheio de asteriscos.

Está correto seu raciocinio, é só declarar:

vSenha := "" //sem espaços mesmo
e colocar na picture "XXXXX"
Que vai funcionar.

Saudações
Itamar M. Lins Jr.

[ederxc]

Amigos e no caso de um get comum "caracter" com picture "@" o que pode ser feito , pois em meu get ele passa o tamanho declarado pela varivel

Código: Selecionar todos

priv vforn:=space(50)

@24, 95 get oForn var vForn picture "@" size 350,20 // ele deixa digitar sem //limites

See ya :xau

[Itamar M. Lins Jr.]

Amigos e no caso de um get comum "caracter" com picture "@" o que pode ser feito , pois em meu get ele passa o tamanho declarado pela varivel

Código: Selecionar todos

priv vforn:=space(50)

@24, 95 get oForn var vForn picture "@" size 350,20 // ele deixa digitar sem //limites

See ya :xau

Faça assim:

PICTURE REPLICATE('X',50)

Ps. tem um erro no seu picture tambem. para quer serve o @ puro?

Saudações
Itamar M. Lins Jr.

[ederxc]

Dessa forma ao digitar qualquer caracter o cursor pula para o meio do campo get0

Código: Selecionar todos

@100,94  GET oForn    var vForn   picture repl("x",50)  size 430,20

Código: Selecionar todos

a                                           |a                           

// dessa forma

[Itamar M. Lins Jr.]

Dessa forma ao digitar qualquer caracter o cursor pula para o meio do campo get0

Código: Selecionar todos

@100,94  GET oForn    var vForn   picture repl("x",50)  size 430,20

Código: Selecionar todos

a                                           |a                           

// dessa forma

É X MAIUSCULO! e podes usar tambem STYLE ES_LEFT no campo ou CENTER ou RIGHT

Saudações
Itamar M. Lins Jr.

[ederxc]

...rsrs , após ter postado fiz os teste e acabei achando o erro , bom fica ae pra quem passar pelo mesmo ...

Vlw, brow! :)Pos

[ederxc]

Agora me deparei com o campo NUmérico e esta dando zebra tambem

Código: Selecionar todos

vvar:=0

@24,100 get oVar var vVar  picture"99.999.999/9999.99"

dessa forma não fnciona

Código: Selecionar todos

vvar:=space(valor)

@24,100 get oVar var vVar  picture"99.999.999/9999.99"

assim funciona ,mas creio que ira dar um problema na hora de gravar no DB , pois a variavel por sua vez se torna CARACTER e o campo no DB é numérico ....
:(Neg

[Itamar M. Lins Jr.]

Agora me deparei com o campo NUmérico e esta dando zebra tambem

Código: Selecionar todos

vvar:=0

@24,100 get oVar var vVar  picture"99.999.999/9999.99"

dessa forma não fnciona

Código: Selecionar todos

vvar:=space(valor)

@24,100 get oVar var vVar  picture"99.999.999/9999.99"

assim funciona ,mas creio que ira dar um problema na hora de gravar no DB , pois a variavel por sua vez se torna CARACTER e o campo no DB é numérico ....
:(Neg

Isso ai em cima é o quê?
Campo numerico?
Parece com CNPJ se for mude no dbf para campo caractere.

Pode usar tambem assim:
vVar := spac(14)
@24,100 get oVar var vVar picture"@R 99.999.999/9999.99"

Use o "@R" que mostra apenas no get, mas não fica no conteúdo.

na hora de gravar:

Replace xyz with val(vVar)

Saudações
Itamar M. Lins Jr.

[ederxc]

Brother , entendi perfeitamente o que deve ser feito , mas fica uma duvida no ar , pq muita gente usa campo caracter para exebir informações numéricas , tais como :

telefone
IE
CNPJ //é isso mesmo
cep

etc...

Outra questão

A mascara só se ajusta devidamente em seu devido lugar após os gets serem preenchidos, até então permanecem meio que "amontoadas " teria como mudar este efeito??



para campos R$ relacinados a dinheiro , teria como começar a digitação pelas casas decimais , "igual nos caixas de banco " ??



descupa ae o abuso de perguntas , mas sabe como é mas vale arriscar do que ficar na duvida té++++
:)Pos

[ederxc]

up

[Maligno]

Brother , entendi perfeitamente o que deve ser feito , mas fica uma duvida no ar , pq muita gente usa campo caracter para exebir informações numéricas , tais como :

É uma regra simples: se não for precisar realizar cálculos com os números, deve-se armazená-los como caractere.

A mascara só se ajusta devidamente em seu devido lugar após os gets serem preenchidos, até então permanecem meio que "amontoadas " teria como mudar este efeito??

Essa eu não entendi.

para campos R$ relacinados a dinheiro , teria como começar a digitação pelas casas decimais , "igual nos caixas de banco " ??

No Clipper muita gente usa esse esquema de preenchimento, que é muito melhor. Mas só depois de alterar o GETSYS pra que isso seja possível. No XHarbour não sei como é feito. Mas provavelmente algo também terá de ser alterado.

descupa ae o abuso de perguntas , mas sabe como é mas vale arriscar do que ficar na duvida té++++

Nem precisa se desculpar. Fórum, como último recurso, é pra tirar dúvida mesmo.

[ederxc]

A mascara só se ajusta devidamente em seu devido lugar após os gets serem preenchidos, até então permanecem meio que "amontoadas " teria como mudar este efeito??

Essa eu não entendi.

Código: Selecionar todos

CNPJ .. / -      

Assim fica exibido no get ANTES de ser preeenchido
tudos os pontos juntos sem o devido espaçamento entre os caracteres

ou seja onde era pra ter espaço para 02 , 03 ou 04 caracteres tem apenas espaço para um

Código: Selecionar todos

 CNPJ 55.555.555/0005.55

Apos ser preenchido os pontos da mascara vão para seu devido lugar !


Ae deu pra saca , ñ é bem um erro é mais um probleminha de pré-visualização