none
Problema al establecer de origen de datos una capa de negocio de la aplicacion RRS feed

  • Pregunta

  • Hola foro estoy haciendo un reporte en windowsform pero he tenido los siguientes inconvenientes:

    Les dejo una imagen(s)

    pero en el datasource no me lista el metodo que tengo en mi capa logica

    este es mi codigo de la capa logica:

    Imports Renta_BE
    Imports Renta_DA
    Public Class ReporteProgramacionBL
        Public Function GetReporte() As IList(Of ReporteProgramacionBE)
            Dim objReportDA As New DetalleProgramacionDA
            Return objReportDA.GetReporte()
        End Function
    End Class

    de mi acceso a datos es :

      Public Function GetReporte() As IList(Of ReporteProgramacionBE)
            Dim objReport As ReporteProgramacionBE
            Dim entidades As New List(Of ReporteProgramacionBE)
            Try
                Using cn As New SqlConnection(ConfigurationManager.ConnectionStrings("ConexionSql").ConnectionString)
                    Using cmd As New SqlCommand
                        cmd.Connection = cn
                        cmd.CommandType = CommandType.StoredProcedure
                        cmd.CommandText = "REP_PROGRAMACIONCLIENTE"
                        'cmd.Parameters.Add("@PRO_ID", SqlDbType.Int).Value = objReportBE.PRO_ID
                        cn.Open()
                        Using dr As SqlDataReader = cmd.ExecuteReader(CommandBehavior.CloseConnection)
                            If dr.HasRows = True Then
                                While dr.Read
                                    objReport = New ReporteProgramacionBE
                                    objReport.DP_ITEM = IIf(dr.IsDBNull(dr.GetOrdinal("DP_ITEM")), 0, dr.GetInt32(dr.GetOrdinal("DP_ITEM")))
                                    objReport.DP_DIAVIAJE = IIf(dr.IsDBNull(dr.GetOrdinal("DP_DIAVIAJE")), "", dr.GetString(dr.GetOrdinal("DP_DIAVIAJE")))
                                    objReport.RUTA_ID = IIf(dr.IsDBNull(dr.GetOrdinal("RUTA_ID")), 0, dr.GetInt32(dr.GetOrdinal("RUTA_ID")))
                                    objReport.RUTA_DES = IIf(dr.IsDBNull(dr.GetOrdinal("RUTA_DES")), "", dr.GetString(dr.GetOrdinal("RUTA_DES")))
                                    objReport.HORAVIAJE = IIf(dr.IsDBNull(dr.GetOrdinal("HORAVIAJE")), "", dr.GetString(dr.GetOrdinal("HORAVIAJE")))
                                    objReport.PAS_NOMBRECOMPLETO = IIf(dr.IsDBNull(dr.GetOrdinal("PAS_NOMBRECOMPLETO")), "", dr.GetString(dr.GetOrdinal("PAS_NOMBRECOMPLETO")))
                                    objReport.LUGAR = IIf(dr.IsDBNull(dr.GetOrdinal("LUGAR")), "", dr.GetString(dr.GetOrdinal("LUGAR")))
                                    objReport.CHO_ID = IIf(dr.IsDBNull(dr.GetOrdinal("CHO_ID")), 0, dr.GetInt32(dr.GetOrdinal("CHO_ID")))
                                    objReport.CHO_NOMBRECOMPLETO = IIf(dr.IsDBNull(dr.GetOrdinal("CHO_NOMBRECOMPLETO")), "", dr.GetString(dr.GetOrdinal("CHO_NOMBRECOMPLETO")))
                                    objReport.VEH_ID = IIf(dr.IsDBNull(dr.GetOrdinal("VEH_ID")), 0, dr.GetInt32(dr.GetOrdinal("VEH_ID")))
                                    objReport.VEH_PLACA = IIf(dr.IsDBNull(dr.GetOrdinal("VEH_PLACA")), "", dr.GetString(dr.GetOrdinal("VEH_PLACA")))
                                    entidades.Add(objReport)
                                End While
                            End If
                        End Using
                        cmd.Dispose()
                    End Using
                    cn.Close()
                End Using
            Catch ex As Exception
                Throw New Exception(ex.Message)
            End Try
            Return entidades
        End Function

    Necesita de su ayuda para obtener de origen de datos mi metodo de una capa de negocio.

    Muchas Gracias.


    ronalddevelopers


    domingo, 11 de agosto de 2013 19:29