O que há de errado nestas Querys???
Eu tenho um Form que possui duas Querys e dois DBGrids.
A primeira DBGrid mostra Datas de contas em vencimento. Sendo que a Tabela de ´Contas em vencimento´ possui um campo: ´Cod_Vencimento´.
A segunda DBGrid mostra Datas de pagamentos que foram efetuados. Sendo que esta Tabela de ´Contas Pagas´ possui o mesmo campo: ´Cod_Vencimento´ para identificar as contas que já foram pagas mostradas na DBGrid anterior.
Quando o usuário cadastra uma nova conta paga, a segunda DBGrid mostra os dados do pagamento. Mas eu queria que esta conta paga deixasse de ser mostrada na DBGrid de ´Contas em vencimento´. Pois a mesma já foi paga.
Eu tentei fazer o seguinte, mas não deu certo:
No evendo ON_Load do Form e coloquei o seguinte comando:
Procedure FormLoad...()
Begin
var venc AsInteger;
Query1.SQL.Text := ´SELECT Cod_Vencimento FROM TabPagas´;
Query1.Open;
do while Not Query1.EOF
begin
venc := Query1.CodVencimento;
Query2.SQL.Text := ´SELCT * FROM TabVencimento WHERE Cod_vencimento <> :=venc´;
end;
Query1.MoveNext
loop
End;
Liguei a Query1 na 1ª DBGrid
Liguei a Query2 na 2ª DBGrid
Mas isso não funciona!!!
Alguém sabe como eu posso fazer isso desta ou de outra forma???
Obrigado.
A primeira DBGrid mostra Datas de contas em vencimento. Sendo que a Tabela de ´Contas em vencimento´ possui um campo: ´Cod_Vencimento´.
A segunda DBGrid mostra Datas de pagamentos que foram efetuados. Sendo que esta Tabela de ´Contas Pagas´ possui o mesmo campo: ´Cod_Vencimento´ para identificar as contas que já foram pagas mostradas na DBGrid anterior.
Quando o usuário cadastra uma nova conta paga, a segunda DBGrid mostra os dados do pagamento. Mas eu queria que esta conta paga deixasse de ser mostrada na DBGrid de ´Contas em vencimento´. Pois a mesma já foi paga.
Eu tentei fazer o seguinte, mas não deu certo:
No evendo ON_Load do Form e coloquei o seguinte comando:
Procedure FormLoad...()
Begin
var venc AsInteger;
Query1.SQL.Text := ´SELECT Cod_Vencimento FROM TabPagas´;
Query1.Open;
do while Not Query1.EOF
begin
venc := Query1.CodVencimento;
Query2.SQL.Text := ´SELCT * FROM TabVencimento WHERE Cod_vencimento <> :=venc´;
end;
Query1.MoveNext
loop
End;
Liguei a Query1 na 1ª DBGrid
Liguei a Query2 na 2ª DBGrid
Mas isso não funciona!!!
Alguém sabe como eu posso fazer isso desta ou de outra forma???
Obrigado.
A24
Curtidas 0
Respostas
Aroldo Zanela
11/04/2003
Colega,
Tá uma mistura de VB com Delphi. Faça o seguinte, copia o código e coloca aqui pra gente ´debugar´.
Tá uma mistura de VB com Delphi. Faça o seguinte, copia o código e coloca aqui pra gente ´debugar´.
GOSTEI 0
Laureano Pereira
11/04/2003
Amigo,
você pode fazer assim:
Cria as duas querys, na abertura do form,
e a medida que o usuário paga uma conta no contas a vencer,
você refaz as querys.
Se você filtrar as querys por mês o por fornecedor, os dados podem não ser muitos, o que seria até rápido.
Depois me diga se funcionou...
Abraços
você pode fazer assim:
Cria as duas querys, na abertura do form,
e a medida que o usuário paga uma conta no contas a vencer,
você refaz as querys.
Se você filtrar as querys por mês o por fornecedor, os dados podem não ser muitos, o que seria até rápido.
Depois me diga se funcionou...
Abraços
GOSTEI 0