Commit inicial Ventas Productivo
This commit is contained in:
JORGE LUIS CAUDILLO ESPARZA
206
Sistemas/CatModulos.aspx.vb
Normal file
206
Sistemas/CatModulos.aspx.vb
Normal file
@@ -0,0 +1,206 @@
|
||||
Imports Extensiones
|
||||
Imports System.Data
|
||||
|
||||
Partial Class CatModulos
|
||||
Inherits ClsPaginas
|
||||
|
||||
Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load
|
||||
If Not Page.IsPostBack Then
|
||||
CargaDatos()
|
||||
CargaPadres()
|
||||
CargaPlataformas()
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Private Sub CargaDatos()
|
||||
Dim Modulo As New ClsModulos
|
||||
If Modulo.GetModulos(-1, -1, "-1", "-1") Then
|
||||
GvDatos.DataSource = Modulo.DtResultados
|
||||
GvDatos.DataBind()
|
||||
End If
|
||||
|
||||
Modulo.Dispose()
|
||||
End Sub
|
||||
|
||||
Private Sub CargaPadres()
|
||||
Dim Modulo As New ClsModulos
|
||||
If Modulo.GetModulos(-1, -1, "-1", "-1") Then
|
||||
GvDatos.DataSource = Modulo.DtResultados
|
||||
CboPadres.DataSource = Modulo.DtResultados.FiltraParametros("CvePadre = 0 OR Agrupacion = 'S'")
|
||||
CboPadres.DataBind()
|
||||
End If
|
||||
'CboPadres.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
CboPadres.Items.Insert(0, New ListItem("Raíz", "0"))
|
||||
End Sub
|
||||
Private Sub CargaPlataformas()
|
||||
Dim ObjEmpresas As New ClsSisEmpresas
|
||||
If ObjEmpresas.GetPlataforma(-1, "-1") Then
|
||||
DdlPlataforma.DataSource = ObjEmpresas.DtResultados
|
||||
DdlPlataforma.DataBind()
|
||||
End If
|
||||
|
||||
' DdlPlataforma.Items.Insert(0, New ListItem("Seleccione", "-1"))
|
||||
End Sub
|
||||
|
||||
Protected Sub LbAgregar_Click(sender As Object, e As System.EventArgs) Handles LbAgregar.Click
|
||||
Dim Modulo As New ClsModulos
|
||||
If HdnModalidad.Value = "A" Then
|
||||
If Modulo.AddModulo(Me.TxtClave.Text.Trim().ToEntero(), Me.TxtDescripcion.Text.Trim(), Me.CboPadres.SelectedValue.ToEntero(), Me.TxtLiga.Text.Trim(), CboPopUp.SelectedValue,
|
||||
Me.TxtAncho.Text.Trim().ToEntero(), Me.TxtAlto.Text.Trim().ToEntero(), Me.TxtOrden.Text.Trim().ToEntero(), Me.TxtEstilo.Text.Trim(), Me.CboIncluye.SelectedValue, Me.CboAgrupacion.SelectedValue,
|
||||
UsuarioActual.CveUsuario, DdlPlataforma.SelectedValue.ToEntero) Then
|
||||
RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalModulos"))
|
||||
Alert("El nuevo Módulo se guardó correctamente.", TipoMensaje.MsgInformacion)
|
||||
CargaDatos()
|
||||
UpDatos.Update()
|
||||
End If
|
||||
ElseIf HdnModalidad.Value = "U" Then
|
||||
If Modulo.UpdateModulo(CboPadres.SelectedValue, TxtDescripcion.Text.Trim(), TxtLiga.Text.Trim(), CboPopUp.SelectedValue, TxtAncho.Text.Trim().ToEntero(), TxtAlto.Text.Trim().ToEntero(),
|
||||
TxtOrden.Text.Trim().ToEntero(), TxtEstilo.Text.Trim(), CboIncluye.SelectedValue, CboAgrupacion.SelectedValue, UsuarioActual.CveUsuario, HdnID.Value, DdlPlataforma.SelectedValue.ToEntero) Then
|
||||
RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalModulos"))
|
||||
Alert("El Módulo se actualizó correctamente.", TipoMensaje.MsgInformacion)
|
||||
CargaDatos()
|
||||
UpDatos.Update()
|
||||
End If
|
||||
End If
|
||||
Modulo.Dispose()
|
||||
End Sub
|
||||
|
||||
|
||||
|
||||
#Region "G V D A T O S"
|
||||
Protected Sub GvDatos_RowDataBound(sender As Object, e As System.Web.UI.WebControls.GridViewRowEventArgs) Handles GvDatos.RowDataBound
|
||||
If e.Row.RowType = DataControlRowType.DataRow Then
|
||||
'e.Row.Cells(0).Width = Unit.Pixel(63)
|
||||
'e.Row.Cells(1).Width = Unit.Pixel(85)
|
||||
'e.Row.Cells(2).Width = Unit.Pixel(95)
|
||||
'e.Row.Cells(3).Width = Unit.Pixel(95)
|
||||
'e.Row.Cells(4).Width = Unit.Pixel(74)
|
||||
'e.Row.Cells(5).Width = Unit.Pixel(69)
|
||||
'e.Row.Cells(6).Width = Unit.Pixel(55)
|
||||
'e.Row.Cells(7).Width = Unit.Pixel(70)
|
||||
'e.Row.Cells(8).Width = Unit.Pixel(90)
|
||||
'e.Row.Cells(9).Width = Unit.Pixel(65)
|
||||
'e.Row.Cells(10).Width = Unit.Pixel(60)
|
||||
'e.Row.Cells(11).Width = Unit.Pixel(76)
|
||||
'e.Row.Cells(12).Width = Unit.Pixel(79)
|
||||
'e.Row.Cells(13).Width = Unit.Pixel(80)
|
||||
'e.Row.Cells(14).Width = Unit.Pixel(68)
|
||||
|
||||
If e.Row.DBCampo("PopUp") = "N" Then e.Row.FCLabel("E").Text = "No" Else e.Row.FCLabel("E").Text = "Si"
|
||||
If e.Row.DBCampo("Incluye") = "N" Then e.Row.FCLabel("I").Text = "No" Else e.Row.FCLabel("I").Text = "Si"
|
||||
If e.Row.DBCampo("Agrupacion") = "N" Then e.Row.FCLabel("J").Text = "No" Else e.Row.FCLabel("J").Text = "Si"
|
||||
|
||||
|
||||
|
||||
e.Row.Cells(0).HorizontalAlign = HorizontalAlign.Center
|
||||
e.Row.Cells(1).HorizontalAlign = HorizontalAlign.Left
|
||||
e.Row.Cells(2).HorizontalAlign = HorizontalAlign.Left
|
||||
e.Row.Cells(3).HorizontalAlign = HorizontalAlign.Left
|
||||
e.Row.Cells(5).HorizontalAlign = HorizontalAlign.Right
|
||||
e.Row.Cells(6).HorizontalAlign = HorizontalAlign.Right
|
||||
e.Row.Cells(7).HorizontalAlign = HorizontalAlign.Right
|
||||
|
||||
If e.Row.RowState = DataControlRowState.Normal OrElse e.Row.RowState = DataControlRowState.Alternate Then
|
||||
|
||||
If CType(e.Row.FindControl("C"), Label).Text.Length > 15 Then
|
||||
CType(e.Row.FindControl("C"), Label).ToolTip = CType(e.Row.FindControl("C"), Label).Text
|
||||
CType(e.Row.FindControl("C"), Label).Text = CType(e.Row.FindControl("C"), Label).Text.Substring(0, 14)
|
||||
End If
|
||||
|
||||
If CType(e.Row.FindControl("D"), Label).Text.Length > 15 Then
|
||||
CType(e.Row.FindControl("D"), Label).ToolTip = CType(e.Row.FindControl("D"), Label).Text
|
||||
CType(e.Row.FindControl("D"), Label).Text = CType(e.Row.FindControl("D"), Label).Text.Substring(0, 14)
|
||||
End If
|
||||
|
||||
ElseIf e.Row.RowState = DataControlRowState.Edit OrElse e.Row.RowState = 5 Then
|
||||
Dim Modulo As New ClsModulos
|
||||
If Modulo.GetModulos(-1, -1, "-1", "-1") Then
|
||||
e.Row.FCDropDownList("B").DataSource = Modulo.DtResultados.FiltraParametros("CvePadre = 0 OR Agrupacion = 'S'")
|
||||
e.Row.FCDropDownList("B").DataBind()
|
||||
e.Row.FCDropDownList("B").SelectedValue = e.Row.FCLabel("LB").Text.ToEntero
|
||||
|
||||
End If
|
||||
End If
|
||||
|
||||
End If
|
||||
End Sub
|
||||
|
||||
Protected Sub GvDatos_RowDeleting(sender As Object, e As System.Web.UI.WebControls.GridViewDeleteEventArgs) Handles GvDatos.RowDeleting
|
||||
Dim Modulo As New ClsModulos
|
||||
If Modulo.RemoveModulo(GvDatos.DataKeys(e.RowIndex).Value.ToString().ToEntero()) Then
|
||||
GvDatos.EditIndex = -1
|
||||
CargaDatos()
|
||||
End If
|
||||
|
||||
Modulo.Dispose()
|
||||
|
||||
|
||||
End Sub
|
||||
#End Region
|
||||
|
||||
|
||||
Private Sub HlAgregarModulo_Click(sender As Object, e As EventArgs) Handles HlAgregarModulo.Click
|
||||
TxtClave.Text = ""
|
||||
TxtDescripcion.Text = ""
|
||||
TxtAlto.Text = ""
|
||||
TxtAncho.Text = ""
|
||||
TxtLiga.Text = ""
|
||||
TxtOrden.Text = ""
|
||||
CboAgrupacion.SelectedIndex = 0
|
||||
CboIncluye.SelectedIndex = 0
|
||||
CboPadres.SelectedIndex = 0
|
||||
CboPopUp.SelectedIndex = 0
|
||||
LtlTituloModal.Text = "Agregar Modulo"
|
||||
LbAgregar.Text = "Agregar"
|
||||
HdnModalidad.Value = "A"
|
||||
UpModal.Update()
|
||||
RegistraScript("$('#ModalModulos').modal();")
|
||||
End Sub
|
||||
|
||||
Public Sub ActualizaModulo(sender As Object, e As EventArgs)
|
||||
Dim GvRow As GridViewRow = DirectCast(DirectCast(sender, LinkButton).NamingContainer, GridViewRow)
|
||||
Dim CveModulo As String = GvRow.DataKey("CveModulo").ToString
|
||||
|
||||
Dim CvePadre As String = GvRow.DataKey("CvePadre").ToString
|
||||
|
||||
Dim ModuloPadre As String = GvRow.DataKey("DesPadre").ToString
|
||||
Dim Descripcion As String = GvRow.DataKey("Modulo").ToString
|
||||
Dim Liga As String = GvRow.DataKey("Liga").ToString
|
||||
Dim PopUp As String = GvRow.DataKey("PopUp").ToString
|
||||
Dim Ancho As String = GvRow.DataKey("Ancho").ToString
|
||||
Dim Alto As String = GvRow.DataKey("Alto").ToString
|
||||
Dim Orden As String = GvRow.DataKey("Orden").ToString
|
||||
Dim Estilo As String = GvRow.DataKey("Estilo").ToString
|
||||
Dim Incluye As String = GvRow.DataKey("Incluye").ToString
|
||||
Dim Agrupacion As String = GvRow.DataKey("Agrupacion").ToString
|
||||
Dim CvePlataforma As String = GvRow.DataKey("CvePlataforma").ToString
|
||||
|
||||
TxtClave.Text = CveModulo
|
||||
|
||||
'CboPadres.Items.FindByText(ModuloPadre).Selected = True
|
||||
|
||||
CboPadres.SelectedValueExist(CvePadre)
|
||||
|
||||
TxtDescripcion.Text = Descripcion
|
||||
TxtLiga.Text = Liga
|
||||
CboPopUp.SelectedValueExist(PopUp)
|
||||
TxtAncho.Text = Ancho
|
||||
TxtAlto.Text = Alto
|
||||
TxtOrden.Text = Orden
|
||||
TxtEstilo.Text = Estilo
|
||||
CboIncluye.SelectedValueExist(Incluye)
|
||||
CboAgrupacion.SelectedValueExist(Agrupacion)
|
||||
DdlPlataforma.SelectedValueExist(CvePlataforma)
|
||||
|
||||
HdnID.Value = CveModulo
|
||||
HdnModalidad.Value = "U"
|
||||
LtlTituloModal.Text = "Actualizar Modulo"
|
||||
LbAgregar.Text = "Actualizar"
|
||||
UpModal.Update()
|
||||
RegistraScript("$('#ModalModulos').modal();")
|
||||
End Sub
|
||||
|
||||
|
||||
End Class
|
||||
|
||||
|
||||
Reference in New Issue
Block a user