Limitador na DBGrid
Tenho um formulário com Tabela Master (cabeçalho) e Detalhes (que seria o corpo de uma nota).
A Detalhes é um DBGrid em que no Tab vou adicionando registros.
O fato é que preciso limitar a quantidade de registros (ou de linhas) que possa ser adicionado na respectiva ´nota´.
Como posso fazer isso? :?:
A Detalhes é um DBGrid em que no Tab vou adicionando registros.
O fato é que preciso limitar a quantidade de registros (ou de linhas) que possa ser adicionado na respectiva ´nota´.
Como posso fazer isso? :?:
Osmar Cardoso
Curtidas 0
Respostas
Okama
31/03/2003
if Tabela.Reccount >= 20 then begin
Showmessage(´Limite de 20 itens´);
exit;
end;
Seria isso??
Showmessage(´Limite de 20 itens´);
exit;
end;
Seria isso??
GOSTEI 0
Aroldo Zanela
31/03/2003
[quote:85192f8a26=´Osmar Cardoso´]Tenho um formulário com Tabela Master (cabeçalho) e Detalhes (que seria o corpo de uma nota).
A Detalhes é um DBGrid em que no Tab vou adicionando registros.
O fato é que preciso limitar a quantidade de registros (ou de linhas) que possa ser adicionado na respectiva ´nota´.
Como posso fazer isso? :?:[/quote:85192f8a26]
Osmar,
Você não informou o banco de dados, então vou tentar apresentar uma solução genérica e dependendo do banco, menos eficiente:
Coloque uma rotina para incrementar um contado de registros no evento OnNewRecord;
Coloque uma rotina para verifiicar se o número limite já foi atingido no evento BeforeInsert. Por exemplo:
A Detalhes é um DBGrid em que no Tab vou adicionando registros.
O fato é que preciso limitar a quantidade de registros (ou de linhas) que possa ser adicionado na respectiva ´nota´.
Como posso fazer isso? :?:[/quote:85192f8a26]
Osmar,
Você não informou o banco de dados, então vou tentar apresentar uma solução genérica e dependendo do banco, menos eficiente:
Coloque uma rotina para incrementar um contado de registros no evento OnNewRecord;
Coloque uma rotina para verifiicar se o número limite já foi atingido no evento BeforeInsert. Por exemplo:
OnBeforeInsert... if tblITENS.Value >= 10 then begin ShowMessage(´Não é possível mais adicionar registro para esta NF´); SysUtils.Abort; end;
GOSTEI 0
Osmar Cardoso
31/03/2003
if Tabela.Reccount >= 20 then begin
Showmessage(´Limite de 20 itens´);
exit;
end;
Seria isso??
Okama,
Em qual evento devo por esse comando?
GOSTEI 0
Marcelo
31/03/2003
[quote:27c2f0e81b=´Osmar Cardoso´]
Okama,
Em qual evento devo por esse comando?[/quote:27c2f0e81b]
No evento que vc usa pra incluir os dados na tabela....
Valeu?
at+...
if Tabela.Reccount >= 20 then begin
Showmessage(´Limite de 20 itens´);
exit;
end;
Seria isso??
Okama,
Em qual evento devo por esse comando?[/quote:27c2f0e81b]
No evento que vc usa pra incluir os dados na tabela....
Valeu?
at+...
GOSTEI 0
Osmar Cardoso
31/03/2003
[quote:a954a4f935=´Osmar Cardoso´][quote:a954a4f935=´Okama´]if Tabela.Reccount >= 20 then begin
Showmessage(´Limite de 20 itens´);
exit;
end;
Seria isso??
Okama,
Em qual evento devo por esse comando?[/quote:a954a4f935]
No evento que vc usa pra incluir os dados na tabela....
Valeu?
at+...[/quote:a954a4f935]
GRATO, VC AJUDOU E MUITO.
ABRAÇOS
GOSTEI 0