-- cambios de globaldt RH

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/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

@@ -5422,7 +5422,7 @@ Partial Class RH_Reclutamiento
 
             'End If
 
-            DdlRuta.DataSource = GlobalDTRutas.FiltraParametros("CveEmpresa = " & DdlEmpresaAsiganada.SelectedValue)
+            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()