-- cambio de GlobalDTSubProyectos

- cambio en GlobalDTUsuarios

Planeacion/CatFolios.aspx.vb

@@ -83,7 +83,7 @@ Partial Class CatFolios
     End Sub
     Private Sub CargaSubProyectos()
         DdlSubProyecto.Items.Clear()
-        DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
+        DdlSubProyecto.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
 
         DdlSubProyecto.Items.Insert(0, New ListItem("Seleccione", "-1"))

Planeacion/CatProyectos.aspx.vb

@@ -87,7 +87,7 @@ Partial Class CatProyectos
     End Sub
 
     Private Sub CargaSuproyectos()
-        GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
+        GlobalDTSubProyectos(UsuarioActual.CveEmpresa) = Nothing
         'Dim ObjSubProyectos As New ClsSubProyectos
         'If ObjSubProyectos.GetSubProyectos(UsuarioActual.CveEmpresa) Then
 
@@ -140,7 +140,7 @@ Partial Class CatProyectos
             'If Not TieneError Then
             '    If UsuarioActual.Empresa.GralSoloProyecto Then
             '        If ObjSubproyectos.GetSubProyectos() Then
-            '            GlobalDTSubProyectos(-1) = ObjSubproyectos.DtResultados
+            '            GlobalDTSubProyectos(usuarioactual.cveempresa) = ObjSubproyectos.DtResultados
             '        Else
             '            TieneError = True
             '        End If

Planeacion/CatSubProyectos.aspx.vb

@@ -101,7 +101,7 @@ Partial Class CatSubProyectos
     End Sub
 
     Private Sub RecargaGlobal()
-        GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
+        GlobalDTSubProyectos(UsuarioActual.CveEmpresa) = Nothing
         GlobalDTSubProyectosUsuarios(-1, -1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
         GlobalDTOCEstatusUsuarios(UsuarioActual.CveEmpresa) = Nothing
 

Planeacion/Sucursal.aspx.vb

@@ -157,7 +157,7 @@ Partial Class Sucursal
     '    If Not TieneError Then
     '        If UsuarioActual.Empresa.GralSoloProyecto Then
     '            If ObjSubproyectos.GetSubProyectos() Then
-    '                GlobalDTSubProyectos(-1) = ObjSubproyectos.DtResultados
+    '                GlobalDTSubProyectos(usuarioactual.cveempresa) = ObjSubproyectos.DtResultados
     '            Else
     '                TieneError = True
     '            End If