-- cambio Globaldt

App_Code/ClsPaginas.vb

@@ -366,7 +366,7 @@ Public Class ClsPaginas
     Property GlobalDTTipoOperacion() As DataTable
         Get
             Dim AppNombre As String = "GlobalDTTipoOperacion"
-            If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
+            If Application(AppNombre) Is Nothing Then
                 Dim ObjGrales As New ClsGenerales
                 If ObjGrales.GetSATTipoOperacion() Then Application(AppNombre) = ObjGrales.DtResultados
                 ObjGrales.Dispose()
@@ -381,7 +381,7 @@ Public Class ClsPaginas
     Property GlobalDTSATMotivoTraslado() As DataTable
         Get
             Dim AppNombre As String = "GlobalDTSATMotivoTraslado"
-            If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
+            If Application(AppNombre) Is Nothing Then
                 Dim ObjGrales As New ClsGenerales
                 If ObjGrales.GetSATMotivoTraslado() Then Application(AppNombre) = ObjGrales.DtResultados
                 ObjGrales.Dispose()
@@ -396,7 +396,7 @@ Public Class ClsPaginas
     Property GlobalDTUnidadAduana() As DataTable
         Get
             Dim AppNombre As String = "GlobalDTUnidadAduana"
-            If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
+            If Application(AppNombre) Is Nothing Then
                 Dim ObjGrales As New ClsGenerales
                 If ObjGrales.GetSATUnidadesAduana() Then Application(AppNombre) = ObjGrales.DtResultados
                 ObjGrales.Dispose()
@@ -411,7 +411,7 @@ Public Class ClsPaginas
     Property GlobalDTGralPaises() As DataTable
         Get
             Dim AppNombre As String = "GlobalDTGralPaises"
-            If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
+            If Application(AppNombre) Is Nothing Then
                 Dim ObjGrales As New ClsGenerales
                 If ObjGrales.GetSATPais() Then Application(AppNombre) = ObjGrales.DtResultados
                 ObjGrales.Dispose()
@@ -589,7 +589,7 @@ Public Class ClsPaginas
         Get
             Dim AppNombre As String = $"GlobalDTCuentasDepositosClientes-{CveEmpresa}"
             'sino existe, recarga los datos
-            If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
+            If Application(AppNombre) Is Nothing Then
                 Dim P As New ClsGenerales
                 If P.GetCuentasDepositos(CveEmpresa:=CveEmpresa, CveCliente:=-2) Then Application(AppNombre) = P.DtResultados
                 P.Dispose()
@@ -612,7 +612,7 @@ Public Class ClsPaginas
         Get
             Dim AppNombre As String = $"GlobalDTProveedorClasificacion-{CveEmpresa}"
             'sino existe, recarga los datos
-            If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
+            If Application(AppNombre) Is Nothing Then
                 Dim P As New ClsCompProveedores
                 If P.GetProveedorClasificacion(CveEmpresa) Then Application(AppNombre) = P.DtResultados
                 P.Dispose()
@@ -634,7 +634,7 @@ Public Class ClsPaginas
         Get
             Dim AppNombre As String = $"GlobalDTProveedorSucursales-{CveEmpresa}"
             'sino existe, recarga los datos
-            If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
+            If Application(AppNombre) Is Nothing Then
                 Dim P As New ClsCompProveedores
                 If P.GetSucursales(-1, CveEmpresa) Then Application(AppNombre) = P.DtResultados
                 P.Dispose()
@@ -922,19 +922,23 @@ Public Class ClsPaginas
     End Property
     Property GlobalDTClasificacionesDetalle(Optional CveEmpresa As Integer = -1, Optional CveClasificacion As Integer = -1) As DataTable
         Get
-            If CveEmpresa <> -1 Then
+            Dim AppNombre As String = $"GlobalDTClasificacionesDetalle-{CveEmpresa}"
-                Dim Str As New StringBuilder
+            If Application(AppNombre) Is Nothing Then
-                Str.AppendFormat("CveEmpresa = {0}", CveEmpresa)
+                Using ObjVenta As New ClsVentas
-                If CveClasificacion <> -1 Then Str.AppendFormat(" AND CveClasificacion = {0}", CveClasificacion)
+                    If ObjVenta.GetClasificacionDetalle(CveEmpresa, CveClasificacion:=-1) Then Application(AppNombre) = ObjVenta.DtResultados
-                Dim Dv As New DataView(DirectCast(Application("GlobalDTClasificacionesDetalle"), DataTable), Str.ToString(), "", DataViewRowState.CurrentRows)
+                End Using
-                GlobalDTClasificacionesDetalle = Dv.ToTable
-                Dv.Dispose()
-            Else
-                GlobalDTClasificacionesDetalle = DirectCast(Application("GlobalDTClasificacionesDetalle"), DataTable)
             End If
+
+            Dim Str As New StringBuilder
+            If CveClasificacion <> -1 Then Str.AppendFormat("   CveClasificacion = {0}", CveClasificacion)
+            Dim Dv As New DataView(DirectCast(Application(AppNombre), DataTable), Str.ToString(), "", DataViewRowState.CurrentRows)
+            GlobalDTClasificacionesDetalle = Dv.ToTable
+            Dv.Dispose()
+
         End Get
         Set(value As DataTable)
-            Application("GlobalDTClasificacionesDetalle") = value
+            Dim AppNombre As String = $"GlobalDTClasificacionesDetalle-{CveEmpresa}"
+            Application(AppNombre) = value
         End Set
     End Property
     Property GlobalDTSubFamilias(Optional CveEmpresa As Integer = -1, Optional CveCategoria As Integer = -1) As DataTable
@@ -958,7 +962,7 @@ Public Class ClsPaginas
         Get
             Dim AppNombre As String = $"GlobalDTFamilias-{CveEmpresa}"
             'sino existe, recarga los datos
-            If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
+            If Application(AppNombre) Is Nothing Then
                 Dim ObjGenerales As New ClsGenerales
                 If ObjGenerales.GetCategorias(CveEmpresa, 2) Then Application(AppNombre) = ObjGenerales.DtResultados
                 ObjGenerales.Dispose()
@@ -974,7 +978,7 @@ Public Class ClsPaginas
         Get
             Dim AppNombre As String = $"GlobalDTCategoriasPresupuestos-{CveEmpresa}"
             'sino existe, recarga los datos
-            If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
+            If Application(AppNombre) Is Nothing Then
                 Dim ObjGenerales As New ClsGenerales
                 If ObjGenerales.GetCategorias(CveEmpresa, 3) Then Application(AppNombre) = ObjGenerales.DtResultados
                 ObjGenerales.Dispose()
@@ -1676,21 +1680,25 @@ Public Class ClsPaginas
     End Property
     Property GlobalDTInvMetodosInventario() As DataTable
         Get
-            GlobalDTInvMetodosInventario = DirectCast(Application("GlobalDTInvMetodosInventario"), DataTable)
+            Dim AppNombre As String = $"GlobalDTInvMetodosInventario"
+            If Application(AppNombre) Is Nothing Then
+                Dim ObjPS As New ClsProductosServicios
+                If ObjPS.GetMetodosInv() Then Application(AppNombre) = ObjPS.DtResultados
+                ObjPS.Dispose()
+            End If
+            GlobalDTInvMetodosInventario = DirectCast(Application(AppNombre), DataTable)
         End Get
         Set(value As DataTable)
-            Application("GlobalDTInvMetodosInventario") = value
+            Dim AppNombre As String = $"GlobalDTInvMetodosInventario"
+            Application(AppNombre) = value
         End Set
     End Property
     Property GlobalDTInvCamiones(CveEmpresa As Integer, Optional CveCamion As Integer = -1) As DataTable
         Get
             Dim AppNombre As String = $"GlobalDTInvCamiones-{CveEmpresa}"
-            'sino existe, recarga los datos
             If Application(AppNombre) Is Nothing Then
                 Dim ObjInventarios As New ClsInventarios
-                If ObjInventarios.GetCamiones(-1, UsuarioActual.CveEmpresa) Then
+                If ObjInventarios.GetCamiones(-1, UsuarioActual.CveEmpresa) Then Application(AppNombre) = ObjInventarios.DtResultados
-                    Application(AppNombre) = ObjInventarios.DtResultados
-                End If
                 ObjInventarios.Dispose()
             End If
             Dim Str As New StringBuilder
@@ -1715,7 +1723,6 @@ Public Class ClsPaginas
     Public Shared Property GlobalDTAFCaracteristicas(CveEmpresa As Integer) As DataTable
         Get
             Dim AppNombre As String = $"GlobalDTAFCaracteristicas-{CveEmpresa}"
