Merge branch 'master' of http://192.168.10.111:8383/SIG

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 ClsGenerales
-                If CveClasicacionPorcentaje <> -1 Then Str.AppendFormat(" {0} CveClasicacionPorcentaje = {1}", If(Str.Length > 0, "AND", ""), CveClasicacionPorcentaje)
+                    If ObjVenta.GetClasificacionPorcentaje(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(AppNombre), 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

Compras/Compras.aspx.vb

@@ -1582,8 +1582,6 @@ Partial Class Compras_Compras
                 CargaFletesAgregados()
             End If
 
-
-
             InicializaOC()
 
             'Valida si el IVA del XML es está bien calculado
@@ -3210,6 +3208,10 @@ Partial Class Compras_Compras
                 InventarioMov()
                 HabilitaNCInv()
 
+                If Request("RG") IsNot Nothing Then
+                    BtnRegenerarPrePolizaAlmacen_Click(Nothing, Nothing)
+                End If
+
             Else
                 Alert("La compra solicitada no se encontró. Por favor rectifique y vuelva a intentar.", TipoMensaje.MsgAdvertencia)
             End If
@@ -8108,6 +8110,10 @@ Partial Class Compras_Compras
                                         Msg.AppendFormat("<br/><br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IdPoliza)
                                     End If
 
+                                    If UsuarioActual.TienePermisoProceso(354) Then 'visualizar la póliza al registros
+                                        Msg.AppendFormat("<br/><br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPrePolizaS.aspx?CvePrePoliza={0}"">Ver Póliza</a>", CvePrePoliza)
+                                    End If
+
                                     If CveMovimientoInventario > 0 Then
                                         Dim TempParametros = Encripta(String.Format("OP=Alm&CveMovimiento={0}", CveMovimientoInventario))
                                         Msg.AppendFormat("</br><a class=""Texto"" target='_blank' href=""/Inventarios/EntradasSalidas.aspx?CveMovimiento={0}"">Ver Movimiento de Almacen</a>", CveMovimientoInventario)

Compras/Proveedores.aspx.vb

@@ -5726,10 +5726,10 @@ Partial Class Compras_Proveedores
     End Sub
     Protected Sub DescargarFormatoCarta(Proveedor As String, Dia As String, Mes As String, Calificacion As String, Resultado As String)
         Try
-            Dim PathRoot As String = ModExtensiones.DirectorioBaseEmpresas
+            Dim PathRoot As String = Server.MapPath("/")
             Dim Documento As String = "CartaProveedor.docx"
             Dim PathSource As String = $"{UsuarioActual.Empresa.Ruta}\Formatos\Plantillas\{Documento}"
-            Dim PathDestino As String = PathRoot & "Temp\" & Documento
+            Dim PathDestino As String = PathRoot & "Temp\" & Proveedor & "_" & Documento
 
             If File.Exists(PathDestino) Then
                 File.Delete(PathDestino)
@@ -5749,10 +5749,10 @@ Partial Class Compras_Proveedores
     End Sub
     Protected Sub DescargarFormatoEvaluacion(Proveedor As String, Dia As String, Mes As String, Calificacion As String, Resultado As String)
         Try
-            Dim PathRoot As String = ModExtensiones.DirectorioBaseEmpresas
+            Dim PathRoot As String = Server.MapPath("/")
             Dim Documento As String = "FormatoEvaluacionProveedor.docx"
             Dim PathSource As String = $"{UsuarioActual.Empresa.Ruta}\Formatos\Plantillas\{Documento}"
-            Dim PathDestino As String = PathRoot & "Temp\" & Documento
+            Dim PathDestino As String = PathRoot & "Temp\" & Proveedor & "_" & Documento
 
             If File.Exists(PathDestino) Then
                 File.Delete(PathDestino)

Contratos/Contrato.aspx.vb

@@ -487,6 +487,10 @@ Partial Class Contratos_Default
         End If
         If UsuarioActual.CveEmpresa.Contiene(72, 80) Then divResponsable.Visible = False
 
+        If UsuarioActual.CveEmpresa = 13 Then
+            rpCompra.Visible = False
+        End If
+
     End Sub
 
     Public Sub CargaDireccionesEnvios(CveCliente As Integer)
@@ -728,11 +732,11 @@ Partial Class Contratos_Default
             DvTotal.Visible = True
 
 
-            If CveContrato > 0 AndAlso CveContratoTipo <> 25 Then
+            If CveContrato > 0 AndAlso Not CveContratoTipo.Contiene(25, 33) Then
                 TableDatosCabecera.Visible = True
             End If
 
-            If CveContratoTipo = 25 Then
+            If CveContratoTipo.Contiene(25, 33) Then
                 DvMax.Visible = False
                 DvMin.Visible = False
                 DvTotal.Visible = False
@@ -749,11 +753,11 @@ Partial Class Contratos_Default
             DvTotal.Visible = True
             'TxtCantidad.Visible = False
 
-            If CveContrato > 0 AndAlso CveContratoTipo <> 25 Then
+            If CveContrato > 0 AndAlso Not CveContratoTipo.Contiene(25, 33) Then
                 TableDatosCabecera.Visible = True
             End If
 
-            If CveContratoTipo = 25 Then
+            If CveContratoTipo.Contiene(25, 33) Then
                 DvMax.Visible = False
                 DvMin.Visible = False
                 DvTotal.Visible = False
@@ -835,6 +839,48 @@ Partial Class Contratos_Default
                 CargaPlantillas()
                 TrContratoPlantilla.Visible = True
                 TabPres.HeaderText = "Partidas"
+            End If
+
+
+            If CveContratoTipo = 33 Then
+                TabContratosGastos.Visible = False
+                TabAF.Visible = False
+                TabReporteAvance.Visible = False
+                TabAvanveDocumento.Visible = False
+                TabContratosGastos.Visible = False
+                TabAF.Visible = False
+                TabPed.Visible = False
+                TabAddendum.Visible = False
+                TabFacCiclica.Visible = False
+
+                TabPVInsumos.Visible = False
+
+                thOcCliente.Visible = False
+                tdOcCliente.Visible = False
+
+                thLimitar.Visible = False
+                tdLimitar2.Visible = False
+
+                trLicitacion.Visible = False
+                divResponsable.Visible = False
+                'TrPeriodo.Visible = True
+                trIva.Visible = False
+                trAnticipo.Visible = False
+                trAmortizacion.Visible = False
+                trPorGarantia.Visible = False
+                DvMin.Visible = False
+                RowFlexible.Visible = False
+                RowPorcentajeComision.Visible = False
+                DvMax.Visible = False
+                DvTotal.Visible = False
+                'RowEstatus.Visible = False
+                DdlSubProyectoContrato.AutoPostBack = False
+
+                dvAddendum.Visible = False
+
+                DivFianzas.Visible = False
+                Div4.Visible = False
+                DivImpuestosLocales.Visible = False
             End If
 
 
@@ -938,6 +984,27 @@ Partial Class Contratos_Default
 
                     thLimitar.Visible = False
                     tdLimitar2.Visible = False
+
+                    trLicitacion.Visible = False
+                    divResponsable.Visible = False
+                    'TrPeriodo.Visible = True
+                    trIva.Visible = False
+                    trAnticipo.Visible = False
+                    trAmortizacion.Visible = False
+                    trPorGarantia.Visible = False
+                    DvMin.Visible = False
+                    RowFlexible.Visible = False
+                    RowPorcentajeComision.Visible = False
+                    DvMax.Visible = False
+                    DvTotal.Visible = False
+                    RowEstatus.Visible = False
+                    DdlSubProyectoContrato.AutoPostBack = False
+
+                    dvAddendum.Visible = False
+
+                    DivFianzas.Visible = False
+                    Div4.Visible = False
+                    DivImpuestosLocales.Visible = False
                 End If
 
                 If ObjContratos.CveProveedor > 0 Then
@@ -1232,20 +1299,23 @@ Partial Class Contratos_Default
 
     Private Sub CargarFianzas()
 
-        DivFianzas.Visible = True
+        If CveContratoTipo <> 33 Then
-
+            DivFianzas.Visible = True
-        Dim ObjContrato As ClsContratos = New ClsContratos()
+
-
+            Dim ObjContrato As ClsContratos = New ClsContratos()
-        If ObjContrato.GetContratoFianza(CveContrato, -1, "-1", "-1", UsuarioActual.CveEmpresa, -1) Then
+
-            DtTmpFianzas = ObjContrato.DtResultados
+            If ObjContrato.GetContratoFianza(CveContrato, -1, "-1", "-1", UsuarioActual.CveEmpresa, -1) Then
-            GvFianzas.DataSource = ObjContrato.DtResultados
+                DtTmpFianzas = ObjContrato.DtResultados
-
+                GvFianzas.DataSource = ObjContrato.DtResultados
-            DtTmpFianzasInicial = DtTmpFianzas.Copy()
+
-
+                DtTmpFianzasInicial = DtTmpFianzas.Copy()
+
+            End If
+
+            ObjContrato.Dispose()
+            GvFianzas.DataBind()
         End If
 
-        ObjContrato.Dispose()
-        GvFianzas.DataBind()
         UpGvFianzas.Update()
 
     End Sub

General/SaldosIniciales.aspx.vb

@@ -3273,8 +3273,8 @@ Partial Class General_SaldosIniciales
             dtregistrospatronales = ObjRH.DtResultados
             dtregistrospatronales.CaseSensitive = False
             dTSubProyectos = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, -1)
-            dTDepartamentos = GlobalDTDepartamentos().FiltraParametros($"CveEmpresa =  {UsuarioActual.CveEmpresa}")
+            dTDepartamentos = GlobalDTDepartamentos(UsuarioActual.CveEmpresa)
-            dTTurno = GlobalDTTurno().FiltraParametros($"CveEmpresa =  {UsuarioActual.CveEmpresa}")
+            dTTurno = GlobalDTTurno(UsuarioActual.CveEmpresa)
             dTSubProyectos.CaseSensitive = False
             dTDepartamentos.CaseSensitive = False
             dTTurno.CaseSensitive = False
@@ -3774,7 +3774,7 @@ Partial Class General_SaldosIniciales
         crow = 1
         ccol = ccol + 1
         Catalogos.Cell(crow, ccol).Value = "Departamento"
-        For Each row As DataRow In GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa).Rows
+        For Each row As DataRow In GlobalDTDepartamentos(UsuarioActual.CveEmpresa).Rows
             crow = crow + 1
             Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveDepartamento"), row("Departamento"))
         Next
