Commit inicial Ventas Productivo

Prospeccion/RepProspeccion.aspx.vb

@@ -0,0 +1,49 @@
+
+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