908 lines
46 KiB
VB.net
908 lines
46 KiB
VB.net
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
|