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

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

Browse Source
This commit is contained in:
Hector Javier Rodriguez Flores
2022-02-12 15:30:43 -07:00
parent cf4cb2b817 170acfdf39
commit 6a6dedde9c
74 changed files with 4546 additions and 1562 deletions
Download Patch File Download Diff File Expand all files Collapse all files

23
RH/RepPersonalInconsistencias.aspx.vb
View File

@@ -127,9 +127,10 @@ Partial Class RH_RepPersonalInconsistencias
End Sub
Protected Sub CargaDatos()
Dim ObjAnomalias As New ClsRH
Using ObjAnomalias As New ClsRH
If ObjAnomalias.GetRepPersonalInconsistencias(UsuarioActual.CveEmpresa.ToEntero) Then
If ObjAnomalias.GetRepPersonalInconsistencias(UsuarioActual.CveEmpresa.ToEntero) Then
'DSContratosProximosAVencer = ObjAnomalias.DtResultados
'DSContratosProximosAVencer.Tables.Add(ObjAnomalias.DSResultados().Tables(0))
'DSContratosProximosAVencer.Tables.Add(ObjAnomalias.DSResultados().Tables(1))
@@ -173,20 +174,20 @@ Partial Class RH_RepPersonalInconsistencias
LbTotalAnomalias.Text = "Total de Anomalías: " + ObjAnomalias.DSResultados().Tables(1).Rows.Count.ToString
LbTotalCumpleañeros.Text = "Total de Cumpleañeros: " + ObjAnomalias.DSResultados().Tables(2).Rows.Count.ToString
CargaGrid("")
End If
CargaGrid("")
ObjAnomalias.Dispose()
End Using
Dim ObjAF As New ClsAF()
If ObjAF.GetLicenciasVencidas(-1, -1, UsuarioActual.CveEmpresa, Estatus:=1) Then
GvLicencias.DataSource = ObjAF.DtResultados.FiltraParametros("CveEstatusPersonal = 1")
Using ObjAF As New ClsAF()
If ObjAF.GetLicenciasVencidas(-1, -1, UsuarioActual.CveEmpresa, Estatus:=1) Then
GvLicencias.DataSource = ObjAF.DtResultados.FiltraParametros("CveEstatusPersonal = 1")
Else
GvLicencias.DataSource = Nothing
End If
ObjAF.Dispose()
Else
GvLicencias.DataSource = Nothing
End If
End Using
UpLicenciasVencidas.Update()
GvLicencias.DataBind()