-            'sino existe, recarga los datos
             If HttpContext.Current.Application(AppNombre) Is Nothing Then
                 Dim ObjActivosFijos As New ClsAF
                 If ObjActivosFijos.GetCaracteristicas(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjActivosFijos.DtResultados
@@ -1731,7 +1738,6 @@ Public Class ClsPaginas
     Public Shared Property GlobalDTAFCaracteristicasClasificaciones(CveEmpresa As Integer) As DataTable
         Get
             Dim AppNombre As String = $"GlobalDTAFCaracteristicasClasificaciones-{CveEmpresa}"
-            'sino existe, recarga los datos
             If HttpContext.Current.Application(AppNombre) Is Nothing Then
                 Dim ObjActivosFijos As New ClsAF
                 If ObjActivosFijos.GetCaracteristicasClasificaciones(CveEmpresa) Then HttpContext.Current.Application(AppNombre) = ObjActivosFijos.DtResultados
@@ -1747,7 +1753,6 @@ Public Class ClsPaginas
     Property GlobalDTImpuestosLocales(CvePS As Integer, CveEmpresa As Integer) As DataTable
         Get
             Dim AppNombre As String = $"GlobalDTImpuestosLocales-{CveEmpresa}"
-            'sino existe, recarga los datos
             If Application(AppNombre) Is Nothing Then
                 Dim ObjPS As New ClsProductosServicios
                 If ObjPS.GetPSImpuestosLocales(-1, CveEmpresa) Then Application(AppNombre) = ObjPS.DtResultados
@@ -1767,9 +1772,6 @@ Public Class ClsPaginas
         Set(value As DataTable)
             Dim AppNombre As String = $"GlobalDTImpuestosLocales-{CveEmpresa}"
             Application(AppNombre) = value
-            'Dim ObjPS As New ClsProductosServicios
-            'If ObjPS.GetPSImpuestosLocales(-1, CveEmpresa) Then Application(AppNombre) = ObjPS.DtResultados
-            'ObjPS.Dispose()
         End Set
     End Property
     'Bancos
@@ -1803,7 +1805,6 @@ Public Class ClsPaginas
     Public Shared Property GlobalDTBancosCuentas(CveUsuario As Integer, Optional CveCuenta As Integer = -1, Optional Estatus As Integer = 1, Optional CveEmpresa As Integer = -1, Optional CveTipoCuenta As Integer = -1) As DataTable
         Get
             Dim AppNombre As String = $"GlobalDTBancosCuentas-{CveEmpresa}"
-            'sino existe, recarga los datos
             If HttpContext.Current.Application(AppNombre) Is Nothing Then
                 Using ObjBancos As New ClsBancos
                     If ObjBancos.GetBancosCuentasUsuarios(-1, CveEmpresa) Then
@@ -1821,7 +1822,6 @@ Public Class ClsPaginas
             Dim Dv As New DataView(DirectCast(HttpContext.Current.Application(AppNombre), DataTable), Str, "", DataViewRowState.CurrentRows)
             GlobalDTBancosCuentas = Dv.ToTable
             Dv.Dispose()
-            'GlobalDTBancosCuentas = DirectCast(Application("GlobalDTBancosCuentas"), DataTable)
         End Get
         Set(value As DataTable)
             Dim AppNombre As String = $"GlobalDTBancosCuentas-{CveEmpresa}"
@@ -2336,10 +2336,18 @@ Public Class ClsPaginas
 #Region "***********************************************************************DT EVENTOS****************************************************************************************"
     Property GlobalDTTiposEventos() As DataTable
         Get
-            GlobalDTTiposEventos = DirectCast(Application("GlobalDTTiposEventos"), DataTable)
+            Dim AppNombre As String = $"GlobalDTTiposEventos"
+            If HttpContext.Current.Application(AppNombre) Is Nothing Then
+                Dim ObjTiposEventos As New ClsTiposEventos
+                If ObjTiposEventos.GetTiposEventos() Then HttpContext.Current.Application(AppNombre) = ObjTiposEventos.DtResultados
+                ObjTiposEventos.Dispose()
+            End If
+            GlobalDTTiposEventos = DirectCast(HttpContext.Current.Application(AppNombre), DataTable)
+
         End Get
         Set(value As DataTable)
-            Application("GlobalDTTiposEventos") = value
+            Dim AppNombre As String = $"GlobalDTTiposEventos"
+            Application(AppNombre) = value
         End Set
     End Property
     Property GlobalDTEventos() As DataTable
@@ -2548,7 +2556,7 @@ Public Class ClsPaginas
         Get
             Dim AppNombre As String = $"GlobalDTGralCategorias-{CveEmpresa}"
             'sino existe, recarga los datos
-            If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
+            If Application(AppNombre) Is Nothing Then
                 Dim ObjGenerales As New ClsGenerales
                 If ObjGenerales.GetCategorias(CveEmpresa) Then Application(AppNombre) = ObjGenerales.DtResultados
                 ObjGenerales.Dispose()
@@ -2570,7 +2578,7 @@ Public Class ClsPaginas
         Get
             Dim AppNombre As String = $"GlobalDTGralCategorias2-{CveEmpresa}"
             'sino existe, recarga los datos
-            If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
+            If Application(AppNombre) Is Nothing Then
                 Dim ObjGenerales As New ClsGenerales
                 If ObjGenerales.GetCategorias(CveEmpresa, 4) Then Application(AppNombre) = ObjGenerales.DtResultados
                 ObjGenerales.Dispose()
@@ -2591,7 +2599,7 @@ Public Class ClsPaginas
     Property GlobalDTGralEscolaridades() As DataTable
         Get
             Dim AppNombre As String = "GlobalDTGralEscolaridades"
-            If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
+            If Application(AppNombre) Is Nothing Then
                 Dim ObjGenerales As New ClsGenerales
                 If ObjGenerales.GetEscolaridades() Then Application(AppNombre) = ObjGenerales.DtResultados
                 ObjGenerales.Dispose()
@@ -2606,7 +2614,7 @@ Public Class ClsPaginas
     Property GlobalDTGralColectivas(CveEmpresa As Integer) As DataTable
         Get
             Dim AppNombre As String = $"GlobalDTGralColectivas-{CveEmpresa}"
-            If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
+            If Application(AppNombre) Is Nothing Then
                 Dim ObjGenerales As New ClsGenerales
                 If ObjGenerales.GetColectivas(CveEmpresa:=CveEmpresa) Then Application(AppNombre) = ObjGenerales.DtResultados
                 ObjGenerales.Dispose()
@@ -2622,7 +2630,7 @@ Public Class ClsPaginas
         Get
             Dim AppNombre As String = $"GlobalDTGralMarcas-{CveEmpresa}"
             'sino existe, recarga los datos
-            If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
+            If Application(AppNombre) Is Nothing Then
                 Dim ObjMarcas As New ClsProductosServicios
                 If ObjMarcas.GetMarcas(CveEmpresa) Then Application(AppNombre) = ObjMarcas.DtResultados Else Application(AppNombre) = Nothing
                 ObjMarcas.Dispose()
@@ -3253,7 +3261,7 @@ Public Class ClsPaginas
         Get
             Dim AppNombre As String = $"GlobalDTOCEstatusUsuarios-{CveEmpresa}"
             'sino existe, recarga los datos
-            If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
+            If Application(AppNombre) Is Nothing Then
                 Dim ObjOC As New ClsOC
                 If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, CveEmpresa) Then
                     Application(AppNombre) = ObjOC.DtResultados
@@ -3361,7 +3369,7 @@ Public Class ClsPaginas
         Get
             Dim AppNombre As String = "GlobalDTAsistenciaDetalle"
             'sino existe, recarga los datos
-            If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
+            If Application(AppNombre) Is Nothing Then
                 Dim ObjPersonal As New ClsRH
                 If ObjPersonal.GetAsistenciasDetalle() Then Application(AppNombre) = ObjPersonal.DtResultados
                 ObjPersonal.Dispose()
@@ -3377,7 +3385,7 @@ Public Class ClsPaginas
         Get
             Dim AppNombre As String = "GlobalDTAsistenciasInasistencias"
             'sino existe, recarga los datos
-            If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
+            If Application(AppNombre) Is Nothing Then
                 Dim ObjPersonal As New ClsRH
                 If ObjPersonal.GetAsistenciasInasistencias() Then Application(AppNombre) = ObjPersonal.DtResultados
                 ObjPersonal.Dispose()
@@ -3393,7 +3401,7 @@ Public Class ClsPaginas
         Get
             Dim AppNombre As String = "GlobalDTEstatusPersonal"
             'sino existe, recarga los datos
-            If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
+            If Application(AppNombre) Is Nothing Then
                 Dim ObjPersonal As New ClsRH
                 If ObjPersonal.GetEstatusPersonal() Then Application(AppNombre) = ObjPersonal.DtResultados
                 ObjPersonal.Dispose()
@@ -3409,7 +3417,7 @@ Public Class ClsPaginas
         Get
             Dim AppNombre As String = $"GlobalDTRHPersonal-{CveEmpresa}"
             'sino existe, recarga los datos
-            If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
+            If Application(AppNombre) Is Nothing Then
                 Dim ObjPersonal As New ClsRH
                 If ObjPersonal.GetPersonal(-1, CveEmpresa) Then Application(AppNombre) = ObjPersonal.DtResultados
                 ObjPersonal.Dispose()
@@ -3421,27 +3429,25 @@ Public Class ClsPaginas
             Application(AppNombre) = value
         End Set
     End Property
-    Property GlobalDTDepartamentos() As DataTable
+    Property GlobalDTDepartamentos(CveEmpresa As Integer) As DataTable
         Get
