(Resolvido) Soma Condicional no Rave Reports

[Gabriel Cabral]

Estou a muito tempo tentando ajustar isso mas não consigo de jeito nenhum..

Eu uso uma query [QueryRelCaixa] para fazer uma busca e preencher o relatório.

A busca é feita desta forma:

with dm.QueryRelCaixa do
begin
  Close;
  SQL.Clear;
  SQL.Add('SELECT * FROM ESTACAI.dbf');
  SQL.Add('WHERE CAIDAT BETWEEN :DataI AND :DataF');
  SQL.Add('AND CAIHOR BETWEEN :HoraI AND :HoraF');
  SQL.Add('AND CAINCX = :Ncaixa');
  SQL.Add('AND CAIFLA = ""');

  ParamByName('DataI') .AsDateTime := StrToDateTime(txtDataIni.Text);
  ParamByName('DataF') .AsDateTime := StrToDateTime(txtDataFin.Text);
  ParamByName('HoraI') .AsString   := txtHoraIni.Text;
  ParamByName('HoraF') .AsString   := txtHoraFin.Text;
  ParamByName('Ncaixa').AsString   := txtNumCaixa.Text;

  Open;
end;

Mas além disso, preciso calcular a soma dos valores de CAIENT quando CAIDIN = 'X'

e isso é feito já em uma outra Region do Rave Reports.

Com a função SUM() do Rave não é possível, porque dessa forma ele faz a somatória de todos os registros, independente da primeira busca realizada.

Alguém pode me salvar???

Muito obrigado.

[William - TI]

a pesquisa esta retornando os dados corretos?

se tiver é so você fazer um wile para preencher um variavel com o valor cujo CAIDIN = 'X'.

este codigo abaixo não irá funcionar é só a logica.

EX.

var

Soma : real;

begin

Soma :=0;

QueryRelCaixa.firt;

while not QueryRelCaixa.eof do begin

if QueryRelCaixa.fieldbyname('CAIDIN').asString=X then begin

Soma :=soma + QueryRelCaixa.fieldbyname('VALOR').asFloat;

end;

QueryRelCaixa.next;

end;

end;

[Gabriel Cabral]

Entendi, William - TI...mas ele não faz a soma...

quando passa por while not QueryRelCaixa.eof, acusa que a query.eof = true

aí a soma dá sempre zero

[William - TI]

o motivo é que sua query esta vazia a epsquisa não esta retornando nada.

foi minha primeira pergunta

a pesquisa esta retornando os dados corretos?

verifica a pesquisa novamente.

[Gabriel Cabral]

Pois é... também já tinha achado q era isto...

mas essa pesquisa é feita para gerar o relatorio... e este é gerado corretamente de acordo com a pesquisa.. então não tem porque a query estar vazia.

[Gabriel Cabral]

Coloquei uma MessageBox pra verificar o RecordCount da Query...

with dm.QueryRelCaixa do
  begin
    Close;
    SQL.Clear;
    SQL.Add('SELECT * FROM ESTACAI.dbf');
    SQL.Add('WHERE CAIDAT BETWEEN :DataI AND :DataF');
    SQL.Add('AND CAIHOR BETWEEN :HoraI AND :HoraF');
    SQL.Add('AND CAINCX = :Ncaixa');
    SQL.Add('AND CAIFLA = ""');

    ParamByName('DataI') .AsDateTime := StrToDateTime(txtDataIni.Text);
    ParamByName('DataF') .AsDateTime := StrToDateTime(txtDataFin.Text);
    ParamByName('HoraI') .AsString   := txtHoraIni.Text;
    ParamByName('HoraF') .AsString   := txtHoraFin.Text;
    ParamByName('Ncaixa').AsString   := txtNumCaixa.Text;


    Open;

    Application.MessageBox(PChar(dm.QueryRelCaixa.recordCount), 'RecordCount', mb_OK);

  end;

Mas a MessageBox não retorna nada... aparece vazia..

não consigo entender porque a query fica vazia depois da consulta..porque não é pra ficar... existem registros dentro do que eu pedi..

Além disso, essa mesma busca é feita para gerar o relatório...e este é gerado corretamente.

Editado Julho 20, 2009 por Gabriel Cabral

[Jhonas]

Experimente usar

Showmessage(inttostr(dm.QueryRelCaixa.recordCount));

abraço

[Gabriel Cabral]

Ok, Jonas.. obrigado...

agora apareceu ZERO..

ou seja, não tem nada na query após a busca realizada

mas esta mesma busca eu utilizo para gerar o relatório e funciona perfeitamente...

o que pode estar havendo??

[Jhonas]

agora apareceu ZERO..

ou seja, não tem nada na query após a busca realizada

mas esta mesma busca eu utilizo para gerar o relatório e funciona perfeitamente...

Estranho ... procure fazer uma comparação com as 2 e veja se voce deixou passar alguma coisa

abraço

[Gabriel Cabral]

Muito obrigado, Jhonas..

como existem 4 maneiras diferentes no programa pra eu gerar o relatorio, eu estava testando a soma em um lugar errado...

agora deu certo...

muito obrigado mesmo e desculpe minha distração..

[William - TI]

Caro amigo desculpa não ter respondido mais pois aqui estava sem internet agora que volou, fico feliz que já tenha resolvido.