Fechamento de Vendas

UVendasCad.pas

// OnClick do botão Relatórios -> Fechamento de Vendas.
procedure TFVendasCad.Fechamento1Click(Sender: TObject);
begin
  inherited;
  if FVendasParam = nil then
    FVendasParam := TFVendasParam.Create(Application);
  FVendasParam.AtivaPagina(0);
  if FVendasParam.ShowModal = MrOk then
    with DMRelatorio do
    begin
      QRFechamentoVendas.Close;
      QRFechamentoVendas.ParamByName('DT_INICIO').AsDate :=
        StrToDate(FVendasParam.ME1DataInicial.Text);
      QRFechamentoVendas.ParamByName('DT_FIM').AsDate :=
        StrToDate(FVendasParam.ME1DataFinal.Text);
      QRFechamentoVendas.Open;
      QRFechamentoVendasCanceladas.Close;
      QRFechamentoVendasCanceladas.ParamByName('DT_INICIO').AsDate :=
        StrToDate(FVendasParam.ME1DataInicial.Text);
      QRFechamentoVendasCanceladas.ParamByName('DT_FIM').AsDate :=
        StrToDate(FVendasParam.ME1DataFinal.Text);
      QRFechamentoVendasCanceladas.Open;

      // Linhas Alteradas:
      if FRFechamentoVendas = nil then
        FRFechamentoVendas := TFRFechamentoVendas.Create(Application);
      DMRelatorio.QRFechamentoVendas.First;
      FRFechamentoVendas.QRRelatorio.Preview;
      // Fim das linhas alteradas
      // Foi removida a chamada para ImprimeFechamentoVendas
    end;
end;

// Remover toda a função ImprimeFechamentoVendas daqui. Ela não será mais utilizada.