none
VB.NET Reporte Crystal Report Mensaje de Validacion RRS feed

  • Pregunta

  • Buenos días Amigos espero que me puedan ayudar haber le comento tengo un reporte hecho en crystal report 2010 con procedimiento almacenado con parámetros

    cada vez que se ejecuta el reporte siempre  me pide el id y la contraseña e revisado el app.config y ahi esta el data source  con el usuario y la contraseña. en verdad no se en donde esta el problema.

    
    • Cambiado Karen Malagón lunes, 5 de octubre de 2015 17:23 Crystal Reports issue
    lunes, 5 de octubre de 2015 15:56

Respuestas

  • Saludos:

    El problema es instanciacion.

    Dim informe As New RepDeclaracionJuasvi() ' --> Mal
    
    Dim informe As New RepDeclaracionJuasvi ' --> Bien.

    Asumo que RepDeclaracionJuasvil es el nombre del reporte (archivo RPT). Verifica que la propiedad "Copy to output directory" del reporte este en "Copy Always". Esto lo puedes hacer el el explorador de soluciones, propiedades del reporte.

    Espero ayude.

    JOSE LUIS


    Dios NO los llamo LAS DIEZ RECOMENDACIONES

    lunes, 5 de octubre de 2015 17:14
  • Buen día Jose luis, te comento sigo con el mismo problema de la validación de usuarios estoy usando como proveedor a OLE DB(ADO) y procedimiento almacenado en sqlserver 2005 vb.net 2010 frameword 4

    martes, 6 de octubre de 2015 17:05

Todas las respuestas

  • Saludos:

    Puede ser la instanciacion del objeto, la ubicacion del recurso (archivo rpt) o el manejo de SetDataSource del reporte.

    Seria util si mostrases el codigo, para mirar un poco mas.

    JOSE LUIS


    Dios NO los llamo LAS DIEZ RECOMENDACIONES

    lunes, 5 de octubre de 2015 16:28
  • Imports CrystalDecisions.CrystalReports.Engine
    Imports CrystalDecisions.Shared
    Public Class FRMReporteJuasvi
    #Region "Formulario Instancias"
        Private Shared mWinFormDefInstancia As FRMReporteJuasvi
        Private Shared mInicializarDefInstancia As Boolean
        Public Shared Property DefinirInstancia() As FRMReporteJuasvi
            Get
                If mWinFormDefInstancia Is Nothing OrElse mWinFormDefInstancia.IsDisposed Then
                    mInicializarDefInstancia = True
                    mWinFormDefInstancia = New FRMReporteJuasvi
                    mInicializarDefInstancia = False
                End If
                mWinFormDefInstancia.BringToFront()
                Return mWinFormDefInstancia
            End Get
            Set(ByVal Value As FRMReporteJuasvi)
                mWinFormDefInstancia = Value
            End Set
        End Property
    #End Region
        Dim dt As New DataTable
        Dim dx As New SysAgro.ConexionPosoft
        Dim objpozos As New SysAgro.ConsultasPozos
        Dim dtpozos As DataTable
          Sub CARGARPOZOS()
            dt.Load(dx.lee_datos("SP_LISTARPOZOS", 0))
            Me.cbpozos.DataSource = dt
            Me.cbpozos.DisplayMember = "NOM_POZ"
            Me.cbpozos.ValueMember = "COD_POZ"
        End Sub
        Private Sub FRMReporteJuasvi_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
            CARGARPOZOS()
        End Sub
        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
            consultapozosjuasvi()
        End Sub

        Dim parametros As New ParameterFields()
        Dim valor1 As New ParameterFields()
        Dim valor As New ParameterDiscreteValue
        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
            Try
                If cbpozos.Text = "" And cbmes.Text = "" And dtpaño.Text = "" Then
                    MessageBox.Show("Verificar los datos de entrada")
                    Exit Sub
                End If

                Me.CrystalReportViewer1.ReportSource = Nothing
                Dim DATOS As New ParameterValues
                Dim NOMBREPOZO As New ParameterDiscreteValue
                Dim MES As New ParameterDiscreteValue
                Dim AÑO As New ParameterDiscreteValue
                NOMBREPOZO.Value = cbpozos.Text
                MES.Value = cbmes.Text
                AÑO.Value = dtpaño.Text
                Dim informe As New RepDeclaracionJuasvi()
                With informe
                    .SetParameterValue("@POZO", NOMBREPOZO)
                    .SetParameterValue("@MES", MES)
                    .SetParameterValue("@AÑO", AÑO)
                End With
                Me.CrystalReportViewer1.ReportSource = informe
            Catch ex As Exception
                MsgBox(ex.Message)
            End Try
            
        End Sub

        Private Sub GroupBox1_Enter(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles GroupBox1.Enter
            CrystalReportViewer1.ShowGroupTreeButton = False
        End Sub
    End Class
    lunes, 5 de octubre de 2015 16:46
  • Saludos:

    El problema es instanciacion.

    Dim informe As New RepDeclaracionJuasvi() ' --> Mal
    
    Dim informe As New RepDeclaracionJuasvi ' --> Bien.

    Asumo que RepDeclaracionJuasvil es el nombre del reporte (archivo RPT). Verifica que la propiedad "Copy to output directory" del reporte este en "Copy Always". Esto lo puedes hacer el el explorador de soluciones, propiedades del reporte.

    Espero ayude.

    JOSE LUIS


    Dios NO los llamo LAS DIEZ RECOMENDACIONES

    lunes, 5 de octubre de 2015 17:14
  • Buen día Jose luis, te comento sigo con el mismo problema de la validación de usuarios estoy usando como proveedor a OLE DB(ADO) y procedimiento almacenado en sqlserver 2005 vb.net 2010 frameword 4

    martes, 6 de octubre de 2015 17:05