@@ -3788,7 +3788,7 @@ Partial Class General_SaldosIniciales
         crow = 1
         ccol = ccol + 1
         Catalogos.Cell(crow, ccol).Value = "Turno"
-        For Each row As DataRow In GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa).Rows
+        For Each row As DataRow In GlobalDTTurno(UsuarioActual.CveEmpresa).Rows
             crow = crow + 1
             Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveTurno"), row("Turno"))
         Next

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/CatPeriodos.aspx.vb

@@ -82,7 +82,7 @@ Partial Class Nomina_CatPeriodos
     End Sub
 
     Private Sub CargaTurnos()
-        DdlTurno.DataSource = GlobalDTTurno.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
+        DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa)
         DdlTurno.DataBind()
         DdlTurno.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
     End Sub

Nomina/ChecadorAsistencia.aspx.cs

@@ -23,7 +23,7 @@ public partial class Nomina_ChecadorAsistencia : ClsPaginas
     {
         if (!IsPostBack)
         {
-            DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " + UsuarioActual.CveEmpresa);
+            DdlTurno.DataSource = get_GlobalDTTurno(UsuarioActual.CveEmpresa);
             DdlTurno.DataBind();
 
             CargaTiposPeriodo();
@@ -47,7 +47,7 @@ public partial class Nomina_ChecadorAsistencia : ClsPaginas
                     DdlmcPersonal.DataBind();
                 }
             }
