RH/CatPuesto.aspx.vb

@@ -138,7 +138,7 @@ Partial Class RH_CatPuesto
         If ObjPuestos.GetPuestos(-1) Then
             GvPuestos.DataSource = ObjPuestos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
 
-            'GlobalDTRHPuestos(-1) = ObjPuestos.DtResultados
+            GlobalDTRHPuestos(UsuarioActual.CveEmpresa) = ObjPuestos.DtResultados
         Else
             Me.GvPuestos.DataSource = Nothing
         End If

RH/CatTurno.aspx.vb

@@ -126,14 +126,7 @@ Partial Class RH_CatTurno
     End Sub
 
     Private Sub CargaGlobalDTTurno()
-
-        Dim ObjRH As New ClsRH
-        If ObjRH.GetTurnos() Then
-            Application("GlobalDTTurno") = ObjRH.DtResultados
-        Else
-            Application("GlobalDTTurno") = Nothing
-        End If
-        ObjRH.Dispose()
+        GlobalDTTurno(UsuarioActual.CveEmpresa) = Nothing
 
     End Sub
     Public Sub Delete_Click(sender As Object, e As EventArgs)