EXPORTAR DADOS PDF CRYSTAL REPORTS

 Tópico anterior Próximo tópico Novo tópico

EXPORTAR DADOS PDF CRYSTAL REPORTS

C#

 Compartilhe  Compartilhe  Compartilhe
#484687 - 28/09/2018 11:30:51

JOAOBENEVIDES
RIBEIRAO PRETO
Cadast. em:Maio/2009


Ola pessoal Bom dia , estou usando o crystal reports como relatorio  estou usando a funcão abaixo para gerar meus relatorios

cryRpt.Load(caminho);
                if (Relatorios.MostraCabecario == true)
                {
                    cryRpt.SetParameterValue("NomeEmpresa", ParametrosEmpresa.NomeEmpresa);
                    cryRpt.SetParameterValue("EmpresaEndereco", ParametrosEmpresa.Logradouro + " Numero: " + ParametrosEmpresa.Numero);
                    cryRpt.SetParameterValue("EmpresaCidade", ParametrosEmpresa.Bairro + " - " + ParametrosEmpresa.Cidade + " - " + ParametrosEmpresa.Estado);
                    cryRpt.SetParameterValue("EmpresaTelefone", ParametrosEmpresa.Telefone);
                    cryRpt.SetParameterValue("EmpresaEmail", ParametrosEmpresa.Email);
                    cryRpt.SetParameterValue("EmpresaSite", ParametrosEmpresa.Site);
                    
                }

                 foreach (var i in Relatorios.Parametros_Relatorio)
                {
                    string Parametros = i.Nome_Parametros;
                    cryRpt.SetParameterValue(Parametros, i.ValorParametro);
                }

                

                ConnectionInfo myConnectionInfo = new ConnectionInfo();
                myConnectionInfo.ServerName = Conexao.IP + "," + Conexao.Porta_Acesso;
                myConnectionInfo.DatabaseName = Conexao.Nome_Banco;
                myConnectionInfo.UserID = Conexao.Usuario_Banco;
                myConnectionInfo.Password = Conexao.Senha_Banco;
                SetDBLogonForReport(myConnectionInfo, cryRpt);
                Relatorio_.ReportSource = cryRpt;

                if (Relatorios.Formula != "" && Relatorios.Formula != null)
                {
                    Relatorio_.SelectionFormula = Relatorios.Formula;
                }

              

                if (Relatorios.ImprimePDF == true)
                {

                    if (!Directory.Exists(CaminhoSistema.CaminhoPDF))
                    {
                        Directory.CreateDirectory(CaminhoSistema.CaminhoPDF);
                    }
                    string vArq = CaminhoSistema.CaminhoPDF + Relatorios.NomeArquivoPDF;
                    if(File.Exists(vArq))
                    {
                        File.Delete(vArq);
                    }

                    cryRpt.ExportToDisk(ExportFormatType.PortableDocFormat, vArq);
                    //Relatorio_.Refresh();
                    //ExportOptions CrExportOptions;
                    //DiskFileDestinationOptions CrDiskFileDestinationOptions = new DiskFileDestinationOptions();
                    //PdfRtfWordFormatOptions CrFormatTypeOptions = new PdfRtfWordFormatOptions();
                    //CrDiskFileDestinationOptions.DiskFileName = vArq;
                    //CrExportOptions = cryRpt.ExportOptions;
                    //{
                    //    CrExportOptions.ExportDestinationType = ExportDestinationType.DiskFile;
                    //    CrExportOptions.ExportFormatType = ExportFormatType.PortableDocFormat;
                    //    CrExportOptions.DestinationOptions = CrDiskFileDestinationOptions;
                    //    CrExportOptions.FormatOptions = CrFormatTypeOptions;

                    //}

                    //cryRpt.Export();
                    Tag = "OK";
                    return;

                    
                }

                if(Relatorios.ImprimeDireto == true)
                {
                    cryRpt.PrintOptions.PrinterName = Funcoes.DefaultPrinterName();
                }

                if(Relatorios.TemSubreport == true)
                {
                    cryRpt.SetParameterValue("Tipo_Busca", Relatorios.Nome_Rpt_SubReport);
                }

                
                if(Relatorios.SuprimirDetalhes == true)
                {
                    this.cryRpt.ReportDefinition.Sections["Section3"].SectionFormat.EnableSuppress = true;
                }



              



                if (Relatorios.ImprimeDireto == true)
                {
                    cryRpt.PrintToPrinter(1, true, 0, 0);
                }
                else
                {
                    Relatorio_.Refresh();
                }

porem quero exportar para pdf e usei a chamada  cryRpt.ExportToDisk(ExportFormatType.PortableDocFormat, vArq); porem ele me  exportou outra informação nao aquela que passei para o relatorio , o que posso estar fazendo de errado, optei por usar assim mais o pessoal aqui da firma ja estava trabalhando assim

........Todos Podemos Ajudar Um ao Outro ajude vc tambem.....


Resposta escolhida #484728 - 02/10/2018 06:21:50

NICKOSOFT
SANTO ANDRE
Cadast. em:Maio/2009


nunca me deu dor de cabeça assim.....passando as informacoes via essa DT datatable
  
                'Instanciando/Setando Objeto ReportDocument
                Dim oRP As ReportDocument
                oRP = New crpCompensacaoContabil       'nome do relatorio
                oRP.SetDataSource(DT)
                CType(oRP, ReportDocument).ExportToDisk(CrystalDecisions.Shared.ExportFormatType.PortableDocFormat, Application.StartupPath & "\Compensacao entre " & CStr(primeiro).Replace("/", "-") & " e " & CStr(ultimo).Replace("/", "-") & ".pdf")




 Tópico anterior Próximo tópico Novo tópico


Tópico encerrado, respostas não sao permitidas
Encerrado por JOAOBENEVIDES em 11/12/2018 16:56:42