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

se actualizo la manera en la que se recarga el global de subproyectos

Browse Source
This commit is contained in:
Antonio Gonzalez
2020-02-10 10:45:51 -07:00
parent 56690b3a47
commit a6048e855a
1 changed files with 3 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
Planeacion/CatSubProyectos.aspx.vb
View File

@@ -83,8 +83,8 @@ Partial Class CatSubProyectos
Private Sub RecargaGlobal() Private Sub RecargaGlobal()
Dim ObjSubProyectos As New ClsSubProyectos Dim ObjSubProyectos As New ClsSubProyectos
If ObjSubProyectos.GetSubProyectos() Then If ObjSubProyectos.GetSubProyectos(UsuarioActual.CveEmpresa) Then
GlobalDTSubProyectos(-1) = ObjSubProyectos.DtResultados GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = ObjSubProyectos.DtResultados
End If End If
ObjSubProyectos.Dispose() ObjSubProyectos.Dispose()
End Sub End Sub
@@ -400,6 +400,7 @@ Partial Class CatSubProyectos
RecargaGlobal() RecargaGlobal()
Else Else
ObjSubproyectos.RollBack() ObjSubproyectos.RollBack()
RecargaGlobal()
End If End If
'se regeneran los subproyectos 'se regeneran los subproyectos