Baixar Lançamentos Selecionados
Boa Tarde Amigos(as)
Tenho o seguinte problema...
Na minha aplicação coloquei um DbGrid vinculada a minha tabela de pagamentos. O que eu quero fazer é o seguinte, quero selecionar alguns registros e baixar todos os selecionados. mudando o Status para baixado...
o que eu estava fazendo:
[i:b26c31fc98]dm.EDLAN.First;
While not dm.EDLAN.Eof do
begin
if FManutencaoPagamento.DBGrid1.SelectedRows.IndexOf(dm.EDLAN.BookMark) >= 0 then
begin
if dm.EDLANSTATUS.Value = ´Em Aberto´ then
begin
dm.EDLAN.Edit;
dm.EDLANSTATUS.Value := ´Baixado´;
dm.EDLANDATALIBERACAO.Value := Date;
dm.EDLAN.Post;
end else
begin
Pagamento := dm.EDLANCODPAGDIREITO.Value;
ShowMessage (´Verifique o Status do Pagamento Nº ´ + IntToStr (Pagamento));
end;
end;
dm.EDLAN.Next;[/i:b26c31fc98]
o problema desse codigo é q minha tabela tem muitos registro ai ele vai do primeiro até o ultimo testando se esta selecionado no DbGrid...
Tem outra maneira de ele ir direto para os selecionados e alterar o status?
Aguardo e agradeço....
Tenho o seguinte problema...
Na minha aplicação coloquei um DbGrid vinculada a minha tabela de pagamentos. O que eu quero fazer é o seguinte, quero selecionar alguns registros e baixar todos os selecionados. mudando o Status para baixado...
o que eu estava fazendo:
[i:b26c31fc98]dm.EDLAN.First;
While not dm.EDLAN.Eof do
begin
if FManutencaoPagamento.DBGrid1.SelectedRows.IndexOf(dm.EDLAN.BookMark) >= 0 then
begin
if dm.EDLANSTATUS.Value = ´Em Aberto´ then
begin
dm.EDLAN.Edit;
dm.EDLANSTATUS.Value := ´Baixado´;
dm.EDLANDATALIBERACAO.Value := Date;
dm.EDLAN.Post;
end else
begin
Pagamento := dm.EDLANCODPAGDIREITO.Value;
ShowMessage (´Verifique o Status do Pagamento Nº ´ + IntToStr (Pagamento));
end;
end;
dm.EDLAN.Next;[/i:b26c31fc98]
o problema desse codigo é q minha tabela tem muitos registro ai ele vai do primeiro até o ultimo testando se esta selecionado no DbGrid...
Tem outra maneira de ele ir direto para os selecionados e alterar o status?
Aguardo e agradeço....
Edsant
Curtidas 0
Respostas
Orc
29/10/2007
num é mais fácil ao invés de vc selecionar quando vc der 2 cliks no grid ele baixar a conta ???
GOSTEI 0
Edsant
29/10/2007
Não, porque quando eu dou 2 cliques eu abro o lançamento correspondente....
Obrigado pelo contato..
Se alguem puder me ajudar, estou aguardando..
Obrigado pelo contato..
Se alguem puder me ajudar, estou aguardando..
GOSTEI 0
Orc
29/10/2007
cria uma flag no banco de dados e cria um botão quando vc selecionar o registro e clicar no botão ele grava a flag no banco ai vc só verifica as que estão flegadas e da baixa
GOSTEI 0