Ajuda com Filtro

21/05/2003

2

Olá, pessoal
Código abaixo está dando erro, ele fala que o Data Set não suporta a aritimetica. Mas quando coloco o valor da string dentro, Ex: Table1.Filter := ´Data_Pagamento = Null AND Data_Vencimento <= 01/01/04´ ele aceita normal. Obs: não posso fazer este código em SQL, pois, é um trabalho de escola e o professor ensinou até aí.

procedure TQRVENDVencidas.Table1BeforeOpen(DataSet: TDataSet);
var
inp : String;
begin
inp := InputBox(´Data de Vencimento´,´Digite a Data´,´´);
Table1.Filter := ´Data_Pagamento = Null AND Data_Vencimento <= ´ + inp;
end;

Se alguém já teve o mesmo problema, me ajudem.

Obrigado

Marcelo Pomarolli


Responder

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários. Para saber mais sobre o uso de cookies,
consulte nossa política de privacidade. Ao continuar navegando em nosso site, você concorda com a nossa política.

Aceitar