QItensFechamento.sql

SELECT
  I.ID_PRODUTO,
  P.NOME,
  SUM(I.QUANTIDADE) AS QUANTIDADE,
  AVG(I.VALOR_UNITARIO) AS VALOR_UNITARIO,
  SUM(I.DESCONTO) AS DESCONTO,
  SUM(I.VALOR) AS VALOR,
  MIN(I.DT_LANCAMENTO) AS DT_LANCAMENTO
FROM ITENS I
JOIN PRODUTOS P
ON P.ID = I.ID_PRODUTO
WHERE ID_VENDA = :VENDA
GROUP BY I.ID_PRODUTO, P.NOME
ORDER BY MIN(DT_LANCAMENTO)

UVendasCad.pas

procedure TFVendasCad.ImprimeFechamento;
begin
  if FRFechamentoVenda = nil then
    FRFechamentoVenda := TFRFechamentoVenda.Create(Application);
  DMConfiguracoes.QConfiguracoes.Close;
  DMConfiguracoes.QConfiguracoes.Open;
  QItensFechamento.Close;
  QItensFechamento.ParamByName('VENDA').AsInteger := QCadastroID.Value;
  QItensFechamento.Open;
  FRFechamentoVenda.QRRelatorio.Preview;
end;