-            DdlMotivoHoraExtra.DataSource = GlobalDTMotivosHorasExtras.FiltraParametros(string.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa));
+            DdlMotivoHoraExtra.DataSource = get_GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa);
             DdlMotivoHoraExtra.DataBind();
             cargaChecadores();
             CargarCentrosDeCosto(DdlAsisProyecto, DdlAsisSubProyecto, LblAsisProyecto, LblAsisSubProyecto);
@@ -351,7 +351,7 @@ public partial class Nomina_ChecadorAsistencia : ClsPaginas
             DdlTurno.SelectedValueExist(drow["CveTurno"].ToString());
         }
         TxtFechalabel.Text = string.Format("{0:dd/MM/yyyy}", fechai);
-        DataTable dtTurno = GlobalDTTurno.FiltraParametros(string.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa));
+        DataTable dtTurno = get_GlobalDTTurno(UsuarioActual.CveEmpresa);
 
         using (ClsNominas objnom = new ClsNominas())
         {

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()

Nomina/ListaAsistencias.aspx.vb

@@ -45,7 +45,7 @@ Partial Class Nomina_ListaAsistencias
     End Sub
 
     Private Sub CargaTurnos()
-        DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa)
         DdlTurno.DataBind()
     End Sub
 

Nomina/Nomina.aspx.cs

@@ -312,7 +312,7 @@ public partial class Nomina_Nomina2 : ClsPaginas
             cargaEjercicios();
             CargaTiposPeriodo();
             cargaPeriodos();
-            DdlTurno.DataSource = GlobalDTTurno.FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}");
+            DdlTurno.DataSource = get_GlobalDTTurno(UsuarioActual.CveEmpresa);
             DdlTurno.DataBind();
 
             DdlMetodoPago.DataSource = GlobalDTMetodosPago;

Nomina/PreNomina.aspx.vb

@@ -77,7 +77,7 @@ Partial Class Nomina_PreNomina
     End Sub
 
     Private Sub CargaTurnos()
-        DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa)
         DdlTurno.DataBind()
     End Sub
 

Nomina/PreNominaHistorial.aspx.vb

@@ -57,7 +57,7 @@ Partial Class Nomina_PreNominaHistorial
     End Sub
 
     Private Sub CargaTurnos()
-        DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa)
         DdlTurno.DataBind()
     End Sub
 

Nomina/RepConceptosAcumulados.aspx.vb

@@ -66,11 +66,11 @@ Partial Class Nomina_RepConceptosAcumulados
         If CveConcepto > 0 And CveTipoPeriodo > 0 Then
             Dim ObjNomina As New ClsNominas()
 
-            If ObjNomina.GetRepConceptosAcumulados(CveConcepto, DDlEjercicio.SelectedValue.ToEntero, CveTipoPeriodo, DdlPeriodo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
+            'If ObjNomina.GetRepConceptosAcumulados(CveConcepto, DDlEjercicio.SelectedValue.ToEntero, CveTipoPeriodo, DdlPeriodo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
-                GvDatos.DataSource = ObjNomina.DtResultados
+            '    GvDatos.DataSource = ObjNomina.DtResultados
-            Else
+            'Else
-                GvDatos.DataSource = Nothing
+            '    GvDatos.DataSource = Nothing
-            End If
+            'End If
             ObjNomina.Dispose()
             GvDatos.DataBind()
 

Nomina/RepInversiondeNomina.aspx.cs

@@ -96,7 +96,7 @@ public partial class Nomina_RepInversiondeNomina : ClsPaginas
             DdlSubProyecto.DataSource = get_GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1);
             DdlSubProyecto.DataBind();
             DdlSubProyecto.Items.Insert(0, new ListItem("Todos", "-1"));
-            DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros(string.Format("CveEmpresa ={0}  AND Departamento <> 'Seleccione' ", UsuarioActual.CveEmpresa));
+            DdlDepartamento.DataSource =get_GlobalDTDepartamentos(UsuarioActual.CveEmpresa).FiltraParametros(" Departamento <> 'Seleccione' " );
             DdlDepartamento.DataBind();
             DdlDepartamento.Items.Insert(0, new ListItem("Todos", "-1"));
 

RH/ActualizacionMasiva.aspx.vb

@@ -90,7 +90,7 @@ Partial Class RH_ActualizacionMasiva
     End Sub
 
     Private Sub CargaTurnos()
-        Dim dt = GlobalDTTurno.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
+        Dim dt = GlobalDTTurno(UsuarioActual.CveEmpresa)
         DdlTurno.DataSource = dt
         DdlTurno.DataBind()
         Dim row = dt.NewRow

