C�lculo dos Dias Vencidos Via Sql

Question

Ol� Pessoal!Meu problema � o seguinte:Preciso levantar as duplicatas que est�o a �X� dias j� vencidas a partir do seu vencimento, ou seja, data de vencimento 31/12/2007, hoje � 06/01/2008 ent�o ela es...

Darkrme · Answer

Amigo, usa essa fun��o pra retornar a diferenca de dias entre duas datas...

talvez posa te ajudar, eu uso muito ela:

function DifDias(DataVenc:TDateTime; DataAtual:TDateTime): String;
Var Data: TDateTime;
dia, mes, ano: Word;
begin
if DataAtual < DataVenc then
begin
Result := �A data data atual n�o pode ser menor que a data inicial�;
end
else
begin
Data := DataAtual - DataVenc;
DecodeDate( Data, ano, mes, dia);
Result := FloatToStr(Data);
end;
end;

Microbios · Answer

Amigo DarkMe, obrigado pela sua sugest�o, eu tamb�m uso muito essa fun��o, mas o que eu preciso � de uma [b:397a9af788]instru��o SQL[/b:397a9af788] para que me retorne as duplicatas que est�o a �X� dias j� vencidas para um relat�rio.

Obrigado por sua ajuda. :wink:

Joaoshi · Answer

Colega,SELECT * FROM DUPLICATAS WHERE VENCIMENTO < (CURRENT_DATE - 6)AND BAIXA IS NULLIsto � s� um come�o, e pode ser melhorado com parametros.N�o conhe�o o MySql utilizei o CURRENT_DATE seguindo seu exemplo.Espero ter ajudado....

Microbios · Answer

Amigo joaoshi;Este modelo eu j� havia tentado antes tamb�m. Funciona para o prazo de 6 dias de vencidas. Mas se aumentar o prazo, por exemplo pra 10 dias ou 15 dias n�o retorna nada. Pra 7 dias da �DATA CORRENTE� j� n�o retorna nada. E listando sem separar nada, existem duplicatas vencidas com mais de 10 dias at�.Obrigado pela ajuda, vou continuar quebrando a cabe�a ou esperando uma luz do pessoal.  :wink:...

Djjunior · Answer

select (current_date -vencimento ) as dias, count(*)from tabelagroup by  (dtVencimento -sysdate) deschaving (dtVencimento -sysdate) >= Dias...

Microbios · Answer

djjunior;Cara, legal, mas quais s�o as duplicatas? Esta Sql (que apresentava um errinho na cl�usua having (era dias e n�o vencimento >= Xdias)) faz a contagem da duplicatas e apresenta a quantidade de dias. Eu preciso saber quais s�o elas, de que clientes... etc e tal. :lol:  :lol: Valeu pela ajuda, continuamos tentando achar uma solu��o para tal problema.Obrigad�o!...

Djjunior · Answer

Complementando a solu��o do [b:ba0d5bb4aa]joaoshi[/b:ba0d5bb4aa] fa�a:

Sua query

SELECT * FROM DUPLICATAS 
WHERE VENCIMENTO < (CURRENT_DATE - :qtdeDias) 
AND BAIXA IS NULL

antes de abrir a query

query.close;
query.parambyname(�qtdeDias�).asinteger := strtoint(edtPeriodo.Text);
query.Open;

[/b]

F�rum C�lculo dos Dias Vencidos Via Sql #351452