-            Dim AppNombre As String = "GlobalDTDepartamentos"
+            Dim AppNombre As String = $"GlobalDTDepartamentos-{CveEmpresa}"
-            'sino existe, recarga los datos
+            If Application(AppNombre) Is Nothing Then
-            If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
                 Dim ObjPersonal As New ClsRH
-                If ObjPersonal.GetDepartamentos() Then Application(AppNombre) = ObjPersonal.DtResultados
+                If ObjPersonal.GetDepartamentos(CveEmpresa) Then Application(AppNombre) = ObjPersonal.DtResultados
                 ObjPersonal.Dispose()
             End If
             GlobalDTDepartamentos = DirectCast(Application(AppNombre), DataTable)
         End Get
         Set(value As DataTable)
-            Dim AppNombre As String = "GlobalDTDepartamentos"
+            Dim AppNombre As String = $"GlobalDTDepartamentos-{CveEmpresa}"
             Application(AppNombre) = value
         End Set
     End Property
     Property GlobalDTRHPuestos(CveEmpresa As Integer) As DataTable
         Get
             Dim AppNombre As String = $"GlobalDTRHPuestos-{CveEmpresa}"
-            'sino existe, recarga los datos
+            If Application(AppNombre) Is Nothing Then
-            If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
                 Dim ObjPersonal As New ClsRH
                 If ObjPersonal.GetPuestos(CveEmpresa) Then Application(AppNombre) = ObjPersonal.DtResultados
                 ObjPersonal.Dispose()
@@ -3457,7 +3463,7 @@ Public Class ClsPaginas
         Get
             Dim AppNombre As String = "GlobalDTEscolaridad"
             'sino existe, recarga los datos
-            If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
+            If Application(AppNombre) Is Nothing Then
                 Dim ObjPersonal As New ClsRH
                 If ObjPersonal.GetEscolaridades() Then Application(AppNombre) = ObjPersonal.DtResultados
                 ObjPersonal.Dispose()
@@ -3473,7 +3479,7 @@ Public Class ClsPaginas
         Get
             Dim AppNombre As String = "GlobalDTEstadoCivil"
             'sino existe, recarga los datos
-            If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
+            If Application(AppNombre) Is Nothing Then
                 Dim ObjPersonal As New ClsRH
                 If ObjPersonal.GetEstadoCivil() Then Application(AppNombre) = ObjPersonal.DtResultados
                 ObjPersonal.Dispose()
@@ -3489,7 +3495,7 @@ Public Class ClsPaginas
         Get
             Dim AppNombre As String = "GlobalDTDocumentos"
             'sino existe, recarga los datos
-            If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
+            If Application(AppNombre) Is Nothing Then
                 Dim ObjPersonal As New ClsRH
                 If ObjPersonal.GetDocumentos() Then Application(AppNombre) = ObjPersonal.DtResultados
                 ObjPersonal.Dispose()
@@ -3505,7 +3511,7 @@ Public Class ClsPaginas
         Get
             Dim AppNombre As String = "GlobalDTGenero"
             'sino existe, recarga los datos
-            If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
+            If Application(AppNombre) Is Nothing Then
                 Dim ObjPersonal As New ClsRH
                 If ObjPersonal.GetGeneros() Then Application(AppNombre) = ObjPersonal.DtResultados
                 ObjPersonal.Dispose()
@@ -3517,19 +3523,18 @@ Public Class ClsPaginas
             Application(AppNombre) = value
         End Set
     End Property
-    Property GlobalDTMotivoBaja() As DataTable
+    Property GlobalDTMotivoBaja(CveEmpresa As Integer) As DataTable
         Get
-            Dim AppNombre As String = "GlobalDTMotivoBaja"
+            Dim AppNombre As String = $"GlobalDTMotivoBaja-{CveEmpresa}"
-            'sino existe, recarga los datos
+            If Application(AppNombre) Is Nothing Then
-            If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
                 Dim ObjPersonal As New ClsRH
-                If ObjPersonal.GetMotivoBaja() Then Application(AppNombre) = ObjPersonal.DtResultados
+                If ObjPersonal.GetMotivoBaja(CveEmpresa) Then Application(AppNombre) = ObjPersonal.DtResultados
                 ObjPersonal.Dispose()
             End If
             GlobalDTMotivoBaja = DirectCast(Application(AppNombre), DataTable)
         End Get
         Set(value As DataTable)
-            Dim AppNombre As String = "GlobalDTMotivoBaja"
+            Dim AppNombre As String = $"GlobalDTMotivoBaja-{CveEmpresa}"
             Application(AppNombre) = value
         End Set
     End Property
@@ -3537,7 +3542,7 @@ Public Class ClsPaginas
         Get
             Dim AppNombre As String = "GlobalDTTiposContrato"
             'sino existe, recarga los datos
-            If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
+            If Application(AppNombre) Is Nothing Then
                 Dim ObjPersonal As New ClsRH
                 If ObjPersonal.GetTiposContrato() Then Application(AppNombre) = ObjPersonal.DtResultados
                 ObjPersonal.Dispose()
@@ -3549,35 +3554,33 @@ Public Class ClsPaginas
             Application(AppNombre) = value
         End Set
     End Property
-    Property GlobalDTRutas() As DataTable
+    Property GlobalDTRutas(CveEmpresa As Integer) As DataTable
         Get
-            Dim AppNombre As String = "GlobalDTRutas"
+            Dim AppNombre As String = $"GlobalDTRutas-{CveEmpresa}"
-            'sino existe, recarga los datos
+            If Application(AppNombre) Is Nothing Then
-            If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
                 Dim ObjPersonal As New ClsRH
-                If ObjPersonal.GetRutas() Then Application(AppNombre) = ObjPersonal.DtResultados
+                If ObjPersonal.GetRutas(CveEmpresa) Then Application(AppNombre) = ObjPersonal.DtResultados
                 ObjPersonal.Dispose()
             End If
             GlobalDTRutas = DirectCast(Application(AppNombre), DataTable)
         End Get
         Set(value As DataTable)
-            Dim AppNombre As String = "GlobalDTRutas"
+            Dim AppNombre As String = $"GlobalDTRutas-{CveEmpresa}"
             Application(AppNombre) = value
         End Set
     End Property
-    Property GlobalDTTurno() As DataTable
+    Property GlobalDTTurno(CveEmpresa As Integer) As DataTable
         Get
-            Dim AppNombre As String = "GlobalDTTurno"
+            Dim AppNombre As String = $"GlobalDTTurno-{CveEmpresa}"
-            'sino existe, recarga los datos
+            If Application(AppNombre) Is Nothing Then
-            If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
                 Dim ObjPersonal As New ClsRH
-                If ObjPersonal.GetTurnos() Then Application(AppNombre) = ObjPersonal.DtResultados
+                If ObjPersonal.GetTurnos(CveEmpresa) Then Application(AppNombre) = ObjPersonal.DtResultados
                 ObjPersonal.Dispose()
             End If
             GlobalDTTurno = DirectCast(Application(AppNombre), DataTable)
         End Get
         Set(value As DataTable)
-            Dim AppNombre As String = "GlobalDTTurno"
+            Dim AppNombre As String = $"GlobalDTTurno-{CveEmpresa}"
             Application(AppNombre) = value
         End Set
     End Property
@@ -3585,7 +3588,7 @@ Public Class ClsPaginas
         Get
             Dim AppNombre As String = "GlobalDTJornadas"
             'sino existe, recarga los datos
-            If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
+            If Application(AppNombre) Is Nothing Then
                 Dim ObjPersonal As New ClsRH
                 If ObjPersonal.GetJornadas() Then Application(AppNombre) = ObjPersonal.DtResultados
                 ObjPersonal.Dispose()
@@ -3597,19 +3600,18 @@ Public Class ClsPaginas
             Application(AppNombre) = value
         End Set
     End Property
-    Property GlobalDTMotivosHorasExtras() As DataTable
+    Property GlobalDTMotivosHorasExtras(CveEmpresa As Integer) As DataTable
         Get
-            Dim AppNombre As String = "GlobalDTMotivosHorasExtras"
+            Dim AppNombre As String = $"GlobalDTMotivosHorasExtras-{CveEmpresa}"
-            'sino existe, recarga los datos
+            If Application(AppNombre) Is Nothing Then
-            If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
                 Dim ObjPersonal As New ClsRH
-                If ObjPersonal.GetMotivoHorasExtras() Then Application(AppNombre) = ObjPersonal.DtResultados
+                If ObjPersonal.GetMotivoHorasExtras(CveEmpresa) Then Application(AppNombre) = ObjPersonal.DtResultados
                 ObjPersonal.Dispose()
             End If
             GlobalDTMotivosHorasExtras = DirectCast(Application(AppNombre), DataTable)
         End Get
         Set(value As DataTable)
-            Dim AppNombre As String = "GlobalDTMotivosHorasExtras"
+            Dim AppNombre As String = $"GlobalDTMotivosHorasExtras-{CveEmpresa}"
             Application(AppNombre) = value
         End Set
     End Property
@@ -3617,7 +3619,7 @@ Public Class ClsPaginas
         Get
             Dim AppNombre As String = "GlobalDTTipoBuzon"
             'sino existe, recarga los datos
