F�rum Retornar dados consulta / relat�rio #408547

18/10/2011

Ol� amigos Delpianos!
Tenho 2 tbls Receita e Saida preciso fazer a consulta por uma determinada data onde depois de trazer os dados na tela via dbgrid me mostre o saldo e na sequencia eu chame o relat�rio Qreport que ira visualizar o saldo antes de imprimir abaixo o c�digo que estou tentando e n�o est� dando certo, gostaria que aparecesse pelo menos assim: TOTAL - SUBTOTAL=SALDO.

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
Query1.Close;
Query1.SQL.Clear;
Query1.SQL.Add(Select SUM(Frete+Frete1+Frete2)as TOTAL From Receita UNION ALL Select (OilGas+Auxiliar+Refeicao+Conserto+Imposto) from Saida);
Query1.SQL.Add(Where DATA between :Inicial and :Final);
Query1.Parameters.ParamByName(Inicial).Value := StrToDate(MaskEdit0.Text);
Query1.Parameters.ParamByName(Final).Value := StrToDate(MaskEdit1.text);
Query1.Open;
If Query1.isEmpty then
ShowMessage(N�o h� registros entre as datas informadas!);

//Aqui fa�o a consulta porem s� aparece o valor dentro do campo total, subtotal e saldo est� em branco, onde estou errando?... abaixo chamo o relat�rio que falta fazer ajustes ele at� funciona!

procedure TForm1.btnRelSaldoClick(Sender: TObject);
begin
Form1.Query1.Close;
Form1.Query1.SQL.Clear;
Form1.Query1.SQL.Add(Select SUM(Frete+Frete1+Frete2)as TOTAL From Receita UNION ALL Select SUM (OilGas)as SUBTOTAL From Saida);
Form1.Query1.SQL.Add(Where DATA between :Inicial and :Final);
Form1.Query1.Parameters.ParamByName(Inicial).Value := StrToDate(MaskEdit0.Text);
Form1.Query1.Parameters.ParamByName(Final).Value := StrToDate(MaskEdit1.text);
Form1.Query1.ExecSQL;
if Query1.IsEmpty then
ShowMessage(N�o h� dados para serem mostrados no relat�rio)
else
frmRelSaldo.QuickRepSaldo.Preview;

end;

Delphi 7 bd Acess 2003

Lauro

Curtir t�pico

+ 0

Responder

Posts

19/10/2011

Geversom Sousa

a sua consulta usando UNION n�o conseguir� retornar os valores da maneira como voc� deseja,recomendo que voc� use um sub-consulta, conforme exemplo abaixo:


procedure TForm1.BitBtn1Click(Sender: TObject);
begin
   Query1.Close;
   Query1.SQL.Clear;
   Query1.SQL.Add( Select SUM(RC.Frete + RC. Frete1 + RC.Frete2 ) as TOTAL,                             );
   Query1.SQL.Add(        (Select SUM(SD.OilGas + SD.Auxiliar + SD.Refeicao + SD.Conserto + SD.Imposto) );
   Query1.SQL.Add(           from Saida SD                                                              );
   Query1.SQL.Add(          Where SD.DATA between :Inicial and :Final) as SUBTOTAL                      );
   Query1.SQL.Add(   From Receita RC                                                                    );
   Query1.SQL.Add(  Where RC.DATA between :Inicial and :Final                                           );
   Query1.Parameters.ParamByName(Inicial).Value := StrToDate(MaskEdit0.Text);
   Query1.Parameters.ParamByName(Final).Value := StrToDate(MaskEdit1.text);
   Query1.Open;
   If Query1.isEmpty then
   ShowMessage(N�o h� registros entre as datas informadas!);
end.

Recomendo que voc� use sempre Alias para as tabelas, o que facilita a compreens�o do codigo

Responder

Gostei + 0