RH/Asistencias.aspx.vb

@@ -87,7 +87,7 @@ Partial Class RH_Asistencias
     End Sub
 
     Private Sub CargaTurnos()
-        DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa)
         DdlTurno.DataBind()
     End Sub
 
@@ -201,7 +201,7 @@ Partial Class RH_Asistencias
             If e.Row.DBCampo("CveAsistenciasInasistencias") <> "-1" Then e.Row.FCDropDownList("DdlTipoAsistencias").SelectedValue = e.Row.DBCampo("CveAsistenciasInasistencias")
 
             'Carga Motivos Horas Extras
-            e.Row.FCDropDownList("DdlMotivoHoraExtra").DataSource = GlobalDTMotivosHorasExtras.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+            e.Row.FCDropDownList("DdlMotivoHoraExtra").DataSource = GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa)
             e.Row.FCDropDownList("DdlMotivoHoraExtra").DataBind()
             If e.Row.DBCampo("CveMotivoHoraExtra") <> "-1" Then e.Row.FCDropDownList("DdlMotivoHoraExtra").SelectedValue = e.Row.DBCampo("CveMotivoHoraExtra")
 

RH/CatDepartamentos.aspx.vb

@@ -43,9 +43,8 @@ Partial Class RH_CatDepartamentos
 
     Public Sub CargaDatos()
         Dim ObjDepartamentos As New ClsRH
-        If ObjDepartamentos.GetDepartamentos() Then
+        If ObjDepartamentos.GetDepartamentos(UsuarioActual.CveEmpresa) Then
-            ViewState("DTDepartamentos") = ObjDepartamentos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+            ViewState("DTDepartamentos") = ObjDepartamentos.DtResultados
-            GlobalDTDepartamentos = ObjDepartamentos.DtResultados
         Else
             Me.GvDatos.DataSource = Nothing
         End If
@@ -75,7 +74,7 @@ Partial Class RH_CatDepartamentos
             Alert("El nuevo Departamento se guardó correctamente.", TipoMensaje.MsgInformacion)
             UpTitulos.Update()
             ViewState("DTDepartamentos") = ObjDepartamentos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTDepartamentos = ObjDepartamentos.DtResultados
+            GlobalDTDepartamentos(UsuarioActual.CveEmpresa) = Nothing
 
             If ViewState("Orden").ToString() <> String.Empty Then
                 CargaGrid(ViewState("Orden").ToString())
@@ -106,7 +105,7 @@ Partial Class RH_CatDepartamentos
         If ObjDepartamentos.RemoveDepartamento(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
             GvDatos.EditIndex = -1
             ViewState("DTDepartamentos") = ObjDepartamentos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTDepartamentos = ObjDepartamentos.DtResultados
+            GlobalDTDepartamentos(UsuarioActual.CveEmpresa) = Nothing
             Alert("El Departamento se eliminó correctamente.", TipoMensaje.MsgInformacion)
         End If
         ObjDepartamentos.Dispose()
@@ -136,7 +135,7 @@ Partial Class RH_CatDepartamentos
         If ObjDepartamentos.UpdateDepartamento(Departamento, Estatus, CveDepartamento) Then
             GvDatos.EditIndex = -1
             ViewState("DTDepartamentos") = ObjDepartamentos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTDepartamentos = ObjDepartamentos.DtResultados
+            GlobalDTDepartamentos(UsuarioActual.CveEmpresa) = Nothing
             Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
         End If
         ObjDepartamentos.Dispose()

RH/CatMotivoBaja.aspx.vb

@@ -57,9 +57,8 @@ Partial Class RH_CatMotivoBaja
 
     Public Sub CargaDatos()
         Dim ObjMotivoBaja As New ClsRH
-        If ObjMotivoBaja.GetMotivoBaja() Then
+        If ObjMotivoBaja.GetMotivoBaja(UsuarioActual.CveEmpresa) Then
-            ViewState("DTMotivoBaja") = ObjMotivoBaja.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+            ViewState("DTMotivoBaja") = ObjMotivoBaja.DtResultados
-            GlobalDTMotivoBaja = ObjMotivoBaja.DtResultados
         Else
             Me.GvDatos.DataSource = Nothing
         End If
@@ -79,7 +78,7 @@ Partial Class RH_CatMotivoBaja
             MotivoTxt.Text = ""
             Alert("El nuevo Motivo de Baja se guardó correctamente.", TipoMensaje.MsgInformacion)
             ViewState("DTMotivoBaja") = ObjMotivoBaja.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTMotivoBaja = ObjMotivoBaja.DtResultados
+            GlobalDTMotivoBaja(UsuarioActual.CveEmpresa) = Nothing
 
             If ViewState("Orden").ToString() <> String.Empty Then
                 CargaGrid(ViewState("Orden").ToString())
@@ -110,7 +109,7 @@ Partial Class RH_CatMotivoBaja
         If ObjMotivoBaja.RemoveMotivoBaja(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
             GvDatos.EditIndex = -1
             ViewState("DTMotivoBaja") = ObjMotivoBaja.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTMotivoBaja = ObjMotivoBaja.DtResultados
+            GlobalDTMotivoBaja(UsuarioActual.CveEmpresa) = Nothing
             Alert("El Motivo de Baja se eliminó correctamente.", TipoMensaje.MsgInformacion)
         End If
 
@@ -145,7 +144,7 @@ Partial Class RH_CatMotivoBaja
         If ObjMotivoBaja.UpdateMotivoBaja(MotivoBaja, Estatus, CveMotivoBaja) Then
             GvDatos.EditIndex = -1
             ViewState("DTMotivoBaja") = ObjMotivoBaja.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTMotivoBaja = ObjMotivoBaja.DtResultados
+            GlobalDTMotivoBaja(UsuarioActual.CveEmpresa) = Nothing
             Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
         End If
 

RH/CatMotivosHorasExtras.aspx.vb

@@ -44,9 +44,8 @@ Partial Class RH_CatMotivosHorasExtras
 
     Public Sub CargaDatos()
         Dim ObjMotivosHorasExtras As New ClsRH
-        If ObjMotivosHorasExtras.GetMotivoHorasExtras() Then
+        If ObjMotivosHorasExtras.GetMotivoHorasExtras(UsuarioActual.CveEmpresa) Then
-            ViewState("DTMotivosHorasExtras") = ObjMotivosHorasExtras.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+            ViewState("DTMotivosHorasExtras") = ObjMotivosHorasExtras.DtResultados
-            GlobalDTMotivosHorasExtras = ObjMotivosHorasExtras.DtResultados
         Else
             Me.GvDatos.DataSource = Nothing
         End If
@@ -77,7 +76,7 @@ Partial Class RH_CatMotivosHorasExtras
             Alert("El nuevo Motivo de Horas Extras se guardó correctamente.", TipoMensaje.MsgInformacion)
             UpTitulos.Update()
             ViewState("DTMotivosHorasExtras") = ObjMotivosHorasExtras.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTMotivosHorasExtras = ObjMotivosHorasExtras.DtResultados
+            GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa) = Nothing
 
             If ViewState("Orden").ToString() <> String.Empty Then
                 CargaGrid(ViewState("Orden").ToString())
@@ -108,7 +107,7 @@ Partial Class RH_CatMotivosHorasExtras
         If ObjMotivosHorasExtras.RemoveMotivoHoraExtra(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
             GvDatos.EditIndex = -1
             ViewState("DTMotivosHorasExtras") = ObjMotivosHorasExtras.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTMotivosHorasExtras = ObjMotivosHorasExtras.DtResultados
+            GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa) = Nothing
             Alert("El MotivoHoraExtra se eliminó correctamente.", TipoMensaje.MsgInformacion)
         End If
 
@@ -138,8 +137,8 @@ Partial Class RH_CatMotivosHorasExtras
 
         If ObjMotivosHorasExtras.UpdateMotivoHoraExtra(MotivoHoraExtra, Estatus, CveMotivoHoraExtra) Then
             GvDatos.EditIndex = -1
-            ViewState("DTMotivosHorasExtras") = ObjMotivosHorasExtras.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+            ViewState("DTMotivosHorasExtras") = ObjMotivosHorasExtras.DtResultados
-            GlobalDTMotivosHorasExtras = ObjMotivosHorasExtras.DtResultados
+            GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa) = Nothing
             Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
         End If
 

