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

se agrego checkbos que evita que el modal de agregar desaparesca

Browse Source
This commit is contained in:
Antonio Gonzalez
2019-12-02 10:54:48 -07:00
parent 99d5501078
commit da189ecded
2 changed files with 26 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Planeacion/CatFolios.aspx.vb
View File

@@ -110,7 +110,6 @@ Partial Class CatFolios
TxtFolioInicial.Text = ""
TxtFolioFinal.Text = ""
TxtFolioActual.Text = ""
txtserie.text = ""
DivFactual.Visible = False
CargaSubProyectos()
@@ -125,6 +124,7 @@ Partial Class CatFolios
HdnModalidad.Value = "U"
DdlSubProyecto.SelectedValueExist(GvRow.DataKey("CveSubProyecto"))
DdlTipoDocto.SelectedValueExist(GvRow.DataKey("TipoDocto"))
TxtSerie.Text = (GvRow.DataKey("Serie"))
ChkEstatus.Checked = If(GvRow.DataKey("Estado").ToString = "Activo", True, False)
TxtFolioInicial.Text = (GvRow.DataKey("FInicial"))
TxtFolioFinal.Text = (GvRow.DataKey("FFinal"))
@@ -169,12 +169,12 @@ Partial Class CatFolios
If HdnModalidad.Value = "I" Then
If Not ObjFolios.AddFolios(DdlSubProyecto.SelectedValue.ToEntero, DdlTipoDocto.SelectedValue, TxtFolioInicial.Text.Trim.ToEntero, TxtFolioInicial.Text.Trim.ToEntero,
If Not ObjFolios.AddFolios(DdlSubProyecto.SelectedValue.ToEntero, DdlTipoDocto.SelectedValue, TxtSerie.Text, TxtFolioInicial.Text.Trim.ToEntero, TxtFolioInicial.Text.Trim.ToEntero,
TxtFolioFinal.Text.Trim.Trim.ToEntero, Session("FileUpload").ToString, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
TieneError = True
End If
Else
If Not ObjFolios.UpdateFolios(DdlSubProyecto.SelectedValue.ToEntero, DdlTipoDocto.SelectedValue, TxtFolioInicial.Text.Trim.ToEntero, TxtFolioActual.Text.Trim.ToEntero, TxtFolioFinal.Text.Trim.ToEntero,
If Not ObjFolios.UpdateFolios(DdlSubProyecto.SelectedValue.ToEntero, DdlTipoDocto.SelectedValue, TxtSerie.Text, TxtFolioInicial.Text.Trim.ToEntero, TxtFolioActual.Text.Trim.ToEntero, TxtFolioFinal.Text.Trim.ToEntero,
"", If(ChkEstatus.Checked, True, False), UsuarioActual.CveUsuario, CveFolio) Then
TieneError = True
End If
@@ -193,15 +193,19 @@ Partial Class CatFolios
Session("FileUpload") = ""
Alert("El nuevo Folio se guardó/editó correctamente.", TipoMensaje.MsgInformacion)
Alert("La nueva Aprobación de Folios se guardó/editó correctamente.", TipoMensaje.MsgInformacion)
GlobalDTFolios = ObjFolios.DtResultados
ViewState("DTFolios") = ObjFolios.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
CargaDatos()
If Not ChkSeguirAgregando.Checked Then
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarFolio"))
Else
DdlSubProyecto.SelectedIndex = 0
End If
UpDatos.Update()
UpAddFolio.Update()
RegistraScript(String.Format("$('#{0}').modal('hide');", "DivAgregarFolio"))
End If