Relatório semanal

[Renanbg 1]

Pessoal, estou precisando montar um relatorio que me traga os dados da semana.

Poderia colocar 2 datetimepicker, mas solicitaram que fosse sem. então me quebrei.

 

achei um codigo que promete fazer isso, mas da erro:

 

      QuerySoma.SQL.Clear;
     QuerySoma.SQL.Add('Select Sum(Total) as Tsoma from tbvencidas where Dt_pagamento between ( ( extract(day from Data) - 1 + extract(weekday from Data - Extract(day from Data) + 1) ) / 7 + 1 )');
     QuerySoma.Prepare;
     QuerySoma.Open;
     QRLabel8.Caption := FormatFloat('###,###,##0.00', QuerySoma.FieldByName('TSoma').AsCurrency);
     QuerySoma.Close;

 

 

 

Alguma dica?

[wllf 2]

colega qual o SGBD que você está usando?

[Renanbg 1]

Olá,

 

estou usando paradox.

 

Pensei em fazer diferente. Agora eu identifico o dia que estou ao gerar o relatorio.

Como quero um relatorio semanal, vou liberar ele para ser feito apenas na sexta-feira.

 

fiz assim:

 

  Inicio := QuotedStr(FormatDateTime('DD.MM.YYYY', Date - 4));
 Final := QuotedStr(FormatDateTime('DD.MM.YYYY', Date));
 Application.CreateForm(Tfrmrelmovimentacao, frmrelmovimentacao);
 frmrelmovimentacao.QueryPagas.Close;
 frmrelmovimentacao.QueryPagas.SQL.Clear;
 frmrelmovimentacao.QueryPagas.SQL.Add('SELECT Cedente, Status, Total, Vencimento');
 frmrelmovimentacao.QueryPagas.SQL.Add('FROM tbvencidas');
 frmrelmovimentacao.QueryPagas.SQL.Add('WHERE Dt_pagamento >=:pInicial and Dt_pagamento<=:pFinal');
 frmrelmovimentacao.QueryPagas.SQL.Add('ORDER by Dt_pagamento');
 frmrelmovimentacao.QueryPagas.ParamByName('pInicial').AsDateTime := StrToDate(Inicio);
 frmrelmovimentacao.QueryPagas.ParamByName('pFinal').AsDateTime := StrToDate(Final);
 frmrelmovimentacao.QueryPagas.Prepare;
 frmrelmovimentacao.QueryPagas.Open;

 

A variavel inicio vai pegar os dados da segunda-feira e a variavel final pega os dados da sexta-feira.

 

A ideia estaria ok, pois pegaria todos os dados entre segunda e sexta. O problema é que na hora de executar ele da erro dizendo que a data 30.01.2012 não é uma data valida.

 

Alguem pode dar uma ajuda?