From 792e08f7a1e7386f15bdd38c1a8f4bcd2e7c36aa Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Thu, 22 Oct 2020 07:50:24 -0700 Subject: [PATCH] --- App_Code/ClsNominas.vb | 121 +++++++- Global.asax | 1 - Inventarios/Kardex.aspx | 4 +- Nomina/Nomina2.aspx | 364 ++++++++++++++++++++++- Nomina/Nomina2.aspx.cs | 635 ++++++++++++++++++++++++++++++++-------- RH/Personal.aspx | 2 +- RH/Personal.aspx.vb | 6 +- vwd.webinfo | 4 + 8 files changed, 991 insertions(+), 146 deletions(-) diff --git a/App_Code/ClsNominas.vb b/App_Code/ClsNominas.vb index 513bb17b4..53b11a3e3 100644 --- a/App_Code/ClsNominas.vb +++ b/App_Code/ClsNominas.vb @@ -1913,7 +1913,7 @@ Public Class ClsNominas End Try Return Retorno End Function - Public Function AddUPNom_NominasDetalles(CveNomina As Integer, CvePeriodo As Integer, CvePersonal As Integer, CveConcepto As Integer, Importe As Decimal, ImporteGravado As Decimal, ImporteExento As Decimal, CveUsuario As Integer, Optional IsEdited As Boolean = False) As Boolean + Public Function AddUPNom_NominasDetalles(CveNomina As Integer, CvePeriodo As Integer, CvePersonal As Integer, CveConcepto As Integer, Importe As Decimal, ImporteGravado As Decimal, ImporteExento As Decimal, ImporteValor As Decimal, CveUsuario As Integer, Optional IsEdited As Boolean = False) As Boolean Dim Retorno As Boolean = False DataAdapter("PA_Nom_NominasDetallesAddUP") @@ -1926,6 +1926,7 @@ Public Class ClsNominas .Add("Importe", SqlDbType.Float).Value = Importe .Add("ImporteGravado", SqlDbType.Float).Value = ImporteGravado .Add("ImporteExento", SqlDbType.Float).Value = ImporteExento + .Add("ImporteValor", SqlDbType.Float).Value = ImporteValor .Add("CveUsuario", SqlDbType.Int).Value = CveUsuario .Add("IsEdited", SqlDbType.Bit).Value = IsEdited End With @@ -1984,7 +1985,7 @@ Public Class ClsNominas End Try Return retorno End Function - Public Function GetNominaEmpleado(CveProyecto As Integer, CveSubProyecto As Integer, CveTurno As Integer, CvePeriodo As Integer, CveEmpresa As Integer, Agrupador As Integer) As Boolean + Public Function GetNominaEmpleado(CveProyecto As Integer, CveSubProyecto As Integer, CveTurno As Integer, CvePeriodo As Integer, CveEmpresa As Integer, Agrupador As Integer, Optional RegimenContratacion As Integer = 1) As Boolean Dim retorno As Boolean = False Try DTSet = New DataSet() @@ -1996,6 +1997,7 @@ Public Class ClsNominas .Add("@CvePeriodo", SqlDbType.Int).Value = CvePeriodo .Add("@Agrupador", SqlDbType.VarChar).Value = Agrupador .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + .Add("@RegimenContratacion", SqlDbType.Int).Value = RegimenContratacion End With @@ -2033,6 +2035,121 @@ Public Class ClsNominas Return retorno End Function +#Region "CRUD_Nom_PersonalIncapacidad" + Public Function PersonalIncapacidadGet(cvePersonalIncapacidad As Int32, cvePersonal As Int32, CveEmpresa As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Nom_PersonalIncapacidadGet", CommandType.StoredProcedure) + Try + With SqlAdapter.SelectCommand.Parameters + .Add("@CvePersonalIncapacidad", SqlDbType.Int).Value = cvePersonalIncapacidad + .Add("@CvePersonal", SqlDbType.Int).Value = cvePersonal + .Add("@CveEmpresa", SqlDbType.Int).Value = CveEmpresa + End With + SqlAdapter.Fill(Data) + retorno = True + Catch sqEx As SqlException + retorno = False + OnError("Ocurrió un error al obtener las tablas de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + retorno = False + OnError("Ocurrió un error al obtener las tablas de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function PersonalIncapacidadAdd(CveUsuarioCapturo As Integer, cvePersonal As Int32, folio As String, fechaInicio As DateTime, diasAutorizados As Int32, cveTipodeIncidencia As Int32, cveRamoSeguro As Int32, cveTipoRiesgo As Int32, porcentajedeIncapacidad As Int32, cveSecuelaConsecuencia As Int32, cveControlIncapacidad As Int32, descripcion As String) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Nom_PersonalIncapacidadAdd", CommandType.StoredProcedure) + Try + With SqlAdapter.SelectCommand.Parameters + .Add("@CveUsuarioCapturo", SqlDbType.Int).Value = CveUsuarioCapturo + .Add("@CvePersonal", SqlDbType.Int).Value = cvePersonal + .Add("@Folio", SqlDbType.VarChar).Value = folio + .Add("@FechaInicio", SqlDbType.DateTime).Value = fechaInicio + .Add("@DiasAutorizados", SqlDbType.Int).Value = diasAutorizados + .Add("@CveTipodeIncidencia", SqlDbType.Int).Value = cveTipodeIncidencia + .Add("@CveRamoSeguro", SqlDbType.Int).Value = cveRamoSeguro + .Add("@CveTipoRiesgo", SqlDbType.Int).Value = cveTipoRiesgo + .Add("@PorcentajedeIncapacidad", SqlDbType.Int).Value = porcentajedeIncapacidad + .Add("@CveSecuelaConsecuencia", SqlDbType.Int).Value = cveSecuelaConsecuencia + .Add("@CveControlIncapacidad", SqlDbType.Int).Value = cveControlIncapacidad + .Add("@Descripcion", SqlDbType.VarChar).Value = descripcion + End With + SqlAdapter.Fill(Data) + retorno = True + Catch sqEx As SqlException + retorno = False + OnError("Ocurrió un error al agregar las tablas de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + retorno = False + OnError("Ocurrió un error al agregar las tablas de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function PersonalIncapacidadUp(CveUsuarioCapturo As Integer, cvePersonalIncapacidad As Int32, folio As String, fechaInicio As DateTime, diasAutorizados As Int32, cveTipodeIncidencia As Int32, cveRamoSeguro As Int32, cveTipoRiesgo As Int32, porcentajedeIncapacidad As Int32, cveSecuelaConsecuencia As Int32, cveControlIncapacidad As Int32, descripcion As String) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Nom_PersonalIncapacidadUp", CommandType.StoredProcedure) + Try + With SqlAdapter.SelectCommand.Parameters + .Add("@CveUsuarioCapturo", SqlDbType.Int).Value = CveUsuarioCapturo + .Add("@CvePersonalIncapacidad", SqlDbType.Int).Value = cvePersonalIncapacidad + .Add("@Folio", SqlDbType.VarChar).Value = folio + .Add("@FechaInicio", SqlDbType.DateTime).Value = fechaInicio + .Add("@DiasAutorizados", SqlDbType.Int).Value = diasAutorizados + .Add("@CveTipodeIncidencia", SqlDbType.Int).Value = cveTipodeIncidencia + .Add("@CveRamoSeguro", SqlDbType.Int).Value = cveRamoSeguro + .Add("@CveTipoRiesgo", SqlDbType.Int).Value = cveTipoRiesgo + .Add("@PorcentajedeIncapacidad", SqlDbType.Int).Value = porcentajedeIncapacidad + .Add("@CveSecuelaConsecuencia", SqlDbType.Int).Value = cveSecuelaConsecuencia + .Add("@CveControlIncapacidad", SqlDbType.Int).Value = cveControlIncapacidad + .Add("@Descripcion", SqlDbType.VarChar).Value = descripcion + End With + SqlAdapter.Fill(Data) + retorno = True + Catch sqEx As SqlException + retorno = False + OnError("Ocurrió un error al actualizar las tablas de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + retorno = False + OnError("Ocurrió un error al actualizar las tablas de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + Public Function PersonalIncapacidadRemove(CveUsuarioCapturo As Integer, cvePersonalIncapacidad As Int32) As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Nom_PersonalIncapacidadRemove", CommandType.StoredProcedure) + Try + With SqlAdapter.SelectCommand.Parameters + .Add("@CveUsuarioCapturo", SqlDbType.Int).Value = CveUsuarioCapturo + .Add("@CvePersonalIncapacidad", SqlDbType.Int).Value = cvePersonalIncapacidad + End With + SqlAdapter.Fill(Data) + retorno = True + Catch sqEx As SqlException + retorno = False + OnError("Ocurrió un error al eliminar las tablas de nomina.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + retorno = False + OnError("Ocurrió un error al eliminar las tablas de nomina.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function + + Public Function PersonalIncapacidadCatalogos() As Boolean + Dim retorno As Boolean = False + DataAdapter("PA_Nom_PersonalIncapacidadCatalogos", CommandType.StoredProcedure) + Try + SqlAdapter.Fill(Data) + retorno = True + Catch sqEx As SqlException + retorno = False + OnError("Ocurrió un error al obtener las tablas de incapacidad.", sqEx, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + Catch ex As Exception + retorno = False + OnError("Ocurrió un error al obtener las tablas de incapacidad.", ex, SqlAdapter.SelectCommand.Parameters.ParametrosInfo()) + End Try + Return retorno + End Function +#End Region #Region "CRUD_Acumulados" Public Function GetAcumuladosTipos() As Boolean Dim retorno As Boolean = False diff --git a/Global.asax b/Global.asax index f095b7118..a3b37e04f 100644 --- a/Global.asax +++ b/Global.asax @@ -662,7 +662,6 @@ ' RegisterNotification() 'End If '----------------- - AspMap.License.SetLicenseKey("ccfecfcegknepnhmjighpjjpmpmbajfejhnladegmeanci") GlobalConfiguration.Configure(AddressOf WebApiConfig.Register) diff --git a/Inventarios/Kardex.aspx b/Inventarios/Kardex.aspx index 4df28a4d8..d3d08e46b 100644 --- a/Inventarios/Kardex.aspx +++ b/Inventarios/Kardex.aspx @@ -139,7 +139,7 @@
-
+
"> @@ -156,7 +156,7 @@
<%----%> -
diff --git a/Nomina/Nomina2.aspx b/Nomina/Nomina2.aspx index abf7b0787..7f3f7d249 100644 --- a/Nomina/Nomina2.aspx +++ b/Nomina/Nomina2.aspx @@ -4,6 +4,10 @@