From 13f7b26b2dbb8056405f634b74482bcde09e77e0 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Mon, 20 Nov 2023 07:37:53 -0700 Subject: [PATCH] Carga masiva de periodos carga masiva de conceptos alerta de periodos no cargados en nominas y carga Correccion en el catalogo de puestos para que no asigne todas la empresas al global de la empresa --- App_Code/ClsNominas.vb | 40 +- Nomina/CatPeriodos.aspx | 71 +- Nomina/CatPeriodos.aspx.vb | 24 + Nomina/Nomina.aspx | 67 +- Nomina/Nomina.aspx.cs | 36 +- RH/CatPuesto.aspx.vb | 8 +- Sistemas/Empresa.aspx | 2538 ++++++++++++++++++------------------ Sistemas/Empresa.aspx.vb | 27 +- 8 files changed, 1542 insertions(+), 1269 deletions(-) diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 6d12c1f84..4ab276bd8 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -3363,9 +3363,6 @@ Public Class ClsNominas Return retorno End Function - Public Sub addParameters(varsql As String, sqltipe As SqlDbType, valor As Object) - SqlAdapter.SelectCommand.Parameters.Add(varsql, sqltipe).Value = valor - End Sub Public Function RunQuery(errormsg As String) As Boolean Dim retorno As Boolean = False Try @@ -3684,6 +3681,43 @@ Public Class ClsNominas Return retorno End Function + Public Function ConceptosGetallnewEmpresa(CveEmpresaOrigen As Integer, CveEmpresaDestino As Integer) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Nom_ConceptosGetallnewEmpresa", CommandType.StoredProcedure) + With SqlAdapter.SelectCommand.Parameters + .Add("@CveEmpresaOrigen", SqlDbType.Int).Value = CveEmpresaOrigen + .Add("@CveEmpresaDestino", SqlDbType.Int).Value = CveEmpresaDestino + End With + Try + SqlAdapter.Fill(Data) + retorno = True + Catch ex As Exception + OnError("Ocurrió un error al clonar los conceptos de nominas.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + + Public Function CargaPeriodosEjercicio(ejercicio As Int32, cveTipoPeriodo As Int32, cveSubTipoPeriodo As Int32, numero As Int32, fechaInicio As String, cveEmpresa As Int32, cveUsuario As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Nom_CargaPeriodosEjercicio", CommandType.StoredProcedure) + addParameters("@Ejercicio", SqlDbType.Int, ejercicio) + addParameters("@CveTipoPeriodo", SqlDbType.Int, cveTipoPeriodo) + addParameters("@CveSubTipoPeriodo", SqlDbType.Int, cveSubTipoPeriodo) + addParameters("@Numero", SqlDbType.Int, numero) + addParameters("@FechaInicio", SqlDbType.VarChar, fechaInicio) + addParameters("@CveEmpresa", SqlDbType.Int, cveEmpresa) + addParameters("@CveUsuario", SqlDbType.Int, cveUsuario) + retorno = RunQuery("Ocurrió un error al realizar la carga de periodos.") + Return retorno + End Function + + + + + + Public Sub addParameters(varsql As String, sqltipe As SqlDbType, valor As Object) + SqlAdapter.SelectCommand.Parameters.Add(varsql, sqltipe).Value = valor + End Sub #Region "IDisposable Support" ' IDisposable Protected Overridable Sub Dispose(ByVal disposing As Boolean) diff --git a/Nomina/CatPeriodos.aspx b/Nomina/CatPeriodos.aspx index d465b23fd..cd697aca8 100644 --- a/Nomina/CatPeriodos.aspx +++ b/Nomina/CatPeriodos.aspx @@ -19,7 +19,10 @@
  • - Agregar + Agregar +
    • +
  • + Carga Masiva
    • @@ -477,6 +480,72 @@ + + diff --git a/Nomina/CatPeriodos.aspx.vb b/Nomina/CatPeriodos.aspx.vb index de0124619..7c08c724d 100644 --- a/Nomina/CatPeriodos.aspx.vb +++ b/Nomina/CatPeriodos.aspx.vb @@ -60,9 +60,11 @@ Partial Class Nomina_CatPeriodos Private Sub CargaTipoPeriodo() DdlTipoPeriodo.DataSource = GlobalDTTipoPeriodo DdlTipoPeriodoAdd.DataSource = GlobalDTTipoPeriodo + DdlTipoPeriodoCM.DataSource = GlobalDTTipoPeriodo DdlTipoPeriodo.DataBind() DdlTipoPeriodoAdd.DataBind() + DdlTipoPeriodoCM.DataBind() End Sub @@ -71,11 +73,14 @@ Partial Class Nomina_CatPeriodos Dim ObjNom_Periodos As New ClsNominas If ObjNom_Periodos.GetEjercicios(UsuarioActual.CveEmpresa) Then DdlEjercicio.DataSource = ObjNom_Periodos.DtResultados + DdlEjercicioCM.DataSource = ObjNom_Periodos.DtResultados Else DdlEjercicio.DataSource = Nothing + DdlEjercicioCM.DataSource = Nothing End If ObjNom_Periodos.Dispose() DdlEjercicio.DataBind() + DdlEjercicioCM.DataBind() DdlEjercicio.Items.Insert(0, New ListItem("Todos", "-1")) End Sub @@ -368,4 +373,23 @@ Partial Class Nomina_CatPeriodos Next UpModalPerido.Update() End Sub + + Protected Sub LnkCargaMasiva_Click(sender As Object, e As EventArgs) + Dim ejercicio As Integer = DdlEjercicioCM.SelectedValue.ToEntero() + 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 + + Using onom As New ClsNominas + If onom.CargaPeriodosEjercicio(ejercicio, cveTipoPeriodo, cveSubTipoPeriodo, numero, fechaInicio, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario) Then + Alert("Se cargo satisfactoriamente.") + End If + End Using + + End Sub + + Protected Sub LnkCargaMasivaModal_Click(sender As Object, e As EventArgs) + RegistraScript("$('#divCargaMasiva').modal('show');") + End Sub End Class diff --git a/Nomina/Nomina.aspx b/Nomina/Nomina.aspx index 701a78495..c209bef0c 100644 --- a/Nomina/Nomina.aspx +++ b/Nomina/Nomina.aspx @@ -323,7 +323,7 @@
    - +
    @@ -4672,7 +4672,72 @@
    + + diff --git a/Nomina/Nomina.aspx.cs b/Nomina/Nomina.aspx.cs index 25e9d5882..e98486830 100644 --- a/Nomina/Nomina.aspx.cs +++ b/Nomina/Nomina.aspx.cs @@ -21,7 +21,7 @@ public partial class Nomina_Nomina2 : ClsPaginas { get { return 5; } } - + private DateTime FechaInicioPeriodo { get @@ -448,8 +448,10 @@ public partial class Nomina_Nomina2 : ClsPaginas } DdlEjercicios.DataSource = dtejercicio; DdlEjerciciosCM.DataSource = dtejercicio; + DdlEjercicioCM.DataSource = dtejercicio; DdlEjercicios.DataBind(); DdlEjerciciosCM.DataBind(); + DdlEjercicioCM.DataBind(); ListItem litem = null; if ((dtejercicio != null) && dtejercicio.Rows.Count > 0) { @@ -487,6 +489,8 @@ public partial class Nomina_Nomina2 : ClsPaginas DdlTipoPeriodo.DataSource = get_GlobalDTTipoPeriodos(UsuarioActual.CveEmpresa); DdlTipoPeriodoCM.DataSource = DdlTipoPeriodo.DataSource; DdlTipoPeriodoSim.DataSource = DdlTipoPeriodo.DataSource; + DdlTipoPeriodoCMB.DataSource = DdlTipoPeriodo.DataSource; + DdlTipoPeriodoCMB.DataBind(); DdlTipoPeriodoSim.DataBind(); DdlTipoPeriodoCM.DataBind(); DdlTipoPeriodo.DataBind(); @@ -507,6 +511,11 @@ public partial class Nomina_Nomina2 : ClsPaginas { if (objperiodos.GetPeriodos(tipoPeriodo, UsuarioActual.CveEmpresa, ejercicio, -1, -1)) { + if (objperiodos.DtResultados.Rows.Count == 0) + { + + Alert("No existen periodos registrados en este año y tipo de periodo,¿desea registrarlos masivamente?",TipoMensaje.MsgConfirmacion, "$(\"#divCargaMasiva\").modal(\"show\");",TextoConfirmacion:"Aceptar",TextoSegundoBoton:"No"); + } dtPeriodos = objperiodos.DtResultados.FiltraParametros("Estatus IN (1,2,3,4,5)"); } } @@ -518,14 +527,13 @@ public partial class Nomina_Nomina2 : ClsPaginas } protected void DdlEjercicios_SelectedIndexChanged(object sender, EventArgs e) - { - cargaPeriodos(); + { + cargaPeriodos(); } protected void DdlTipoPeriodo_SelectedIndexChanged(object sender, EventArgs e) { - cargaPeriodos(); - DdlEjercicios.AutoPostBack = true; + cargaPeriodos(); } protected void DdlPeriodo_SelectedIndexChanged(object sender, EventArgs e) @@ -10943,4 +10951,22 @@ public partial class Nomina_Nomina2 : ClsPaginas + + protected void LnkCargaMasiva_Click(object sender, EventArgs e) + { + + int ejercicio = DdlEjercicioCM.SelectedValue.ToEntero(); + int cveTipoPeriodo = DdlTipoPeriodoCMB.SelectedValue.ToEntero(); + int cveSubTipoPeriodo = TxtCveSubTipoPeriodoCM.Text.ToEntero(); + int numero = TxtNumeroCM.Text.ToEntero(); + string fechaInicio = TxtFechaInicioCM.Text; + + using (ClsNominas onom = new ClsNominas()) + { + if (onom.CargaPeriodosEjercicio(ejercicio, cveTipoPeriodo, cveSubTipoPeriodo, numero, fechaInicio, UsuarioActual.CveEmpresa, UsuarioActual.CveUsuario)) + { + Alert("Se cargo satisfactoriamente."); + } + } + } } \ No newline at end of file diff --git a/RH/CatPuesto.aspx.vb b/RH/CatPuesto.aspx.vb index ecefb52a3..7a3b71d3e 100644 --- a/RH/CatPuesto.aspx.vb +++ b/RH/CatPuesto.aspx.vb @@ -135,7 +135,7 @@ Partial Class RH_CatPuesto CargaCatalogoOcupaciones() - If ObjPuestos.GetPuestos(-1) Then + If ObjPuestos.GetPuestos(UsuarioActual.CveEmpresa) Then GvPuestos.DataSource = ObjPuestos.DtResultados.FiltraParametros("CveEmpresa = " & UsuarioActual.CveEmpresa) GlobalDTRHPuestos(UsuarioActual.CveEmpresa) = ObjPuestos.DtResultados @@ -344,12 +344,12 @@ Partial Class RH_CatPuesto If CvePuesto = -1 And Actualizar = False Then If ObjPuestos.AddPuesto(TxtPuesto.Text.Trim, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, DdlOcupacion.SelectedValue.ToEntero) Then - If ObjPuestos.GetPuestos(-1) Then Application("GlobalDTRHPuestos") = ObjPuestos.DtResultados Else Application("GlobalDTRHPuestos") = Nothing + If ObjPuestos.GetPuestos(UsuarioActual.CveEmpresa) Then Application("GlobalDTRHPuestos") = ObjPuestos.DtResultados Else Application("GlobalDTRHPuestos") = Nothing Alert("Puesto agregado correctamente.") End If Else If ObjPuestos.UpdatePuesto(CvePuesto, TxtPuesto.Text.Trim, estatus, UsuarioActual.CveUsuario, DdlOcupacion.SelectedValue.ToEntero) Then - If ObjPuestos.GetPuestos(-1) Then Application("GlobalDTRHPuestos") = ObjPuestos.DtResultados Else Application("GlobalDTRHPuestos") = Nothing + If ObjPuestos.GetPuestos(UsuarioActual.CveEmpresa) Then Application("GlobalDTRHPuestos") = ObjPuestos.DtResultados Else Application("GlobalDTRHPuestos") = Nothing Alert("Puesto actualizado correctamente.") End If End If @@ -372,7 +372,7 @@ Partial Class RH_CatPuesto Dim _CvePuesto As Integer = GvRow.DataKey("CvePuesto").ToEntero If objRH.RemovePuesto(_CvePuesto) Then - If objRH.GetPuestos(-1) Then Application("GlobalDTRHPuestos") = objRH.DtResultados Else Application("GlobalDTRHPuestos") = Nothing + If objRH.GetPuestos(UsuarioActual.CveEmpresa) Then Application("GlobalDTRHPuestos") = objRH.DtResultados Else Application("GlobalDTRHPuestos") = Nothing CargaDatos() Else Alert("Ocurrio un error al eliminar el puesto", TipoMensaje.MsgError) diff --git a/Sistemas/Empresa.aspx b/Sistemas/Empresa.aspx index 8b8627407..52ceaf218 100644 --- a/Sistemas/Empresa.aspx +++ b/Sistemas/Empresa.aspx @@ -1,23 +1,35 @@ -<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Empresa.aspx.vb" Inherits="Sistemas_Empresa" %> - -<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> - - - - - - - - - +<%@ Page Title="" Language="VB" MasterPageFile="~/Site.master" AutoEventWireup="false" CodeFile="Empresa.aspx.vb" Inherits="Sistemas_Empresa" %> + +<%@ Register Assembly="AjaxControlToolkit" Namespace="AjaxControlToolkit" TagPrefix="asp" %> + + + + + + + + + + + + +
  • + Clonar Conceptos Nómina +
    • + +     +     +     + + - - - - + + + + +
    - - -
    + + + + + + + + +
    +
    + + - - - - - - -