Entrada de código em um EditMask

[FabioRubim 0]

Ola galera....

 

Eu estou querendo fazer uma pesquisa em uma tabela de produtos pelo código dele, só que o código tem várias partes, tem Peça(4 dígitos), Linha(3 dígitos),Bitola(3 dígitos),Caracteristica(3 dígitos), sóq que todos menos a Peça pode preencher todos os digitos ou não.... e se por exemplo eu tenho 1552-C -012-" " os espaços da Linha e da Caracteristicas são contados na Tabela Produtos....como faço para ter uma máscara, ou outra coisa, para quando eu quiser pular partes desse código seja procurado como espaços?

 

Estou fazendo assim a procura:

 

No evento OnChange do MaskEdit coloco esse código:

 

DM_Principal.qryProdutos.Locate('Cd_Pro',edtPeca.Text+edtLinha.Text+edtBitola.Text+edtCarac.Text+edtCor.Text,[loPartialKey]);

 

se puderem me ajudar...

 

obrigado de qualquer maneira!

[marcio.theis 3]

Tente colocar na máscara o n° 9...

Mais detalhes sobre máscara pode ver neste post.

[FabioRubim 0]

Então Marcio,´eu preciso usar letras tmb, colocando o 9 não da....e que caso eu digite um só caractere aonde vai 3 por exemplo, os outros dois fiquem espaços.alguma idéia?

[marcio.theis 3]

você chegou a olhar o link que repassei no post anterior ?Explica todos os tipos possíveis de máscara...

[FabioRubim 0]

Li sim,, é a mesma coisa que diz no Help do Access....só que ainda não sei como presevar o espaço e o mesmo ser usado na pesquisa...

[Rodrigo Miss 1]

Se eu entendi direito, você pode trocar os espaços pelo caracter curinga "%"

 

var  Consulta: String;begin  Consulta:= StringReplace(Edit1.Text, ' ', '%', [rfReplaceAll]);

dai basta usar o Consulta pra consultar os dados dentro de uma instrução SQL

 

ok!! Espero q lhe ajude

[FabioRubim 0]

Não da, pois eu uso os espaços, esses espaços estão nos campos do BD..mas.....ja resolvi...

Fiz assim, com a função abaixo ela repete determinado caractare(no caso o " ", espaço) quantas vezes for passada no parâmetro e fazendo concatenação:

 

function TfrmOrcamentos.Replicate(Caracter: String;Quant: Integer): String;var I : Integer;beginResult := '';  for I := 1 to Quant do	  Result := Result + Caracter;end;

Depois fiz assim no evento OnExit do Edit:

 

if (Length(edtBitola.Text) < 3 ) then	edtBitola.Text:=edtBitola.Text +(Replicate(' ',(3- Length(edtBitola.Text))));

E fui fazendo em todos os Edits que precisava e pronto!

 

 

Obrigado mesmo pessoal, qualquer coisa posto ai de novo! http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif

[marcio.theis 3]

beleza... realmente, as vezes a solução para o problema temos de criar...

Bom que postou a forma que você encontrou... http://forum.imasters.com.br/public/style_emoticons/default/thumbsup.gif