From abb8f63b3619f12ac15f4e03aba37fa1d38b17c3 Mon Sep 17 00:00:00 2001 From: Jorge Luis caudillo esparza Date: Fri, 4 Jul 2025 19:38:54 -0700 Subject: [PATCH] Aniversario laboral --- App_Code/ClsNominas.vb | 24 ++++++++++++ Inicio.aspx | 52 +++++++++++++++++++++++++ Inicio.aspx.vb | 22 ++++++++++- Nomina/RepMovtosPermanentes.aspx | 60 ++++++++++++++--------------- Nomina/RepMovtosPermanentes.aspx.cs | 8 ++-- 5 files changed, 132 insertions(+), 34 deletions(-) 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 @@ + +