Urgente ainda naum consegui...preciso pra terminar o program

Delphi

20/02/2003

Para calcular o saldo preciso pegar a soma dos cheques de hoje, dos diversos de hoje, depositos hoje e o saldo de ontém...
Naum estou conseguindo puxar os valores pela data...estou trabalhando com três tabelas paradox, BDE...
PLEASE, dêm uma olhadinha nesse código e digam o que há de errado...ou o quê falta????

procedure TForm6.FormResize(Sender: TObject);
var
Data: String;
begin
Data:=DateToStr(DateTimePicker1.Date);
Total:=0;
Query1.First;
Query2.First;
Query3.First;
Deposito:=0;
Cheque:=0;
Diverso:=0;
While not Query1.Eof do
begin
// ParamByName(´dat´).AsDateTime:=DateTimePicker1.Date
begin
Deposito:=Query1Valor.Value;
Query1.Next;
end;
end;
//With Query1 do Begin
//close;
//sql.Clear;
//sql.Add(´select sum(valor) as valor where data=:dat´);
//open;
//End;
While not Query2.Eof do
begin
Cheque:=Query2Valor.Value;
Query2.Next;
end;
While not Query3.Eof do
begin
Diverso:=Query3Valor.Value;
Query3.Next;
end;
Total:=Table1Saldo_anterior.AsFloat+Deposito-(Cheque+Diverso);
DBedit1.Text:=FloatToStr(Total);
DBedit1.Text:=FormatFloat(´R$ #.´,Total);
end;
procedure TForm6.FormShow(Sender: TObject);
begin
DateTimePicker1.Date:=now;
end;

end.


Diana

Diana

Curtidas 0

Respostas

Netways

Netways

20/02/2003

Cara diana, tinha um problema igual a este, consegui usando + querys, uma para pegar cada valor e depois gerar o resultado.

usei uma para pegar o valor dos diversos, outra para cheques, e outra para os atrasados, e um campo calculado para quardar o resultado


GOSTEI 0
Laureano Pereira

Laureano Pereira

20/02/2003

Dá uma olhada se você está incrementando as variaveis...


procedure TForm6.FormResize(Sender: TObject);
var
Data: String;
begin
Data:=DateToStr(DateTimePicker1.Date);
Total:=0;
Query1.First;
Query2.First;
Query3.First;
Deposito:=0;
Cheque:=0;
Diverso:=0;
While not Query1.Eof do
begin
// ParamByName(´dat´).AsDateTime:=DateTimePicker1.Date
begin
[b:6216c38551]Deposito:=Query1Valor.Value; [/b:6216c38551]
[u:6216c38551][i:6216c38551]Deposito := Deposito + query1valor.value;[/i:6216c38551][/u:6216c38551]


Query1.Next;
end;
end;
//With Query1 do Begin
//close;
//sql.Clear;
//sql.Add(´select sum(valor) as valor where data=:dat´);
//open;
//End;
While not Query2.Eof do
begin

Cheque:=Query2Valor.Value; // [color=cyan:6216c38551][i:6216c38551][u:6216c38551]Cheque:=Query2Valor.Value; [/u:6216c38551][/i:6216c38551][/color:6216c38551]

Query2.Next;
end;
While not Query3.Eof do
begin
Diverso:=Query3Valor.Value; // [color=darkblue:6216c38551][u:6216c38551][i:6216c38551]Diverso:=Diverso + Query3Valor.Value;[/i:6216c38551][/u:6216c38551] [/color:6216c38551]Query3.Next;
end;
Total:=Table1Saldo_anterior.AsFloat+Deposito-(Cheque+Diverso);
DBedit1.Text:=FloatToStr(Total);
DBedit1.Text:=FormatFloat(´R$ #.´,Total);
end;
procedure TForm6.FormShow(Sender: TObject);
begin
DateTimePicker1.Date:=now;
end;

end.


GOSTEI 0
POSTAR