is this noway? My Cr Report export to pdf error occurs

hi eyevy1: When I run my app in my computer's IE,display errormessage as below(but yesterday my app eyerything is ok!): Error in File c:\inetpub\wwwroot\hhmxposystem\report\crReportPo.rpt: Error detected by export DLL: Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code. Exception Details: CrystalDecisions.CrystalReports.Engine.ExportException: Error in File c:\inetpub\wwwroot\hhmxposystem\report\crReportPo.rpt: Error detected by export DLL: Source Error: ine 48: .ExportFormatType = CrystalDecisions.[Shared].ExportFormatType.PortableDocFormat Line 49: End With Line 50: crReportDocPo.Export() Line 51: 'With HttpContext.Current 'don't display the word,but can save the file Line 52: ' .Current.Response.ClearHeaders() so what's problem ? how can I to slove it ? thanks in advanced!

Re: is this noway? My Cr Report export to pdf error occurs

Hi, this is my procedure to export my .rpt to pdf, xls, doc or rtf. it works fine in my intranet, but I can´t get it to work on my extranet. still working on it. hope it helps you.

Private Sub ExecutaReportFormato()
        Dim objCrystalReportDocument As New CrystalDecisions.CrystalReports.Engine.ReportDocument()
        Dim objCrystalFileDestinationOptions As New CrystalDecisions.Shared.DiskFileDestinationOptions()


        'indica o nome do relatório
        objCrystalReportDocument.Load(Server.MapPath("relat.rpt"))


        'indica informações de logon
        Dim crLogonInfo As TableLogOnInfo
        crLogonInfo = objCrystalReportDocument.Database.Tables(0).LogOnInfo
        crLogonInfo.ConnectionInfo.ServerName = BuscaParam("BDRelat")
        crLogonInfo.ConnectionInfo.UserID = BuscaParam("UserRelat")
        crLogonInfo.ConnectionInfo.Password = BuscaParam("PasswordRelat")
        objCrystalReportDocument.Database.Tables(0).ApplyLogOnInfo(crLogonInfo)


        'seta formatação
        objCrystalReportDocument.FormatEngine.PrintOptions.PaperOrientation = PaperOrientation.Landscape
        objCrystalReportDocument.FormatEngine.PrintOptions.PaperSize = PaperSize.Paper11x17


        ' Seta arquivo de destino do report
        Dim strExtesion As String


        Select Case drpFormatos.SelectedItem.Text
            Case "PDF"
                strExtesion = "pdf"
                objCrystalReportDocument.ExportOptions.ExportFormatType = PortableDocFormat


            Case "Excel"
                strExtesion = "xls"
                objCrystalReportDocument.ExportOptions.ExportFormatType = Excel


            Case "Word"
                strExtesion = "doc"
                objCrystalReportDocument.ExportOptions.ExportFormatType = WordForWindows


            Case "RTF"
                strExtesion = "rtf"
                objCrystalReportDocument.ExportOptions.ExportFormatType = RichText


        End Select






        Dim strFile As String = "relat." & strExtesion
        Dim strPath As String = "c:\inetpub\wwwroot\sampleNet\temp\"
        Dim strUrl As String = "temp/"


        'Response.Write("nome do arquivo: " & strFile)


        objCrystalFileDestinationOptions.DiskFileName = strPath & strFile




        'seta propriedades do relat para export
        objCrystalReportDocument.ExportOptions.DestinationOptions = objCrystalFileDestinationOptions
        objCrystalReportDocument.ExportOptions.ExportDestinationType = DiskFile
        objCrystalReportDocument.Export()


         Response.Redirect(strUrl & strFile)




    End Sub

Re: is this noway? My Cr Report export to pdf error occurs

you may be using the version 9.1 of crystal .NET components (that comes with the regular installation of VS.NET). you need to update your components to 9.2. This components use the latest versions of export format types (ExcelRecord, PortableDocFormat, etc). you need to get the crystal decisions 9 .NET redistribution files here: http://support.crystaldecisions.com/communityCS/FilesAndUpdates/cr9netredist.zip.asp it took me about 2 weeks to find what was going on!!! (along with about 4 emails to crystal technical support).. agghh.....

Re: is this noway? My Cr Report export to pdf error occurs

