diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb
index e315a33e6..8613d0d3c 100644
--- a/App_Code/ClsNominas.vb
+++ b/App_Code/ClsNominas.vb
@@ -324,6 +324,30 @@ Public Class ClsNominas
End Try
Return retorno
End Function
+
+
+ Public Function GetAniversarioLaboral(fecha As String, cveEmpresa As Integer) As Boolean
+ Dim retorno As Boolean = False
+ DataAdapter("PA_RH_AniversarioLaboral", CommandType.StoredProcedure)
+ With SqlAdapter.SelectCommand.Parameters
+ .Add("@CveEmpresa", SqlDbType.Int).Value = cveEmpresa
+ .Add("@Fecha", SqlDbType.Date).Value = fecha
+
+ End With
+ Try
+ SqlAdapter.Fill(Data)
+ retorno = True
+ Catch Ex1 As SqlException
+
+ Me.OnError("Ocurrió un error en aniversario laboral.", Ex1, SqlAdapter.SelectCommand.Parameters.ParametrosInfo())
+ Catch ex As Exception
+ OnError("Ocurrió un error en aniversario laboral.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo)
+ End Try
+ Return retorno
+ End Function
+
+
+
Public Function AutorizaCalculoAnual(CveEmpresa As Integer, CveUsuario As Integer, PersonalXml As String, Optional Numpagos As Integer = 1, Optional Ejercicio As Integer = 2023) As Boolean
Dim retorno As Boolean = False
DataAdapter("PA_Nom_AutorizaCalculoAnual", CommandType.StoredProcedure)
diff --git a/Inicio.aspx b/Inicio.aspx
index 6f20e28c0..ed13f6142 100644
--- a/Inicio.aspx
+++ b/Inicio.aspx
@@ -1712,7 +1712,59 @@
+
+
diff --git a/Inicio.aspx.vb b/Inicio.aspx.vb
index 399dff620..a15de8001 100644
--- a/Inicio.aspx.vb
+++ b/Inicio.aspx.vb
@@ -141,7 +141,7 @@ Partial Class Inicio
If UsuarioActual.TienePermisoProceso(270) Then MuestraComprasPUE()
If UsuarioActual.TienePermisoProceso(343) Then MuestraPsProximosAVencer()
If UsuarioActual.TienePermisoProceso(344) Then MuestraRSCOProximosAVencer()
-
+ MuestraAniversarioLaboral()
If UsuarioActual.Empresa.Funcionalidad(578) = "1" AndAlso
(UsuarioActual.CveUsuario.Contiene(3964, 3984, 4165) OrElse UsuarioActual.CveRol.Contiene(1639, 1577, 1578, 1582)) Then
@@ -440,6 +440,26 @@ Partial Class Inicio
End Sub
+ Private Sub MuestraAniversarioLaboral()
+
+ Using objnom As New ClsNominas
+
+ If objnom.GetAniversarioLaboral(DateTime.Now.ToString("yyyy-MM-dd"), UsuarioActual.CveEmpresa) Then
+ If objnom.DtResultados.Rows.Count > 0 Then
+ GvAniversarioLaboral.DataSource = objnom.DtResultados
+ RegistraScript("$('#DVModalAniversarioLaboral').modal('show');")
+ Else
+ GvAniversarioLaboral.DataSource = Nothing
+ End If
+
+ Else
+ GvAniversarioLaboral.DataSource = Nothing
+ End If
+ End Using
+
+ GvAniversarioLaboral.DataBind()
+
+ End Sub
Private Sub CargaSubProyectos()
DdlSubproyectos.DataSource = GlobalDTSubProyectos(UsuarioActual.CveEmpresa)
DdlSubproyectos.DataBind()
diff --git a/Nomina/RepMovtosPermanentes.aspx b/Nomina/RepMovtosPermanentes.aspx
index 7f80cac29..712b307ba 100644
--- a/Nomina/RepMovtosPermanentes.aspx
+++ b/Nomina/RepMovtosPermanentes.aspx
@@ -114,24 +114,17 @@