RH/CatPersonal.aspx.vb

@@ -246,14 +246,14 @@ Partial Class RH_CatPersonal
     End Sub
 
     Private Sub CargaTurno()
-        DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa)
-        DdlTurno2.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlTurno2.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa)
         DdlTurno2.DataBind()
         DdlTurno.DataBind()
     End Sub
 
     Private Sub CargaDepartamento()
-        DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlDepartamento.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa)
         DdlDepartamentoAdd.DataSource = DdlDepartamento.DataSource
         DdlDepartamentoAdd.DataBind()
         DdlDepartamento.DataBind()
@@ -267,12 +267,12 @@ Partial Class RH_CatPersonal
     End Sub
 
     Private Sub CargaRuta()
-        DdlRuta.DataSource = GlobalDTRutas.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlRuta.DataSource = GlobalDTRutas(UsuarioActual.CveEmpresa)
         DdlRuta.DataBind()
     End Sub
 
     Private Sub CargaMotivoBaja()
-        DdlMotivoBaja.DataSource = GlobalDTMotivoBaja.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlMotivoBaja.DataSource = GlobalDTMotivoBaja(UsuarioActual.CveEmpresa)
         DdlMotivoBaja.DataBind()
     End Sub
 
@@ -901,7 +901,7 @@ Partial Class RH_CatPersonal
         crow = 1
         ccol = ccol + 1
         Catalogos.Cell(crow, ccol).Value = "Departamento"
-        For Each row As DataRow In GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa).Rows
+        For Each row As DataRow In GlobalDTDepartamentos(UsuarioActual.CveEmpresa).Rows
             crow = crow + 1
             Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveDepartamento"), row("Departamento"))
         Next
@@ -915,7 +915,7 @@ Partial Class RH_CatPersonal
         crow = 1
         ccol = ccol + 1
         Catalogos.Cell(crow, ccol).Value = "Turno"
-        For Each row As DataRow In GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa).Rows
+        For Each row As DataRow In GlobalDTTurno(UsuarioActual.CveEmpresa).Rows
             crow = crow + 1
             Catalogos.Cell(crow, ccol).Value = String.Format("{0}: {1}", row("CveTurno"), row("Turno"))
         Next

RH/CatPersonalRequerido.aspx.vb

@@ -94,13 +94,13 @@ Partial Class RH_CatPersonalRequerido
     End Sub
 
     Private Sub CargaTurno()
-        ReqTurnoDdl.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        ReqTurnoDdl.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa)
         ReqTurnoDdl.DataBind()
     End Sub
 
     Private Sub CargaDepartamento()
         DdlDepartamento.Items.Clear()
-        DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlDepartamento.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa)
         DdlDepartamento.DataBind()
     End Sub
 

