Imports Extensiones

Partial Class Prospeccion_RepProspeccion
    Inherits ClsPaginas
    'Confinguración

    Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa) : DdlVendedor.DataBind() : DdlVendedor.Items.Insert(0, New ListItem("Todos", "-1"))
            DdlEstatus.DataSource = GlobalDTProspectosEstatus(UsuarioActual.CveEmpresa) : DdlEstatus.DataBind() : DdlEstatus.Items.Insert(0, New ListItem("Todos", "-1"))
            DdlProspectoClasificacion.DataSource = GlobalDTProspectosClasificaciones(UsuarioActual.CveEmpresa) : DdlProspectoClasificacion.DataBind() : DdlProspectoClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1"))
            CargaDatos() 
        End If
    End Sub

    Private Sub BtnConsultar_Click(sender As Object, e As EventArgs) Handles BtnConsultar.Click
        CargaDatos()
    End Sub

    Private Sub CargaDatos()
        Dim CveVendedor As Integer = DdlVendedor.SelectedValue.ToEntero
        Dim CveClasificacion As Integer = DdlProspectoClasificacion.SelectedValue.ToEntero
        Dim CveEstatus As integer=DdlEstatus.SelectedValue.ToEntero
        Dim Gpo As Integer = DDlGrupo.SelectedValue.ToEntero
        Dim CveEmpresa As Integer = UsuarioActual.CveEmpresa
        Dim ObjPros As New ClsProspectos
        If ObjPros.GetRepProspeccion(CveVendedor, CveClasificacion, CveEstatus, Gpo, CveEmpresa) Then
            GVDatos.DataSource = ObjPros.DtResultados
            GVDatos.DataBind()
        End If
        ObjPros.Dispose()
        UpDatos.Update()
    End Sub

    Private Sub GVDatos_RowDataBound(sender As Object, e As GridViewRowEventArgs) Handles GVDatos.RowDataBound
        If e.Row.RowType = DataControlRowType.DataRow Then
            Dim CveVendedor As String = e.Row.DataKey("CveVendedor")
            Dim CveClasificacion As String = e.Row.DataKey("CveClasificacion")
            Dim CveEstatus As String = e.Row.DataKey("CveEstatus")
            'CveVendedor,CveEstatus,CveClasificacion
            Dim hl1 As HyperLink = e.Row.FCHyperLink("HplLink")
            Dim hl2 As HyperLink = e.Row.FCHyperLink("HplLink2")
            hl1.NavigateUrl = String.Format("/prospeccion/RepProspeccionDetalle.aspx?CveVendedor={0}&CveEstatus={1}&CveClasificacion={2}", CveVendedor, CveEstatus, CveClasificacion)
            hl2.NavigateUrl = String.Format("/prospeccion/RepProspeccionDetalle.aspx?CveVendedor={0}&CveEstatus={1}&CveClasificacion={2}", CveVendedor, CveEstatus, CveClasificacion)

        End If
    End Sub
End Class