From 757f5b63a9a06b572f38d35ddbd935c832857d8f Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Sat, 28 Oct 2023 10:48:26 -0700 Subject: [PATCH 1/2] --- App_Code/ClsNominas.vb | 25 ++++++- App_Code/ClsRH.vb | 6 +- Inicio.aspx | 10 +-- Nomina/CatPeriodos.aspx | 6 +- Nomina/CatPeriodos.aspx.vb | 12 +++- Nomina/Finiquito.aspx | 2 +- Nomina/Finiquito.aspx.cs | 139 +++++++++++++++++++++---------------- OI/TareaDetalle.aspx.cs | 2 +- RH/Asistencias.aspx.vb | 15 +++- RH/Personal.aspx | 12 +++- RH/Personal.aspx.vb | 46 +++++++++++- 11 files changed, 193 insertions(+), 82 deletions(-) diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index c6a5268bc..6d12c1f84 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -2064,6 +2064,25 @@ Public Class ClsNominas End Function #End Region + Public Function GetSubTipoPeriodo(CveEmpresa As Integer) As Boolean + + Dim Retorno As Boolean = False + DataAdapter("PA_Nom_SubTipoPeriodo") + + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + + End With + + Try + SqlAdapter.Fill(Data) + Retorno = True + Catch ex As Exception + OnError("Ocurrió un error al obtener los Períodos.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + + Return Retorno + End Function #Region "Periodos" Public Function GetPeriodos(CveTipoPeriodo As Integer, CveEmpresa As Integer, Ejercicio As Integer, Mes As Integer, CvePeriodo As Integer, Optional CveEstatus As Integer = -1) As Boolean @@ -2108,7 +2127,7 @@ Public Class ClsNominas End Function Public Function AddPeriodo(CveTipoPeriodo As Integer, Ejercicio As Integer, Mes As Integer, Numero As Integer, FechaInicio As Date, FechaFin As Date, - EsInicioMes As Boolean, EsFinMes As Boolean, EsInicioSS As Boolean, EsFinSS As Boolean, EsInicioAño As Boolean, EsFinAño As Boolean, CveUsuario As Integer, CveEmpresa As Integer, CveTurno As Integer, Estatus As Integer) As Boolean + EsInicioMes As Boolean, EsFinMes As Boolean, EsInicioSS As Boolean, EsFinSS As Boolean, EsInicioAño As Boolean, EsFinAño As Boolean, CveUsuario As Integer, CveEmpresa As Integer, CveTurno As Integer, Estatus As Integer, CveSubTipoPeriodo As Integer) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Nom_PeriodosAdd") @@ -2131,6 +2150,7 @@ Public Class ClsNominas .Add("@CveTurno", SqlDbType.Int).Value = CveTurno .Add("@CveUsuario", SqlDbType.VarChar).Value = CveUsuario .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveSubTipoPeriodo", SqlDbType.Int).Value = CveSubTipoPeriodo End With Try @@ -2151,7 +2171,7 @@ Public Class ClsNominas Public Function UpdatePeriodo(FechaInicio As Date, FechaFin As Date, EsInicioMes As Boolean, EsFinMes As Boolean, EsInicioSS As Boolean, EsFinSS As Boolean, EsInicioAño As Boolean, EsFinAño As Boolean, FueCalculado As Boolean, CveTipoPeriodo As Integer, Ejercicio As Integer, Mes As Integer, Numero As Integer, - Estatus As Integer, CvePeriodo As Integer, CveEmpresa As Integer, CveTurno As Integer) As Boolean + Estatus As Integer, CvePeriodo As Integer, CveEmpresa As Integer, CveTurno As Integer, CveSubTipoPeriodo As Integer) As Boolean Dim Retorno As Boolean = False @@ -2177,6 +2197,7 @@ Public Class ClsNominas .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo .Add("@CveTurno", SqlDbType.Int).Value = CveTurno .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@CveSubTipoPeriodo", SqlDbType.Int).Value = CveSubTipoPeriodo End With Try diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index eedeea1c5..583e57ad7 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -1942,7 +1942,7 @@ Public Class ClsRH NombrePadre As String, NombreMadre As String, CveSATBanco As Integer, CveSATRiesgoPuesto As Integer, CveSATRegimenContratacion As Integer, CveClienteAsignado As Integer, CveSubProyecto As Integer, URL As String, CveSupervisor As Integer, CLABE As String, BancoNumCuenta As String, CveJornada As Integer, CveUsuario As Integer, CveEmpresa As Integer, CveUsuarioNomina As Integer, Beneficiario As String, Optional CveSubProyectoZona As Integer = Nothing, Optional CveUniforme As Integer = -1, Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Boolean = False, Optional CvePais As Integer = -1, - Optional Pensionado As Boolean = False, Optional CveMedioTransporte As Integer = -1, Optional CveRegistroPatronal As Integer = -1, Optional CveEmpresaAsignado As Integer = -1, Optional CveTipoTrabajador As Integer = -1, Optional NetoPeriodo As Decimal = -1, Optional TipoSangre As String = "-1") As Boolean + Optional Pensionado As Boolean = False, Optional CveMedioTransporte As Integer = -1, Optional CveRegistroPatronal As Integer = -1, Optional CveEmpresaAsignado As Integer = -1, Optional CveTipoTrabajador As Integer = -1, Optional NetoPeriodo As Decimal = -1, Optional TipoSangre As String = "-1", Optional CveSubTipoPeriodo As Integer = -1) As Boolean Dim Retorno As Boolean = False Dim noguardoXcurp As Boolean = False @@ -2032,6 +2032,7 @@ Public Class ClsRH .Add("@NetoPeriodo", SqlDbType.Money).Value = NetoPeriodo .Add("@TipoSangre", SqlDbType.VarChar).Value = TipoSangre + .Add("@CveSubTipoPeriodo", SqlDbType.Int).Value = CveSubTipoPeriodo .Add("@RETURN_VALUE", SqlDbType.Int).Direction = ParameterDirection.ReturnValue @@ -2073,7 +2074,7 @@ Public Class ClsRH Optional TelefonoExtension As String = "-1", Optional CelularPersonal As String = "-1", Optional TelefonoMarcadoRapido As String = "-1", Optional ContactoAlterno As String = "-1", Optional CveUsuarioModifico As Integer = -1, Optional FechaActivo As Date = MinFecha, Optional FechaReingreso As Date = MinFecha, Optional CveTipodeSalario As Integer = 1, Optional Sindicalizado As Integer = -1, Optional CvePais As Integer = -1, Optional Pensionado As Boolean = False, Optional CveRegistroPatronal As Integer = -1, Optional CveEmpresaAsignado As Integer = -1, Optional CveMedioTransporte As Integer = -1, Optional EsReserva As Integer = -1, Optional Fiscalizable As Integer = -1, Optional CveTipoTrabajador As Integer = -1, Optional NetoPeriodo As Decimal = -1, - Optional TipoSangre As String = "-1") As Boolean + Optional TipoSangre As String = "-1", Optional CveSubTipoPeriodo As Integer = -1) As Boolean Dim Retorno As Boolean = False @@ -2168,6 +2169,7 @@ Public Class ClsRH .Add("@CveTipoTrabajador", SqlDbType.Int).Value = CveTipoTrabajador .Add("@NetoPeriodo", SqlDbType.Money).Value = NetoPeriodo .Add("@TipoSangre", SqlDbType.VarChar).Value = TipoSangre + .Add("@CveSubTipoPeriodo", SqlDbType.Int).Value = CveSubTipoPeriodo End With diff --git a/Inicio.aspx b/Inicio.aspx index 14e960aa7..86120a1e5 100644 --- a/Inicio.aspx +++ b/Inicio.aspx @@ -1941,16 +1941,10 @@ - } else { - + } else { $("#<%=LnkTituloLink.ClientID%>").css("display", ""); - if (event.CveTipoEvento == 1) { $("#<%=LnkTituloLink.ClientID%>").text("Tarea: " + event.title); - $("#<%=LnkTituloLink.ClientID%>").attr("href", "/OI/TareaDetalle.aspx?CveTipoEvento=1&CveEvento=" + event.id); - - } else { - $("#<%=LnkTituloLink.ClientID%>").css("display", "none"); - } + $("#<%=LnkTituloLink.ClientID%>").attr("href", "/OI/TareaDetalle.aspx?CveTipoEvento="+event.CveTipoEvento+"&CveEvento=" + event.id); } diff --git a/Nomina/CatPeriodos.aspx b/Nomina/CatPeriodos.aspx index 0f8d92523..d465b23fd 100644 --- a/Nomina/CatPeriodos.aspx +++ b/Nomina/CatPeriodos.aspx @@ -184,7 +184,7 @@ - @@ -367,6 +367,10 @@ +
Subtipo Periodo:
+
+ +