-            If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
+            If Application(AppNombre) Is Nothing Then
                 Dim ObjPersonal As New ClsRH
                 If ObjPersonal.GetTipoBuzon() Then Application(AppNombre) = ObjPersonal.DtResultados
                 ObjPersonal.Dispose()
@@ -3818,7 +3820,7 @@ Public Class ClsPaginas
         Get
             Dim AppNombre As String = $"GlobalDTPaqueteriaGuiaTipos-{CveEmpresa}"
             'sino existe, recarga los datos
-            If DirectCast(Application(AppNombre), DataTable) Is Nothing Then
+            If Application(AppNombre) Is Nothing Then
                 Dim ObjGenerales As New ClsGenerales
                 If ObjGenerales.GetGralPaqueteriasGuiasTipo(CveEmpresa) Then Application(AppNombre) = ObjGenerales.DtResultados
                 ObjGenerales.Dispose()
@@ -3830,24 +3832,26 @@ Public Class ClsPaginas
             Application(AppNombre) = value
         End Set
     End Property
-    Public Shared Property GlobalDTClasificacionPorcentaje(CveEmpresa As Integer, Optional CveClasicacionPorcentaje As Integer = -1, Optional CveClasicacion As Integer = -1,
+    Public Shared Property GlobalDTClasificacionPorcentaje(CveEmpresa As Integer, Optional CveClasicacionPorcentaje As Integer = -1, Optional CveClasicacion As Integer = -1, Optional PorcentajeIVA As Double = -1) As DataTable
-                                             Optional PorcentajeIVA As Double = -1) As DataTable
         Get
