AdminADS/SIG
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

-- cambios de globaldt RH

Browse Source
This commit is contained in:
rrene
2023-02-15 09:34:52 -07:00
parent 170ba0364d
commit d8cf1662f3
32 changed files with 77 additions and 81 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
Nomina/CatPeriodos.aspx.vb
View File

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

2
Nomina/ListaAsistencias.aspx.vb
View File

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

2
Nomina/Nomina.aspx.cs
View File

@@ -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;

2
Nomina/PreNomina.aspx.vb
View File

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

2
Nomina/PreNominaHistorial.aspx.vb
View File

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

10
Nomina/RepConceptosAcumulados.aspx.vb
View File

@@ -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
GvDatos.DataSource = ObjNomina.DtResultados
Else
GvDatos.DataSource = Nothing
End If
'If ObjNomina.GetRepConceptosAcumulados(CveConcepto, DDlEjercicio.SelectedValue.ToEntero, CveTipoPeriodo, DdlPeriodo.SelectedValue.ToEntero, UsuarioActual.CveEmpresa) Then
' GvDatos.DataSource = ObjNomina.DtResultados
'Else
' GvDatos.DataSource = Nothing
'End If
ObjNomina.Dispose()
GvDatos.DataBind()

2
Nomina/RepInversiondeNomina.aspx.cs
View File

@@ -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"));

2
RH/ActualizacionMasiva.aspx.vb
View File

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

4
RH/Asistencias.aspx.vb
View File

@@ -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")

11
RH/CatDepartamentos.aspx.vb
View File

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

11
RH/CatMotivoBaja.aspx.vb
View File

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

13
RH/CatMotivosHorasExtras.aspx.vb
View File

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

14
RH/CatPersonal.aspx.vb
View File

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

4
RH/CatPersonalRequerido.aspx.vb
View File

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

11
RH/CatRuta.aspx.vb
View File

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

2
RH/ListaAsistenciaRH.aspx.vb
View File

@@ -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"))

2
RH/MiPerfil.aspx.vb
View File

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

14
RH/Personal.aspx.vb
View File

@@ -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")

6
RH/PopUpBuscarPersonal.aspx.vb
View File

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

4
RH/Reclutamiento.aspx.vb
View File

@@ -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
'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)

2
RH/RepAusentismoLaboral.aspx.vb
View File

@@ -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"))

4
RH/RepChecadorPreAsistencia.aspx.vb
View File

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

2
RH/RepCursos.aspx.vb
View File

@@ -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"))

2
RH/RepDocumentacionVencida.aspx.vb
View File

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

2
RH/RepIndiceRotacionPersonal.aspx.vb
View File

@@ -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"))

4
RH/RepPersonalNecesidades.aspx.vb
View File

@@ -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"))

2
RH/RepUniformes.aspx.vb
View File

@@ -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"))

2
RH/RepUniformesResguardo.aspx.vb
View File

@@ -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"))

4
RH/RepVacaciones.aspx.vb
View File

@@ -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"))

2
RH/ReporteViaticos.aspx.cs
View File

@@ -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"));
}

2
RH/SolicitudViaticos.aspx.cs
View File

@@ -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);

8
Sistemas/CatSesiones.aspx.vb
View File

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