Pesquisa Incremental

Question

Tenho um Sistema de Estoque que tem buca pelo codigo de barra, mais caso n�o saiba o codigo vc digita a letra do inicial do nome do produto, quando o sistema verifica q � letra ele abre um tela de bus...

Paullsoftware · Answer

como vc est� fazendo esse c�digo?est� armazenando as strings em alguma vari�vel?...

Leorez · Answer

try
DMEst.qryLocEdicoes.Close;
DMEst.qryLocEdicoes.SQL.Text := � exec spLocEdicao �+ DMEst.qryInstAtual.fieldbyName(�Codi_Inst�).AsString ;
DMEst.qryLocEdicoes.Open;
TDateTimeField(DMEst.qryLocEdicoes.FieldByName(�DtUltimaComp�)).DisplayFormat := �dd/mm/yyyy�;

DMEst.lPesquisa := False;
FrmLocItenEstoque := TFrmLocItenEstoque.Create(Application);;
FrmLocItenEstoque.edtPesquisa.Text := edtCodi_Barra.Text;
FrmLocItenEstoque.ShowModal;
finally
DMEst.qryEdicoes.Filtered := False;
FrmLocItenEstoque.Release;
FrmLocItenEstoque := nil;
end;

Paullsoftware · Answer

Onde voc� est� disparando esse c�digo?[code:1:ed96668849]FrmLocItenEstoque.edtPesquisa.Text := edtCodi_Barra.Text;[/code:1:ed96668849]poderia ser assim:Cria uma vari�vel Global do tipo String [quote:ed96668849]StrPesquisa : WideString;[/quote:ed96668849]passa o valor digitado para ela:[code:1:ed96668849]StrPesquisa := edtCodi_Barra.Text;[/code:1:ed96668849]no evento OnCreate ou OnShow do seu Formul�rio voc� atribui o valor dessa String ao campo desejado...[code:1:ed96668849]//OnCreate ou OnShow do Form Destino...edtPesquisa.Text := StrPesquisa;[/code:1:ed96668849]Sem esquecer de limpar a vari�vel sempre que fechar o Form...[code:1:ed96668849]StrPesquisa := ��;[/code:1:ed96668849] espero ter ajudado  :wink:...

Leorez · Answer

Amigo j� fiz isso tb vc pode at� testar ai. caso tenha outra id�ia me fala, agrade�o a sua aten��o!...

Paullsoftware · Answer

voc� ta colocando esse c�digo em que evento?...