From 399a75a22c34120bc6ba8aafcd9494264a5d4ea6 Mon Sep 17 00:00:00 2001 From: JORGE LUIS CAUDILLO ESPARZA Date: Thu, 10 Aug 2023 06:58:25 -0700 Subject: [PATCH] logiv nominas antiguedad --- App_Code/LogicNominas.vb | 65 ++++++++++++++++++++-------------------- Nomina/Finiquito.aspx.cs | 2 +- RH/Personal.aspx | 2 +- RH/Personal.aspx.vb | 6 ++++ 4 files changed, 41 insertions(+), 34 deletions(-) diff --git a/App_Code/LogicNominas.vb b/App_Code/LogicNominas.vb index 57ddbf5e6..21f5c014c 100644 --- a/App_Code/LogicNominas.vb +++ b/App_Code/LogicNominas.vb @@ -38,33 +38,33 @@ Public Class LogicNominas Else If hasfiniquito Then - cfdi = PreTimbrar(CveNomina, UsuarioActual, True, versionTimbre) 'CvePersonal, CvePeriodo, - If cfdi IsNot Nothing AndAlso cfdi.Mensaje = "" Then + 'cfdi = PreTimbrar(CveNomina, UsuarioActual, True, versionTimbre) 'CvePersonal, CvePeriodo, + 'If cfdi IsNot Nothing AndAlso cfdi.Mensaje = "" Then - If Not cfdi.Timbrado Then - Dim ObjTimbrado As New Timbrado - Dim ObjFactura As New Modelos.Factura - ObjFactura.TipoDocto = "Nomina" - ObjFactura.Folio = cfdi.Comprobante.Folio.ToEntero() - ObjFactura.Serie = cfdi.Comprobante.Serie - ObjFactura.Timbre = cfdi - If Not ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura, CvePAC, versionTimbre) Then - Retorno = ObjTimbrado.MensajeErrorCFDI - End If - If Retorno <> "" Then - Retorno = $"{Retorno} - {cfdi.Receptor.Nombre}" - Else + ' If Not cfdi.Timbrado Then + ' Dim ObjTimbrado As New Timbrado + ' Dim ObjFactura As New Modelos.Factura + ' ObjFactura.TipoDocto = "Nomina" + ' ObjFactura.Folio = cfdi.Comprobante.Folio.ToEntero() + ' ObjFactura.Serie = cfdi.Comprobante.Serie + ' ObjFactura.Timbre = cfdi + ' If Not ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura, CvePAC, versionTimbre) Then + ' Retorno = ObjTimbrado.MensajeErrorCFDI + ' End If + ' If Retorno <> "" Then + ' Retorno = $"{Retorno} - {cfdi.Receptor.Nombre}" + ' Else - End If + ' End If - End If - Else - If cfdi Is Nothing Then - Retorno = $"No se pudo generar el pretimbre(GetError):
{GetError}" - Else - Retorno = $"No se pudo generar el pretimbre:
{cfdi.Mensaje}" - End If - End If + ' End If + 'Else + ' If cfdi Is Nothing Then + ' Retorno = $"No se pudo generar el pretimbre(GetError):
{GetError}" + ' Else + ' Retorno = $"No se pudo generar el pretimbre:
{cfdi.Mensaje}" + ' End If + 'End If End If End If @@ -106,7 +106,7 @@ Public Class LogicNominas Dim TotalExcento As Decimal = 0 Dim TotalGravado As Decimal = 0 - Dim AntiguedadSemanas As Integer = 0 + Dim AntiguedadSemanas As String = "" Dim FormatoReciboCFDi As String = "" Dim FechaInicio, FechaFin, FechaPago As Date @@ -169,7 +169,8 @@ Public Class LogicNominas cfdi.Nomina.UltimoSueldoOrdinario = drow("UltimoSueldoOrdinario").ToString().ToDecimal() Serie = objNomina.Serie Folio = objNomina.Folio.ToString() - + FechaInicioContrato = drow("FechaIngreso").ToString() + AntiguedadSemanas = drow("AntiguedadSemanas").ToString() MetodoPagoFijo = drow("MetodoPagoFijo").ToString().ToUpper().Contiene("1", "TRUE") ClaveBanco = drow("ClaveBanco").ToString() @@ -195,7 +196,7 @@ Public Class LogicNominas Sindicalizado = objPersonal.DtResultados.Rows(0)("Sindicalizado").ToString().ToUpper().Contiene("TRUE", "1") CURP = objPersonal.CURP NumeroSS = objPersonal.NumeroSS - FechaInicioContrato = objPersonal.FechaInicioContrato.ToString() + 'FechaInicioContrato = objPersonal.FechaInicioContrato.ToString() CodigoTipoContrato = objPersonal.CodigoTipoContrato ClaveTipoJornada = objPersonal.ClaveTipoJornada CveRegimenContratacion = objPersonal.CveRegimenContratacion @@ -220,12 +221,12 @@ Public Class LogicNominas End If If continuar AndAlso objNomina.GetNom_NominasDetalles(CveNomina, CvePersonal, CvePeriodo, "-1") Then If objNomina.DtResultados.Rows.Count > 0 Then - Dim filtropercepciones As String = "Tipo = 'P' AND EsPadre = 1 AND SoloVisible =0 AND (TipoConceptoSAT<>'O' OR TipoConceptoSAT IS NULL) AND SATCveConcepto NOT IN ('022', '023','025')" + Dim filtropercepciones As String = "Tipo = 'P' AND EsPadre = 1 AND SoloVisible =0 AND (TipoConceptoSAT<>'O' OR TipoConceptoSAT IS NULL) " ' AND SATCveConcepto NOT IN ('022', '023','025') If TimbreIndemnizacion Then filtropercepciones = " Tipo = 'P' AND SATCveConcepto IN ('022', '023','025') AND (TipoConceptoSAT<>'O' OR TipoConceptoSAT IS NULL) " End If DtPercepciones = objNomina.DtResultados.FiltraParametros(filtropercepciones) - Dim filtrodeduc As String = "Tipo = 'D' AND EsPadre = 1 AND SoloVisible =0 AND (TipoConceptoSAT<>'O' OR TipoConceptoSAT IS NULL) AND CveSistema <> 47" + Dim filtrodeduc As String = "Tipo = 'D' AND EsPadre = 1 AND SoloVisible =0 AND (TipoConceptoSAT<>'O' OR TipoConceptoSAT IS NULL) " 'AND CveSistema <> 47 If TimbreIndemnizacion Then filtrodeduc = " Tipo = 'D' AND CveSistema =47" End If @@ -240,7 +241,7 @@ Public Class LogicNominas End If Next - hasfiniquito = objNomina.DtResultados.COUNT("SATCveConcepto", "(Tipo = 'P' AND SATCveConcepto IN ('022', '023','025')) ") > 0 'OR (Tipo = 'D' AND SATCveConcepto = '101') + hasfiniquito = False 'objNomina.DtResultados.COUNT("SATCveConcepto", "(Tipo = 'P' AND SATCveConcepto IN ('022', '023','025')) ") > 0 'OR (Tipo = 'D' AND SATCveConcepto = '101') TotalPercepciones = DtPercepciones.SUM("Importe").ToString().ToDecimal() @@ -266,7 +267,7 @@ Public Class LogicNominas FechaFin = DrPeriodo("FechaFin").ToString().ToDate() FechaPago = DrPeriodo("FechaPago").ToString().ToDate() PeriodicidadPago = DrPeriodo("ClavePerioricidadPago").ToString() - AntiguedadSemanas = DateDiff(DateInterval.Weekday, objPersonal.FechaIngreso, FechaFin).ToEntero() + 'AntiguedadSemanas = DateDiff(DateInterval.Weekday, objPersonal.FechaIngreso, FechaFin).ToEntero() If Not TimbreIndemnizacion Then FechaInicio = DrPeriodo("FechaInicio").ToString().ToDate() @@ -484,7 +485,7 @@ Public Class LogicNominas cfdi.Nomina.Receptor.CURP = CURP cfdi.Nomina.Receptor.NSS = NumeroSS cfdi.Nomina.Receptor.FechaInicioContrato = FechaInicioContrato - cfdi.Nomina.Receptor.Antiguedad = $"P{AntiguedadSemanas}W" + cfdi.Nomina.Receptor.Antiguedad = AntiguedadSemanas '$"P{AntiguedadSemanas}W" cfdi.Nomina.Receptor.TipoContrato = If(TimbreIndemnizacion, "99", CodigoTipoContrato) cfdi.Nomina.Receptor.CodigoTipoJornada = ClaveTipoJornada cfdi.Nomina.Receptor.CodigoRegimenContratacion = If(TimbreIndemnizacion, "13", CveRegimenContratacion) diff --git a/Nomina/Finiquito.aspx.cs b/Nomina/Finiquito.aspx.cs index 4ee949807..387ac14dd 100644 --- a/Nomina/Finiquito.aspx.cs +++ b/Nomina/Finiquito.aspx.cs @@ -236,7 +236,7 @@ public partial class Nomina_Finiquito : ClsPaginas { DateTime fechafin = TxtFechaBaja.Text.ToDateTime(); decimal antiguedad = getyearsresult(fechafin, FechaInicio); - TxtAntiguedad.Text = string.Format("{0}", antiguedad); + TxtAntiguedad.Text = string.Format("{0:##0.00###}", antiguedad); TxtDiasTransAnio.Text = string.Format("{0}", fechafin.DayOfYear); } else diff --git a/RH/Personal.aspx b/RH/Personal.aspx index 26402db8a..70ca358a1 100644 --- a/RH/Personal.aspx +++ b/RH/Personal.aspx @@ -2534,7 +2534,7 @@ + AutoPostBack="true" OnSelectedIndexChanged="DdlTipoAsistencias_SelectedIndexChangedP"> diff --git a/RH/Personal.aspx.vb b/RH/Personal.aspx.vb index 69430a788..ceea5286e 100644 --- a/RH/Personal.aspx.vb +++ b/RH/Personal.aspx.vb @@ -6738,6 +6738,12 @@ Partial Class RH_Personal #End Region + Protected Sub DdlTipoAsistencias_SelectedIndexChangedP(sender As Object, e As EventArgs) + Dim ddl As DropDownList = DirectCast(sender, DropDownList) + If ddl.SelectedItem.Text = "Retardo" Then + TxtPorPago.Text = "87.5" + End If + End Sub Protected Sub DdlTipoAsistencias_SelectedIndexChanged(sender As Object, e As EventArgs) Dim ddl As DropDownList = DirectCast(sender, DropDownList) Dim gvrow As GridViewRow = DirectCast(ddl.NamingContainer, GridViewRow)