continuar consulta com bitbtn
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 registro com o memso numero ou código de barras clicar para ele pegar o próximo registro, só que eu nao sei como fazer o código, se alguem puder ajudar....
desde já agradeço.
desde já agradeço.
Bruno_costa
Curtidas 0
Respostas
Mmtoor
21/08/2003
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
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
GOSTEI 0