com Consulta SQL+Data

[Sérgio H. Martins 0]

Ola pessoal, gostaria de uma ajudinha se possível.

 

Estou fazendo um sistema de calculo de juros que faz a busca por cliente em uma base de dados access 2007 de um sistema ja pronto da empresa.

 

Estou tentando fazer a pesquisa por código do cliente que tenham sua faturas não pagas com data anterior a data atual do edit tal. Segue abaixo o que ja fiz, pois pesquisar por código + situação AP eu consegui, mas como faço para pegar esta consulta e filtrar também por data anterior a do edit?

 

CODE

consulta:integer;

begin

if key=#13 then

begin

with dm.ADOQueryjurossei do

begin

consulta:=strtoint(edit12.text);

datavenc:=edit3.Text;

Close;

SQL.Clear;

SQL.Add('select * from faturas');

SQL.Add('where txt_situac =("AP")');

SQL.Add('and num_codcli =:appCliente');

parameters.ParamByName('appCliente').Value:=consulta;

open;

 

**A data de vencimento que preciso que a consulta gerada por este código seja anterior esta no edit (edit3.text).

 

Agradeço a atenção de todos.

 

Obrigado

 

Att

Sérgio Martins

[Rodrigo Miss 1]

var

DtaVcto: TDate;

begin

DtaVcto:= StrToDate(Edit3.Text);

 

SQL.Add('AND DTAVCTO < :pDataAtual');

Parameters.ParamByName('pDataAtual').Value:= FormatDateTime('dd/mm/yyyy', DtaVcto);

[Sérgio H. Martins 0]

Ola Rodrigo Obrigado pela ajuda, mas agora estou com uma dúvida, tentei colocar seu exemplo em meu código, mas como faço esta pesquisa utilizando dois parametros por exemplo um subselect da primeira pesquisa feita?

 

Segue abaixo meu código mas não funciona ele não le um dos parametros.

 

CODE

if key=#13 then

begin

with dm.ADOQueryjurossei do

begin

consulta:=strtoint(edit12.text);

 

DtaVcto:= StrToDate(Edit7.Text);

Close;

SQL.Clear;

SQL.Add('select * from faturas');

SQL.Add('where txt_situac =("AP")');

SQL.Add('and num_codcli =:appCliente');

SQL.Add('AND DTAVCTO < :pDataAtual');

Parameters.ParamByName('pDataAtual').Value:= FormatDateTime('dd/mm/yyyy', DtaVcto);

parameters.ParamByName('appCliente').Value:=consulta;

Open;

 

Obrigado pela ajuda.

 

Att

Sérgio Martins

[Sérgio H. Martins 0]

Ola pessoal

 

Alguem teria uma idéia de como posso fazer isso, pensei em um subselect mas não consigo fazer.

 

Obrigado pela Atenção

 

Sergio Martins