Commit inicial Ventas Productivo
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
907
Prospectos/CatClasificacionesCaracteristicas.aspx.vb
Normal file
907
Prospectos/CatClasificacionesCaracteristicas.aspx.vb
Normal file
@@ -0,0 +1,907 @@
|
||||
Option Explicit On
|
||||
Option Strict On
|
||||
|
||||
Imports System.Data
|
||||
Imports System.Linq
|
||||
Imports Extensiones
|
||||
|
||||
|
||||
Partial Class Prospectos_CatClasificacionesCaracteristicas
|
||||
Inherits ClsPaginas
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
ViewState("OrdenCl") = ""
|
||||
ViewState("OCaracteristicaClasificacionCl") = "CaracteristicaClasificacion DESC"
|
||||
ViewState("OEstatusCl") = "Estatus DESC"
|
||||
ViewState("OFechaIngCl") = "FechaIng DESC"
|
||||
ViewState("OUsuarioCl") = "Usuario DESC"
|
||||
CargaDatosCl()
|
||||
|
||||
ViewState("Orden") = ""
|
||||
ViewState("OCaracteristicaTipo") = "CaracteristicaTipo DESC"
|
||||
ViewState("OEstatus") = "Estatus DESC"
|
||||
ViewState("OFechaIng") = "FechaIng DESC"
|
||||
ViewState("OUsuario") = "Usuario DESC"
|
||||
CargaClasificaciones()
|
||||
CargaDatos()
|
||||
|
||||
ViewState("OrdenC") = ""
|
||||
ViewState("OCaracteristicaC") = "Caracteristica DESC"
|
||||
ViewState("OCaracteristicaTipoC") = "CaracteristicaTipo DESC"
|
||||
ViewState("OEsOpcionC") = "EsOpcion DESC"
|
||||
ViewState("OEstatusC") = "Estatus DESC"
|
||||
ViewState("OFechaIngC") = "FechaIng DESC"
|
||||
ViewState("OUsuarioC") = "Usuario DESC"
|
||||
CargaTiposCaracteristicas()
|
||||
CargaDatosC()
|
||||
|
||||
ViewState("OrdenO") = ""
|
||||
ViewState("OOpcionO") = "Opcion DESC"
|
||||
ViewState("OCaracteristicaO") = "Caracteristica DESC"
|
||||
ViewState("OEstatusO") = "Estatus DESC"
|
||||
ViewState("OFechaIngO") = "FechaIng DESC"
|
||||
ViewState("OUsuarioO") = "Usuario DESC"
|
||||
CargaCaracteristicas()
|
||||
CargaDatosO()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
#Region " Características Clasificaciones "
|
||||
|
||||
Public Sub CargaDatosCl()
|
||||
Dim ObjClasificaciones As New ClsProspectos
|
||||
If ObjClasificaciones.GetCaracteristicasClasificaciones(UsuarioActual.CveEmpresa) Then
|
||||
ViewState("DTClasificacionesCaracteristicas") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
If (ViewState("DTClasificacionesCaracteristicas") Is Nothing) Then
|
||||
ViewState("DTClasificacionesCaracteristicas") = ObjClasificaciones.DtResultados
|
||||
End If
|
||||
GlobalDTProspectosCaracteristicasClasificaciones = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
Else
|
||||
Me.GvDatosCl.DataSource = Nothing
|
||||
End If
|
||||
|
||||
ObjClasificaciones.Dispose()
|
||||
|
||||
If ViewState("OrdenCl").ToString() <> String.Empty Then
|
||||
CargaGridCl(ViewState("OrdenCl").ToString())
|
||||
Else
|
||||
CargaGridCl("")
|
||||
End If
|
||||
End Sub
|
||||
Protected Sub LbAgregarCl_Click(sender As Object, e As System.EventArgs) Handles LbAgregarCl.Click
|
||||
Dim ObjClasificaciones As New ClsProspectos
|
||||
If ObjClasificaciones.AddClasificacionesCaracteristicas(TxtCaracteristicaClasificacion.Text.Trim, TxtOrdenCl.Text.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
TxtCaracteristicaClasificacion.Text = ""
|
||||
TxtOrdenCl.Text = ""
|
||||
Alert("La nueva Clasificación de Tipo de Característica se guardó correctamente.", TipoMensaje.MsgInformacion)
|
||||
'UpTitulos.Update()
|
||||
ViewState("DTClasificacionesCaracteristicas") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTProspectosCaracteristicasClasificaciones = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
|
||||
CambioClasificacionesCaracteristicas()
|
||||
End If
|
||||
ObjClasificaciones.Dispose()
|
||||
End Sub
|
||||
|
||||
#Region " O R D E N"
|
||||
Protected Sub LbEstatusCl_Click(sender As Object, e As System.EventArgs) Handles LbEstatusCl.Click, ImgEstatusCl.Click
|
||||
If ViewState("OEstatusCl").ToString() = "Estatus DESC" Then
|
||||
ViewState("OEstatusCl") = "Estatus ASC"
|
||||
ImgEstatusCl.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("OEstatusCl") = "Estatus DESC"
|
||||
ImgEstatusCl.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("OrdenCl") = ViewState("OEstatusCl")
|
||||
CargaGridCl(ViewState("OrdenCl").ToString())
|
||||
End Sub
|
||||
Protected Sub LbFechaIngCl_Click(sender As Object, e As System.EventArgs) Handles LbFechaIngCl.Click, ImgFechaIngCl.Click
|
||||
If ViewState("OFechaIngCl").ToString() = "FechaIng DESC" Then
|
||||
ViewState("OFechaIngCl") = "FechaIng ASC"
|
||||
ImgFechaIngCl.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("OFechaIngCl") = "FechaIng DESC"
|
||||
ImgFechaIngCl.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("OrdenCl") = ViewState("OFechaIngCl")
|
||||
CargaGridCl(ViewState("OrdenCl").ToString())
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
#End Region
|
||||
|
||||
#Region " C A R A C T E R I S T I C A S - T I P O S "
|
||||
|
||||
#Region "O R D E N A R - T I P O - C A R A C T E R I S T I C A S"
|
||||
Protected Sub LbCaracteristicaTipo_Click(sender As Object, e As System.EventArgs) Handles LbCaracteristicaTipo.Click, ImgCaracteristicaTipo.Click
|
||||
If ViewState("OCaracteristicaTipo").ToString() = "CaracteristicaTipo DESC" Then
|
||||
ViewState("OCaracteristicaTipo") = "CaracteristicaTipo ASC"
|
||||
ImgCaracteristicaTipo.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("OCaracteristicaTipo") = "CaracteristicaTipo DESC"
|
||||
ImgCaracteristicaTipo.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("Orden") = ViewState("OCaracteristicaTipo")
|
||||
CargaGrid(ViewState("Orden").ToString())
|
||||
End Sub
|
||||
Protected Sub LbCaracteristicaClasificacion_Click(sender As Object, e As System.EventArgs) Handles LbCaracteristicaClasificacion.Click, ImgCaracteristicaClasificacion.Click
|
||||
If ViewState("OCaracteristicaClasificacionCl").ToString() = "CaracteristicaClasificacion DESC" Then
|
||||
ViewState("OCaracteristicaClasificacionCl") = "CaracteristicaClasificacion ASC"
|
||||
ImgCaracteristicaClasificacion.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("OCaracteristicaClasificacionCl") = "CaracteristicaClasificacion DESC"
|
||||
ImgCaracteristicaClasificacion.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("OrdenCl") = ViewState("OCaracteristicaClasificacionCl")
|
||||
CargaGridCl(ViewState("OrdenCl").ToString())
|
||||
End Sub
|
||||
Protected Sub LbOrden_Click(sender As Object, e As System.EventArgs) Handles LbOrden.Click, ImgOrden.Click
|
||||
If ViewState("Orden").ToString() = "Orden DESC" Then
|
||||
ViewState("Orden") = "Orden ASC"
|
||||
ImgOrden.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("Orden") = "Orden DESC"
|
||||
ImgOrden.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("Orden") = ViewState("Orden")
|
||||
CargaGridCl(ViewState("Orden").ToString())
|
||||
End Sub
|
||||
|
||||
Protected Sub LbEstatus_Click(sender As Object, e As System.EventArgs) Handles LbEstatus.Click, ImgEstatus.Click
|
||||
If ViewState("OEstatus").ToString() = "Estatus DESC" Then
|
||||
ViewState("OEstatus") = "Estatus ASC"
|
||||
ImgEstatus.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("OEstatus") = "Estatus DESC"
|
||||
ImgEstatus.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("Orden") = ViewState("OEstatus")
|
||||
CargaGrid(ViewState("Orden").ToString())
|
||||
End Sub
|
||||
|
||||
Protected Sub LbFechaIng_Click(sender As Object, e As System.EventArgs) Handles LbFechaIng.Click, ImgFechaIng.Click
|
||||
If ViewState("OFechaIng").ToString() = "FechaIng DESC" Then
|
||||
ViewState("OFechaIng") = "FechaIng ASC"
|
||||
ImgFechaIng.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("OFechaIng") = "FechaIng DESC"
|
||||
ImgFechaIng.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("Orden") = ViewState("OFechaIng")
|
||||
CargaGrid(ViewState("Orden").ToString())
|
||||
End Sub
|
||||
#End Region
|
||||
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
If e.Row.RowIndex = 0 Then
|
||||
e.Row.Cells(0).Width = Unit.Pixel(250)
|
||||
e.Row.Cells(1).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(2).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(3).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(4).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(5).Width = Unit.Pixel(50)
|
||||
e.Row.Cells(6).Width = Unit.Pixel(53)
|
||||
End If
|
||||
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
|
||||
|
||||
If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
|
||||
e.Row.FCDropDownList("DdlCaracteristicaClasificacionEdit").DataSource = GlobalDTProspectosCaracteristicasClasificaciones.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
e.Row.FCDropDownList("DdlCaracteristicaClasificacionEdit").DataBind()
|
||||
e.Row.FCDropDownList("DdlCaracteristicaClasificacionEdit").SelectedValue = e.Row.DBCampo("CveCaracteristicaClasificacion")
|
||||
End If
|
||||
'If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
|
||||
' e.Row.FCDropDownList("DdlCaracteristicaClasificacionEdit").DataSource = GlobalDTProspectosTiposCaracteristicas(UsuarioActual.CveEmpresa).FiltraParametros("").FiltraParametros("Estatus = 'Activo'")
|
||||
' e.Row.FCDropDownList("DdlCaracteristicaClasificacionEdit").DataBind()
|
||||
' e.Row.FCDropDownList("DdlCaracteristicaClasificacionEdit").SelectedValue = e.Row.DBCampo("CveCaracteristicaClasificacion")
|
||||
'End If
|
||||
End If
|
||||
End Sub
|
||||
Private Sub CargaClasificaciones()
|
||||
DdlCaracteristicaClasificacion.Items.Clear()
|
||||
DdlCaracteristicaClasificacion.DataSource = GlobalDTProspectosCaracteristicasClasificaciones.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlCaracteristicaClasificacion.DataBind()
|
||||
|
||||
DdlCaracteristicaClasificacionC.Items.Clear()
|
||||
DdlCaracteristicaClasificacionC.DataSource = GlobalDTProspectosCaracteristicasClasificaciones.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlCaracteristicaClasificacionC.DataBind()
|
||||
End Sub
|
||||
Protected Sub BtnDuplicarCaracteristicaTipo_Click(sender As Object, e As EventArgs) Handles BtnDuplicarCaracteristicaTipo.Click
|
||||
Dim Sc As String = "$get('divDuplicar').style.display='none';"
|
||||
|
||||
Dim CveCaracteristicaTipo As Integer = hdnCaracteristicaTipo.Value.ToEntero
|
||||
Dim CaracteristicaTipo As String = TxtCaracteristicaTipoDuplicar.Text.Trim
|
||||
|
||||
Dim ObjCaracteristicaTipo As New ClsProspectos
|
||||
If ObjCaracteristicaTipo.CloneTiposCaracteristicas(CveCaracteristicaTipo, CaracteristicaTipo, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
TxtCaracteristicaTipo.Text = ""
|
||||
TxtOrden.Text = ""
|
||||
Alert("El nuevo Tipo de Característica se guardó correctamente.", TipoMensaje.MsgInformacion)
|
||||
'UpTitulos.Update()
|
||||
ViewState("DTTiposCaracteristicas") = ObjCaracteristicaTipo.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTProspectosTiposCaracteristicas = ObjCaracteristicaTipo.DtResultados
|
||||
|
||||
CambioCaracteristicaTipo()
|
||||
End If
|
||||
ObjCaracteristicaTipo.Dispose()
|
||||
|
||||
RegistraScript(Sc)
|
||||
End Sub
|
||||
|
||||
#End Region
|
||||
|
||||
#Region " C A R A C T E R I S T I C A S - P R O S P E C T O S"
|
||||
Public Sub CargaDatosC()
|
||||
Dim ObjCaracteristicas As New ClsProspectos
|
||||
If ObjCaracteristicas.GetCaracteristicas(UsuarioActual.CveEmpresa) Then
|
||||
' ViewState("DTCaracteristicas") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
If (ViewState("DTCaracteristicas") Is Nothing) Then
|
||||
ViewState("DTCaracteristicas") = ObjCaracteristicas.DtResultados
|
||||
End If
|
||||
GlobalDTProspectosCaracteristicas(UsuarioActual.CveEmpresa) = ObjCaracteristicas.DtResultados
|
||||
Else
|
||||
Me.GvDatosCaracteristicas.DataSource = Nothing
|
||||
End If
|
||||
|
||||
ObjCaracteristicas.Dispose()
|
||||
|
||||
If ViewState("OrdenC").ToString() <> String.Empty Then
|
||||
CargaGridC(ViewState("OrdenC").ToString())
|
||||
Else
|
||||
CargaGridC("")
|
||||
End If
|
||||
End Sub
|
||||
Protected Sub LbAgregarC_Click(sender As Object, e As System.EventArgs) Handles LbAgregarC.Click
|
||||
Dim ObjCaracteristicas As New ClsProspectos
|
||||
If ObjCaracteristicas.AddCaracteristicas(TxtCaracteristica.Text.Trim, DdlCaracteristicaTipo.SelectedValue.ToEntero, DdlEsOpcionC.SelectedValue.ToEntero, TxtOrdenC.Text.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
TxtCaracteristica.Text = ""
|
||||
TxtOrdenC.Text = ""
|
||||
|
||||
Alert("La nueva Característica se guardó correctamente.", TipoMensaje.MsgInformacion)
|
||||
ViewState("DTCaracteristicas") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTProspectosCaracteristicas(UsuarioActual.CveEmpresa) = ObjCaracteristicas.DtResultados
|
||||
|
||||
CambioCaracteristicas()
|
||||
End If
|
||||
ObjCaracteristicas.Dispose()
|
||||
End Sub
|
||||
|
||||
Protected Sub LbCaracteristicaTipoC_Click(sender As Object, e As System.EventArgs) Handles LbCaracteristicaTipoC.Click, ImgCaracteristicaTipoC.Click
|
||||
If ViewState("OCaracteristicaTipoC").ToString() = "CaracteristicaTipo DESC" Then
|
||||
ViewState("OCaracteristicaTipoC") = "CaracteristicaTipo ASC"
|
||||
ImgCaracteristicaTipoC.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("OCaracteristicaTipoC") = "CaracteristicaTipo DESC"
|
||||
ImgCaracteristicaTipoC.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("OrdenC") = ViewState("OCaracteristicaTipoC")
|
||||
CargaGridC(ViewState("OrdenC").ToString())
|
||||
End Sub
|
||||
|
||||
Protected Sub LbCaracteristicaC_Click(sender As Object, e As System.EventArgs) Handles LbCaracteristicaC.Click, ImgCaracteristicaC.Click
|
||||
If ViewState("OCaracteristicaC").ToString() = "Caracteristica DESC" Then
|
||||
ViewState("OCaracteristicaC") = "Caracteristica ASC"
|
||||
ImgCaracteristicaC.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("OCaracteristicaC") = "Caracteristica DESC"
|
||||
ImgCaracteristicaC.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("OrdenC") = ViewState("OCaracteristicaC")
|
||||
CargaGridC(ViewState("OrdenC").ToString())
|
||||
End Sub
|
||||
|
||||
Private Sub CargaTiposCaracteristicas()
|
||||
DdlCaracteristicaTipo.Items.Clear()
|
||||
DdlCaracteristicaTipo.DataSource = GlobalDTProspectosTiposCaracteristicas.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlCaracteristicaTipo.DataBind()
|
||||
|
||||
DdlCaracteristicaTipoO.Items.Clear()
|
||||
DdlCaracteristicaTipoO.DataSource = GlobalDTProspectosTiposCaracteristicas.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
DdlCaracteristicaTipoO.DataBind()
|
||||
End Sub
|
||||
Protected Sub GvDatosCaracteristicas_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatosCaracteristicas.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
If e.Row.RowIndex = 0 Then
|
||||
e.Row.Cells(0).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(1).Width = Unit.Pixel(150)
|
||||
e.Row.Cells(2).Width = Unit.Pixel(200)
|
||||
e.Row.Cells(3).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(4).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(5).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(6).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(7).Width = Unit.Pixel(50)
|
||||
e.Row.Cells(8).Width = Unit.Pixel(50)
|
||||
End If
|
||||
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
|
||||
e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
|
||||
|
||||
If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
|
||||
e.Row.FCDropDownList("DdlCaracteristicaTipoEdit").DataSource = GlobalDTProspectosTiposCaracteristicas.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
e.Row.FCDropDownList("DdlCaracteristicaTipoEdit").DataBind()
|
||||
e.Row.FCDropDownList("DdlCaracteristicaTipoEdit").SelectedValue = e.Row.DBCampo("CveCaracteristicaTipo")
|
||||
|
||||
e.Row.FCDropDownList("DdlEsOpcionEdit").SelectedIndex = e.Row.DBCampo("EsOpcion").ToEntero
|
||||
End If
|
||||
End If
|
||||
End Sub
|
||||
|
||||
|
||||
#Region "O R D E N A R - C A R A C T E R I S T I C A S - P R O S P E C T O S"
|
||||
Protected Sub LbEstatusC_Click(sender As Object, e As System.EventArgs) Handles LbEstatusC.Click, ImgEstatusC.Click
|
||||
If ViewState("OEstatusC").ToString() = "Estatus DESC" Then
|
||||
ViewState("OEstatusC") = "Estatus ASC"
|
||||
ImgEstatusC.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("OEstatusC") = "Estatus DESC"
|
||||
ImgEstatusC.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("OrdenC") = ViewState("OEstatusC")
|
||||
CargaGridC(ViewState("OrdenC").ToString())
|
||||
End Sub
|
||||
Protected Sub LbEsOpcionC_Click(sender As Object, e As System.EventArgs) Handles LbEsOpcionC.Click, ImgEsOpcionC.Click
|
||||
If ViewState("OEsOpcionC").ToString() = "EsOpcion DESC" Then
|
||||
ViewState("OEsOpcionC") = "EsOpcion ASC"
|
||||
ImgEsOpcionC.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("OEsOpcionC") = "EsOpcion DESC"
|
||||
ImgEsOpcionC.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("OrdenC") = ViewState("OEsOpcionC")
|
||||
CargaGridC(ViewState("OrdenC").ToString())
|
||||
End Sub
|
||||
Protected Sub LbFechaIngC_Click(sender As Object, e As System.EventArgs) Handles LbFechaIngC.Click, ImgFechaIngC.Click
|
||||
If ViewState("OFechaIngC").ToString() = "FechaIng DESC" Then
|
||||
ViewState("OFechaIngC") = "FechaIng ASC"
|
||||
ImgFechaIngC.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("OFechaIngC") = "FechaIng DESC"
|
||||
ImgFechaIngC.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("OrdenC") = ViewState("OFechaIngC")
|
||||
CargaGridC(ViewState("OrdenC").ToString())
|
||||
End Sub
|
||||
Protected Sub LbUsuarioC_Click(sender As Object, e As System.EventArgs) Handles LbUsuarioC.Click, ImgUsuarioC.Click
|
||||
If ViewState("OUsuarioC").ToString() = "Usuario DESC" Then
|
||||
ViewState("OUsuarioC") = "Usuario ASC"
|
||||
ImgUsuarioC.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("OUsuarioC") = "Usuario DESC"
|
||||
ImgUsuarioC.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("OrdenC") = ViewState("OUsuarioC")
|
||||
CargaGridC(ViewState("OrdenC").ToString())
|
||||
End Sub
|
||||
#End Region
|
||||
#End Region
|
||||
|
||||
|
||||
Public Sub CargaDatos()
|
||||
Dim ObjCaracteristicaTipo As New ClsProspectos
|
||||
If ObjCaracteristicaTipo.GetTiposCaracteristicas(UsuarioActual.CveEmpresa) Then
|
||||
ViewState("DTTiposCaracteristicas") = ObjCaracteristicaTipo.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
If (ViewState("DTTiposCaracteristicas") Is Nothing) Then
|
||||
ViewState("DTTiposCaracteristicas") = ObjCaracteristicaTipo.DtResultados
|
||||
End If
|
||||
GlobalDTProspectosTiposCaracteristicas = ObjCaracteristicaTipo.DtResultados.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
Else
|
||||
Me.GvDatos.DataSource = Nothing
|
||||
End If
|
||||
|
||||
ObjCaracteristicaTipo.Dispose()
|
||||
|
||||
If ViewState("Orden").ToString() <> String.Empty Then
|
||||
CargaGrid(ViewState("Orden").ToString())
|
||||
Else
|
||||
CargaGrid("")
|
||||
End If
|
||||
End Sub
|
||||
Public Sub CargaDatosO()
|
||||
Dim ObjCaracteristicasOpciones As New ClsProspectos
|
||||
If ObjCaracteristicasOpciones.GetCaracteristicasOpciones(-1, UsuarioActual.CveEmpresa) Then
|
||||
ViewState("DTCaracteristicasOpciones") = ObjCaracteristicasOpciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
If CType(ViewState("DTCaracteristicasOpciones"), DataTable).Columns.Count = 0 Then
|
||||
ViewState("DTCaracteristicasOpciones") = ObjCaracteristicasOpciones.DtResultados
|
||||
End If
|
||||
|
||||
GlobalDTProspectosCaracteristicasOpciones() = ObjCaracteristicasOpciones.DtResultados
|
||||
Else
|
||||
GvDatosOpciones.DataSource = Nothing
|
||||
End If
|
||||
|
||||
ObjCaracteristicasOpciones.Dispose()
|
||||
|
||||
If ViewState("OrdenO").ToString() <> String.Empty Then
|
||||
CargaGridO(ViewState("OrdenO").ToString())
|
||||
Else
|
||||
CargaGridO("")
|
||||
End If
|
||||
End Sub
|
||||
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
|
||||
Dim ObjTiposCaracteristicas As New ClsProspectos
|
||||
If ObjTiposCaracteristicas.AddTiposCaracteristicas(TxtCaracteristicaTipo.Text.Trim, DdlCaracteristicaClasificacion.SelectedValue.ToEntero, TxtOrden.Text.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
|
||||
TxtCaracteristicaTipo.Text = ""
|
||||
TxtOrden.Text = ""
|
||||
Alert("El nuevo Tipo de Característica se guardó correctamente.", TipoMensaje.MsgInformacion)
|
||||
'UpTitulos.Update()
|
||||
ViewState("DTTiposCaracteristicas") = ObjTiposCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTProspectosTiposCaracteristicas = ObjTiposCaracteristicas.DtResultados.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
|
||||
CambioCaracteristicaTipo()
|
||||
End If
|
||||
ObjTiposCaracteristicas.Dispose()
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
Protected Sub LbAgregarO_Click(sender As Object, e As System.EventArgs) Handles LbAgregarO.Click
|
||||
Dim ObjCaracteristicasOpciones As New ClsProspectos
|
||||
If ObjCaracteristicasOpciones.AddCaracteristicasOpciones(TxtOpcion.Text.Trim, DdlCaracteristica.SelectedValue.ToEntero, UsuarioActual.CveUsuario) Then
|
||||
TxtOpcion.Text = ""
|
||||
Alert("La nueva Opción para Característica se guardó correctamente.", TipoMensaje.MsgInformacion)
|
||||
ViewState("DTCaracteristicasOpciones") = ObjCaracteristicasOpciones.DtResultados
|
||||
GlobalDTProspectosCaracteristicasOpciones() = ObjCaracteristicasOpciones.DtResultados
|
||||
|
||||
CambioCaracteristicasOpciones()
|
||||
End If
|
||||
ObjCaracteristicasOpciones.Dispose()
|
||||
End Sub
|
||||
Protected Sub LbCaracteristicaO_Click(sender As Object, e As System.EventArgs) Handles LbCaracteristicaO.Click, ImgCaracteristicaO.Click
|
||||
If ViewState("OCaracteristicaO").ToString() = "Caracteristica DESC" Then
|
||||
ViewState("OCaracteristicaO") = "Caracteristica ASC"
|
||||
ImgCaracteristicaO.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("OCaracteristicaO") = "Caracteristica DESC"
|
||||
ImgCaracteristicaO.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("OrdenO") = ViewState("OCaracteristicaO")
|
||||
CargaGridO(ViewState("OrdenO").ToString())
|
||||
End Sub
|
||||
|
||||
Protected Sub LbOpcionO_Click(sender As Object, e As System.EventArgs) Handles LbOpcionO.Click, ImgOpcionO.Click
|
||||
If ViewState("OOpcionO").ToString() = "Opcion DESC" Then
|
||||
ViewState("OOpcionO") = "Opcion ASC"
|
||||
ImgOpcionO.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("OOpcionO") = "Opcion DESC"
|
||||
ImgOpcionO.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("OrdenO") = ViewState("OOpcionO")
|
||||
CargaGridO(ViewState("OrdenO").ToString())
|
||||
End Sub
|
||||
|
||||
Protected Sub LbEstatusO_Click(sender As Object, e As System.EventArgs) Handles LbEstatusO.Click, ImgEstatusO.Click
|
||||
If ViewState("OEstatusO").ToString() = "Estatus DESC" Then
|
||||
ViewState("OEstatusO") = "Estatus ASC"
|
||||
ImgEstatusO.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("OEstatusO") = "Estatus DESC"
|
||||
ImgEstatusO.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("OrdenO") = ViewState("OEstatusO")
|
||||
CargaGridO(ViewState("OrdenO").ToString())
|
||||
End Sub
|
||||
|
||||
Protected Sub LbFechaIngO_Click(sender As Object, e As System.EventArgs) Handles LbFechaIngO.Click, ImgFechaIngO.Click
|
||||
If ViewState("OFechaIngO").ToString() = "FechaIng DESC" Then
|
||||
ViewState("OFechaIngO") = "FechaIng ASC"
|
||||
ImgFechaIngO.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("OFechaIngO") = "FechaIng DESC"
|
||||
ImgFechaIngO.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("OrdenO") = ViewState("OFechaIngO")
|
||||
CargaGridO(ViewState("OrdenO").ToString())
|
||||
End Sub
|
||||
|
||||
Protected Sub LbUsuarioCl_Click(sender As Object, e As System.EventArgs) Handles LbUsuarioCl.Click, ImgUsuarioCl.Click
|
||||
If ViewState("OUsuarioCl").ToString() = "Usuario DESC" Then
|
||||
ViewState("OUsuarioCl") = "Usuario ASC"
|
||||
ImgUsuarioCl.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("OUsuarioCl") = "Usuario DESC"
|
||||
ImgUsuarioCl.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("OrdenCl") = ViewState("OUsuarioCl")
|
||||
CargaGridCl(ViewState("OrdenCl").ToString())
|
||||
End Sub
|
||||
|
||||
Protected Sub LbUsuario_Click(sender As Object, e As System.EventArgs) Handles LbUsuario.Click, ImgUsuario.Click
|
||||
If ViewState("OUsuario").ToString() = "Usuario DESC" Then
|
||||
ViewState("OUsuario") = "Usuario ASC"
|
||||
ImgUsuario.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("OUsuario") = "Usuario DESC"
|
||||
ImgUsuario.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("Orden") = ViewState("OUsuario")
|
||||
CargaGrid(ViewState("Orden").ToString())
|
||||
End Sub
|
||||
|
||||
Protected Sub LbUsuarioO_Click(sender As Object, e As System.EventArgs) Handles LbUsuarioO.Click, ImgUsuarioO.Click
|
||||
If ViewState("OUsuarioO").ToString() = "Usuario DESC" Then
|
||||
ViewState("OUsuarioO") = "Usuario ASC"
|
||||
ImgUsuarioO.ImageUrl = "/Imagenes/FlechasArriba.gif"
|
||||
Else
|
||||
ViewState("OUsuarioO") = "Usuario DESC"
|
||||
ImgUsuarioO.ImageUrl = "/Imagenes/FlechasAbajo.gif"
|
||||
End If
|
||||
ViewState("OrdenO") = ViewState("OUsuarioO")
|
||||
CargaGridO(ViewState("OrdenO").ToString())
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatosCl_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatosCl.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
If e.Row.RowIndex = 0 Then
|
||||
e.Row.Cells(0).Width = Unit.Pixel(200)
|
||||
e.Row.Cells(1).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(2).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(3).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(4).Width = Unit.Pixel(50)
|
||||
e.Row.Cells(5).Width = Unit.Pixel(50)
|
||||
End If
|
||||
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatosOpciones_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatosOpciones.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
If e.Row.RowIndex = 0 Then
|
||||
e.Row.Cells(0).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(1).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(2).Width = Unit.Pixel(200)
|
||||
e.Row.Cells(3).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(4).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(5).Width = Unit.Pixel(100)
|
||||
e.Row.Cells(6).Width = Unit.Pixel(50)
|
||||
e.Row.Cells(7).Width = Unit.Pixel(50)
|
||||
End If
|
||||
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Left
|
||||
e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
|
||||
|
||||
If e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
|
||||
|
||||
e.Row.FCDropDownList("DdlCaracteristicaEdit").DataSource = GlobalDTProspectosCaracteristicas(UsuarioActual.CveEmpresa).FiltraParametros("Estatus = 'Activo'")
|
||||
e.Row.FCDropDownList("DdlCaracteristicaEdit").DataBind()
|
||||
e.Row.FCDropDownList("DdlCaracteristicaEdit").SelectedValue = e.Row.DBCampo("CveCaracteristica")
|
||||
End If
|
||||
End If
|
||||
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatosCl_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatosCl.RowDeleting
|
||||
Dim ObjClasificaciones As New ClsProspectos
|
||||
If ObjClasificaciones.RemoveClasificacionesCaracteristicas(GvDatosCl.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then
|
||||
GvDatosCl.EditIndex = -1
|
||||
ViewState("DTClasificacionesCaracteristicas") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTProspectosCaracteristicasClasificaciones = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
Alert("La Clasificacion de Tipo de Caracteristica se eliminó correctamente.", TipoMensaje.MsgInformacion)
|
||||
|
||||
CambioClasificacionesCaracteristicas()
|
||||
End If
|
||||
|
||||
ObjClasificaciones.Dispose()
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
|
||||
Dim ObjTiposCaracteristicas As New ClsProspectos
|
||||
If ObjTiposCaracteristicas.RemoveTiposCaracteristicas(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then
|
||||
GvDatos.EditIndex = -1
|
||||
ViewState("DTTiposCaracteristicas") = ObjTiposCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTProspectosTiposCaracteristicas = ObjTiposCaracteristicas.DtResultados.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
Alert("El Tipo de Característica se eliminó correctamente.", TipoMensaje.MsgInformacion)
|
||||
|
||||
CambioCaracteristicaTipo()
|
||||
End If
|
||||
|
||||
ObjTiposCaracteristicas.Dispose()
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatosCaracteristicas_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatosCaracteristicas.RowDeleting
|
||||
Dim ObjCaracteristicas As New ClsProspectos
|
||||
If ObjCaracteristicas.RemoveCaracteristica(GvDatosCaracteristicas.DataKeys(e.RowIndex).Value.ToString.ToEntero, UsuarioActual.CveEmpresa) Then
|
||||
GvDatosCaracteristicas.EditIndex = -1
|
||||
ViewState("DTCaracteristicas") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTProspectosCaracteristicas(UsuarioActual.CveEmpresa) = ObjCaracteristicas.DtResultados
|
||||
Alert("La Caracteristica se eliminó correctamente.", TipoMensaje.MsgInformacion)
|
||||
|
||||
CambioCaracteristicas()
|
||||
End If
|
||||
|
||||
ObjCaracteristicas.Dispose()
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatosOpciones_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatosOpciones.RowDeleting
|
||||
Dim ObjCaracteristicasOpciones As New ClsProspectos
|
||||
If ObjCaracteristicasOpciones.RemoveCaracteristicasOpciones(GvDatosOpciones.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
|
||||
GvDatosOpciones.EditIndex = -1
|
||||
ViewState("DTCaracteristicasOpciones") = ObjCaracteristicasOpciones.DtResultados
|
||||
GlobalDTProspectosCaracteristicasOpciones() = ObjCaracteristicasOpciones.DtResultados
|
||||
Alert("La Opción para Característica se eliminó correctamente.", TipoMensaje.MsgInformacion)
|
||||
|
||||
CambioCaracteristicasOpciones()
|
||||
End If
|
||||
|
||||
ObjCaracteristicasOpciones.Dispose()
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatosCl_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvDatosCl.RowCancelingEdit
|
||||
GvDatosCl.EditIndex = -1
|
||||
If ViewState("OrdenCl").ToString() <> String.Empty Then
|
||||
CargaGridCl(ViewState("OrdenCl").ToString())
|
||||
Else
|
||||
CargaGridCl("")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatos_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvDatos.RowCancelingEdit
|
||||
GvDatos.EditIndex = -1
|
||||
If ViewState("Orden").ToString() <> String.Empty Then
|
||||
CargaGrid(ViewState("Orden").ToString())
|
||||
Else
|
||||
CargaGrid("")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatosCaracteristicas_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvDatosCaracteristicas.RowCancelingEdit
|
||||
GvDatosCaracteristicas.EditIndex = -1
|
||||
If ViewState("OrdenC").ToString() <> String.Empty Then
|
||||
CargaGridC(ViewState("OrdenC").ToString())
|
||||
Else
|
||||
CargaGridC("")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatosOpciones_RowCancelingEdit(sender As Object, e As System.Web.UI.WebControls.GridViewCancelEditEventArgs) Handles GvDatosOpciones.RowCancelingEdit
|
||||
GvDatosOpciones.EditIndex = -1
|
||||
If ViewState("OrdenO").ToString() <> String.Empty Then
|
||||
CargaGridO(ViewState("OrdenO").ToString())
|
||||
Else
|
||||
CargaGridO("")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatosCl_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatosCl.RowUpdating
|
||||
Dim ObjClasificaciones As New ClsProspectos
|
||||
Dim CaracteristicaClasificacion As String = DirectCast(GvDatosCl.Rows(e.RowIndex).FindControl("TxtCaracteristicaClasificacion"), TextBox).Text.Trim
|
||||
Dim Orden As Integer = DirectCast(GvDatosCl.Rows(e.RowIndex).FindControl("TxtOrdenCl"), TextBox).Text.ToEntero
|
||||
Dim Estatus As Boolean = GvDatosCl.Rows(e.RowIndex).FCCheckBox("ChkEstatus").Checked
|
||||
Dim CveCaracteristicaClasificacion As Integer = GvDatosCl.DataKeys(e.RowIndex).Value.ToString.ToEntero
|
||||
|
||||
If ObjClasificaciones.UpdateClasificacionesCaracteristicas(CaracteristicaClasificacion, Orden, Estatus, UsuarioActual.CveEmpresa, CveCaracteristicaClasificacion) Then
|
||||
GvDatosCl.EditIndex = -1
|
||||
ViewState("DTClasificacionesCaracteristicas") = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTProspectosCaracteristicasClasificaciones = ObjClasificaciones.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
|
||||
|
||||
CambioClasificacionesCaracteristicas()
|
||||
End If
|
||||
|
||||
ObjClasificaciones.Dispose()
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatos_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatos.RowUpdating
|
||||
Dim ObjTiposCaracteristicas As New ClsProspectos
|
||||
Dim CaracteristicaTipo As String = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtCaracteristicaTipo"), TextBox).Text.Trim
|
||||
Dim Orden As Integer = DirectCast(GvDatos.Rows(e.RowIndex).FindControl("TxtOrden"), TextBox).Text.ToEntero
|
||||
Dim Estatus As Boolean = GvDatos.Rows(e.RowIndex).FCCheckBox("ChkEstatus").Checked
|
||||
Dim CveCaracteristicaTipo As Integer = GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero
|
||||
Dim CveCaracteristicaClasificacion As Integer = GvDatos.Rows(e.RowIndex).FCDropDownList("DdlCaracteristicaClasificacionEdit").SelectedValue.ToEntero
|
||||
|
||||
If ObjTiposCaracteristicas.UpdateTiposCaracteristicas(CaracteristicaTipo, CveCaracteristicaClasificacion, Orden, Estatus, UsuarioActual.CveEmpresa, CveCaracteristicaTipo) Then
|
||||
GvDatos.EditIndex = -1
|
||||
ViewState("DTTiposCaracteristicas") = ObjTiposCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTProspectosTiposCaracteristicas = ObjTiposCaracteristicas.DtResultados.FiltraParametros("Estatus = 'Activo' AND CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
|
||||
|
||||
CambioCaracteristicaTipo()
|
||||
End If
|
||||
|
||||
ObjTiposCaracteristicas.Dispose()
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatosCaracteristicas_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatosCaracteristicas.RowUpdating
|
||||
Dim ObjCaracteristicas As New ClsProspectos
|
||||
Dim CveCaracteristicaTipo As Integer = DirectCast(GvDatosCaracteristicas.Rows(e.RowIndex).FindControl("DdlCaracteristicaTipoEdit"), DropDownList).SelectedValue.ToEntero
|
||||
Dim CveCaracteristica As Integer = GvDatosCaracteristicas.DataKeys(e.RowIndex).Value.ToString.ToEntero
|
||||
|
||||
Dim Caracteristica As String = DirectCast(GvDatosCaracteristicas.Rows(e.RowIndex).FindControl("TxtCaracteristica"), TextBox).Text.Trim
|
||||
Dim Orden As Integer = DirectCast(GvDatosCaracteristicas.Rows(e.RowIndex).FindControl("TxtOrdenC"), TextBox).Text.ToEntero
|
||||
Dim EsOpcion As Integer = GvDatosCaracteristicas.Rows(e.RowIndex).FCDropDownList("DdlEsOpcionEdit").SelectedValue.ToEntero
|
||||
Dim Estatus As Boolean = GvDatosCaracteristicas.Rows(e.RowIndex).FCCheckBox("ChkEstatus").Checked
|
||||
|
||||
If ObjCaracteristicas.UpdateCaracteristica(Caracteristica, CveCaracteristicaTipo, EsOpcion, Orden, Estatus, UsuarioActual.CveEmpresa, CveCaracteristica) Then
|
||||
GvDatosCaracteristicas.EditIndex = -1
|
||||
ViewState("DTCaracteristicas") = ObjCaracteristicas.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
|
||||
GlobalDTProspectosCaracteristicas(UsuarioActual.CveEmpresa) = ObjCaracteristicas.DtResultados
|
||||
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
|
||||
|
||||
CambioCaracteristicas()
|
||||
End If
|
||||
|
||||
ObjCaracteristicas.Dispose()
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatosOpciones_RowUpdating(sender As Object, e As System.Web.UI.WebControls.GridViewUpdateEventArgs) Handles GvDatosOpciones.RowUpdating
|
||||
Dim ObjCaracteristicasOpciones As New ClsProspectos
|
||||
Dim CveCaracteristica As Integer = DirectCast(GvDatosOpciones.Rows(e.RowIndex).FindControl("DdlCaracteristicaEdit"), DropDownList).SelectedValue.ToEntero
|
||||
Dim CveCaracteristicaOpcion As Integer = GvDatosOpciones.DataKeys(e.RowIndex).Value.ToString.ToEntero
|
||||
|
||||
Dim CaracteristicaOpcion As String = DirectCast(GvDatosOpciones.Rows(e.RowIndex).FindControl("TxtOpcion"), TextBox).Text.Trim
|
||||
Dim Estatus As Boolean = GvDatosOpciones.Rows(e.RowIndex).FCCheckBox("ChkEstatus").Checked
|
||||
|
||||
If ObjCaracteristicasOpciones.UpdateCaracteristicasOpciones(CaracteristicaOpcion, CveCaracteristica, Estatus, CveCaracteristicaOpcion) Then
|
||||
GvDatosOpciones.EditIndex = -1
|
||||
ViewState("DTCaracteristicasOpciones") = ObjCaracteristicasOpciones.DtResultados
|
||||
GlobalDTProspectosCaracteristicasOpciones() = ObjCaracteristicasOpciones.DtResultados
|
||||
Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
|
||||
|
||||
CambioCaracteristicasOpciones()
|
||||
End If
|
||||
|
||||
ObjCaracteristicasOpciones.Dispose()
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatosCl_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvDatosCl.RowEditing
|
||||
GvDatosCl.EditIndex = e.NewEditIndex
|
||||
If ViewState("OrdenCl").ToString() <> String.Empty Then
|
||||
CargaGridCl(ViewState("OrdenCl").ToString())
|
||||
Else
|
||||
CargaGridCl("")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatos_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvDatos.RowEditing
|
||||
GvDatos.EditIndex = e.NewEditIndex
|
||||
If ViewState("Orden").ToString() <> String.Empty Then
|
||||
CargaGrid(ViewState("Orden").ToString())
|
||||
Else
|
||||
CargaGrid("")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatosCaracteristicas_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvDatosCaracteristicas.RowEditing
|
||||
GvDatosCaracteristicas.EditIndex = e.NewEditIndex
|
||||
If ViewState("OrdenC").ToString() <> String.Empty Then
|
||||
CargaGridC(ViewState("OrdenC").ToString())
|
||||
Else
|
||||
CargaGridC("")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatosOpciones_RowEditing(sender As Object, e As System.Web.UI.WebControls.GridViewEditEventArgs) Handles GvDatosOpciones.RowEditing
|
||||
GvDatosOpciones.EditIndex = e.NewEditIndex
|
||||
If ViewState("OrdenO").ToString() <> String.Empty Then
|
||||
CargaGridO(ViewState("OrdenO").ToString())
|
||||
Else
|
||||
CargaGridO("")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CargaGridCl(Orden As String)
|
||||
If Orden <> String.Empty Then
|
||||
Dim DV As New DataView(CType(ViewState("DTClasificacionesCaracteristicas"), DataTable), "", Orden, DataViewRowState.CurrentRows)
|
||||
GvDatosCl.DataSource = DV.ToTable()
|
||||
DV.Dispose()
|
||||
Else
|
||||
GvDatosCl.DataSource = CType(ViewState("DTClasificacionesCaracteristicas"), DataTable)
|
||||
End If
|
||||
GvDatosCl.DataBind()
|
||||
UpDatosCl.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaGrid(Orden As String)
|
||||
If Orden <> String.Empty Then
|
||||
Dim DV As New DataView(CType(ViewState("DTTiposCaracteristicas"), DataTable), "", Orden, DataViewRowState.CurrentRows)
|
||||
GvDatos.DataSource = DV.ToTable()
|
||||
DV.Dispose()
|
||||
Else
|
||||
GvDatos.DataSource = CType(ViewState("DTTiposCaracteristicas"), DataTable)
|
||||
End If
|
||||
GvDatos.DataBind()
|
||||
UpDatos.Update()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaGridC(Orden As String)
|
||||
'Dim Filtro As String = If(DdlCaracteristicaTipo.SelectedValue > "0", "CveCaracteristicaTipo = 1", "")
|
||||
Dim Filtro As String = If(DdlCaracteristicaTipo.SelectedValue > "0", "CveCaracteristicaTipo = " + DdlCaracteristicaTipo.SelectedItem.Value.ToString, "")
|
||||
|
||||
If Orden <> String.Empty Then
|
||||
Dim DV As New DataView(CType(ViewState("DTCaracteristicas"), DataTable), Filtro, Orden, DataViewRowState.CurrentRows)
|
||||
GvDatosCaracteristicas.DataSource = DV.ToTable()
|
||||
DV.Dispose()
|
||||
Else
|
||||
GvDatosCaracteristicas.DataSource = New DataView(CType(ViewState("DTCaracteristicas"), DataTable), Filtro, "", DataViewRowState.CurrentRows)
|
||||
End If
|
||||
GvDatosCaracteristicas.DataBind()
|
||||
UpDatosC.Update()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub CargaGridO(Orden As String)
|
||||
Dim Filtro As String = ""
|
||||
|
||||
If Not DdlCaracteristica.SelectedItem Is Nothing Then
|
||||
Filtro = "CveCaracteristica = " + DdlCaracteristica.SelectedItem.Value.ToString
|
||||
Else
|
||||
Filtro = "1 = 2"
|
||||
End If
|
||||
|
||||
If Orden <> String.Empty Then
|
||||
Dim DV As New DataView(CType(ViewState("DTCaracteristicasOpciones"), DataTable), Filtro, Orden, DataViewRowState.CurrentRows)
|
||||
GvDatosOpciones.DataSource = DV.ToTable()
|
||||
DV.Dispose()
|
||||
Else
|
||||
GvDatosOpciones.DataSource = New DataView(CType(ViewState("DTCaracteristicasOpciones"), DataTable), Filtro, "", DataViewRowState.CurrentRows)
|
||||
End If
|
||||
GvDatosOpciones.DataBind()
|
||||
UpDatosO.Update()
|
||||
End Sub
|
||||
|
||||
|
||||
Private Sub CargaCaracteristicas()
|
||||
DdlCaracteristica.Items.Clear()
|
||||
DdlCaracteristica.DataSource = GlobalDTProspectosCaracteristicas(UsuarioActual.CveEmpresa).FiltraParametros("EsOpcion in (1, 2) AND Estatus = 'Activo' " + If(DdlCaracteristicaTipoO.SelectedValue > "0", "AND CveCaracteristicaTipo = " + DdlCaracteristicaTipoO.SelectedItem.Value.ToString, ""))
|
||||
DdlCaracteristica.DataBind()
|
||||
End Sub
|
||||
|
||||
Protected Sub DdlCaracteristicaTipo_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCaracteristicaTipo.SelectedIndexChanged
|
||||
If ViewState("OrdenC").ToString() <> String.Empty Then
|
||||
CargaGridC(ViewState("OrdenC").ToString())
|
||||
Else
|
||||
CargaGridC("")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub DdlCaracteristica_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCaracteristica.SelectedIndexChanged
|
||||
If ViewState("OrdenO").ToString() <> String.Empty Then
|
||||
CargaGridO(ViewState("OrdenO").ToString())
|
||||
Else
|
||||
CargaGridO("")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub DdlCaracteristicaTipoO_SelectedIndexChanged(sender As Object, e As EventArgs) Handles DdlCaracteristicaTipoO.SelectedIndexChanged
|
||||
CargaCaracteristicas()
|
||||
|
||||
If ViewState("OrdenO").ToString() <> String.Empty Then
|
||||
CargaGridO(ViewState("OrdenO").ToString())
|
||||
Else
|
||||
CargaGridO("")
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub CambioClasificacionesCaracteristicas()
|
||||
CargaClasificaciones()
|
||||
UpTitulosCl.Update()
|
||||
CargaDatosCl()
|
||||
CambioCaracteristicaTipo()
|
||||
End Sub
|
||||
|
||||
Protected Sub CambioCaracteristicaTipo()
|
||||
CargaTiposCaracteristicas()
|
||||
UpTitulos.Update()
|
||||
'UpTitulosC.Update()
|
||||
'UpTitulosO.Update()
|
||||
CargaDatos()
|
||||
|
||||
CambioCaracteristicas()
|
||||
End Sub
|
||||
|
||||
Protected Sub CambioCaracteristicas()
|
||||
CargaCaracteristicas()
|
||||
|
||||
UpTitulosC.Update()
|
||||
'UpTitulosO.Update()
|
||||
|
||||
CargaDatosC()
|
||||
|
||||
CambioCaracteristicasOpciones()
|
||||
End Sub
|
||||
|
||||
Protected Sub CambioCaracteristicasOpciones()
|
||||
UpTitulosO.Update()
|
||||
|
||||
CargaDatosO()
|
||||
End Sub
|
||||
|
||||
End Class
|
||||
Reference in New Issue
Block a user