-- cambios de globaldt RH

2023-02-15 09:34:52 -07:00
parent 170ba0364d
commit d8cf1662f3
32 changed files with 77 additions and 81 deletions
--- a/RH/ActualizacionMasiva.aspx.vb
+++ b/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
--- a/RH/Asistencias.aspx.vb
+++ b/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")

--- a/RH/CatDepartamentos.aspx.vb
+++ b/RH/CatDepartamentos.aspx.vb
@@ -43,9 +43,8 @@ Partial Class RH_CatDepartamentos

    Public Sub CargaDatos()
        Dim ObjDepartamentos As New ClsRH
-        If ObjDepartamentos.GetDepartamentos() Then
-            ViewState("DTDepartamentos") = ObjDepartamentos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTDepartamentos = ObjDepartamentos.DtResultados
+        If ObjDepartamentos.GetDepartamentos(UsuarioActual.CveEmpresa) Then
+            ViewState("DTDepartamentos") = 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()
--- a/RH/CatMotivoBaja.aspx.vb
+++ b/RH/CatMotivoBaja.aspx.vb
@@ -57,9 +57,8 @@ Partial Class RH_CatMotivoBaja

    Public Sub CargaDatos()
        Dim ObjMotivoBaja As New ClsRH
-        If ObjMotivoBaja.GetMotivoBaja() Then
-            ViewState("DTMotivoBaja") = ObjMotivoBaja.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTMotivoBaja = ObjMotivoBaja.DtResultados
+        If ObjMotivoBaja.GetMotivoBaja(UsuarioActual.CveEmpresa) Then
+            ViewState("DTMotivoBaja") = 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

--- a/RH/CatMotivosHorasExtras.aspx.vb
+++ b/RH/CatMotivosHorasExtras.aspx.vb
@@ -44,9 +44,8 @@ Partial Class RH_CatMotivosHorasExtras

    Public Sub CargaDatos()
        Dim ObjMotivosHorasExtras As New ClsRH
-        If ObjMotivosHorasExtras.GetMotivoHorasExtras() Then
-            ViewState("DTMotivosHorasExtras") = ObjMotivosHorasExtras.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTMotivosHorasExtras = ObjMotivosHorasExtras.DtResultados
+        If ObjMotivosHorasExtras.GetMotivoHorasExtras(UsuarioActual.CveEmpresa) Then
+            ViewState("DTMotivosHorasExtras") = 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)
-            GlobalDTMotivosHorasExtras = ObjMotivosHorasExtras.DtResultados
+            ViewState("DTMotivosHorasExtras") = ObjMotivosHorasExtras.DtResultados
+            GlobalDTMotivosHorasExtras(UsuarioActual.CveEmpresa) = Nothing
            Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion)
        End If

--- a/RH/CatPersonal.aspx.vb
+++ b/RH/CatPersonal.aspx.vb
@@ -246,14 +246,14 @@ Partial Class RH_CatPersonal
    End Sub

    Private Sub CargaTurno()
-        DdlTurno.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-        DdlTurno2.DataSource = GlobalDTTurno.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
+        DdlTurno.DataSource = GlobalDTTurno(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
--- a/RH/CatPersonalRequerido.aspx.vb
+++ b/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

--- a/RH/CatRuta.aspx.vb
+++ b/RH/CatRuta.aspx.vb
@@ -42,9 +42,8 @@ Partial Class RH_CatRuta

    Public Sub CargaDatos()
        Dim ObjRuta As New ClsRH
-        If ObjRuta.GetRutas() Then
-            ViewState("DTRuta") = ObjRuta.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa)
-            GlobalDTRutas = ObjRuta.DtResultados
+        If ObjRuta.GetRutas(UsuarioActual.CveEmpresa) Then
+            ViewState("DTRuta") = 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

--- a/RH/ListaAsistenciaRH.aspx.vb
+++ b/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"))

--- a/RH/MiPerfil.aspx.vb
+++ b/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)
--- a/RH/Personal.aspx.vb
+++ b/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")

--- a/RH/PopUpBuscarPersonal.aspx.vb
+++ b/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

--- a/RH/Reclutamiento.aspx.vb
+++ b/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)
--- a/RH/RepAusentismoLaboral.aspx.vb
+++ b/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"))

--- a/RH/RepChecadorPreAsistencia.aspx.vb
+++ b/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
--- a/RH/RepCursos.aspx.vb
+++ b/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"))

--- a/RH/RepDocumentacionVencida.aspx.vb
+++ b/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()


--- a/RH/RepIndiceRotacionPersonal.aspx.vb
+++ b/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"))

--- a/RH/RepPersonalNecesidades.aspx.vb
+++ b/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"))

--- a/RH/RepUniformes.aspx.vb
+++ b/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"))

--- a/RH/RepUniformesResguardo.aspx.vb
+++ b/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"))

--- a/RH/RepVacaciones.aspx.vb
+++ b/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"))

--- a/RH/ReporteViaticos.aspx.cs
+++ b/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"));
    }
--- a/RH/SolicitudViaticos.aspx.cs
+++ b/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);