Travar um DBGrid com no maximo 21 itens para um recibo
22/05/2003
0
Se você puder me ajudar eu e minhas filhas agradecemos desde já, muito obrigado.
Rodrigo Abreu
Posts
22/05/2003
Luza
1)
Toda vez que for incluir um registro no corpo do pedido checar a quantidade de registro na tabela que vc esta utilizando para incluir os itens do recibo.
2)
Construir um StringGrid e apos inclusao dos dados do recibo gravar em um banco de dados somente aas linhas incluidas no StringGrid
Espero ter auxiliado...
22/05/2003
Okama
if Table1.RecordCount >= 21 then Showmessage( ´Limite de 21 Linhas´);
22/05/2003
Sam
E faça a atualização da tabela toda vez que você for abrir o Form recibo. E os DataSet´s
do form recibo ficam apontados para a tabela RECIBO21.DB. Ex:
no evento ONCREATE do Form recibo
procedure TF_Form1.FormCreate(Sender: TObject);
var i : integer;
beging
tabrecibo21.emptytable; //limpa tabela de recibos
tabrecibo21.open; //tabela de recibo onde ficara apenas 21 registros
tabrecibo.open; // tabela onde contem todos os registros do recibo
tabrecibo.first; // seta o primeiro registro da tabela
while i <= 21 do // enquanto i for menor igual a 21 faça
begin
tabrecibo21.insert; //insere um novo registro na tabela rebibo21
tabrecibo21numerorecibo.text := tabrecibonumerorecibo.text; //faça isso para todos os campos das tabelas
...
...
...
...
...
tabrecibo21.post; //grava tabela recibo21
tabrecibo.next //próximo registro
i := i+1; incrementa i
end;
tabrecibo.close; // fecha a tabela de recibo
end;
Se vc quiser fazer do último registro para o primeiro troque:
TabRegistro.first; para TabRegistro.last;
e
TabRegistro.next; para TabRegistro.prior;
Espero ter ajudado !!!
Clique aqui para fazer login e interagir na Comunidade :)