Fórum Como faço esse (Where DATA_PAGAMENTO = DATE) #54731

13/01/2006

0

Fala galera blz?

É o seguinte estou desenvolvendo um cadastro de contas a pagar, o q eu quero fazer é mostrar pro cliente toda vez que tiver uma conta vencida, ou seja se o campo data_pagamento for igual a data atual, mostrara uma mensagem avisando q tem contas vencida.

O que eu quero é pegar a data atual da maquina e comparar com o campo data_pagamento.

Bom no Delphi eu fiz assim.
DM_Geral.IBDSContas.First;
while not DM_Geral.IBDSContas.Eof do
begin
if DM_Geral.IBDSContasDATA_PAGAMENTO.Value = Date then
begin
 Frm_Cad_ContasAPagar
 Break;
end;
 DM_Geral.IBDSContas.Next;

Só que eu não estou conseguindo é fazer um Where.

Estou usando Delphi 7 mais FireBird 1.5.2 mais os componetes IBX.
Select * From ContasAPagar
Where DATA_PAGAMENTO = Date
Já tentei outros exemplos mais não tive sucesso.

Se alguém puder me ajudar ficarei grato.


Vitoreduardo

Vitoreduardo

Responder

Posts

13/01/2006

Sourcecode

Vitor, não tem função DATE no firebird/interbase

use:

Select * From ContasAPagar
Where DATA_PAGAMENTO = [b:64bd7af9fd]CURRENT_DATE[/b:64bd7af9fd]

CURRENT_DATE retorna a data atual da máquina onde o servidor de banco de dados está rodando

CURRENT_TIME retorna a hora atual idem também da máquina servidora


Responder

Gostei + 0

13/01/2006

Vitoreduardo

Faleu mesmo sourcecode

Funcionou direitinho


Responder

Gostei + 0

Utilizamos cookies para fornecer uma melhor experiência para nossos usuários, consulte nossa política de privacidade.

Aceitar