none
consulta RRS feed

  • Pregunta

  • hola, tengo un boton imprimir programado para ello, pero al ejecutar la solucion, se produce una exception y me muestra un error relacionado con crystal report. la verdad no se en donde estara el error, o que es lo que faltara. por favor solicito ayuda. gracias

    COMException: Operación no admitida. Un documento procesado por el motor JRC no se puede abrir en la pila C++.

    CrystalDecisions.Shared.CrystalReportsException: 'No se ha podido cargar el informe.'

    adjunto codigo del evento:

        Private Sub btnPrint_Click(sender As Object, e As EventArgs) Handles btnPrint.Click

            If grid.myGrid.Rows.Count = 0 Then

                Me.Cursor = Cursors.Default
                MessageBox.Show("No data to report per selections", "Blank Report", MessageBoxButtons.OK, MessageBoxIcon.Error)
                Exit Sub

            End If

            Me.Cursor = Cursors.WaitCursor
            Dim filter As String = GetFilterStringForRemoteData()

            If String.IsNullOrEmpty(filter.Trim()) Then

                filter = If(Not ShowAllRecors, " active = 'T' ", " active in ('T','F') ")

            Else

                filter = filter & If(Not ShowAllRecors, " and active = 'T' ", " and active in ('T','F') ")

            End If

            Dim listObjectBO As List(Of PrmproBO) = PrmproBLL.GetDataforReport_Special(filter)
            Dim rpt As New RptPrmpro

           

    +++++++++++

            AQUI SUCEDE EL ERROR, CON ESTOS MENSAJES

    COMException: Operación no admitida. Un documento procesado por el motor JRC no se puede abrir en la pila C++.

    CrystalDecisions.Shared.CrystalReportsException: 'No se ha podido cargar el informe.'

            rpt.Database.Tables.Item("FrmMain_Reports_RptPrmproBO").SetDataSource(listObjectBO)

    +++++++++++

            Dim rptObject As Object
            '
            ' set report parameters
            '
            rptObject = FrmMain.SecusrBO.Secnam.Trim
            rpt.SetParameterValue("rptUser", rptObject)

            '
            'Code to get the Report's parameters.
            '
            rptObject = "Project Id......................................."
            rpt.SetParameterValue("rptRunDescr01", rptObject)
            rpt.SetParameterValue("rptRunValue01", IIf(String.IsNullOrEmpty(txtPrmpro.Text.Trim()), "[not set]", "Start With: " & txtPrmpro.Text.Trim()))
            rptObject = "Status Id........................................"
            rpt.SetParameterValue("rptRunDescr02", rptObject)
            rpt.SetParameterValue("rptRunValue02", IIf(String.IsNullOrEmpty(txtPrmsts.Text.Trim()), "[not set]", "Contains: " & txtPrmsts.Text.Trim()))
            rptObject = "Company Id......................................."
            rpt.SetParameterValue("rptRunDescr03", rptObject)
            rpt.SetParameterValue("rptRunValue03", IIf(String.IsNullOrEmpty(txtPrmcmp.Text.Trim()), "[not set]", "Contains: " & txtPrmcmp.Text.Trim()))
            rptObject = " "
            rpt.SetParameterValue("rptRunDescr04", rptObject)
            rpt.SetParameterValue("rptRunValue04", rptObject)
            rpt.SetParameterValue("rptRunDescr05", rptObject)
            rpt.SetParameterValue("rptRunValue05", rptObject)
            rpt.SetParameterValue("rptRunDescr06", rptObject)
            rpt.SetParameterValue("rptRunValue06", rptObject)
            rpt.SetParameterValue("rptRunDescr07", rptObject)
            rpt.SetParameterValue("rptRunValue07", rptObject)
            rpt.SetParameterValue("rptRunDescr08", rptObject)
            rpt.SetParameterValue("rptRunValue08", rptObject)
            rpt.SetParameterValue("rptRunDescr09", rptObject)
            rpt.SetParameterValue("rptRunValue09", rptObject)
            rpt.SetParameterValue("rptRunDescr10", rptObject)
            rpt.SetParameterValue("rptRunValue10", rptObject)
            '
            'End Code.
            '

            'show time
            frmReport.CrystalReportViewer1.ReportSource = rpt
            frmReport.reportDescription = meTableDescr & " Listing"

            Me.Cursor = Cursors.Default

            frmReport.ShowDialog()

            If frmReport.wasDone Then

                '
            'Code to get the focus on the first filter TextBox.
            '
            txtPrmpro.Select()
            '
            'End Code.
            '

            End If

            Try

                frmReport.Dispose()

            Catch ex As Exception
            End Try

            Try

                rpt.Dispose()

            Catch ex As Exception
            End Try
        End Sub

    ESPERO HABER SIDO CLARO. AGRADECERE SU AYUDA

    jueves, 9 de mayo de 2019 19:31

Respuestas

  • Hola 

    Gracias por levantar tu consulta en los foros de MSDN. Con respecto a la misma, te hago la recomendación de ingresar al siguiente enlace en donde puedes encontrar una de las posibles soluciones para tu problema.

    https://social.msdn.microsoft.com/Forums/es-ES/9a97b62e-3dc4-4835-b46c-10f707d7deb3/operacin-no-admitida-un-documento-procesado-por-el-motor-jrc-no-se-puede-abrir-en-la-pila-c

    Gracias por usar los foros de MSDN.
    Erick Rivera
     ____
    Por favor recuerde "Marcar como respuesta" las respuestas que hayan resuelto su problema, es una forma común de reconocer a aquellos que han ayudado, y hace que sea más fácil para los otros visitantes encontrar la solución más tarde.
    Microsoft ofrece este servicio de forma gratuita, con la finalidad de ayudar a los usuarios y la ampliación de la base de datos de conocimientos relacionados con los productos y tecnologías de Microsoft. 
    Este contenido es proporcionado "tal cual" y no implica ninguna responsabilidad de parte de Microsoft.

    viernes, 10 de mayo de 2019 20:33