From 3cbcc284db30f9476ffa645a795d444505b7815e Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Thu, 28 Dec 2023 06:59:26 -0700 Subject: [PATCH] rh --- App_Code/ClsRH.vb | 13 +++++--- Nomina/CalculoISRAnual.aspx | 2 +- Nomina/CatPeriodos.aspx.vb | 4 ++- Nomina/Nomina.aspx | 63 ++++++++++++++++++++++++++++++++++--- Nomina/Nomina.aspx.cs | 19 ++++++++--- Ventas/Ventas.aspx.vb | 2 +- 6 files changed, 86 insertions(+), 17 deletions(-) diff --git a/App_Code/ClsRH.vb b/App_Code/ClsRH.vb index 0a5030349..283f9be3b 100644 --- a/App_Code/ClsRH.vb +++ b/App_Code/ClsRH.vb @@ -4,6 +4,7 @@ Option Explicit On Imports System.Data Imports System.Data.SqlClient Imports Extensiones +Imports Profact.TimbraCFDI40 Public Class ClsRH @@ -147,41 +148,45 @@ Public Class ClsRH Return retorno End Function #Region "CRUD_VacacionesEmpresas" - Public Function VacacionesEmpresasGet(cveEmpresa As Int32, inicio As Int32, fin As Int32) As Boolean + Public Function VacacionesEmpresasGet(cveEmpresa As Int32, inicio As Int32, fin As Int32, Ejercicio As Integer) As Boolean Dim retorno As Boolean = False DataAdapter("PA_RH_VacacionesEmpresasGet", CommandType.StoredProcedure) addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) addParameters("@Inicio", SqlDbType.Int, inicio) addParameters("@Fin", SqlDbType.Int, fin) + addParameters("@Ejercicio", SqlDbType.Int, Ejercicio) retorno = RunQuery("Ocurrió un error al obtener el Vacaciones Empresas.") Return retorno End Function - Public Function VacacionesEmpresasAdd(cveEmpresa As Int32, inicio As Int32, fin As Int32, diasVacaciones As Int32) As Boolean + Public Function VacacionesEmpresasAdd(cveEmpresa As Int32, inicio As Int32, fin As Int32, diasVacaciones As Int32, Ejercicio As Integer) As Boolean Dim retorno As Boolean = False DataAdapter("PA_RH_VacacionesEmpresasAdd", CommandType.StoredProcedure) addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) addParameters("@Inicio", SqlDbType.Int, inicio) addParameters("@Fin", SqlDbType.Int, fin) addParameters("@DiasVacaciones", SqlDbType.Int, diasVacaciones) + addParameters("@Ejercicio", SqlDbType.Int, Ejercicio) retorno = RunQuery("Ocurrió un error al agregar el Vacaciones Empresas.") Return retorno End Function - Public Function VacacionesEmpresasUp(cveEmpresa As Int32, inicio As Int32, fin As Int32, diasVacaciones As Int32) As Boolean + Public Function VacacionesEmpresasUp(cveEmpresa As Int32, inicio As Int32, fin As Int32, diasVacaciones As Int32, Ejercicio As Integer) As Boolean Dim retorno As Boolean = False DataAdapter("PA_RH_VacacionesEmpresasUp", CommandType.StoredProcedure) addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) addParameters("@Inicio", SqlDbType.Int, inicio) addParameters("@Fin", SqlDbType.Int, fin) addParameters("@DiasVacaciones", SqlDbType.Int, diasVacaciones) + addParameters("@Ejercicio", SqlDbType.Int, Ejercicio) retorno = RunQuery("Ocurrió un error al actualizar el Vacaciones Empresas.") Return retorno End Function - Public Function VacacionesEmpresasRemove(cveEmpresa As Int32, inicio As Int32, fin As Int32) As Boolean + Public Function VacacionesEmpresasRemove(cveEmpresa As Int32, inicio As Int32, fin As Int32, Ejercicio As Integer) As Boolean Dim retorno As Boolean = False DataAdapter("PA_RH_VacacionesEmpresasRemove", CommandType.StoredProcedure) addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) addParameters("@Inicio", SqlDbType.Int, inicio) addParameters("@Fin", SqlDbType.Int, fin) + addParameters("@Ejercicio", SqlDbType.Int, Ejercicio) retorno = RunQuery("Ocurrió un error al eliminar el Vacaciones Empresas.") Return retorno End Function diff --git a/Nomina/CalculoISRAnual.aspx b/Nomina/CalculoISRAnual.aspx index 964adbb22..64c1e0fed 100644 --- a/Nomina/CalculoISRAnual.aspx +++ b/Nomina/CalculoISRAnual.aspx @@ -101,7 +101,7 @@ + DataKeyNames="CvePersonal,Aplica,Codigo,NombreCompleto,TipoIngreso,FechaInicio,FechaFin,IngresosTotales,BaseGravada,Deducciones,ISRRetenido,Art152,SubsCorrespondiente,LimiteInferior,LimiteSuperior,CuotaFija,Porcentaje,ImpuestoAnual,Acargo,Acompensar"> diff --git a/Nomina/CatPeriodos.aspx.vb b/Nomina/CatPeriodos.aspx.vb index 7c08c724d..d195014ed 100644 --- a/Nomina/CatPeriodos.aspx.vb +++ b/Nomina/CatPeriodos.aspx.vb @@ -379,10 +379,12 @@ Partial Class Nomina_CatPeriodos Dim cveTipoPeriodo As Integer = DdlTipoPeriodoCM.SelectedValue.ToEntero() Dim cveSubTipoPeriodo As Integer = TxtCveSubTipoPeriodoCM.Text.ToEntero() Dim numero As Integer = TxtNumeroCM.Text.ToEntero() - Dim fechaInicio As String = TxtFechaInicioCM.Text + Dim fechaInicio As String = TxtFechaInicioCM.Text.ToDateTime().ToString("yyyy-MM-dd") Using onom As New ClsNominas If onom.CargaPeriodosEjercicio(ejercicio, cveTipoPeriodo, cveSubTipoPeriodo, numero, fechaInicio, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then + CargaDatos() + RegistraScript("$('#divCargaMasiva').modal('hide');") Alert("Se cargo satisfactoriamente.") End If End Using diff --git a/Nomina/Nomina.aspx b/Nomina/Nomina.aspx index c209bef0c..ad8df26d7 100644 --- a/Nomina/Nomina.aspx +++ b/Nomina/Nomina.aspx @@ -2898,6 +2898,14 @@ +
+
Ejercicio
+
+ + + +
+
@@ -2915,20 +2923,49 @@
+ +
+
+
+
+ +
+ +
+
+ + +
+ +
+
+
+ <%----%> +
+
+ +
+
+ DataKeyNames="CveEmpresa,Inicio,Fin,DiasVacaciones,Ejercicio"> - + + + + + + - + - + @@ -2946,6 +2983,7 @@
+
@@ -2953,7 +2991,22 @@ - +
+ + + + + + + + + + + + + + +
diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index 1906d0fdb..8cf590e5e 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -13,6 +13,7 @@ using static Extensiones.ModExtensiones; using Modelos; using System.Text.RegularExpressions; using iTextSharp.text.pdf.parser; +using Profact.TimbraCFDI40; public partial class Nomina_Nomina2 : ClsPaginas { @@ -9688,11 +9689,16 @@ public partial class Nomina_Nomina2 : ClsPaginas } + protected void LnkConsultartablasVacaciones_Click(object sender, EventArgs e) + { + CargaVacacionesEmpresas(); + } protected void CargaVacacionesEmpresas() { + int ejercicio = TxtEjercicioFiltroVacaciones.Text.Trim() == "" ? -1: TxtEjercicioFiltroVacaciones.Text.Trim().ToEntero(); using (ClsRH ObjVaca = new ClsRH()) { - ObjVaca.VacacionesEmpresasGet(UsuarioActual.CveEmpresa, -1, -1); + ObjVaca.VacacionesEmpresasGet(UsuarioActual.CveEmpresa, -1, -1, ejercicio); GVVacacionesEmpresas.DataSource = ObjVaca.DtResultados; ObjVaca.Dispose(); } @@ -9707,18 +9713,19 @@ public partial class Nomina_Nomina2 : ClsPaginas int diasVacaciones = TxtVacadiasVacaciones.Text.ToEntero(); int Cinicio = TxtVacaInicio.Text.ToEntero(); int Cfin = TxtVacaFin.Text.ToEntero(); + int ejercicio = TxtEjercicioVacaciones.Text.ToEntero(); bool Continuar = false; using (ClsRH ObjVaca = new ClsRH()) { - Continuar = ObjVaca.VacacionesEmpresasAdd(UsuarioActual.CveEmpresa, Cinicio, Cfin, diasVacaciones); + Continuar = ObjVaca.VacacionesEmpresasAdd(UsuarioActual.CveEmpresa, Cinicio, Cfin, diasVacaciones, ejercicio); } if (Continuar) { RegistraScript("$('#DModalVacacionesEmpresas').modal('hide');"); CargaVacacionesEmpresas(); upDatosVacaEmpre.Update(); - Alert("El Vacaciones_Empresas Se ha agregado"); + Alert("Las Vacaciones se han agregado."); } } @@ -9728,10 +9735,11 @@ public partial class Nomina_Nomina2 : ClsPaginas int CcveEmpresa = gvRow.DataKey("CveEmpresa").ToEntero(); int Cinicio = gvRow.DataKey("Inicio").ToEntero(); int Cfin = gvRow.DataKey("Fin").ToEntero(); + int Ejercicio = gvRow.DataKey("Ejercicio").ToEntero(); bool Continuar = false; using (ClsRH ObjVaca = new ClsRH()) { - Continuar = ObjVaca.VacacionesEmpresasRemove(CcveEmpresa, Cinicio, Cfin); + Continuar = ObjVaca.VacacionesEmpresasRemove(CcveEmpresa, Cinicio, Cfin, Ejercicio); } if (Continuar) { @@ -10925,7 +10933,7 @@ public partial class Nomina_Nomina2 : ClsPaginas int cveTipoPeriodo = DdlTipoPeriodoCMB.SelectedValue.ToEntero(); int cveSubTipoPeriodo = TxtCveSubTipoPeriodoCM.Text.ToEntero(); int numero = TxtNumeroCM.Text.ToEntero(); - string fechaInicio = TxtFechaInicioCM.Text; + string fechaInicio = TxtFechaInicioCM.Text.ToDateTime().ToString("yyyy-MM-dd"); using (ClsNominas onom = new ClsNominas()) { @@ -10935,4 +10943,5 @@ public partial class Nomina_Nomina2 : ClsPaginas } } } + } \ No newline at end of file diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb index e1eff45d0..a47c493b8 100644 --- a/Ventas/Ventas.aspx.vb +++ b/Ventas/Ventas.aspx.vb @@ -2682,8 +2682,8 @@ Partial Class Ventas End If If ObjVentas.ManifiestoForVtaGet(UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario, Request("CveManifiesto").ToEntero()) Then - GvPS.DataSource = ObjVentas.DtResultados + TmpDT = ObjVentas.DtResultados GvPS.DataBind() End If