Fórum SQL(consulta em 2 tabs-a soma elouqueceu!) #203549

   ADOQuery.Close;
   ADOQuery.SQL.Clear;
   ADOQuery.SQL.Add(´SELECT ENTRADAS, TIPOENTRADA, ITEMENTRADA, ITEM, VALOR´);
   ADOQuery.SQL.Add(´From ItemEntrada,LancEntrada´);
   ADOQuery.SQL.Add(´Where ITEM = ITEMENTRADA´);
   ADOQuery.SQL.Add(´Order By ENTRADAS,TIPOENTRADA´);
   ADOQuery.Open;

{ITEM e VALOR são campos da tabela LancEntrada}

...
   ADOQuery.SQL.Add(´Where ITEM = ITEMENTRADA or ITEM <> ITEMENTRADA´);
...

Var SomaTotal : Double;
    SomaENTRADA, SomaTIPO, SomaITEM : Double;
    iENTRADA  : String;
    iTIPO    : String;
    iITEM    : String;
Begin
   SomaTotal := 0;

   ADOQuery.Close;
   ADOQuery.SQL.Clear;
   ADOQuery.SQL.Add(´SELECT ENTRADAS, TIPOENTRADA, ITEMENTRADA, ITEM, VALOR´);
   ADOQuery.SQL.Add(´From ItemEntrada,LancEntrada´);
   ADOQuery.SQL.Add(´Where ITEM = ITEMENTRADA or ITEM <> ITEMENTRADA´);
   ADOQuery.SQL.Add(´Order By ENTRADAS,TIPOENTRADA´);
   ADOQuery.Open;

   While not ADOQuery.Eof do Begin
      // Grupo por ENTRADAS
      SomaENTRADA := 0;
      iENTRADA := ADOQuery.FieldByName(´ENTRADAS´).AsString;
      RvSystemRelatorios.BaseReport.PrintCenter(iENTRADA,10);
      NextLine(RvSystemRelatorios);
      While (iENTRADA=ADOQuery.FieldByName(´ENTRADAS´).AsString) 
               and (not ADOQuery.Eof) do Begin
         // Grupo por TIPO
         SomaTIPO := 0;
         iTIPO := ADOQuery.FieldByName(´TIPOENTRADA´).AsString;
         RvSystemRelatorios.BaseReport.PrintLeft(iTIPO,1);
         While (iTIPO= ADOQuery.FieldByName(´TIPOENTRADA´).AsString) 
                 and (iENTRADA=ADOQuery.FieldByName(´ENTRADAS´).AsString) 
                 and (not ADOQuery.Eof) do Begin
         // Grupo por ITEM
            SomaITEM := 0;
            iITEM := ADOQuery.FieldByName(´ITEMENTRADA´).AsString;
            While (iITEM = ADOQuery.FieldByName(´ITEMENTRADA´).AsString) 
                     and (iTIPO = ADOQuery.FieldByName(´TIPOENTRADA´).AsString) 
                     and (iENTRADA = ADOQuery.FieldByName(´ENTRADAS´).AsString) 
                     and (not ADOQuery.Eof) do Begin
              SomaITEM   := SomaITEM + ADOQuery.FieldByName(´VALOR´).asFloat;
              SomaTIPO   := SomaITEM  + SomaTIPO;
              SomaENTRADA  := SomaITEM  + SomaENTRADA;
              SomaTotal  := SomaITEM  + SomaTotal;
              ADOQuery.Next;
            End;
        // Total do Grupo ITEM
        //RvSystemRelatorios.BaseReport.PrintRight( FormatFloat(´#,0.00´,SomaITEM),15.8);
        End;
         // Total do Grupo TIPO
         RvSystemRelatorios.BaseReport.PrintRight( FormatFloat(´,0.00´,SomaITEM),15.8);
         NextLine(RvSystemRelatorios);
      End;
      // Total do Grupo ENTRADAS
      RvSystemRelatorios.BaseReport.PrintRight( FormatFloat(´SubTotal - R$ ,0.00´,SomaENTRADA),19.5);
      NextLine(RvSystemRelatorios);
   End;

   // Imprime o Total Geral de Saídas
   With RvSystemRelatorios.BaseReport do Begin
      GotoFooter;
      PrintLeft( ´Total Geral´,MarginLeft);
      PrintRight( FormatFloat(´,0.00´,SomaTotal),19);
   End;
End;