continuar consulta com bitbtn

Question

estou fazendo um formulario de cadastro de lan�amento de entradas em estoque, ao fazer a consulta por meio do numero do documento ou pelo c�digo de barras, eu ativo um btn se por acaso tiver mais um r...

Mmtoor · Answer

Bem. em primeiro lugar o campo que deseja ativar para a pesquisa precisa ser um �ndice secund�rio em sua tabela, n�o sei qual tipo est� usando.
Por exemplo. suponha que o campo de pesquisa seja codbarra.
a rotina do seu btn fica assim:
var
Msg: String;
Base: String;
Begin
table1.indexname:= �indcodbarra�;
Msg:= �Insira o n�mero do c�digo�;
Base:= inputbox(�Pesquisar�,Msg,��);
If table1.findkey([Base]) Then
messagedlg(�C�digo inexistente no sistema�);
end;

Espero ter ajudado.
whiteband@ig.com.br

F�rum continuar consulta com bitbtn #176504