-

Planeacion/CatSubProyectos.aspx.vb

@@ -119,7 +119,7 @@ Partial Class CatSubProyectos
     Public Sub CargaDatos()
 
         Dim ObjSub As New ClsSubProyectos
-        If ObjSub.GetSubProyectos() Then
+        If ObjSub.GetSubProyectos(UsuarioActual.CveEmpresa) Then
             GvDatos.DataSource = ObjSub.DtResultados.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
             GvDatos.DataBind()
         End If
@@ -204,7 +204,7 @@ Partial Class CatSubProyectos
         If ObjSubProyectos.RemoveSubProyecto(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
             GvDatos.EditIndex = -1
             ViewState("DTSubProyectos") = ObjSubProyectos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTSubProyectos(-1) = ObjSubProyectos.DtResultados
+            GlobalDTSubProyectos(UsuarioActual.CveEmpresa) = ObjSubProyectos.DtResultados
             Alert("El SubProyecto se eliminó correctamente.", TipoMensaje.MsgInformacion)
         End If
 
@@ -232,7 +232,7 @@ Partial Class CatSubProyectos
             If ObjSubProyectos.UpdateSubProyectoSegNeg(CveSubProyecto, CveSegmento, UsuarioActual.CveEmpresa) Then
                 GvDatos.EditIndex = -1
                 ViewState("DTSubProyectos") = ObjSubProyectos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-                GlobalDTSubProyectos(-1) = ObjSubProyectos.DtResultados
+                GlobalDTSubProyectos(UsuarioActual.CveEmpresa) = ObjSubProyectos.DtResultados
                 Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
             Else
                 ErrorSubProyecto = True