Problema ao abrir relatório usando radio buttons

Delphi

10/07/2012

Boa tarde, no meu form tem dois radio buttons, dependendo de qual for selecionado e clicado no ok irá aparecer o relatorio.... o problema é no else ai no codigo (só tem 1 nessa procedure), se o primeiro estiver selecionado faça... se for o outro faça.... Como posso colocar isso nessa procedure? Obrigado.

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;
Wylliam Silva

Wylliam Silva

Curtidas 0

Respostas

Gustavo Bretas

Gustavo Bretas

10/07/2012

Wylliam, eu notei duas falhas no seu código, o primeiro é o ponto e virgula no último END antes do ELSE, e o segundo erro é que vc não esta abindo o bloco do else com BEGIN, por isso o delphi esta executando somente o IF logo depois do ELSE.

Verifica ae!
GOSTEI 0
Deivison Melo

Deivison Melo

10/07/2012

Qual o erro que está ocorrendo?
GOSTEI 0
POSTAR