AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- option strict on

Browse Source
This commit is contained in:
rrene
2023-08-25 07:35:45 -07:00
parent 7789b60482
commit 6ac06a9649
21 changed files with 76 additions and 76 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
Sistemas/CatModulos.aspx.vb
View File

@@ -54,8 +54,8 @@ Partial Class CatModulos
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
If Modulo.UpdateModulo(CboPadres.SelectedValue.ToEntero, 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.ToEntero, DdlPlataforma.SelectedValue.ToEntero) Then
RegistraScript(String.Format("$('#{0}').modal('hide');", "ModalModulos"))
Alert("El Módulo se actualizó correctamente.", TipoMensaje.MsgInformacion)
CargaDatos()
@@ -117,7 +117,7 @@ Partial Class CatModulos
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
e.Row.FCDropDownList("B").SelectedValue = e.Row.FCLabel("LB").Text
End If
End If