none
error de "memoria" al exportar reportes de Crystal Reports a PDF RRS feed

  • Pregunta

  • Muy buenas amigos.

    Les comento que estoy trabajando en un proceso para la generación de archivos pdf para todos nuestros articulos que en total son unos 20 000.

    Ya logre montar el proceso y funciona relativamente bien, estoy tratando de generar el proceso en Batchs de unos 1000 archivos, pero pasa que cuando va por el registro 300 (aproximadamente) el proceso se cae por un error en el export. ver imagen adjunta.

    Lo que estoy haciendo es un primer proceso carga de la Base de datos los codigos de los articulos. y pasa este codigo al procedimiento que exporta genera el reporte de crystal reports y lo exporta a pdf.

    pero cuando ya va exportando el reporte 300 ya hay deficiencias en losa rchivos que se generaron y luego de 2 o 3 archivos mas se cae el proceso

    Fragmento de codigo

        Public Sub creapdf(ByVal loco As Integer)
            Dim cryRpt As New ReportDocument
            Dim RpDatos As New ParameterValues()
            Dim numero As New CrystalDecisions.Shared.ParameterDiscreteValue()
            Dim RutaReporte As String = "c:\CrystalReport.rpt"
            Dim RutaSalida As String = "C:\salida\"
            Dim CrExportOptions As ExportOptions
            Dim CrDiskFileDestinationOptions As New DiskFileDestinationOptions()
            Dim CrFormatTypeOptions As New PdfRtfWordFormatOptions()
            cryRpt.Load(RutaReporte)
            cryRpt.SetDatabaseLogon("sa", "werwervdfgdfg")
            Try
                numero.Value = loco ' 'este es el numero del registro que vamos a buscar en la base de datos
                RpDatos.Add(numero)
                cryRpt.DataDefinition.ParameterFields("numero").ApplyCurrentValues(RpDatos)
                RpDatos.Clear()
                CrDiskFileDestinationOptions.DiskFileName = RutaSalida & RTrim(myReader.GetString(1)) & ".pdf"
                CrExportOptions = cryRpt.ExportOptions
                With CrExportOptions
                    .ExportDestinationType = ExportDestinationType.DiskFile
                    .ExportFormatType = ExportFormatType.PortableDocFormat
                    .DestinationOptions = CrDiskFileDestinationOptions
                    .FormatOptions = CrFormatTypeOptions
                End With
                cryRpt.Export() 'genero el archivo pdf
                cryRpt.Close()
                'cryRpt.Dispose() ' nofunciono
                cryRpt = Nothing

            Catch ex As Exception
                MsgBox(ex.ToString)
            End Try
        End Sub

    Tienen alguna recomendacion para que esto no suceda?

     gracias de antemano

    • Cambiado Enrique M. Montejo martes, 25 de noviembre de 2014 7:15 Pregunta relacionada con Crystal Reports.
    lunes, 24 de noviembre de 2014 2:53