RH/CatRuta.aspx.vb

@@ -42,9 +42,8 @@ Partial Class RH_CatRuta
 
     Public Sub CargaDatos()
         Dim ObjRuta As New ClsRH
-        If ObjRuta.GetRutas() Then
+        If ObjRuta.GetRutas(UsuarioActual.CveEmpresa) Then
-            ViewState("DTRuta") = ObjRuta.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+            ViewState("DTRuta") = ObjRuta.DtResultados
-            GlobalDTRutas = ObjRuta.DtResultados
         Else
             Me.GvDatos.DataSource = Nothing
         End If
@@ -85,7 +84,7 @@ Partial Class RH_CatRuta
             Alert("La nueva Ruta se guardó correctamente.", TipoMensaje.MsgInformacion)
             UpTitulos.Update()
             ViewState("DTRuta") = ObjRuta.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTRutas = ObjRuta.DtResultados
+            GlobalDTRutas(UsuarioActual.CveEmpresa) = Nothing
 
             If ViewState("Orden").ToString() <> String.Empty Then
                 CargaGrid(ViewState("Orden").ToString())
@@ -116,7 +115,7 @@ Partial Class RH_CatRuta
         If ObjRuta.RemoveRuta(GvDatos.DataKeys(e.RowIndex).Value.ToString.ToEntero) Then
             GvDatos.EditIndex = -1
             ViewState("DTRuta") = ObjRuta.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTRutas = ObjRuta.DtResultados
+            GlobalDTRutas(UsuarioActual.CveEmpresa) = Nothing
             Alert("La Ruta se eliminó correctamente.", TipoMensaje.MsgInformacion)
         End If
 
@@ -147,7 +146,7 @@ Partial Class RH_CatRuta
         If ObjRuta.UpdateRuta(Ruta, Estatus, CveRuta) Then
             GvDatos.EditIndex = -1
             ViewState("DTRuta") = ObjRuta.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTRutas = ObjRuta.DtResultados
+            GlobalDTRutas(UsuarioActual.CveEmpresa) = Nothing
             Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
         End If
 

RH/ListaAsistenciaRH.aspx.vb

@@ -40,7 +40,7 @@ Partial Class RH_ListaAsistenciaRH
         DdlClientes.DataBind()
         DdlClientes.Items.Insert(0, New ListItem("Todos", "-1"))
 
-        DdlDepartamento.DataSource = GlobalDTDepartamentos().FiltraParametros($"CveEmpresa = {UsuarioActual.CveEmpresa}")
+        DdlDepartamento.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa)
         DdlDepartamento.DataBind()
         DdlDepartamento.Items.Insert(0, New ListItem("Todos", "-1"))
 

RH/MiPerfil.aspx.vb

@@ -1216,7 +1216,7 @@ Partial Class RH_MiPerfil
         DdlPersonal.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)
         DdlPersonal.DataBind()
 
-        DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa))
+        DdlDepartamento.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa)
         DdlDepartamento.DataBind()
 
         DdlSupervisor.DataSource = GlobalDTRHPersonal(UsuarioActual.CveEmpresa)

RH/Personal.aspx.vb

@@ -1177,7 +1177,7 @@ Partial Class RH_Personal
     End Sub
 
     Private Sub CargaTurno()
-        DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa)
         DdlTurno.DataBind()
     End Sub
 
@@ -1187,12 +1187,12 @@ Partial Class RH_Personal
     End Sub
 
     Private Sub CargaMotivoHoraExtra()
-        DdlMotivoHoraExtra.DataSource = GlobalDTMotivosHorasExtras.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlMotivoHoraExtra.DataSource = GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa)
         DdlMotivoHoraExtra.DataBind()
     End Sub
 
     Private Sub CargaDepartamento()
-        DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlDepartamento.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa)
         DdlDepartamento.DataBind()
     End Sub
 
@@ -1202,12 +1202,12 @@ Partial Class RH_Personal
     End Sub
 
     Private Sub CargaRuta()
-        DdlRuta.DataSource = GlobalDTRutas.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlRuta.DataSource = GlobalDTRutas(UsuarioActual.CveEmpresa)
         DdlRuta.DataBind()
     End Sub
 
     Private Sub CargaMotivoBaja()
-        DdlMotivoBaja.DataSource = GlobalDTMotivoBaja.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlMotivoBaja.DataSource = GlobalDTMotivoBaja(UsuarioActual.CveEmpresa)
         DdlMotivoBaja.DataBind()
     End Sub
 
@@ -1318,7 +1318,7 @@ Partial Class RH_Personal
     End Sub
 
     Private Sub CargaMotivosHorasExtras()
-        DdlMotivoHoraExtra.DataSource = GlobalDTMotivosHorasExtras.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlMotivoHoraExtra.DataSource = GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa)
         DdlMotivoHoraExtra.DataBind()
     End Sub
 
@@ -1543,7 +1543,7 @@ Partial Class RH_Personal
             If e.Row.DBCampo("CveAsistenciasInasistencias") <> "-1" Then e.Row.FCDropDownList("DdlTipoAsistencias").SelectedValue = e.Row.DBCampo("CveAsistenciasInasistencias")
 
             'Carga Motivos Horas Extras
-            e.Row.FCDropDownList("DdlMotivoHoraExtra").DataSource = GlobalDTMotivosHorasExtras.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+            e.Row.FCDropDownList("DdlMotivoHoraExtra").DataSource = GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa)
             e.Row.FCDropDownList("DdlMotivoHoraExtra").DataBind()
             If e.Row.DBCampo("CveMotivoHoraExtra") <> "-1" Then e.Row.FCDropDownList("DdlMotivoHoraExtra").SelectedValue = e.Row.DBCampo("CveMotivoHoraExtra")
 

