From 85967cd65417e9f42ff82e123ed1343ed5f268d1 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Sat, 25 Sep 2021 01:27:09 -0700 Subject: [PATCH] --- App_Code/ClsNominas.vb | 46 ++++++++ App_Code/ClsRH.vb | 2 +- Nomina/ChecadorAsistencia.aspx | 9 +- Nomina/ChecadorAsistencia.aspx.cs | 6 +- Nomina/Nomina.aspx | 179 ++++++++++++++++++++++++++--- Nomina/Nomina.aspx.cs | 185 ++++++++++++++++++++++++++---- RH/CatPersonal.aspx.vb | 4 +- vwd.webinfo | 4 + 8 files changed, 389 insertions(+), 46 deletions(-) diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 9d1572a61..2dd6b5be7 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -2483,6 +2483,52 @@ Public Class ClsNominas End Try Return retorno End Function +#Region "Prorrateo" + + Public Function ProrrateosubproyectoGET(CveEmpresa As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Nom_Prorrateosubproyecto") + SqlAdapter.SelectCommand.Parameters.Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + Me.OnError("Ocurrió un error al obtener prorrateo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function ProrrateosubproyectoAdd(CvePersonal As Integer, CveSubProyecto As Integer, Porcentaje As Decimal) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Nom_ProrrateosubproyectoAdd") + SqlAdapter.SelectCommand.Parameters.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + SqlAdapter.SelectCommand.Parameters.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + SqlAdapter.SelectCommand.Parameters.Add("@Porcentaje", SqlDbType.Decimal).Value = Porcentaje + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + Me.OnError("Ocurrió un error al obtener prorrateo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + Public Function ProrrateosubproyectoRemove(CvePersonal As Integer, CveSubProyecto As Integer) As Boolean + Dim Retorno As Boolean = False + DataAdapter("PA_Nom_ProrrateosubproyectoRemove") + SqlAdapter.SelectCommand.Parameters.Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + SqlAdapter.SelectCommand.Parameters.Add("@CveSubProyecto", SqlDbType.Int).Value = CveSubProyecto + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + Me.OnError("Ocurrió un error al obtener prorrateo.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function + +#End Region #Region "CRUD_Nom_PersonalIncapacidad" Public Function PersonalIncapacidadGet(cvePersonalIncapacidad As Int32, cvePersonal As Int32, CveEmpresa As Int32) As Boolean diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index 9a643e6ef..c6a62f7bd 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -2448,7 +2448,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Dim Retorno As Boolean = False Dim xmlProductos As System.Xml.Linq.XDocument = Nothing If registros IsNot Nothing AndAlso registros.Count > 0 Then - xmlProductos = New System.Xml.Linq.XDocument(New System.Xml.Linq.XElement("registros", From x In registros Select New System.Xml.Linq.XElement("registro", New System.Xml.Linq.XElement("CveAsistenciaDetalle", x.CveAsistenciaDetalle), New System.Xml.Linq.XElement("CvePersonal", x.CvePersonal), New System.Xml.Linq.XElement("CveAsistenciasInasistencias", x.CveAsistenciasInasistencias), New System.Xml.Linq.XElement("CveSubProyecto", x.CveSubProyecto), New System.Xml.Linq.XElement("Fecha", x.Fecha)))) + xmlProductos = New System.Xml.Linq.XDocument(New System.Xml.Linq.XElement("registros", From x In registros Select New System.Xml.Linq.XElement("registro", New System.Xml.Linq.XElement("CveAsistenciaDetalle", x.CveAsistenciaDetalle), New System.Xml.Linq.XElement("CvePersonal", x.CvePersonal), New System.Xml.Linq.XElement("CveAsistenciasInasistencias", x.CveAsistenciasInasistencias), New System.Xml.Linq.XElement("CveSubProyecto", x.CveSubProyecto), New System.Xml.Linq.XElement("Fecha", x.Fecha), New System.Xml.Linq.XElement("Motivo", x.Motivo)))) End If Data = New DataTable SqlDataAdapter("PA_RH_AsistenciaDetalleUP") diff --git a/Nomina/ChecadorAsistencia.aspx b/Nomina/ChecadorAsistencia.aspx index 8ae601114..8ad4fd876 100644 --- a/Nomina/ChecadorAsistencia.aspx +++ b/Nomina/ChecadorAsistencia.aspx @@ -4,6 +4,9 @@