-- cambio de GlobalDTSubProyectos

- cambio en GlobalDTUsuarios

Sistemas/CatSesiones.aspx.vb

@@ -433,7 +433,7 @@ Partial Class Sistemas_CatSesiones
 
     Private Sub CargaSubProyectos()
         'Carga SubProyectos
-        GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa) = Nothing
+        GlobalDTSubProyectos(UsuarioActual.CveEmpresa) = Nothing
         Dim ObjSubProyectos As New ClsSubProyectos
         'If ObjSubProyectos.GetSubProyectos Then
         '    Application("GlobalDTSubProyectos") = ObjSubProyectos.DtResultados
@@ -544,9 +544,10 @@ Partial Class Sistemas_CatSesiones
     End Sub
 
     Private Sub CargaBancosCuentas()
-        Dim Banc As New ClsBancos
-        If Banc.GetBancosCuentasUsuarios(-1, UsuarioActual.CveEmpresa) Then Application("GlobalDTBancosCuentas") = Banc.DtResultados Else Application("GlobalDTBancosCuentas") = Nothing
-        Banc.Dispose()
+        GlobalDTBancosCuentas(-1, CveEmpresa:=UsuarioActual.CveEmpresa) = Nothing
+        'Dim Banc As New ClsBancos
+        'If Banc.GetBancosCuentasUsuarios(-1, UsuarioActual.CveEmpresa) Then Application("GlobalDTBancosCuentas") = Banc.DtResultados Else Application("GlobalDTBancosCuentas") = Nothing
+        'Banc.Dispose()
     End Sub
 
     Private Sub CargaOCEstatus()