RH/PopUpBuscarPersonal.aspx.vb

@@ -64,7 +64,7 @@ Partial Class RH_PopUpBuscarPersonal
     End Sub
 
     Private Sub CargaTurno()
-        DdlTurnos.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlTurnos.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa)
         DdlTurnos.DataBind()
     End Sub
 
@@ -98,7 +98,7 @@ Partial Class RH_PopUpBuscarPersonal
     End Sub
 
     Private Sub CargaDepartamento()
-        DdlDepartamentos.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlDepartamentos.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa)
         DdlDepartamentos.DataBind()
     End Sub
 
@@ -128,7 +128,7 @@ Partial Class RH_PopUpBuscarPersonal
     End Sub
 
     Private Sub CargaRuta()
-        DdlRuta.DataSource = GlobalDTRutas.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlRuta.DataSource = GlobalDTRutas(UsuarioActual.CveEmpresa)
         DdlRuta.DataBind()
     End Sub
 

RH/Reclutamiento.aspx.vb

@@ -5418,11 +5418,11 @@ Partial Class RH_Reclutamiento
 				
 				'If UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122) Then
                     DdlCliente.DataSource = GlobalDTCliente(7)
-                'End If
-				
             'End If
 
-            DdlRuta.DataSource = GlobalDTRutas.FiltraParametros("CveEmpresa = " & DdlEmpresaAsiganada.SelectedValue)
+            'End If
+
+            DdlRuta.DataSource = GlobalDTRutas(DdlEmpresaAsiganada.SelectedValue.ToEntero)
 
             If Not UsuarioActual.CveEmpresa.Contiene(4, 7, 11, 12, 122) Then
                 DDLUsuarioNomina.DataSource = GlobalDTUsuarios(-1, DdlEmpresaAsiganada.SelectedValue.ToEntero)

RH/RepAusentismoLaboral.aspx.vb

@@ -21,7 +21,7 @@ Partial Class RH_RepAusentismoLaboral
 
     Private Sub CargaTurnos()
 
-        DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa)
         DdlTurno.DataBind()
         DdlTurno.Items.Insert(0, New ListItem("Todos", "-1"))
 

RH/RepChecadorPreAsistencia.aspx.vb

@@ -156,7 +156,7 @@ Partial Class RH_RepChecadorPreAsistencia
         DdlTipoPeriodo.DataBind()
         DdlTipoPeriodo.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
 
-        DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa)
         DdlTurno.DataBind()
         '   DdlTurno.Items.Insert(0, New ListItem("Seleccione uno", "-1"))
         DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
@@ -365,7 +365,7 @@ Partial Class RH_RepChecadorPreAsistencia
                 DTHorarios = objRH.DtResultados
 
                 If DdlTurno.SelectedIndex > 0 Then
-                    Dim DTTemp As DataTable = GlobalDTTurno.FiltraParametros("CveTurno = " & DdlTurno.SelectedValue)
+                    Dim DTTemp As DataTable = GlobalDTTurno(UsuarioActual.CveEmpresa).FiltraParametros("CveTurno = " & DdlTurno.SelectedValue)
                     Dim TMCveChecadorHorario As Integer = -1
 
                     If DTTemp.Rows.Count > 0 Then

RH/RepCursos.aspx.vb

@@ -20,7 +20,7 @@ Partial Class RH_RepCursos
 
     Private Sub CargaCombos()
 
-        DdlDepartamentos.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlDepartamentos.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa)
         DdlDepartamentos.DataBind()
         DdlDepartamentos.Items.Insert(0, New ListItem("Todos", "-1"))
 

RH/RepDocumentacionVencida.aspx.vb

@@ -100,7 +100,7 @@ Partial Class RH_RepDocumentacionVencida
         DdlSupervisor.DataBind()
 
 
-        DdlRuta.DataSource = GlobalDTRutas.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlRuta.DataSource = GlobalDTRutas(UsuarioActual.CveEmpresa)
         DdlRuta.DataBind()
 
 

RH/RepIndiceRotacionPersonal.aspx.vb

@@ -35,7 +35,7 @@ Partial Class Ventas_RepIndiceRotacionPersonal
 
     Private Sub CargaTurnos()
 
-        DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa)
         DdlTurno.DataBind()
         DdlTurno.Items.Insert(0, New ListItem("Todos", "-1"))
 

RH/RepPersonalNecesidades.aspx.vb

@@ -27,7 +27,7 @@ Partial Class RH_RepPersonalNecesidades
     End Sub
 
     Private Sub CargaTurnos()
-        DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa)
         DdlTurno.DataBind()
         DdlTurno.Items.Insert(0, New ListItem("Todos", "-1"))
     End Sub
@@ -52,7 +52,7 @@ Partial Class RH_RepPersonalNecesidades
     Private Sub CargaDepartamento()
 
         DdlDepartamento.Items.Clear()
-        DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlDepartamento.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa)
         DdlDepartamento.DataBind()
         DdlDepartamento.Items.Insert(0, New ListItem("Todos", "-1"))
 

RH/RepUniformes.aspx.vb

@@ -29,7 +29,7 @@ Partial Class RH_RepUniformes
             DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
             DdlSubProyecto.DataBind()
             DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa =" & UsuarioActual.CveEmpresa & " AND Departamento <> 'Seleccione' ")
