From 5b8e4ecc91b631222b113810b6aad8d2a5c8a00a Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Wed, 21 Dec 2022 03:16:44 -0700 Subject: [PATCH] --- App_Code/ClsNominas.vb | 3 +- App_Code/ClsRH.vb | 75 ++++++++++++++++++++++++++++++++--- Nomina/Finiquito.aspx.cs | 4 +- Nomina/FiniquitoOld.aspx.cs | 2 +- Nomina/FiniquitoOld.aspx.vb | 2 +- RH/CatEstatusPersonal.aspx.vb | 2 +- 6 files changed, 77 insertions(+), 11 deletions(-) diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 8d16938a6..fda2358d9 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -2397,7 +2397,7 @@ Public Class ClsNominas End Try Return retorno End Function - Public Function GetNominaEmpleadoSimulador(CveProyecto As Integer, CveSubProyecto As Integer, CveTurno As Integer, CvePeriodo As Integer, CveEmpresa As Integer, Agrupador As Integer, SalarioDiario As Decimal) As Boolean + Public Function GetNominaEmpleadoSimulador(CveProyecto As Integer, CveSubProyecto As Integer, CveTurno As Integer, CvePeriodo As Integer, CveEmpresa As Integer, Agrupador As Integer, SalarioDiario As Decimal, CveTipoTrabajador As Integer) As Boolean Dim retorno As Boolean = False Try DTSet = New DataSet() @@ -2410,6 +2410,7 @@ Public Class ClsNominas .Add("@Agrupador", SqlDbType.VarChar).Value = Agrupador .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa .Add("@SalarioDiario", SqlDbType.Decimal).Value = SalarioDiario + .Add("@CveTipoTrabajador", SqlDbType.Decimal).Value = CveTipoTrabajador End With diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index 5fb4804f3..ad2efb2f1 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -858,7 +858,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno End Function - Public Function UpdateEstatusPersonal(EstatusPersonal As String, Estatus As Boolean, CveEstatusPersonal As Integer) As Boolean + Public Function UpdateEstatusPersonal(EstatusPersonal As String, Estatus As Boolean, CveEstatusPersonal As Integer, CveUsuario As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_RH_EstatusPersonalUpdate") @@ -867,6 +867,7 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo .Add("@EstatusPersonal", SqlDbType.VarChar).Value = EstatusPersonal .Add("@Estatus", SqlDbType.Bit).Value = Estatus .Add("@CveEstatusPersonal", SqlDbType.Int).Value = CveEstatusPersonal + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario End With Try @@ -2452,12 +2453,13 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno End Function - Public Function UpPersonalAltas(CvePersonal As Integer, fechaInicio As String, fechaFin As String, CvePeriodoFiniquito As Integer, CveMotivoBaja As Integer, esLiquidacion As Boolean, ValIndemnizacion As Boolean, ValSeparacionunica As Boolean, ValPrimadeantiguedad As Boolean, Optional Observaciones As String = "") As Boolean + Public Function UpPersonalAltas(CvePersonal As Integer, CveUsuario As Integer, fechaInicio As String, fechaFin As String, CvePeriodoFiniquito As Integer, CveMotivoBaja As Integer, esLiquidacion As Boolean, ValIndemnizacion As Boolean, ValSeparacionunica As Boolean, ValPrimadeantiguedad As Boolean, Optional Observaciones As String = "") As Boolean Dim Retorno As Boolean = False SqlDataAdapter("PA_RH_PersonalAltasUp") With SqlAdapter.SelectCommand.Parameters .Add("@CvePersonal", SqlDbType.Int).Value = CvePersonal + .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@fechaInicio", SqlDbType.VarChar).Value = fechaInicio .Add("@fechaFin", SqlDbType.VarChar).Value = fechaFin .Add("@CvePeriodoFiniquito", SqlDbType.Int).Value = CvePeriodoFiniquito @@ -2757,13 +2759,14 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno End Function - Public Function AddAsistenciaMasiva2(CvePeriodo As Integer, CveUsuario As Integer, CveEmpresa As Integer) As Boolean + Public Function AddAsistenciaMasiva2(CvePeriodo As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveTipoTrabajador As Integer) As Boolean Dim Retorno As Boolean = False Data = New DataTable - SqlDataAdapter("PA_RH_PersonalAsistenciasMasivaAddUpd2") + SqlDataAdapter("PA_RH_PersonalAsistenciasMasivas") With SqlAdapter.SelectCommand.Parameters .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo + .Add("@CveTipoTrabajador", SqlDbType.Int).Value = CveTipoTrabajador .Add("@CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa End With @@ -7578,7 +7581,69 @@ chkAplicaVacacion As Boolean, chkAplicaIncapacidad As Boolean, chkAplicaRetardo Return Retorno End Function - +#Region "TipoTrabajador" +#Region "CRUD_TiposTrabajador" + Public Function TiposTrabajadorGet(cveTipoTrabajador As Int32, cveUsuario As Int32, cveEmpresa As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_RH_TiposTrabajadorGet", CommandType.StoredProcedure) + addParameters("@CveTipoTrabajador", SqlDbType.Int, cveTipoTrabajador) + addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los tipos trabajador.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function TiposTrabajadorAdd(tipoTrabajador As String, estatus As Boolean, fechaIng As DateTime, cveUsuario As Int32, cveEmpresa As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_RH_TiposTrabajadorAdd", CommandType.StoredProcedure) + addParameters("@TipoTrabajador", SqlDbType.VarChar, tipoTrabajador) + addParameters("@Estatus", SqlDbType.Bit, estatus) + addParameters("@CveUsuario", SqlDbType.Int, cveUsuario) + addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al agregar el tipo trabajador.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function TiposTrabajadorUp(cveTipoTrabajador As Int32, tipoTrabajador As String, estatus As Boolean, fechaIng As DateTime, cveUsuario As Int32, cveEmpresa As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_RH_TiposTrabajadorUp", CommandType.StoredProcedure) + addParameters("@CveTipoTrabajador", SqlDbType.Int, cveTipoTrabajador) + addParameters("@TipoTrabajador", SqlDbType.VarChar, tipoTrabajador) + addParameters("@Estatus", SqlDbType.Bit, estatus) + addParameters("@CveUsuario", SqlDbType.Int, cveUsuario) + addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al actualizar el tipo trabajador.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function TiposTrabajadorRemove(cveTipoTrabajador As Int32, cveUsuario As Int32, cveEmpresa As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_RH_TiposTrabajadorRemove", CommandType.StoredProcedure) + addParameters("@CveTipoTrabajador", SqlDbType.Int, cveTipoTrabajador) + addParameters("@CveUsuario", SqlDbType.Int, cveUsuario) + addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) + retorno = RunQuery("Ocurrió un error al eliminar el TiposTrabajador.") + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al eliminar el tipo trabajador.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function +#End Region +#End Region 'Public msgsError As New StringBuilder() 'Public Sub OnError(Mensaje As String, Exeption As Exception, Optional InfoAdicional As String = "") diff --git a/Nomina/Finiquito.aspx.cs b/Nomina/Finiquito.aspx.cs index e1f382790..be5af6a84 100644 --- a/Nomina/Finiquito.aspx.cs +++ b/Nomina/Finiquito.aspx.cs @@ -1087,7 +1087,7 @@ public partial class Nomina_Finiquito : ClsPaginas using (ClsRH ObjPersonal = new ClsRH()) using (ClsNominas onom = new ClsNominas(ObjPersonal.IniciaTransacSQL())) { - if (continuar = ObjPersonal.UpPersonalAltas(CvePersonal, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlTipoPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked, chkIndemnizacion.Checked, chkSeparacionUnica.Checked, chkPrimaantiguedad.Checked,TxtObservaciones.Text ) && ObjPersonal.GetPersonalAltas(CvePersonal) && ObjPersonal.DtResultados.Rows.Count > 0) + if (continuar = ObjPersonal.UpPersonalAltas(CvePersonal, UsuarioActual.CveUsuario, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlTipoPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked, chkIndemnizacion.Checked, chkSeparacionUnica.Checked, chkPrimaantiguedad.Checked,TxtObservaciones.Text ) && ObjPersonal.GetPersonalAltas(CvePersonal) && ObjPersonal.DtResultados.Rows.Count > 0) { DataRow da = ObjPersonal.DtResultados.Rows[0]; CvePeriodoIndemnizacion = da["CvePeriodoIndemnizacion"].ToString().ToEntero(); @@ -1340,7 +1340,7 @@ public partial class Nomina_Finiquito : ClsPaginas using (ClsRH ObjPersonal = new ClsRH()) using (ClsNominas onom = new ClsNominas(ObjPersonal.IniciaTransacSQL())) { - if (continuar = ObjPersonal.UpPersonalAltas(CvePersonal, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlTipoPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked, chkIndemnizacion.Checked, chkSeparacionUnica.Checked, chkPrimaantiguedad.Checked) && ObjPersonal.GetPersonalAltas(CvePersonal) && ObjPersonal.DtResultados.Rows.Count > 0) + if (continuar = ObjPersonal.UpPersonalAltas(CvePersonal, UsuarioActual.CveUsuario, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlTipoPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked, chkIndemnizacion.Checked, chkSeparacionUnica.Checked, chkPrimaantiguedad.Checked) && ObjPersonal.GetPersonalAltas(CvePersonal) && ObjPersonal.DtResultados.Rows.Count > 0) { DataRow da = ObjPersonal.DtResultados.Rows[0]; CvePeriodoIndemnizacion = da["CvePeriodoIndemnizacion"].ToString().ToEntero(); diff --git a/Nomina/FiniquitoOld.aspx.cs b/Nomina/FiniquitoOld.aspx.cs index 0d3ca1ad6..95eeedff3 100644 --- a/Nomina/FiniquitoOld.aspx.cs +++ b/Nomina/FiniquitoOld.aspx.cs @@ -362,7 +362,7 @@ partial class Nomina_Finiquito : ClsPaginas using (ClsRH ObjPersonal = new ClsRH()) { - if (ObjPersonal.UpPersonalAltas(CvePersonal, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked) && ObjPersonal.DtResultados.Rows.Count > 0) + if (ObjPersonal.UpPersonalAltas(CvePersonal, UsuarioActual.CveUsuario, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked) && ObjPersonal.DtResultados.Rows.Count > 0) { } } diff --git a/Nomina/FiniquitoOld.aspx.vb b/Nomina/FiniquitoOld.aspx.vb index 657ddabd9..18c1cda0f 100644 --- a/Nomina/FiniquitoOld.aspx.vb +++ b/Nomina/FiniquitoOld.aspx.vb @@ -308,7 +308,7 @@ Partial Class Nomina_FiniquitoVB Using ObjPersonal As New ClsRH() - If ObjPersonal.UpPersonalAltas(CvePersonal, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked) AndAlso ObjPersonal.DtResultados.Rows.Count > 0 Then + If ObjPersonal.UpPersonalAltas(CvePersonal, UsuarioActual.CveUsuario, "", TxtFechaBaja.Text.ToDateTime().ToString("yyyy/MM/dd"), DdlPeriodo.SelectedValue.ToEntero(), DdlMotivoBaja.SelectedValue.ToEntero(), ChkesLiquidacion.Checked) AndAlso ObjPersonal.DtResultados.Rows.Count > 0 Then End If End Using diff --git a/RH/CatEstatusPersonal.aspx.vb b/RH/CatEstatusPersonal.aspx.vb index e9fa41ae6..845e2274b 100644 --- a/RH/CatEstatusPersonal.aspx.vb +++ b/RH/CatEstatusPersonal.aspx.vb @@ -139,7 +139,7 @@ Partial Class RH_CatEstatusPersonal Dim EstatusPersonal As String = PersonalEstatTxt.Text Dim Estatus As Boolean = ChkEstatus.Checked Dim CveEstatusPersonal As Integer = CveEstatusPerAEditar 'aquí obtenemos el valor de la propiedad que utilizamos en el metodo "GvDatos_RowEditing" - If ObjEstatusPersonal.UpdateEstatusPersonal(EstatusPersonal, Estatus, CveEstatusPersonal) Then + If ObjEstatusPersonal.UpdateEstatusPersonal(EstatusPersonal, Estatus, CveEstatusPersonal, UsuarioActual.CveUsuario) Then GvDatos.EditIndex = -1 ViewState("DTEstatusPersonal") = ObjEstatusPersonal.DtResultados GlobalDTEstatusPersonal = ObjEstatusPersonal.DtResultados