diff --git a/Nomina/CatPeriodos.aspx.vb b/Nomina/CatPeriodos.aspx.vb index 7e070c3b3..de0124619 100644 --- a/Nomina/CatPeriodos.aspx.vb +++ b/Nomina/CatPeriodos.aspx.vb @@ -217,6 +217,7 @@ Partial Class Nomina_CatPeriodos Private Sub LnkAddPeriodo_Click(sender As Object, e As EventArgs) Handles LnkAddPeriodo.Click LimpiarModal() Comando = "Agregar" + TxtCveSubTipoPeriodoAdd.Text = "1" lblTiulomodal.Text = "Agregar Periodo" RegistraScript("$('#divAddPeriodo').modal('show');") End Sub @@ -238,7 +239,10 @@ Partial Class Nomina_CatPeriodos Dim CveTipoPeriodo As Integer = DdlTipoPeriodoAdd.SelectedValue.ToEntero() Dim Estatus As Integer = DdlEstatusAdd.SelectedValue.ToEntero() Dim CvePeriodo As Integer = hdnCvePerido.Value.ToEntero() - + Dim CveSubTipoPeriodo As Integer = TxtCveSubTipoPeriodoAdd.Text.ToEntero() + If CveSubTipoPeriodo <= 1 Then + CveSubTipoPeriodo = 1 + End If For Each item As ListItem In CBLchk.Items Select Case item.Value.ToEntero() Case 1 @@ -259,7 +263,7 @@ Partial Class Nomina_CatPeriodos Next If Comando = "Agregar" Then - If ObjNom_Periodos.AddPeriodo(CveTipoPeriodo, Ejercicio, Mes, Numero, FechaInicio, FechaFin, EsInicioMes, EsFinMes, EsInicioSS, EsFinSS, EsInicioAño, EsFinAño, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTurno.SelectedValue.ToEntero(), DdlEstatus.SelectedValue.ToEntero()) Then + If ObjNom_Periodos.AddPeriodo(CveTipoPeriodo, Ejercicio, Mes, Numero, FechaInicio, FechaFin, EsInicioMes, EsFinMes, EsInicioSS, EsFinSS, EsInicioAño, EsFinAño, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlTurno.SelectedValue.ToEntero(), DdlEstatus.SelectedValue.ToEntero(), CveSubTipoPeriodo) Then Alert("El nuevo Periodo se guardó correctamente.", TipoMensaje.MsgInformacion) UpDatos.Update() @@ -275,7 +279,7 @@ Partial Class Nomina_CatPeriodos End If ElseIf Comando = "Actualizar" Then - If ObjNom_Periodos.UpdatePeriodo(FechaInicio, FechaFin, EsInicioMes, EsFinMes, EsInicioSS, EsFinSS, EsInicioAño, EsFinAño, FueCalculado, CveTipoPeriodo, Ejercicio, Mes, Numero, Estatus, CvePeriodo, UsuarioActual.CveEmpresa, DdlTurno.SelectedValue.ToEntero()) Then + If ObjNom_Periodos.UpdatePeriodo(FechaInicio, FechaFin, EsInicioMes, EsFinMes, EsInicioSS, EsFinSS, EsInicioAño, EsFinAño, FueCalculado, CveTipoPeriodo, Ejercicio, Mes, Numero, Estatus, CvePeriodo, UsuarioActual.CveEmpresa, DdlTurno.SelectedValue.ToEntero(), CveSubTipoPeriodo) Then Alert("Los cambios se guardaron correctamente.", TipoMensaje.MsgInformacion) UpDatos.Update() @@ -312,6 +316,8 @@ Partial Class Nomina_CatPeriodos TxtFechaFinAdd.Text = GvRow.DataKey("FechaFin").ToString() DdlEstatusAdd.SelectedValueExist(GvRow.DataKey("Estatus").ToString().ToEntero()) hdnCvePerido.Value = GvRow.DataKey("CvePeriodo").ToString() + TxtCveSubTipoPeriodoAdd.Text = GvRow.DataKey("CveSubTipoPeriodo").ToString() + For Each item As ListItem In CBLchk.Items Select Case item.Value.ToEntero() Case 1 diff --git a/Nomina/Finiquito.aspx b/Nomina/Finiquito.aspx index a04dd6a9f..cf5670537 100644 --- a/Nomina/Finiquito.aspx +++ b/Nomina/Finiquito.aspx @@ -366,7 +366,7 @@
- Finiquito (Ordinario) + Finiquito (Ordinario)
diff --git a/Nomina/Finiquito.aspx.cs b/Nomina/Finiquito.aspx.cs index 78776b08e..f803f8784 100644 --- a/Nomina/Finiquito.aspx.cs +++ b/Nomina/Finiquito.aspx.cs @@ -36,11 +36,11 @@ public partial class Nomina_Finiquito : ClsPaginas get { return ViewState["CvePersonalAltas"] != null ? ViewState["CvePersonalAltas"].ToString().ToEntero() : 0; } set { ViewState["CvePersonalAltas"] = value; } } - /*private int CvePeriodoIndemnizacion + private int CvePeriodoIndemnizacion { get { return ViewState["CvePeriodoIndemnizacion"] != null ? ViewState["CvePeriodoIndemnizacion"].ToString().ToEntero() : 0; } set { ViewState["CvePeriodoIndemnizacion"] = value; } - }*/ + } private int CvePeriodoFiniquito { get { return ViewState["CvePeriodoFiniquito"] != null ? ViewState["CvePeriodoFiniquito"].ToString().ToEntero() : 0; } @@ -88,6 +88,40 @@ public partial class Nomina_Finiquito : ClsPaginas set { ViewState["dtempleados"] = value; } } + + + + private DataTable dtConceptosIndemnizacion + { + get + { + if (ViewState["dtConceptosIndemnizacion"] == null) { return null; } + else { return (DataTable)ViewState["dtConceptosIndemnizacion"]; } + } + + set { ViewState["dtConceptosIndemnizacion"] = value; } + } + + private DataTable dtempleadosConceptosIndemnizacion + { + get + { + if (ViewState["dtempleadosConceptosIndemnizacion"] == null) { return null; } + else { return (DataTable)ViewState["dtempleadosConceptosIndemnizacion"]; } + } + + set { ViewState["dtempleadosConceptosIndemnizacion"] = value; } + } + private DataTable dtempleadosIndemnizacion + { + get + { + if (ViewState["dtempleadosIndemnizacion"] == null) { return null; } + else { return (DataTable)ViewState["dtempleadosIndemnizacion"]; } + } + + set { ViewState["dtempleadosIndemnizacion"] = value; } + } #endregion protected void Page_Load(object sender, EventArgs e) { @@ -183,7 +217,7 @@ public partial class Nomina_Finiquito : ClsPaginas DdlMotivoBaja.SelectedValueExist(da["CveMotivoBaja"]); TxtSalarioMinimo.Text = $"{da["SalarioMinimo"]:N2}"; ChkesLiquidacion.Checked = (da["esLiquidacion"].ToString() == "1" || da["esLiquidacion"].ToString().ToUpper() == "TRUE"); - //CvePeriodoIndemnizacion = da["CvePeriodoIndemnizacion"].ToString().ToEntero(); + CvePeriodoIndemnizacion = da["CvePeriodoIndemnizacion"].ToString().ToEntero(); CvePeriodoFiniquito = da["CvePeriodoFiniquito"].ToString().ToEntero(); if (CvePeriodoFiniquito > 0) { @@ -720,7 +754,7 @@ public partial class Nomina_Finiquito : ClsPaginas 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(); + CvePeriodoIndemnizacion = da["CvePeriodoIndemnizacion"].ToString().ToEntero(); CvePeriodoFiniquito = da["CvePeriodoFiniquito"].ToString().ToEntero(); // Alert(string.Format("{0}: {1}", CvePeriodoIndemnizacion, CvePeriodoFiniquito)); } @@ -763,7 +797,7 @@ public partial class Nomina_Finiquito : ClsPaginas 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(); + CvePeriodoIndemnizacion = da["CvePeriodoIndemnizacion"].ToString().ToEntero(); CvePeriodoFiniquito = da["CvePeriodoFiniquito"].ToString().ToEntero(); // Alert(string.Format("{0}: {1}", CvePeriodoIndemnizacion, CvePeriodoFiniquito)); } @@ -822,6 +856,8 @@ public partial class Nomina_Finiquito : ClsPaginas List finindem = null; dtempleadosConceptos = null; dtempleados = null; + dtempleadosConceptos = null; + dtempleados = null; LnkAutorizar.Visible = true; if (objnom.GetNominaEmpleado(-1, -1, -1, CvePeriodoFiniquito, UsuarioActual.CveEmpresa, 1, 3, CvePersonal, Neto: 1) && objnom.DTSetResultados.Tables.Count > 1) { @@ -835,13 +871,37 @@ public partial class Nomina_Finiquito : ClsPaginas UpAcciones.Update(); dtempleadosConceptos = objnom.DTSetResultados.Tables[4]; dtConceptos = objnom.DTSetResultados.Tables[0]; - LnkCancelar.Visible = !LnkAutorizar.Visible? false: LnkCancelar.Visible; - LnkGuardarDatos.Visible = !LnkAutorizar.Visible?false: LnkGuardarDatos.Visible; + LnkCancelar.Visible = !LnkAutorizar.Visible ? false : LnkCancelar.Visible; + LnkGuardarDatos.Visible = !LnkAutorizar.Visible ? false : LnkGuardarDatos.Visible; + LtlFiniquitoOrdinario.Text = $""; + DataRow dre = dtempleados.FiltroPrimero(string.Format(" CvePersonal ={0}", CvePersonal)); + if (dre != null) + { + LtlFiniquitoOrdinario.Text = string.Format(" del {1:dd/MM/yyyy} al {2:dd/MM/yyyy} {0}", (dre["CveTipoPeriodo"].ToString()=="6"? "Extraordinario" : "Ordinario"), dre["FechaInicio"], dre["FechaFin"]); + } + } + if (objnom.GetNominaEmpleado(-1, -1, -1, CvePeriodoIndemnizacion, UsuarioActual.CveEmpresa, 1, 3, CvePersonal, Neto: 1) && objnom.DTSetResultados.Tables.Count > 1) + { + dtempleadosIndemnizacion = objnom.DTSetResultados.Tables[3]; + dtempleadosConceptosIndemnizacion = objnom.DTSetResultados.Tables[4]; + dtConceptosIndemnizacion = objnom.DTSetResultados.Tables[0]; + LnkAutorizar.Visible = (dtempleados.COUNT("CvePersonal", string.Format("NomAutorizado =0 AND CvePersonal ={0}", CvePersonal)) > 0); + NominaAutorizada = !LnkAutorizar.Visible; + LnkFormatoRenuncia.Visible = true; + LnkGuardarDatos.Enabled = LnkAutorizar.Visible; + LnkTimbrar.Visible = !(LnkAutorizar.Visible) && (dtempleados.COUNT("CvePersonal", string.Format("SeTimbro=0 AND CvePersonal ={0}", CvePersonal)) > 0); + LnkCancelarNomina.Visible = !LnkAutorizar.Visible && LnkTimbrar.Visible; + UpAcciones.Update(); + LnkCancelar.Visible = !LnkAutorizar.Visible ? false : LnkCancelar.Visible; + LnkGuardarDatos.Visible = !LnkAutorizar.Visible ? false : LnkGuardarDatos.Visible; } if (dtConceptos != null && dtempleadosConceptos != null && dtempleados != null) { - finordin = cargasobrericiboconceptos(dtConceptos, dtempleadosConceptos, dtempleados); - finindem = cargasobrericiboconceptosIndemnizacion(dtConceptos, dtempleadosConceptos, dtempleados); + finordin = cargasobrericiboconceptos(dtConceptos, dtempleadosConceptos, dtempleados); + } + if (dtConceptosIndemnizacion != null && dtempleadosConceptosIndemnizacion != null && dtempleadosIndemnizacion != null) + { + finindem = cargasobrericiboconceptosIndemnizacion(dtConceptosIndemnizacion, dtempleadosConceptosIndemnizacion, dtempleadosIndemnizacion); } GvFinOrdinario.DataSource = finordin; @@ -860,30 +920,9 @@ public partial class Nomina_Finiquito : ClsPaginas private List cargasobrericiboconceptos(DataTable dtConceptos, DataTable dtempleadosConceptos, DataTable dtempleados) { int SRCvePersonal = this.CvePersonal; - DataTable dtper = dtConceptos.FiltraParametros("Tipo IN ('P') AND EsPadre = 1 And CveSistema NOT IN(10,11,32) "); - DataTable dtded = dtConceptos.FiltraParametros("Tipo IN ('D') AND EsPadre = 1 AND CveSistema NOT IN( 47,101)"); - double percepcionesindem = 0; - double deduccionesindem = 0; - foreach (DataRow row in dtConceptos.FiltraParametros("Tipo IN ('P') AND EsPadre = 1 And CveSistema IN(10,11,32) ").Rows) - { - int CveConcepto = row["CveConcepto"].ToString().ToEntero(); - string Concepto = row["Concepto"].ToString(); - string Codigo = row["Codigo"].ToString(); - //bool visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0); - double Importe = dtempleados.SUM(string.Format("[V_{0}]", CveConcepto), string.Format("CvePersonal = {0}", SRCvePersonal)); - percepcionesindem += Importe; - } - foreach (DataRow row in dtConceptos.FiltraParametros("Tipo IN ('D') AND EsPadre = 1 AND CveSistema =47").Rows) - { - int CveConcepto = row["CveConcepto"].ToString().ToEntero(); - string Concepto = row["Concepto"].ToString(); - string Codigo = row["Codigo"].ToString(); - //bool visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0); - double Importe = dtempleados.SUM(string.Format("[V_{0}]", CveConcepto), string.Format("CvePersonal = {0}", SRCvePersonal)); - deduccionesindem += Importe; - } - - + DataTable dtper = dtConceptos.FiltraParametros("Tipo IN ('P') AND EsPadre = 1 "); + DataTable dtded = dtConceptos.FiltraParametros("Tipo IN ('D') AND EsPadre = 1 "); + dtper.Columns.Add("BorradoLogico", typeof(int)); dtded.Columns.Add("BorradoLogico", typeof(int)); @@ -967,14 +1006,14 @@ public partial class Nomina_Finiquito : ClsPaginas SubTotales.CveConceptoP = 0; SubTotales.ConceptoP = "Total Percepciones"; SubTotales.EstatusP = -2; - SubTotales.ImporteP = dtempleados.SUM("SumaPercepciones", string.Format("CvePersonal = {0}", SRCvePersonal)) - percepcionesindem; + SubTotales.ImporteP = dtempleados.SUM("SumaPercepciones", string.Format("CvePersonal = {0}", SRCvePersonal)) ; ///Alert(SubTotales.ImporteP.ToString()); SubTotales.CveConceptoD = 0; SubTotales.ConceptoD = "Total Deducciones"; SubTotales.EstatusD = -2; - SubTotales.ImporteD = dtempleados.SUM("SumaDeducciones", string.Format("CvePersonal = {0}", SRCvePersonal)) - deduccionesindem; + SubTotales.ImporteD = dtempleados.SUM("SumaDeducciones", string.Format("CvePersonal = {0}", SRCvePersonal)) ; double neto = SubTotales.ImporteP - SubTotales.ImporteD; NConcepto Totales = new NConcepto(); @@ -992,28 +1031,9 @@ public partial class Nomina_Finiquito : ClsPaginas private List cargasobrericiboconceptosIndemnizacion(DataTable dtConceptos, DataTable dtempleadosConceptos, DataTable dtempleados) { int SRCvePersonal = this.CvePersonal; - DataTable dtper = dtConceptos.FiltraParametros("Tipo IN ('P') AND EsPadre = 1 AND CveSistema IN(10,11,32) "); - DataTable dtded = dtConceptos.FiltraParametros("Tipo IN ('D') AND EsPadre = 1 AND CveSistema = 47"); - double percepcionesindem = 0; - double deduccionesindem = 0; - foreach (DataRow row in dtConceptos.FiltraParametros("Tipo IN ('P') AND EsPadre = 1 And CveSistema IN(10,11,32) ").Rows) - { - int CveConcepto = row["CveConcepto"].ToString().ToEntero(); - string Concepto = row["Concepto"].ToString(); - string Codigo = row["Codigo"].ToString(); - //bool visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0); - double Importe = dtempleados.SUM(string.Format("[V_{0}]", CveConcepto), string.Format("CvePersonal = {0}", SRCvePersonal)); - percepcionesindem += Importe; - } - foreach (DataRow row in dtConceptos.FiltraParametros("Tipo IN ('D') AND EsPadre = 1 AND CveSistema =47").Rows) - { - int CveConcepto = row["CveConcepto"].ToString().ToEntero(); - string Concepto = row["Concepto"].ToString(); - string Codigo = row["Codigo"].ToString(); - //bool visible = (dtempleados.SUM(string.Format("[V_{0}]", CveConcepto)) > 0); - double Importe = dtempleados.SUM(string.Format("[V_{0}]", CveConcepto), string.Format("CvePersonal = {0}", SRCvePersonal)); - deduccionesindem += Importe; - } + DataTable dtper = dtConceptos.FiltraParametros("Tipo IN ('P') AND EsPadre = 1"); + DataTable dtded = dtConceptos.FiltraParametros("Tipo IN ('D') AND EsPadre = 1"); + dtper.Columns.Add("BorradoLogico", typeof(int)); dtded.Columns.Add("BorradoLogico", typeof(int)); @@ -1096,14 +1116,15 @@ public partial class Nomina_Finiquito : ClsPaginas SubTotales.CveConceptoP = 0; SubTotales.ConceptoP = "Total Percepciones"; SubTotales.EstatusP = -2; - SubTotales.ImporteP = percepcionesindem; + SubTotales.ImporteP = dtempleados.SUM("SumaPercepciones", string.Format("CvePersonal = {0}", SRCvePersonal)); ///Alert(SubTotales.ImporteP.ToString()); SubTotales.CveConceptoD = 0; SubTotales.ConceptoD = "Total Deducciones"; SubTotales.EstatusD = -2; - SubTotales.ImporteD = deduccionesindem; + SubTotales.ImporteD = dtempleados.SUM("SumaDeducciones", string.Format("CvePersonal = {0}", SRCvePersonal)); + double neto = SubTotales.ImporteP - SubTotales.ImporteD; NConcepto Totales = new NConcepto(); diff --git a/OI/TareaDetalle.aspx.cs b/OI/TareaDetalle.aspx.cs index 9de151c22..a16b711b7 100644 --- a/OI/TareaDetalle.aspx.cs +++ b/OI/TareaDetalle.aspx.cs @@ -510,7 +510,7 @@ public partial class OI_TareaDetalle : ClsPaginas else if (CveCompra > 0) { titulo = "Compra "; - link = string.Format("{0} ", drow["Compra"], CveCompra); + link = string.Format("{0} ", drow["Compra"], CveCompra); } else if (CvePersonal > 0) diff --git a/RH/Asistencias.aspx.vb b/RH/Asistencias.aspx.vb index 2dad8eaa7..0b84823f6 100644 --- a/RH/Asistencias.aspx.vb +++ b/RH/Asistencias.aspx.vb @@ -5,6 +5,14 @@ Imports Microsoft.Reporting.WebForms Partial Class RH_Asistencias Inherits ClsPaginas + Private Property dTAsistenciasInasistencias As DataTable + Get + Return DirectCast(ViewState("dTAsistenciasInasistencias"), DataTable) + End Get + Set(value As DataTable) + ViewState("dTAsistenciasInasistencias") = value + End Set + End Property Protected Sub Page_Load(sender As Object, e As System.EventArgs) Handles Me.Load If Not IsPostBack Then @@ -13,6 +21,8 @@ Partial Class RH_Asistencias CargaSuperioresOrganigrama() CargaProyecto() CargaTurnos() + dTAsistenciasInasistencias = GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa) + If UsuarioActual.Empresa.Funcionalidad(267) = "1" Then ' emp citricola divCliente.Visible = False LblCliente.Visible = False @@ -93,6 +103,9 @@ Partial Class RH_Asistencias ElseIf DdlSupervisorOrganigrama.SelectedValue.ToEntero() = -2 Then dt = dt.FiltraParametros("CvePersonalPadre IS NULL") End If + 'If UsuarioActual.CveEmpresa.Contiene(172, 173) Then + ' dt = dt.FiltraParametros("", "Tipo") + 'End If GV.DataSource = dt Else GV.DataSource = Nothing @@ -175,7 +188,7 @@ Partial Class RH_Asistencias e.Row.FCTextBox("TxtHorasTriples").Text = e.Row.DBCampo("HorasTriples") 'Carga Tipos de Asistencia - e.Row.FCDropDownList("DdlTipoAsistencias").DataSource = GlobalDTAsistenciasInasistencias(UsuarioActual.CveEmpresa) + e.Row.FCDropDownList("DdlTipoAsistencias").DataSource = dTAsistenciasInasistencias e.Row.FCDropDownList("DdlTipoAsistencias").DataBind() If e.Row.DBCampo("CveAsistenciasInasistencias") <> "-1" Then e.Row.FCDropDownList("DdlTipoAsistencias").SelectedValue = e.Row.DBCampo("CveAsistenciasInasistencias") diff --git a/RH/Personal.aspx b/RH/Personal.aspx index 1458c87e2..9bcecc251 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -1481,14 +1481,22 @@
- +
- + +
+ + + + + + +
diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index d43395c43..bc1bb755f 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -30,6 +30,20 @@ Partial Class RH_Personal ViewState("salarioVariable") = value End Set End Property + + + Property CveSubTipoPeriodo As Integer + Get + If ViewState("CveSubTipoPeriodo") Is Nothing Then + Return -1 + Else + Return DirectCast(ViewState("CveSubTipoPeriodo"), Integer) + End If + End Get + Set(value As Integer) + ViewState("CveSubTipoPeriodo") = value + End Set + End Property Property CcveMovtoPermanente As Integer Get If ViewState("CcveMovtoPermanente") Is Nothing Then @@ -246,6 +260,14 @@ Partial Class RH_Personal End Property + Private Property dtSubTipoPeriodo As Data.DataTable + Get + Return CType(ViewState("dtSubTipoPeriodo"), DataTable) + End Get + Set(value As Data.DataTable) + ViewState("dtSubTipoPeriodo") = value + End Set + End Property Private Property dtNomConceptos As Data.DataTable Get Return CType(ViewState("dtNomConceptos"), DataTable) @@ -893,7 +915,10 @@ Partial Class RH_Personal Using objno As New ClsNominas objno.GetConceptos() dtNomConceptos = objno.DtResultados + objno.GetSubTipoPeriodo(UsuarioActual.CveEmpresa) + dtSubTipoPeriodo = objno.DtResultados End Using + divSubTipoPeriodo.Visible = False PnlSalarios.Visible = showsalarios ViewState("Orden") = "" @@ -1056,6 +1081,7 @@ Partial Class RH_Personal DdlRegimenContratacion.SelectedValueExist(1) DdlMetodoPago.SelectedValueExist(1) DdlTipoPeriodo.SelectedValueExist(1) + DdlTipoPeriodo_SelectedIndexChanged(Nothing, Nothing) DdlTipoContrato.SelectedValueExist(2) DdlJornada.SelectedValueExist(6) DdlPuesto.SelectedIndex = 1 @@ -1658,6 +1684,7 @@ Partial Class RH_Personal If ObjPersonal.DtResultados.Rows.Count > 0 Then Dim drow As DataRow = ObjPersonal.DtResultados.Rows(0) Retorno = True + CveSubTipoPeriodo = drow("CveSubTipoPeriodo").ToString().ToEntero() ChkEstemporal.Checked = drow("esTemporal").ToString() = "1" CHKRFCValidado.Checked = drow("RFCValidado").ToString() = "1" 'ChkPensionado.Checked = drow("Pensionado").ToString().ToUpper().Contiene("1", "TRUE") @@ -1817,6 +1844,7 @@ Partial Class RH_Personal 'Carga Nómina TxtFechaIngreso.Text = ObjPersonal.FechaIngreso.ToShortDateString DdlTipoPeriodo.SelectedValue = ObjPersonal.CveTipoPeriodo.ToString() + DdlTipoPeriodo_SelectedIndexChanged(Nothing, Nothing) TxtNumeroSS.Text = ObjPersonal.NumeroSS ChkSeInscribioSS.Checked = ObjPersonal.SeInscribioSS TxtSalarioDiarioPago.Text = ObjPersonal.SalarioDiarioPago.ToString() @@ -1996,6 +2024,7 @@ Partial Class RH_Personal If UsuarioActual.CveEmpresa = 72 OrElse UsuarioActual.CveEmpresa = 80 Then TxtSalarioCotizado.Text = TxtSDI.Text End If + CveSubTipoPeriodo = ddlSubTipoPeriodo.SelectedValue.ToEntero() If CvePersonal = -1 Then URL = "" @@ -2021,7 +2050,7 @@ Partial Class RH_Personal UsuarioActual.CveEmpresa, DDLUsuarioNomina.SelectedValue.ToEntero(), TxtBeneficiario.Text.Trim, DdlSubproyectoZona.SelectedValue.ToEntero(), CveUniforme:=DdlUniforme.SelectedValue.ToEntero(), TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=ChkSindicalizado.Checked, Pensionado:=ChkPensionado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero(), CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero(), - CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero, CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero(), NetoPeriodo:=TxtNetoPeriodo.Text.ToDecimal, TipoSangre:=DdlTipoSangre.SelectedValue) Then + CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero, CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero(), NetoPeriodo:=TxtNetoPeriodo.Text.ToDecimal, TipoSangre:=DdlTipoSangre.SelectedValue, CveSubTipoPeriodo:=CveSubTipoPeriodo) Then If Archivo.Exists Then @@ -2107,7 +2136,7 @@ Partial Class RH_Personal TelefonoExtension:=TxtTelefonoExtension.Text, CelularPersonal:=TxtCelularPersonal.Text, TelefonoMarcadoRapido:=TxtTelefonoMarcadoRapido.Text, ContactoAlterno:="", CveUsuarioModifico:=UsuarioActual.CveUsuario, CveTipodeSalario:=DDlTipoSalario.SelectedValue.ToEntero(), Sindicalizado:=If(ChkSindicalizado.Checked, 1, 0), Pensionado:=ChkPensionado.Checked, CvePais:=DdlPais.SelectedValue.ToEntero(), CveRegistroPatronal:=DdlRegistroPatronal.SelectedValue.ToEntero(), CveEmpresaAsignado:=DdlEmpresaAsignada.SelectedValue.ToEntero(), EsReserva:=If(chkEsReserva.Checked, 1, 0), - Fiscalizable:=If(chkNoFiscalizar.Checked, 0, 1), CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero(), NetoPeriodo:=TxtNetoPeriodo.Text.ToDecimal, TipoSangre:=DdlTipoSangre.SelectedValue) Then + Fiscalizable:=If(chkNoFiscalizar.Checked, 0, 1), CveTipoTrabajador:=DdlTipoTrabajador.SelectedValue.ToEntero(), NetoPeriodo:=TxtNetoPeriodo.Text.ToDecimal, TipoSangre:=DdlTipoSangre.SelectedValue, CveSubTipoPeriodo:=CveSubTipoPeriodo) Then 'Funcion usa RH Familiares If UsuarioActual.Empresa.Funcionalidad(568) = "1" Then @@ -8004,6 +8033,19 @@ Partial Class RH_Personal + End Sub + + Protected Sub DdlTipoPeriodo_SelectedIndexChanged(sender As Object, e As EventArgs) + Dim dt As DataTable = dtSubTipoPeriodo.FiltraParametros(String.Format("CveTipoPeriodo ={0}", DdlTipoPeriodo.SelectedValue.ToEntero())) + + divSubTipoPeriodo.Visible = dt.Rows.Count > 1 + ddlSubTipoPeriodo.DataSource = dt + ddlSubTipoPeriodo.DataBind() + If dt.Rows.Count > 0 Then + ddlSubTipoPeriodo.SelectedIndex = 0 + End If + ddlSubTipoPeriodo.SelectedValueExist(CveSubTipoPeriodo.ToString()) + UpDatos.Update() End Sub End Class From b9ade8198d829c1d37027a2841bdf2c1461c0443 Mon Sep 17 00:00:00 2001 From: rakcsle Date: Mon, 30 Oct 2023 10:42:11 -0700 Subject: [PATCH 2/2] =?UTF-8?q?Correci=C3=ADn=20empresas=20asunto=20cotiza?= =?UTF-8?q?cion?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- Sistemas/Empresa.aspx | 2 +- Sistemas/Empresa.aspx.vb | 8 ++++---- 2 files changed, 5 insertions(+), 5 deletions(-) diff --git a/Sistemas/Empresa.aspx b/Sistemas/Empresa.aspx index a5a8d023d..590c0090d 100644 --- a/Sistemas/Empresa.aspx +++ b/Sistemas/Empresa.aspx @@ -1272,7 +1272,7 @@
- +
diff --git a/Sistemas/Empresa.aspx.vb b/Sistemas/Empresa.aspx.vb index 00a305730..509b7b260 100644 --- a/Sistemas/Empresa.aspx.vb +++ b/Sistemas/Empresa.aspx.vb @@ -306,8 +306,8 @@ Partial Class Sistemas_Empresa TxtPlantillaVenta.Text = .PlantillaMailVenta TxtAsunto.Text = .AsuntoPlantillaMailVenta - TxtPlantillaCotizacion.Text = .AsuntoPlantillaMailVentaCotizacion - TxtAsuntoCotizacion.Text = .PlantillaMailVentaCotizacion + TxtPlantillaCotizacion.Text = .PlantillaMailVentaCotizacion + TxtAsuntoCotizacion.Text = .AsuntoPlantillaMailVentaCotizacion 'NUEVOS TxtAreaGeografica.Text = .AreaGeografica @@ -653,8 +653,8 @@ Partial Class Sistemas_Empresa UsuarioActual.Empresa.PlantillaMailVenta = TxtPlantillaVenta.Text.Trim UsuarioActual.Empresa.AsuntoPlantillaMailVenta = TxtAsunto.Text.Trim - UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion = TxtPlantillaCotizacion.Text.Trim - UsuarioActual.Empresa.PlantillaMailVentaCotizacion = TxtAsuntoCotizacion.Text.Trim + UsuarioActual.Empresa.AsuntoPlantillaMailVentaCotizacion = TxtAsuntoCotizacion.Text.Trim + UsuarioActual.Empresa.PlantillaMailVentaCotizacion = TxtPlantillaCotizacion.Text.Trim 'TxtPlantillaVenta.Text = "" 'TxtAsunto.Text = ""