+            DdlDepartamento.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa).FiltraParametros(" Departamento <> 'Seleccione' ")
             DdlDepartamento.DataBind()
             DdlDepartamento.Items.Insert(0, New ListItem("Todos", "-1"))
 

RH/RepUniformesResguardo.aspx.vb

@@ -29,7 +29,7 @@ Partial Class RH_RepUniformesResguardo
             DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, -1, UsuarioActual.CveEmpresa, 1)
             DdlSubProyecto.DataBind()
             DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
-            DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros("CveEmpresa =" & UsuarioActual.CveEmpresa & " AND Departamento <> 'Seleccione' ")
+            DdlDepartamento.DataSource = GlobalDTDepartamentos(UsuarioActual.CveEmpresa).FiltraParametros(" Departamento <> 'Seleccione' ")
             DdlDepartamento.DataBind()
             DdlDepartamento.Items.Insert(0, New ListItem("Todos", "-1"))
 

RH/RepVacaciones.aspx.vb

@@ -39,10 +39,10 @@ Partial Class RH_RepVacaciones
         DdlSupervisor.DataSource = GlobalDTUsuarios.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa & " AND EsSupervisorRH = 1 ")
         DdlSupervisor.DataBind()
 
-        DdlRuta.DataSource = GlobalDTRutas.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlRuta.DataSource = GlobalDTRutas(UsuarioActual.CveEmpresa)
         DdlRuta.DataBind()
 
-        DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlTurno.DataSource = GlobalDTTurno(UsuarioActual.CveEmpresa)
         DdlTurno.DataBind()
         DdlTurno.Items.Insert(0, New ListItem("Todos", "-1"))
 

RH/ReporteViaticos.aspx.cs

@@ -25,7 +25,7 @@ public partial class RH_ReporteViaticos : ClsPaginas
         DdlPersonal.DataBind();
         DdlPersonal.Items.Insert(0, new ListItem("Todos ", "-1"));
 
-        DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa));
+        DdlDepartamento.DataSource = get_GlobalDTDepartamentos(UsuarioActual.CveEmpresa);
         DdlDepartamento.DataBind();
         DdlDepartamento.Items.Insert(0, new ListItem("Todos ", "-1"));
     }

RH/SolicitudViaticos.aspx.cs

@@ -111,7 +111,7 @@ public partial class RH_SolicitudViaticos : ClsPaginas
         DdlPersonal.DataSource = get_GlobalDTRHPersonal(UsuarioActual.CveEmpresa);
         DdlPersonal.DataBind();
 
-        DdlDepartamento.DataSource = GlobalDTDepartamentos.FiltraParametros(String.Format("CveEmpresa = {0}", UsuarioActual.CveEmpresa));
+        DdlDepartamento.DataSource = get_GlobalDTDepartamentos(UsuarioActual.CveEmpresa);
         DdlDepartamento.DataBind();
 
         DdlSupervisor.DataSource = get_GlobalDTRHPersonal(UsuarioActual.CveEmpresa);

Sistemas/CatSesiones.aspx.vb

@@ -216,20 +216,20 @@ Partial Class Sistemas_CatSesiones
     Private Sub CargaRH()
         Dim 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.GetDepartamentos(UsuarioActual.CveEmpresa) 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.GetMotivoBaja(UsuarioActual.CveEmpresa) 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.GetRutas(UsuarioActual.CveEmpresa) 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.GetMotivoHorasExtras(UsuarioActual.CveEmpresa) Then Application("GlobalDTMotivosHorasExtras") = ObjRH.DtResultados Else Application("GlobalDTMotivosHorasExtras") = Nothing
         If ObjRH.GetAsistenciasDetalle() Then Application("GlobalDTAsistenciaDetalle") = ObjRH.DtResultados Else Application("GlobalDTAsistenciaDetalle") = Nothing
         ObjRH.Dispose()
 

Ventas/Ventas.aspx

@@ -555,7 +555,7 @@
                                 </td>
                             </tr>
                             <tr align="left" id="TrDescripcionVenta" runat="server" visible="false">
-                                <td><b>Descripción de factura:</b></td>
+                                <td><b>Descripción:</b></td>
                                 <td colspan="3">
                                     <asp:TextBox ID="TxtDescripcionVenta" runat="server" Rows="2" TextMode="MultiLine" Width="100%" MaxLength="300" CssClass="form-control input-sm" Enabled="false"></asp:TextBox></td>
                             </tr>
@@ -3226,7 +3226,7 @@
                                     </div>
                                 </div>
 
-                                <asp:GridView ID="GvContratoDetalles" runat="server" AutoGenerateColumns="False" DataKeyNames="CveContratoDetalle,CvePS, CveUM, Cantidad, CveClasificacion, Clasificacion, IVA, ModalidadDetalle,LimitarCantidad, Observaciones" EmptyDataText="Seleccione un Contrato Válido" CssClass="table table-striped table-advance table-hover Widthall GvContratoDetalles ScrollAD" data-height="300" data-sort="false" GridLines="None">
+                                <asp:GridView ID="GvContratoDetalles" runat="server" AutoGenerateColumns="False" DataKeyNames="CveContratoDetalle,CvePS, CveUM, Cantidad, CveClasificacion, Clasificacion, IVA, ModalidadDetalle,LimitarCantidad, Observaciones" EmptyDataText="El contrato no tiene productos y/o servicios" CssClass="table table-striped table-advance table-hover Widthall GvContratoDetalles ScrollAD" data-height="300" data-sort="false" GridLines="None">
                                     <Columns>
                                         <asp:TemplateField>
                                             <HeaderTemplate>OC Cliente</HeaderTemplate>