-            Dim Str As StringBuilder = New StringBuilder()
+            Dim AppNombre As String = $"GlobalDTClasificacionPorcentaje-{CveEmpresa}"
-            If CveEmpresa <> -1 Or CveClasicacionPorcentaje <> -1 Or CveClasicacion <> -1 Or PorcentajeIVA <> -1 Then
+            If HttpContext.Current.Application(AppNombre) Is Nothing Then
-                If CveEmpresa <> -1 Then Str.AppendFormat("CveEmpresa = {0}", CveEmpresa)
+                Using ObjVenta As New ClsVentas
-                If CveClasicacionPorcentaje <> -1 Then Str.AppendFormat(" {0} CveClasicacionPorcentaje = {1}", If(Str.Length > 0, "AND", ""), CveClasicacionPorcentaje)
+                    If ObjVenta.GetClasificacionDetalle(CveEmpresa, CveClasificacion:=-1) Then HttpContext.Current.Application(AppNombre) = ObjVenta.DtResultados
-                If CveClasicacion <> -1 Then Str.AppendFormat(" {0} CveClasicacion = {1}", If(Str.Length > 0, "AND", ""), CveClasicacion)
+                End Using
-                If PorcentajeIVA <> -1 Then Str.AppendFormat(" {0} PorcentajeIVA = {1}", If(Str.Length > 0, "AND", ""), PorcentajeIVA)
-                Dim Dv As New DataView(DirectCast(HttpContext.Current.Application("GlobalDTClasificacionPorcentaje"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
-                GlobalDTClasificacionPorcentaje = Dv.ToTable
-                Dv.Dispose()
-            Else
-                GlobalDTClasificacionPorcentaje = DirectCast(HttpContext.Current.Application("GlobalDTClasificacionPorcentaje"), DataTable)
             End If
+
+            Dim Str As StringBuilder = New StringBuilder()
+            If CveClasicacionPorcentaje <> -1 Then Str.AppendFormat(" {0} CveClasicacionPorcentaje = {1}", If(Str.Length > 0, "AND", ""), CveClasicacionPorcentaje)
+            If CveClasicacion <> -1 Then Str.AppendFormat(" {0} CveClasicacion = {1}", If(Str.Length > 0, "AND", ""), CveClasicacion)
+            If PorcentajeIVA <> -1 Then Str.AppendFormat(" {0} PorcentajeIVA = {1}", If(Str.Length > 0, "AND", ""), PorcentajeIVA)
+            Dim Dv As New DataView(DirectCast(HttpContext.Current.Application("GlobalDTClasificacionPorcentaje"), DataTable), Str.ToString, "", DataViewRowState.CurrentRows)
+            GlobalDTClasificacionPorcentaje = Dv.ToTable
+            Dv.Dispose()
         End Get
         Set(value As DataTable)
-            HttpContext.Current.Application("GlobalDTClasificacionPorcentaje") = value
+            Dim AppNombre As String = $"GlobalDTClasificacionPorcentaje-{CveEmpresa}"
+            HttpContext.Current.Application(AppNombre) = value
         End Set
     End Property
     Property GlobalDTPaqueterias(CveEmpresa As Integer, Optional TipoPaqueteria As Integer = -1) As DataTable

App_Code/ClsRH.vb

@@ -448,9 +448,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
 #End Region
 
 #Region "ClsRHDepartamentos"
-    Public Function GetDepartamentos() As Boolean
+    Public Function GetDepartamentos(CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
-        DataAdapter("PA_RH_DepartamentosGet")
+        DataAdapter("PA_RH_DepartamentosGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
+
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
@@ -982,7 +986,6 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
 
         SqlAdapter.SelectCommand.Parameters.Add("@CveGenero", SqlDbType.Int).Value = CveGenero
 
-
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
@@ -1074,9 +1077,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
 #End Region
 
 #Region "ClsRHMotivoBaja"
-    Public Function GetMotivoBaja() As Boolean
+    Public Function GetMotivoBaja(CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
-        DataAdapter("PA_RH_MotivoBajaGet")
+        DataAdapter("PA_RH_MotivoBajaGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
@@ -1164,9 +1170,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
 #End Region
 
 #Region "ClsRHMotivosHorasExtras"
-    Public Function GetMotivoHorasExtras() As Boolean
+    Public Function GetMotivoHorasExtras(CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
         DataAdapter("PA_RH_MotivosHorasExtrasGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
         Try
             SqlAdapter.Fill(Data)
             Retorno = True
@@ -3249,9 +3258,12 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo
 #End Region
 
 #Region "ClsRHRuta"
-    Public Function GetRutas() As Boolean
+    Public Function GetRutas(CveEmpresa As Integer) As Boolean
         Dim Retorno As Boolean = False
-        DataAdapter("PA_RH_RutaGet")
+        DataAdapter("PA_RH_RutaGet")
+        With SqlAdapter.SelectCommand.Parameters
+            .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa
+        End With
         Try
             SqlAdapter.Fill(Data)
             Retorno = True

Global.asax

@@ -37,60 +37,6 @@
         'BANDERA PARA VALIDACION DE CFDI
         Application("GlobalValidarCFDI") = True
 
-        '----------------------------------------------------------------------------------------------------------------------   
-        'C A R G A  -  R H
-#If False Then
-        GuardaLogAsax(String.Format("Globalasax 1:{0}", DateTime.Now))
-        Using ObjRH As New ClsRH
-
-            If ObjRH.GetTipoBuzon() Then Application("GlobalDTTipoBuzon") = ObjRH.DtResultados Else Application("GlobalDTTipoBuzon") = Nothing
-            If ObjRH.GetDepartamentos Then Application("GlobalDTDepartamentos") = ObjRH.DtResultados Else Application("GlobalDTDepartamentos") = Nothing
-            If ObjRH.GetDocumentos() Then Application("GlobalDTDocumentos") = ObjRH.DtResultados Else Application("GlobalDTDocumentos") = Nothing
-            If ObjRH.GetEscolaridades() Then Application("GlobalDTEscolaridad") = ObjRH.DtResultados Else Application("GlobalDTEscolaridad") = Nothing
-            If ObjRH.GetEstadoCivil() Then Application("GlobalDTEstadoCivil") = ObjRH.DtResultados Else Application("GlobalDTEstadoCivil") = Nothing
-            If ObjRH.GetEstatusPersonal() Then Application("GlobalDTEstatusPersonal") = ObjRH.DtResultados Else Application("GlobalDTEstatusPersonal") = Nothing
-            If ObjRH.GetGeneros() Then Application("GlobalDTGenero") = ObjRH.DtResultados Else Application("GlobalDTGenero") = Nothing
-            If ObjRH.GetMotivoBaja() Then Application("GlobalDTMotivoBaja") = ObjRH.DtResultados Else Application("GlobalDTMotivoBaja") = Nothing
-            If ObjRH.GetPuestos(-1) Then Application("GlobalDTRHPuestos") = ObjRH.DtResultados Else Application("GlobalDTRHPuestos") = Nothing
-            If ObjRH.GetRutas() Then Application("GlobalDTRutas") = ObjRH.DtResultados Else Application("GlobalDTRutas") = Nothing
-            If ObjRH.GetTiposContrato() Then Application("GlobalDTTiposContrato") = ObjRH.DtResultados Else Application("GlobalDTTiposContrato") = Nothing
-            If ObjRH.GetTurnos() Then Application("GlobalDTTurno") = ObjRH.DtResultados Else Application("GlobalDTTurno") = Nothing
-            If ObjRH.GetJornadas() Then Application("GlobalDTJornadas") = ObjRH.DtResultados Else Application("GlobalDTJornadas") = Nothing
-            If ObjRH.GetAsistenciasInasistencias() Then Application("GlobalDTAsistenciasInasistencias") = ObjRH.DtResultados Else Application("GlobalDTAsistenciasInasistencias") = Nothing
-            If ObjRH.GetMotivoHorasExtras() Then Application("GlobalDTMotivosHorasExtras") = ObjRH.DtResultados Else Application("GlobalDTMotivosHorasExtras") = Nothing
-            If ObjRH.GetAsistenciasDetalle() Then Application("GlobalDTAsistenciaDetalle") = ObjRH.DtResultados Else Application("GlobalDTAsistenciaDetalle") = Nothing
-        End Using
-#End If
-        '----------------------------------------------------------------------------------------------------------------------        
-        'C A R G A  -  O S
-        'GuardaLogAsax(String.Format("Globalasax 2:{0}", DateTime.Now))
-
-        'Using ObjOS As New ClsOS
-        '    If ObjOS.GetEstatusOrdenServicio() Then Application("GlobalDTEstatusOrdenServicios") = ObjOS.DtResultados Else Application("GlobalDTEstatusOrdenServicios") = Nothing
-        '    If ObjOS.GetTipoOrdenesServicios(-1) Then Application("GlobalDTTipoOrdenServicios") = ObjOS.DtResultados Else Application("GlobalDTTipoOrdenServicios") = Nothing
-        'End Using
-        '-------------------------------------------------------------------------------------------------------------------------        
-        'A C T I V O S  - F I J O S
-        'GuardaLogAsax(String.Format("Globalasax 3:{0}", DateTime.Now))
-
-        'Using ObjActivosFijos As New ClsAF
-        'If ObjActivosFijos.GetCaracteristicasClasificaciones(-1) Then Application("GlobalDTAFCaracteristicasClasificaciones") = ObjActivosFijos.DtResultados Else Application("GlobalDTAFCaracteristicasClasificaciones") = Nothing
-        'If ObjActivosFijos.GetCaracteristicas(-1) Then Application("GlobalDTAFCaracteristicas") = ObjActivosFijos.DtResultados Else Application("GlobalDTAFCaracteristicas") = Nothing
-        'If ObjActivosFijos.GetSubTiposActivosFijos(-1) Then Application("GlobalDTSubTipoActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTSubTipoActivoFijo") = Nothing
-        'If ObjActivosFijos.GetTiposActivosFijos(-1) Then Application("GlobalDTTipoActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTTipoActivoFijo") = Nothing
-        'If ObjActivosFijos.GetEstatusActivoFijo() Then Application("GlobalDTEstadoActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTEstadoActivoFijo") = Nothing
-        'If ObjActivosFijos.GetMarcasActivosFijos(-1) Then Application(" GlobalDTMarcaActivoFijo") = ObjActivosFijos.DtResultados Else Application(" GlobalDTMarcaActivoFijo") = Nothing
-        'If ObjActivosFijos.GetModelosActivosFijos(-1, -1) Then Application("GlobalDTModeloActivoFijo") = ObjActivosFijos.DtResultados Else Application("GlobalDTModeloActivoFijo") = Nothing
-        'End Using
-        '-------------------------------------------------------------------------------------------------------------------------        
-        'C A R G A  -  O R D E N E S  -  D E  - C O M P R A S
-
-        'GuardaLogAsax(String.Format("Globalasax 4:{0}", DateTime.Now))
-        'Using ObjOC As New ClsOC
-        'If ObjOC.GetEstatus() Then Application("GlobalDTOCEstatus") = ObjOC.DtResultados Else Application("GlobalDTOCEstatus") = Nothing
-        'If ObjOC.GetEstatusUsuarios(-1, -1, -1, -1, -1) Then Application("GlobalDTOCEstatusUsuarios") = ObjOC.DtResultados Else Application("GlobalDTOCEstatusUsuarios") = Nothing
-        'End Using
-
         '-------------------------------------------------------------------------------------------------------------------------        
         'A M O R T I Z A C I O N  -  C O N T A B L E
 
@@ -139,13 +85,6 @@
 
         GuardaLogAsax(String.Format("Globalasax 7:{0}", DateTime.Now))
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-        ''C A R G A - T I P O  G A S T O S
-        'Using ObjCompra As New ClsCompras()
-        '    If ObjCompra.GetTipoGasto(-1, -1) Then Application("GlobalDTTiposGastos") = ObjCompra.DtResultados Else Application("GlobalDTTiposGastos") = Nothing
-        'End Using
-
-        GuardaLogAsax(String.Format("Globalasax 8:{0}", DateTime.Now))
-        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'C A R G A - N O M        
 
         Using ObjNom As New ClsNominas()
@@ -190,115 +129,24 @@
 
         GuardaLogAsax(String.Format("Globalasax 11:{0}", DateTime.Now))
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-
-        'B A N C O S 
-
-        'GuardaLogAsax(String.Format("Globalasax 12:{0}", DateTime.Now))
-        'Using ObjBancos As New ClsBancos
-        'If ObjBancos.GetBancosCuentasUsuarios(-1) Then Application("GlobalDTBancosCuentas") = ObjBancos.DtResultados Else Application("GlobalDTBancosCuentas") = Nothing        
-        'If ObjBancos.GetBancosCuentasUsuarios(-1) Then Application("GlobalDTBancosCuentas") = ObjBancos.DtResultados Else Application("GlobalDTBancosCuentas") = Nothing
-        'If ObjBancos.GetBancos_TiposTransaccion(-1) Then Application("GlobalDTTipoTransacciones") = ObjBancos.DtResultados Else Application("GlobalDTTipoTransacciones") = Nothing
-        'If ObjBancos.GetBancos_EstatusIE() Then Application("GlobalDTBancosEstatusIE") = ObjBancos.DtResultados Else Application("GlobalDTBancosEstatusIE") = Nothing
-        'If ObjBancos.GetBancos() Then Application("GlobalDTBancos") = ObjBancos.DtResultados Else Application("GlobalDTBancos") = Nothing
-        'If ObjBancos.GetBancos_TiposCuenta() Then Application("GlobalDTTipoCuenta") = ObjBancos.DtResultados Else Application("GlobalDTTipoCuenta") = Nothing
-        'End Using
-
-        'GuardaLogAsax(String.Format("Globalasax 13:{0}", DateTime.Now))
-        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-
-        'I N V E N T A R I O S 
-
-        'Using Objinventarios As New ClsInventarios
-        'If Objinventarios.GetAlmacenes(-1, -1, -1, -1) Then Application("GlobalDTAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTAlmacen") = Nothing
-        'If Objinventarios.GetSeccionesAlmacenes(-1, -1) Then Application("GlobalDTSeccionAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTSeccionAlmacen") = Nothing
-        'If Objinventarios.GetTiposAlmacenes Then Application("GlobalDTTipoAlmacen") = Objinventarios.DtResultados Else Application("GlobalDTTipoAlmacen") = Nothing
-        'If Objinventarios.GetConceptos Then Application("GlobalDTInvConceptos") = Objinventarios.DtResultados Else Application("GlobalDTInvConceptos") = Nothing
-        'End Using
-
-        GuardaLogAsax(String.Format("Globalasax 14:{0}", DateTime.Now))
-        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------               
-        'C O N T A B I L I D A D  -   P L A N T I L L A S
-
-
-        'Using ObjContabilidad As New ClsContabilidad
-        'If ObjContabilidad.GetConta_PlantillasPolizas(-1, -1) Then Application("GlobalDTContaPlantillasPolizas") = ObjContabilidad.DtResultados Else Application("GlobalDTContaPlantillasPolizas") = Nothing
-        'If ObjContabilidad.GetConta_ConceptosContables() Then Application("GlobalDTContaConceptosContables") = ObjContabilidad.DtResultados Else Application("GlobalDTContaConceptosContables") = Nothing
-        'If ObjContabilidad.GetConta_PlantillasPolizasDetalle(-1, -1) Then Application("GlobalDTContaPlantillasPolizasDetalle") = ObjContabilidad.DtResultados Else Application("GlobalDTContaPlantillasPolizasDetalle") = Nothing
-        'End Using
-
-        GuardaLogAsax(String.Format("Globalasax 15:{0}", DateTime.Now))
-        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'G E N E R A L E S 
 
-        Using ObjGenerales As New ClsGenerales
+        'Using ObjGenerales As New ClsGenerales
-            'If ObjGenerales.GetGralPaises Then Application("GlobalDTGralPaises") = ObjGenerales.DtResultados Else Application("GlobalDTGralPaises") = Nothing
+        '    'If ObjGenerales.GetGralPaises Then Application("GlobalDTGralPaises") = ObjGenerales.DtResultados Else Application("GlobalDTGralPaises") = Nothing
-            'If ObjGenerales.GetGralEstados Then Application("GlobalDTGralEstados") = ObjGenerales.DtResultados Else Application("GlobalDTGralEstados") = Nothing
+        '    'If ObjGenerales.GetGralEstados Then Application("GlobalDTGralEstados") = ObjGenerales.DtResultados Else Application("GlobalDTGralEstados") = Nothing
-            'If ObjGenerales.GetGralMunicipios Then Application("GlobalDTGralMunicipios") = ObjGenerales.DtResultados Else Application("GlobalDTGralMunicipios") = Nothing
+        '    'If ObjGenerales.GetGralMunicipios Then Application("GlobalDTGralMunicipios") = ObjGenerales.DtResultados Else Application("GlobalDTGralMunicipios") = Nothing
-            'If ObjGenerales.GetGralPoblaciones Then Application("GlobalDTGralPoblaciones") = ObjGenerales.DtResultados Else Application("GlobalDTGralPoblaciones") = Nothing
+        '    'If ObjGenerales.GetGralPoblaciones Then Application("GlobalDTGralPoblaciones") = ObjGenerales.DtResultados Else Application("GlobalDTGralPoblaciones") = Nothing
-            'If ObjGenerales.GetEscolaridades Then Application("GlobalDTGralEscolaridades") = ObjGenerales.DtResultados Else Application("GlobalDTGralEscolaridades") = Nothing
+        '    'If ObjGenerales.GetEscolaridades Then Application("GlobalDTGralEscolaridades") = ObjGenerales.DtResultados Else Application("GlobalDTGralEscolaridades") = Nothing
-            'If ObjGenerales.GetCategorias Then Application("GlobalDTGralCategorias") = ObjGenerales.DtResultados Else Application("GlobalDTGralCategorias") = Nothing
+        '    'If ObjGenerales.GetCategorias Then Application("GlobalDTGralCategorias") = ObjGenerales.DtResultados Else Application("GlobalDTGralCategorias") = Nothing
-            'If ObjGenerales.GetCategorias(-1, 2) Then Application("GlobalDTFamilias") = ObjGenerales.DtResultados Else Application("GlobalDTFamilias") = Nothing
+        '    'If ObjGenerales.GetCategorias(-1, 2) Then Application("GlobalDTFamilias") = ObjGenerales.DtResultados Else Application("GlobalDTFamilias") = Nothing
-            'If ObjGenerales.GetCategorias(-1, 3) Then Application("GlobalDTCategoriasPresupuestos") = ObjGenerales.DtResultados Else Application("GlobalDTCategoriasPresupuestos") = Nothing
+        '    'If ObjGenerales.GetCategorias(-1, 3) Then Application("GlobalDTCategoriasPresupuestos") = ObjGenerales.DtResultados Else Application("GlobalDTCategoriasPresupuestos") = Nothing
-            'If ObjGenerales.GetCategorias(-1, 4) Then Application("GlobalDTCategorias2") = ObjGenerales.DtResultados Else Application("GlobalDTCategorias2") = Nothing
+        '    'If ObjGenerales.GetCategorias(-1, 4) Then Application("GlobalDTCategorias2") = ObjGenerales.DtResultados Else Application("GlobalDTCategorias2") = Nothing
-            'If ObjGenerales.GetColectivas(-1, "-1", "-1", "-1", -1) Then Application("GlobalDTGralColectivas") = ObjGenerales.DtResultados Else Application("GlobalDTGralColectivas") = Nothing
+        '    'If ObjGenerales.GetColectivas(-1, "-1", "-1", "-1", -1) Then Application("GlobalDTGralColectivas") = ObjGenerales.DtResultados Else Application("GlobalDTGralColectivas") = Nothing
-            'If ObjGenerales.GetGralPaqueterias Then Application("GlobalDTPaqueterias") = ObjGenerales.DtResultados Else Application("GlobalDTPaqueterias") = Nothing
+        '    'If ObjGenerales.GetGralPaqueterias Then Application("GlobalDTPaqueterias") = ObjGenerales.DtResultados Else Application("GlobalDTPaqueterias") = Nothing
-            'If ObjGenerales.GetGralPaqueteriasGuiasTipo Then Application("GlobalDTPaqueteriaGuiaTipos") = ObjGenerales.DtResultados Else Application("GlobalDTPaqueteriaGuiaTipos") = Nothing
+        '    'If ObjGenerales.GetGralPaqueteriasGuiasTipo Then Application("GlobalDTPaqueteriaGuiaTipos") = ObjGenerales.DtResultados Else Application("GlobalDTPaqueteriaGuiaTipos") = Nothing
-            If ObjGenerales.GetClasificacionPorcentaje(-1, -1, -1, -1, 1) Then Application("GlobalDTClasificacionPorcentaje") = ObjGenerales.DtResultados Else Application("GlobalDTClasificacionPorcentaje") = Nothing
+        '    'If ObjGenerales.GetClasificacionPorcentaje(-1, -1, -1, -1, 1) Then Application("GlobalDTClasificacionPorcentaje") = ObjGenerales.DtResultados Else Application("GlobalDTClasificacionPorcentaje") = Nothing
-        End Using
-#If False Then
-        'SAT
-        Using ObjGrales As New ClsGenerales
-            'If ObjGrales.GetSATProductosServicios Then Application("GlobalDTPSATPS") = ObjGrales.DtResultados.AsEnumerable() Else Application("GlobalDTPSATPS") = Nothing
-            'If ObjGrales.GetSATUnidadMedida Then Application("GlobalDTPSATUM") = ObjGrales.DtResultados.AsEnumerable() Else Application("GlobalDTPSATUM") = Nothing
-            If ObjGrales.GetSATUsosCFDI Then Application("GlobalDTSATUsosCFDI") = ObjGrales.DtResultados Else Application("GlobalDTSATUsosCFDI") = Nothing
-            If ObjGrales.GetSATFraccionArancelaria Then Application("GlobalDTFraccionArancelaria") = ObjGrales.DtResultados.AsEnumerable() Else Application("GlobalDTFraccionArancelaria") = Nothing
-            If ObjGrales.GetSATIncoterm Then Application("GlobalDTIncoterm") = ObjGrales.DtResultados Else Application("GlobalDTIncoterm") = Nothing
-            If ObjGrales.GetSATTipoOperacion Then Application("GlobalDTTipoOperacion") = ObjGrales.DtResultados Else Application("GlobalDTTipoOperacion") = Nothing
-            If ObjGrales.GetSATMotivoTraslado Then Application("GlobalDTSATMotivoTraslado") = ObjGrales.DtResultados Else Application("GlobalDTSATMotivoTraslado") = Nothing
-            If ObjGrales.GetSATUnidadesAduana Then Application("GlobalDTUnidadAduana") = ObjGrales.DtResultados Else Application("GlobalDTUnidadAduana") = Nothing
-            If ObjGrales.GetSATClavePedimento Then Application("GlobalDTClavePedimento") = ObjGrales.DtResultados Else Application("GlobalDTClavePedimento") = Nothing
-            'If ObjGrales.GetSATPais Then Application("GlobalDTGralPaises") = ObjGrales.DtResultados Else Application("GlobalDTGralPaises") = Nothing
-            'If ObjGrales.GetSATEstado("-1") Then Application("GlobalDTEstado") = ObjGrales.DtResultados Else Application("GlobalDTEstado") = Nothing
-            'If ObjGrales.GetSATMunicipio("-1") Then Application("GlobalDTMunicipio") = ObjGrales.DtResultados Else Application("GlobalDTMunicipio") = Nothing
-            'If ObjGrales.GetSATColonia("-1") Then Application("GlobalDTColonia") = ObjGrales.DtResultados Else Application("GlobalDTColonia") = Nothing
-        End Using
-        'GuardaLogAsax(String.Format("Globalasax 16:{0}", DateTime.Now))
-        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-        'E V E N T O S
-
-        'Using ObjEventos As New ClsOIEventos
-        'If ObjEventos.GetEstatusEventos(-1) Then Application("GlobalDTOIEstatusEventos") = ObjEventos.DtResultados Else Application("GlobalDTOIEstatusEventos") = Nothing
-        'If ObjEventos.GetRevisionesEventos(-1) Then Application("GlobalDTOIRevision") = ObjEventos.DtResultados Else Application("GlobalDTOIRevision") = Nothing
-        'If ObjEventos.GetAgendaTipo() Then Application("GlobalDTOIAgendaTipo") = ObjEventos.DtResultados Else Application("GlobalDTOIAgendaTipo") = Nothing
-        'If ObjEventos.GetEventoTarea(-1, -1) Then Application("GlobalDTOIEventoTarea") = ObjEventos.DtResultados Else Application("GlobalDTOIEventoTarea") = Nothing
         'End Using
-        GuardaLogAsax(String.Format("Globalasax 17:{0}", DateTime.Now))
-        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-        'V E N T A S 
 
-        Using ObjVentas As New ClsVentas
-            'If ObjVentas.GetMesas Then Application("GlobalDTMesas") = ObjVentas.DtResultados Else Application("GlobalDTMesas") = Nothing
-            If ObjVentas.GetPrecioListas Then Application("GlobalDTPrecioListas") = ObjVentas.DtResultados Else Application("GlobalDTPrecioListas") = Nothing
-            If ObjVentas.GetCondicionesEntrega(-1) Then Application("GlobalDTVtaCondicionesEntrega") = ObjVentas.DtResultados Else Application("GlobalDTVtaCondicionesEntrega") = Nothing
-            If ObjVentas.GetFormaPago() Then Application("GlobalDTVtaFormaPago") = ObjVentas.DtResultados Else Application("GlobalDTVtaFormaPago") = Nothing
-            If ObjVentas.GetMetodoPago() Then Application("GlobalDTVtaMetodoPago") = ObjVentas.DtResultados Else Application("GlobalDTVtaMetodoPago") = Nothing
-            If ObjVentas.GetTiposDocumentos() Then Application("GlobalDTTiposDocumentos") = ObjVentas.DtResultados Else Application("GlobalDTTiposDocumentos") = Nothing
-            If ObjVentas.GetTiposRelacion() Then Application("GlobalDTVtaTiposRelacion") = ObjVentas.DtResultados Else Application("GlobalDTVtaTiposRelacion") = Nothing
-            If ObjVentas.GetCobranzaEstatus(-1, -1) Then Application("GlobalDTVtaCobranzaEstatus") = ObjVentas.DtResultados Else Application("GlobalDTVtaCobranzaEstatus") = Nothing
-
-        End Using
-        'GuardaLogAsax(String.Format("Globalasax 19:{0}", DateTime.Now))
-        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-        ''MF
-
-        'Dim ObjMF As New ClsMF
-        'If ObjMF.GetActividad(-1, -1, -1) Then Application("GlobalDTActividad") = ObjMF.DtResultados Else Application("GlobalDTActividad") = Nothing
-        'If ObjMF.GetOperador(-1, -1, -1) Then Application("GlobalDTOperador") = ObjMF.DtResultados Else Application("GlobalDTOperador") = Nothing
-        'If ObjMF.GetEstatus(-1, -1, -1) Then Application("GlobalDTEstatus") = ObjMF.DtResultados Else Application("GlobalDTEstatus") = Nothing
-
-
-        'ObjMF.Dispose()
-#End If
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'C L A S I F I C A C I O N E S
 
@@ -332,92 +180,14 @@
         GuardaLogAsax(String.Format("Globalasax 20:{0}", DateTime.Now))
 
 
-        Using ObjVenta As New ClsVentas
+        'Using ObjVenta As New ClsVentas
-            If ObjVenta.GetClasificacionDetalle(-1, CveClasificacion:=-1) Then
+        '    If ObjVenta.GetClasificacionDetalle(-1, CveClasificacion:=-1) Then
-                Application("GlobalDTClasificacionesDetalle") = ObjVenta.DtResultados
+        '        Application("GlobalDTClasificacionesDetalle") = ObjVenta.DtResultados
-            End If
+        '    End If
-        End Using
-        GuardaLogAsax(String.Format("Globalasax 21:{0}", DateTime.Now))
-
-
-
-        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-        'S U C U R S A L E S
-
-        'Dim ObjSucursales As New ClsSucursales()
-        'If ObjSucursales.GetSucursales() Then Application("GlobalDTSucursales") = ObjSucursales.DtResultados Else Application("GlobalDTSucursales") = Nothing
-        'ObjSucursales.Dispose()
-
-        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-        'U N I D A D E S  -  D E  -  M E D I D A
-
-        'Dim ObjUnidadesMedida As New ClsUnidadesMedida()
-        'If ObjUnidadesMedida.GetUnidadesMedida(-1) Then Application("GlobalDTUnidadesMedida") = ObjUnidadesMedida.DtResultados Else Application("GlobalDTUnidadesMedida") = Nothing
-        'If ObjUnidadesMedida.GetUnidadesMedidaAlias() Then Application("GlobalDTUnidadesMedidaAlias") = ObjUnidadesMedida.DtResultados Else Application("GlobalDTUnidadesMedidaAlias") = Nothing
-        'ObjUnidadesMedida.Dispose()
-
-        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-        'M E T O D O S  -  D E  -  P A G O
-
-        'Using ObjMetodoPago As New ClsMetodosPagos()
-        '    If ObjMetodoPago.GetMetodosPago() Then Application("GlobalDTMetodosPago") = ObjMetodoPago.DtResultados Else Application("GlobalDTMetodosPago") = Nothing
         'End Using
         'GuardaLogAsax(String.Format("Globalasax 21:{0}", DateTime.Now))
 
 
-        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-        'M O N E D A S
-
-        'Using ObjMonedas As New ClsMonedas()
-        '    'If ObjMonedas.GetMonedas() Then Application("GlobalDTMonedas") = ObjMonedas.DtResultados Else Application("GlobalDTMonedas") = Nothing
-        '    If ObjMonedas.GetMonedasAlias() Then Application("GlobalDTMonedasAlias") = ObjMonedas.DtResultados Else Application("GlobalDTMonedasAlias") = Nothing
-
-        'End Using
-        'GuardaLogAsax(String.Format("Globalasax 22:{0}", DateTime.Now))
-
-        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-        'L E Y E N D A S  -  F I S C A L E S
-
-        'Using ObjLeyendasFiscales As New ClsLeyendasFiscales()
-        '    If ObjLeyendasFiscales.GetLeyendasFiscales() Then Application("GlobalDTLeyendasFiscales") = ObjLeyendasFiscales.DtResultados Else Application("GlobalDTLeyendasFiscales") = Nothing
-        'End Using
-        'GuardaLogAsax(String.Format("Globalasax 23:{0}", DateTime.Now))
-
-        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-
-        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-        'F A C T U R A S
-
-        'Using ObjEstatusFactura As New ClsEstatusFactura()
-        '    If ObjEstatusFactura.GetEstatusFactura() Then Application("GlobalDTEstatusFactura") = ObjEstatusFactura.DtResultados Else Application("GlobalDTEstatusFactura") = Nothing
-
-        'End Using
-        'GuardaLogAsax(String.Format("Globalasax 24:{0}", DateTime.Now))
-
-        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-        'P R O Y E C T O S
-
-        'Using ObjProyectos As New ClsProyectos
-        '    If ObjProyectos.GetProyectos Then Application("GlobalDTProyectos") = ObjProyectos.DtResultados Else Application("GlobalDTProyectos") = Nothing
-        'End Using
-        'GuardaLogAsax(String.Format("Globalasax 25:{0}", DateTime.Now))
-
-        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-        'S U B P R O Y E C T O S
-
-        'Using ObjSubProyectos As New ClsSubProyectos
-        '    'If ObjSubProyectos.GetSubProyectos Then Application("GlobalDTSubProyectos") = ObjSubProyectos.DtResultados Else Application("GlobalDTSubProyectos") = Nothing
-        '    If ObjSubProyectos.GetSubProyectosUsuarios Then
-        '        Application("GlobalDTProyectosUsuarios") = ObjSubProyectos.DtResultados.FiltraParametros("", "", {"Proyecto", "CveProyecto", "CveUsuario", "CveEmpresa", "CveEstatusProyecto"})
-        '        Application("GlobalDTSubProyectosUsuarios") = ObjSubProyectos.DtResultados
-        '    Else
-        '        Application("GlobalDTProyectosUsuarios") = Nothing
-        '        Application("GlobalDTSubProyectosUsuarios") = Nothing
-        '    End If
-        '    'Else Application("GlobalDTProyectosUsuarios") = Nothing
-        'End Using
-        'GuardaLogAsax(String.Format("Globalasax 26:{0}", DateTime.Now))
-
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'T I P O S  - D E  -  E V E N T O S 
         Using ObjTiposEventos As New ClsTiposEventos
@@ -425,66 +195,14 @@
         End Using
         GuardaLogAsax(String.Format("Globalasax 27:{0}", DateTime.Now))
 
-        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-        'P R O D U C T O S  Y  S E R V I C I O S  - C A R A C T E R I S  T I C A S
-
-        'Se comentan porque ya no se estan cargando con Global.
-
-        'Dim ObjProductosServiciosCaracteristicas As New ClsGralProductosServiciosCaracteristicas
-        'If ObjProductosServiciosCaracteristicas.GetProductosServiciosCaracteristicas() Then Application("GlobalDTProductosServiciosCaracteristicas") = ObjProductosServiciosCaracteristicas.DtResultados Else Application("GlobalDTProductosServiciosCaracteristicas") = Nothing
-        'If ObjProductosServiciosCaracteristicas.GetProductosServiciosCaracteristicasOpciones() Then Application("GlobalDTProductosServiciosCaracteristicasOpciones") = ObjProductosServiciosCaracteristicas.DtResultados Else Application("GlobalDTProductosServiciosCaracteristicasOpciones") = Nothing
-        'ObjProductosServiciosCaracteristicas.Dispose()
-
-        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------        
-        'P R O D U C T O S  S E R V I C I O S
-
-        Using ObjPS As New ClsProductosServicios
-            'If ObjPS.GetPSAlias(-1, -1) Then Application("GlobalDTProductosServiciosAlias") = ObjPS.DtResultados Else Application("GlobalDTProductosServiciosAlias") = Nothing
-            'If ObjPS.GetPSEquivalencias(-1, -1) Then Application("GlobalDTProductosServiciosEquivalencias") = ObjPS.DtResultados Else Application("GlobalDTProductosServiciosEquivalencias") = Nothing
-            'If ObjPS.GetPS(-1, -1, -1) Then Application("GlobalDTProductosServicios") = ObjPS.DtResultados.AsEnumerable() Else Application("GlobalDTProductosServicios") = Nothing
-            If ObjPS.GetMetodosInv() Then Application("GlobalDTInvMetodosInventario") = ObjPS.DtResultados Else Application("GlobalDTInvMetodosInventario") = Nothing
-            'If ObjPS.GetPSSimplificado(-1) Then Application("GlobalDTPSSimplificado") = ObjPS.DtResultados.AsEnumerable() Else Application("GlobalDTPSSimplificado") = Nothing
-            'If ObjPS.GetPSAdicionales(-1, -1) Then Application("GlobalDTPSAdicionales") = ObjPS.DtResultados Else Application("GlobalDTPSAdicionales") = Nothing
-        End Using
-
-        GuardaLogAsax(String.Format("Globalasax 28:{0}", DateTime.Now))
-
-        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-        'P R O V E E D O R E S
-
-        'Dim ObjProveedores As New ClsCompProveedores
-        'If ObjProveedores.GetProveedores(ClsCompProveedores.TipoConsulta.ParaGlobalDT, -1, "-1", "-1", "-1", "-1", "-1", "-1", "-1", -1, -1) Then Application("GlobalDTCompProveedores") = ObjProveedores.DtResultados Else Application("GlobalDTCompProveedores") = Nothing
-        'If ObjProveedores.GetProveedorClasificacion(-1) Then Application("GlobalDTProveedorClasificacion") = ObjProveedores.DtResultados Else Application("GlobalDTProveedorClasificacion") = Nothing
-        'If ObjProveedores.GetSucursales(-1, -1) Then Application("GlobalDTProveedorSucursales") = ObjProveedores.DtResultados Else Application("GlobalDTProveedorSucursales") = Nothing
-        'ObjProveedores.Dispose()
-
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'P R O V E E D O R E S   C U E N T A S
         Using ObjProveedoresBancos As New ClsGenerales
             If ObjProveedoresBancos.GetCuentasDepositos() Then Application("GlobalDTProveedoresCuentas") = ObjProveedoresBancos.DtResultados Else Application("GlobalDTProveedoresCuentas") = Nothing
         End Using
 
-
-        GuardaLogAsax(String.Format("Globalasax 29:{0}", DateTime.Now))
-        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-        'C L I E N T E S
-
-        'Dim ObjClientes As New ClsClientes
-        'If ObjClientes.GetClientes(-1, "-1", "-1", "-1", "-1", "-1", "-1", -1, -1, Estatus:=-1) Then Application("GlobalDTCliente") = ObjClientes.DtResultados Else Application("GlobalDTCliente") = Nothing
-        'If ObjClientes.GetClienteClasificacion(-1) Then Application("GlobalDTClienteClasificaciones") = ObjClientes.DtResultados Else Application("GlobalDTClienteClasificaciones") = Nothing
-        'ObjClientes.Dispose()
-        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-        'C O N T R A T O S
-
-        'Using ObjContratos As New ClsContratos
-        '    If ObjContratos.GetContratos(-1, -1) Then Application("GlobalDTContratos") = ObjContratos.DtResultados Else Application("GlobalDTContratos") = Nothing
-        '    If ObjContratos.GetSecciones() Then Application("GlobalDTContratosSecciones") = ObjContratos.DtResultados Else Application("GlobalDTContratosSecciones") = Nothing
-        '    'If ObjContratos.GetContratosTipos(-1) Then Application("GlobalDTContratosTipos") = ObjContratos.DtResultados Else Application("GlobalDTContratosTipos") = Nothing
-        'End Using
-
         GuardaLogAsax(String.Format("Globalasax 30:{0}", DateTime.Now))
 
-
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'V E N D E D O R E S
 
@@ -510,18 +228,6 @@
         End Using
 
         GuardaLogAsax(String.Format("Globalasax 33:{0}", DateTime.Now))
-
-        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-        'A C U M U L A D O R E S
-
-        'Using ObjAcumuladores As New ClsAcumuladores()
-        '    If ObjAcumuladores.TamañoGet(-1, -1) Then Application("GlobalDTAcumTamaños") = ObjAcumuladores.DtResultados Else Application("GlobalDTAcumTamaños") = Nothing
-        '    If ObjAcumuladores.TiposDefectoGet(-1, -1) Then Application("GlobalDTAcumTiposDefecto") = ObjAcumuladores.DtResultados Else Application("GlobalDTAcumTiposDefecto") = Nothing
-        '    If ObjAcumuladores.TiposUsoGet(-1, -1) Then Application("GlobalDTAcumTiposUso") = ObjAcumuladores.DtResultados Else Application("GlobalDTAcumTiposUso") = Nothing
-        '    'If ObjAcumuladores.GarantiasMesesGet(-1, -1) Then Application("GlobalDTAcumGarantiasMesesTipoUso") = ObjAcumuladores.DtResultados.FiltraParametros("", DistinctColumns:={"CveMarca", "CveTipoUso", "TipoUso"}) Else Application("GlobalDTAcumGarantiasMesesTipoUso") = Nothing
-        'End Using
-        'GuardaLogAsax(String.Format("Globalasax 34:{0}", DateTime.Now))
-
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------       
         '------------------------------------------------------------------------------S I S T E M A ----------------------------------------------------------------------------------
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
@@ -533,20 +239,6 @@
 
         GuardaLogAsax(String.Format("Globalasax 35:{0}", DateTime.Now))
 
-        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------ 
-        'U S U A R I O S
-
-        'Using ObjUsuarios As New ClsSisUsuarios
-        '    If ObjUsuarios.GetUsuariosEmpresas(-1, -1) Then
-        '        'Application("GlobalDTUsuarios") = ObjUsuarios.DtResultados
-        '        Application("GlobalDTUsuarioResponsable") = ObjUsuarios.DtResultados
-        '    Else
-        '        Application("GlobalDTUsuarios") = Nothing
-        '    End If
-        '    'If ObjUsuarios.GetAlmacen(-1) Then Application("GlobalDTAlmacenUsuarios") = ObjUsuarios.DtResultados Else Application("GlobalDTAlmacenUsuarios") = Nothing
-        'End Using
-        'GuardaLogAsax(String.Format("Globalasax 36:{0}", DateTime.Now))
-
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'R O L E S
 
@@ -573,27 +265,6 @@
         End Using
         GuardaLogAsax(String.Format("Globalasax 39:{0}", DateTime.Now))
 
-        '----------------------------------------------------------------------------------7--------------------------------------------------------------------------------------------
-        'E M P R E S A S
-
-        'Using ObjEmpresas As New ClsSisEmpresas()
-        '    If ObjEmpresas.GetEmpresas(-1, "-1", "-1", "-1", "-1") Then
-        '        Application("GlobalDTEmpresas") = ObjEmpresas.DtResultados
-        '        'verifico si existe la carpeta de la empresa, sino la crea
-        '        For Each dr As Data.DataRow In ObjEmpresas.DtResultados.Rows
-        '            Dim Ruta As String = String.Format("{0}Empresas\{1}", ModExtensiones.DirectorioBaseEmpresas, dr("CveEmpresa"))
-        '            If Not IO.Directory.Exists(Ruta) Then IO.Directory.CreateDirectory(Ruta)
-        '            If Not System.IO.Directory.Exists(String.Format("{0}\XML\", Ruta)) Then System.IO.Directory.CreateDirectory(String.Format("{0}\XML\", Ruta))
-        '            If Not System.IO.Directory.Exists(String.Format("{0}\PDF\", Ruta)) Then System.IO.Directory.CreateDirectory(String.Format("{0}\PDF\", Ruta))
-
-        '        Next
-        '    Else
-        '        Application("GlobalDTEmpresas") = Nothing
-        '    End If
-        'End Using
-        'GuardaLogAsax(String.Format("Globalasax 40:{0}", DateTime.Now))
-
-
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         'G L O B A L E S   A P L I C A C I Ó N
@@ -620,20 +291,6 @@
         ClsPaginas.EmpresaNotificacionesGPS = EmpresaNotificacionesGPS
 
 
-        '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
-        'I M P U E S T O S   L O  C A L E S 
-
-        'Using  ObjPSImpuestos As New ClsProductosServicios
-        'If ObjPSImpuestos.GetPSImpuestosLocales(-1, -1) Then
-        '    If ObjPSImpuestos.DtResultados.Rows.Count > 0 Then
-        '        Application("GlobalDTImpuestosLocales") = ObjPSImpuestos.DtResultados
-        '    Else
-        '        Application("GlobalDTImpuestosLocales") = Nothing
-        '    End If
-        'End If
-        'End Using
-
-
 
         '------------------------------------------------------------------------------------------------------------------------------------------------------------------------------
         ' R A S T R E O 

Nomina/Finiquito.aspx.cs

@@ -115,7 +115,7 @@ public partial class Nomina_Finiquito : ClsPaginas
     }
     private void CargaMotivoBaja()
     {
-        DdlMotivoBaja.DataSource = GlobalDTMotivoBaja.FiltraParametros("CveEmpresa = " + UsuarioActual.CveEmpresa);
+        DdlMotivoBaja.DataSource = get_GlobalDTMotivoBaja(UsuarioActual.CveEmpresa);
         DdlMotivoBaja.DataBind();
     }
     private void CargaDdlPersonal()