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