50 lines
2.6 KiB
VB.net
50 lines
2.6 KiB
VB.net
|
|
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
|