Consulta em SQL Tabela InterBase 6....Soma incompleta
Ai Pessoal tudo Bem? Tenho uma Tabela em InterBase onde tem Vários Campos entre estes Campos tem [b:1dfdd97b00]DataEntrada como String e ValoPaga como Float[/b:1dfdd97b00]............Faço uma Consulta pôr Data(Dia) sem Problema........Só que o Soma Total ´ValoPaga´ só soma [b:1dfdd97b00]os dez(10) primeiro listado na consulta [/b:1dfdd97b00]......como faço para Resolver este Problema ........Estou usando estes Códigos abaixo...........Gostaria muito de uma ajuda........abraços......
procedure TFrmPrincipal.btnConsDiaClick(Sender: TObject);
valor: Real;
begin
with IBDataSet1 do
begin
IBDataSet1.Close;
IBDataSet1.SelectSQL.Clear;
IBDataSet1.SelectSQL.Add(´select* from tbRotativa Where DataEntrada like:pEntrada´);
IBDataSet1.ParamByName(´pEntrada´).Value:=DateToStr(dtpDiaValo.Date);
if not Prepared Then
Prepare;
IBDataSet1.Open;
First;
valor := 0;
For x:=1 to Recordcount do
Begin
valor := valor + FieldByName(´ValoPaga´).AsFloat;
Next;
End;
StatusBar.Panels[1].Text:=´Caixa Hoje R$: ´+FormatFloat(´#,,,0.00´, Valor);
end;
end;
----------------------Já Tentei tambem.........
IBDataSet1.SelectSQL.Clear;
IBDataSet1.SelectSQL.Add(´select* [b:1dfdd97b00]SUM(ValoPaga) AS Caixa Hoje
[/b:1dfdd97b00]from tbRotativa Where DataEntrada like:pEntrada´);
............Mais não deu certo....... tatulegal@hotmail.com
procedure TFrmPrincipal.btnConsDiaClick(Sender: TObject);
valor: Real;
begin
with IBDataSet1 do
begin
IBDataSet1.Close;
IBDataSet1.SelectSQL.Clear;
IBDataSet1.SelectSQL.Add(´select* from tbRotativa Where DataEntrada like:pEntrada´);
IBDataSet1.ParamByName(´pEntrada´).Value:=DateToStr(dtpDiaValo.Date);
if not Prepared Then
Prepare;
IBDataSet1.Open;
First;
valor := 0;
For x:=1 to Recordcount do
Begin
valor := valor + FieldByName(´ValoPaga´).AsFloat;
Next;
End;
StatusBar.Panels[1].Text:=´Caixa Hoje R$: ´+FormatFloat(´#,,,0.00´, Valor);
end;
end;
----------------------Já Tentei tambem.........
IBDataSet1.SelectSQL.Clear;
IBDataSet1.SelectSQL.Add(´select* [b:1dfdd97b00]SUM(ValoPaga) AS Caixa Hoje
[/b:1dfdd97b00]from tbRotativa Where DataEntrada like:pEntrada´);
............Mais não deu certo....... tatulegal@hotmail.com
Tatulegal
Curtidas 0
Respostas
Djjunior
16/03/2004
por que em vez de usar o ´for´ vc não utiliza um ´while not eof´ ? deve funcionar
GOSTEI 0