Fórum Problema ao abrir relatório usando radio buttons #419691

procedure TfrmInfoRelAud.BitBtn1Click(Sender: TObject);
begin
   if ((edtDtInicio.Date = 0) or (edtDtFim.Date = 0)) then
   begin
      MessageDlg(O período informado esta incorreto., mtWarning, [mbOK], 0);
      edtDtInicio.SetFocus;
      Exit;
   end;

   if (edtDtInicio.Date > edtDtFim.Date) then
   begin
      MessageDlg(O período informado esta incorreto., mtWarning, [mbOK], 0);
      edtDtInicio.SetFocus;
      Exit;
   end;

   if (rgpTipo.ItemIndex = -1) then
   begin
      MessageDlg(Favor, Selecionar a opção: Detalhado ou Resumido., mtWarning, [mbOK], 0);
      Exit;
   end;

   if rgpTipo.ItemIndex = 0 then
   begin
      frmRelAudDetalhada := TfrmRelAudDetalhada.Create(Self);

      with frmRelAudDetalhada.cdsAudDetalhada do
      begin
         Close;
         Params.ParamByName(prDtPedIni).AsString := Sistema.BdDataPrimHora(edtDtInicio.Date);
         Params.ParamByName(prDtPedFim).AsString := Sistema.BdDataUltHora(edtDtFim.Date);
         Open;
         if IsEmpty then
         begin
            MessageDlg(Não foram encontrados registros com estes parâmetros., mtWarning, [mbOK], 0);
            Exit;
         end;
      end;

      frmRelAudDetalhada.lblEmpresa.Caption := Sistema.NmCli;
      frmRelAudDetalhada.lblPeriodo.Caption :=   + Sistema.BdDataPrimHora(edtDtInicio.Date) +  à  + Sistema.BdDataUltHora(edtDtFim.Date);
      frmRelAudDetalhada.QuickRep1.Preview;
   end;
   else
   if ((edtDtInicio.Date = 0) or (edtDtFim.Date = 0)) then
   begin
      MessageDlg(O período informado esta incorreto., mtWarning, [mbOK], 0);
      edtDtInicio.SetFocus;
      Exit;
   end;

   if (edtDtInicio.Date > edtDtFim.Date) then
   begin
      MessageDlg(O período informado esta incorreto., mtWarning, [mbOK], 0);
      edtDtInicio.SetFocus;
      Exit;
   end;

   if (rgpTipo.ItemIndex = -1) then
   begin
      MessageDlg(Favor, Selecionar a opção: Detalhado ou Resumido., mtWarning, [mbOK], 0);
      Exit;
   end;

   if rgpTipo.ItemIndex = 0 then
   begin
      frmRelAudResumida := TfrmRelAudResumida.Create(Self);

      with frmRelAudResumida.cdsAudResumida do
      begin
         Close;
         Params.ParamByName(prDtPedIni).AsString := Sistema.BdDataPrimHora(edtDtInicio.Date);
         Params.ParamByName(prDtPedFim).AsString := Sistema.BdDataUltHora(edtDtFim.Date);
         Open;
         if IsEmpty then
         begin
            MessageDlg(Não foram encontrados registros com estes parâmetros., mtWarning, [mbOK], 0);
            Exit;
         end;
      end;

      frmRelAudResumida.lblEmpresa.Caption := Sistema.NmCli;
      frmRelAudResumida.lblPeriodo.Caption :=   + Sistema.BdDataPrimHora(edtDtInicio.Date) +  à  + Sistema.BdDataUltHora(edtDtFim.Date);
      frmRelAudResumida.QuickRep1.Preview;
   end;
end;