dear javiguillen: I already downloaded the file from you give me the url,but when I installed in mycomputer . It need fill the "Production ID " no. can you give me this no ? thanks in advanced!

Re: is this noway? My Cr Report export to pdf error occurs

is not "production ID" but product ID, your need to fill it out with your Crystal registration number

Re: is this noway? My Cr Report export to pdf error occurs

Yes .I tried to fill with my cr register No .But the system showed "Invalid product code or expired" My register ID: AAP5GKS0000GDE100DS So can you give me another "valid" product ID ? THANKS A LOT

Re: is this noway? My Cr Report export to pdf error occurs

1-800-GET-YOUR-OWN-LICENSE (Can't give you mine, my company owns it)

Re: is this noway? My Cr Report export to pdf error occurs

Why don't you call crystal to find out what is wrong with your product code?

How to resolve this problem with vb.net(asp.net)

Logon failed. Description: An unhandled exception occurred during the execution of the current web request. Please review the stack trace for more information about the error and where it originated in the code. Exception Details: CrystalDecisions.CrystalReports.Engine.LogOnException: Logon failed. Topic ID: Q319264 Topic Title: Q319264 - PRB: Crystal Report in Web Application Fails to Log On to SQL Server URL: ms-help://MS.MSDNQTR.2003FEB.1028/enu_kbvstudionetkb/en-us/vstudionetkb/Q319264.htm Browser: Microsoft Internet Explorer 4.0 (compatible; MSIE 6.0; Windows NT 5.0; .NET CLR 1.1.4322; .NET CLR 1.0.3705) Comments: How to resolve this problem with vb.net(asp.net) This is my code:

<script runat="server">
		

 sub page_load(obj as object,e as eventargs)




''CrystalReport1' must be the name the CrystalReport
' dim crTableLogOnInfo as new TableLogOnInfo
'dim crConnectionInfo as new ConnectionInfo()


'//Crystal Report Properties
'dim crDatabase as CrystalDecisions.CrystalReports.Engine.Database
'dim crTables as CrystalDecisions.CrystalReports.Engine.Tables
'dim crTable as CrystalDecisions.CrystalReports.Engine.Table
 'crConnectionInfo.ServerName = "zhongsb"
'crConnectionInfo.DatabaseName = "project_manager"
'crConnectionInfo.UserID = "sa"
'crConnectionInfo.Password = "3"
'crDatabase = crReportDocument.Database
'crTables = crDatabase.Tables


	'crTableLogOnInfo = crTable.LogOnInfo
	'crTableLogOnInfo.ConnectionInfo = crConnectionInfo
	'crTable.ApplyLogOnInfo(crTableLogOnInfo)




 role()
    bindreport()
 end sub
 sub bindreport()
  dim jobcatstr,jobnostr,sdatestr,edatestr,path,sqlstr as string
  jobcatstr=request("jobcatstr")
  jobnostr=request("jobnostr")
  sdatestr=request("sdatestr")
  edatestr=request("edatestr")
  if jobcatstr<>"" and jobnostr<>"" and sdatestr<>"" and edatestr<>"" then
   sqlstr="select * from viewcompt where jobcat like '%"& jobcatstr &"%' and jobno like '%"& jobnostr &"%' and AcutalComptDate between '"& sdatestr &"' and '"& edatestr &"'"
  elseif jobcatstr<>"" and sdatestr<>"" and edatestr<>"" then
    sqlstr="select * from viewcompt where jobcat like '%"& jobcatstr &"%'  and AcutalComptDate between '"& sdatestr &"' and '"& edatestr &"'"
 elseif sdatestr<>"" and edatestr<>"" then
      sqlstr="select * from viewcompt where  AcutalComptDate between '"& sdatestr &"' and '"& edatestr &"'"


 else
    sqlstr="select * from viewcompt"
  end if
  path=server.mappath("comptpjrpt.rpt")
  dim dataset1 as dataset=new dataset()
  dim objcmd as oledbdataadapter=new oledbdataadapter(sqlstr,objcon)
  objcmd.fill(dataset1,"viewcompt")
  dim orpt as reportdocument=new reportdocument
  orpt.load(path)
  orpt.setdatasource(dataset1)
  CrystalReportViewer1.ReportSource = orpt
  

 end sub
 

 

 ' Define Crystal Reports variables
'Dim crReportDocument As ReportDocument
'Dim crExportOptions As ExportOptions
'Dim crDiskFileDestinationOptions As DiskFileDestinationOptions
'Dim Fname as String


' ???????????
' ???????? InitializeComponent() ????,
' ???? Button_Click ???,????
' ???????????????????
sub btnclick(obj as object, e as eventargs)
'crReportDocument = New ReportDocument()
' ?????????
' ????:Chart.rpt
'dim path as string
'path=server.mappath("comptpjrpt.rpt")
'crReportDocument.Load (path)


'Fname = "c:\exports\" & Session.SessionID.ToString & ".pdf"
'crDiskFileDestinationOptions = New DiskFileDestinationOptions()
'CrDiskFileDestinationOptions.DiskFileName = Fname
'crExportOptions = crReportDocument.ExportOptions
'With crExportOptions
   '.DestinationOptions = crDiskFileDestinationOptions
  ' .ExportDestinationType = ExportDestinationType.DiskFile
 '  .ExportFormatType = ExportFormatType.PortableDocFormat
'End With
'crReportDocument.Export()
' ??????? pdf ?
' ??????????
'Response.ClearContent()
'Response.ClearHeaders()
'Response.ContentType = "application/pdf"
'Response.WriteFile(Fname)
'Response.Flush()
'Response.Close()


' ??????????
'System.IO.File.Delete(Fname)
ExecutaReportFormato()
end sub


   Private Sub ExecutaReportFormato()


        Dim objCrystalReportDocument As New CrystalDecisions.CrystalReports.Engine.ReportDocument()


        Dim objCrystalFileDestinationOptions As New CrystalDecisions.Shared.DiskFileDestinationOptions()


        'indica o nome do relatório


        objCrystalReportDocument.Load(Server.MapPath("comptpjrpt.rpt"))






        'indica informações de logon


        Dim crLogonInfo As TableLogOnInfo


        crLogonInfo = objCrystalReportDocument.Database.Tables(0).LogOnInfo


        'crLogonInfo.ConnectionInfo.ServerName = BuscaParam("zhongsb")


        'crLogonInfo.ConnectionInfo.UserID = BuscaParam("sa")


        'crLogonInfo.ConnectionInfo.Password = BuscaParam("3")
           crLogonInfo.ConnectionInfo.ServerName = "zhongsb"


        crLogonInfo.ConnectionInfo.UserID = "sa"


        crLogonInfo.ConnectionInfo.Password = "3"


        objCrystalReportDocument.Database.Tables(0).ApplyLogOnInfo(crLogonInfo)






        'seta formatação


        objCrystalReportDocument.FormatEngine.PrintOptions.PaperOrientation = PaperOrientation.Landscape


        objCrystalReportDocument.FormatEngine.PrintOptions.PaperSize = PaperSize.Paper11x17






        ' Seta arquivo de destino do report


        Dim strExtesion As String






       ' Select Case drpFormatos.SelectedItem.Text


           ' Case "PDF"


                strExtesion = "pdf"


                objCrystalReportDocument.ExportOptions.ExportFormatType =ExportFormatType.PortableDocFormat






           ' Case "Excel"


               ' strExtesion = "xls"


               ' objCrystalReportDocument.ExportOptions.ExportFormatType = Excel






           ' Case "Word"
'
               ' strExtesion = "doc"


               ' objCrystalReportDocument.ExportOptions.ExportFormatType = WordForWindows






           ' Case "RTF"


                'strExtesion = "rtf"


                'objCrystalReportDocument.ExportOptions.ExportFormatType = RichText






        'End Select




        Dim strFile As String = "relat." & strExtesion


        Dim strPath As String = "c:\inetpub\wwwroot\sampleNet\temp\"


        Dim strUrl As String = "temp/"






        'Response.Write("nome do arquivo: " & strFile)


        objCrystalFileDestinationOptions.DiskFileName = strPath & strFile






        'seta propriedades do relat para export


        objCrystalReportDocument.ExportOptions.DestinationOptions = objCrystalFileDestinationOptions


        objCrystalReportDocument.ExportOptions.ExportDestinationType = ExportDestinationType.DiskFile


        objCrystalReportDocument.Export()


         Response.Redirect(strUrl & strFile)


    End Sub




		</script>
		
		
		
		
	
	
		<form id="Form1" method="post" runat="server">
			</form>