From f8286e06870ed3bb621a83a3bf1302c57a99ee3a Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 3 Aug 2023 17:48:41 -0700 Subject: [PATCH] -- mejora en nomina. perioricidadpago --- App_Code/CFDITimbre.vb | 2 +- App_Code/LogicNominas.vb | 7 ++++--- App_Code/Timbrado.vb | 38 ++++++++++++++++++++++---------------- 3 files changed, 27 insertions(+), 20 deletions(-) diff --git a/App_Code/CFDITimbre.vb b/App_Code/CFDITimbre.vb index b174a39cc..4c37e7adf 100644 --- a/App_Code/CFDITimbre.vb +++ b/App_Code/CFDITimbre.vb @@ -305,7 +305,7 @@ Public Class CFDINominaReceptor Public Property Departamento As String = "" Public Property Puesto As String = "" Public Property CodigoRiesgoPuesto As String = "" - Public Property TipoPeriodo As String = "" + Public Property PeriodicidadPago As String = "" Public Property CodigoBanco As String = "" Public Property NumeroCuenta As String = "" Public Property SDI As Decimal = 0 diff --git a/App_Code/LogicNominas.vb b/App_Code/LogicNominas.vb index 7c42692c8..57ddbf5e6 100644 --- a/App_Code/LogicNominas.vb +++ b/App_Code/LogicNominas.vb @@ -137,7 +137,7 @@ Public Class LogicNominas Dim Departamento As String = "" Dim Puesto As String = "" Dim CveSATRiesgoPuesto As String = "" - Dim TipoPeriodoPago As String = "" + Dim PeriodicidadPago As String = "" Dim ClaveBanco As String = "" Dim BancoNumCuenta As String = "" Dim SDI As Decimal = 0 @@ -203,7 +203,7 @@ Public Class LogicNominas Departamento = objPersonal.Departamento Puesto = objPersonal.Puesto CveSATRiesgoPuesto = objPersonal.CveSATRiesgoPuesto.ToString() - TipoPeriodoPago = objPersonal.TipoPeriodoPago + 'If Not MetodoPagoFijo Then ' ClaveBanco = objPersonal.ClaveBanco ' BancoNumCuenta = objPersonal.BancoNumCuenta @@ -265,6 +265,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() If Not TimbreIndemnizacion Then @@ -491,7 +492,7 @@ Public Class LogicNominas cfdi.Nomina.Receptor.Departamento = Departamento cfdi.Nomina.Receptor.Puesto = Puesto cfdi.Nomina.Receptor.CodigoRiesgoPuesto = CveSATRiesgoPuesto.ToString() - cfdi.Nomina.Receptor.TipoPeriodo = TipoPeriodoPago + cfdi.Nomina.Receptor.PeriodicidadPago = PeriodicidadPago cfdi.Nomina.Receptor.CodigoBanco = ClaveBanco cfdi.Nomina.Receptor.NumeroCuenta = BancoNumCuenta cfdi.Nomina.Receptor.SDI = SDI diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 62a3ce0af..2b83f2fa6 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -516,7 +516,7 @@ Public Class Timbrado Dim UrlServicio As String = "http://generacfdi.com.mx/rvltimbrado/service1.asmx?WSDL" Dim AmbienteProductivo As Boolean = True - If Not Empresa.FacturaProduccion OrElse Empresa.CveEmpresa = 1 Then + If Not Empresa.FacturaProduccion OrElse Empresa.CveEmpresa = 1 OrElse Not ClsPaginas.EsProduccion Then UsuarioServicio = "fgomez" ClaveServicio = "12121212" Clave = "12345678a" @@ -713,12 +713,15 @@ Public Class Timbrado Dim UsuarioServicio As String = "rene.molina@adssistemas.mx" Dim ClaveServicio As String = "Facturacion2021#" - If Not Empresa.FacturaProduccion OrElse Empresa.CveEmpresa = 1 Then - EmisorRFC = "ZUÑ920208KL4" - ArchivoLLave = $"{Empresa.Ruta}Certificados\CSD01_ZUÑ920208KL4.key" - ArchivoCertificado = $"{Empresa.Ruta}Certificados\CSD01_ZUÑ920208KL4.cer" + If Not Empresa.FacturaProduccion OrElse Empresa.CveEmpresa = 1 OrElse Not ClsPaginas.EsProduccion Then + EmisorRFC = "EKU9003173C9" + ArchivoLLave = $"{Extensiones.ModExtensiones.DirectorioEmpresas}1\Certificados\EKU9003173C9.key" + ArchivoCertificado = $"{Extensiones.ModExtensiones.DirectorioEmpresas}1\Certificados\EKU9003173C9.cer" + Clave = "12345678a" TimbraProduccion = False + UsuarioServicio = "UserTest" + ClaveServicio = "1234567890" End If Dim llaveByte As Byte(), certByte As Byte() @@ -1325,7 +1328,7 @@ Public Class Timbrado If Not Directory.Exists(RutaArchivo) Then Directory.CreateDirectory(RutaArchivo) - If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 Then + If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 OrElse Not ClsPaginas.EsProduccion Then AmbienteProductivo = False Clave = "12345678a" EmisorRFC = "EKU9003173C9" @@ -1362,7 +1365,7 @@ Public Class Timbrado Dim cfdi As New Profact.TimbraCFDI40.Conector(AmbienteProductivo) Dim comprobante As New Profact.TimbraCFDI40.Comprobante() - If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 Then + If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 OrElse Not ClsPaginas.EsProduccion Then cfdi.EstableceCredenciales("mvpNUXmQfK8=") Else cfdi.EstableceCredenciales($"vSGxMFWnNRy/nDoowxqrqw==|Sia123654") @@ -2326,7 +2329,7 @@ Public Class Timbrado Nom.Receptor.Puesto = ObjCFDITimbre.Nomina.Receptor.Puesto Nom.Receptor.RiesgoPuestoSpecified = True Nom.Receptor.RiesgoPuesto = ObjCFDITimbre.Nomina.Receptor.CodigoRiesgoPuesto - Nom.Receptor.PeriodicidadPago = ObjCFDITimbre.Nomina.Receptor.TipoPeriodo + Nom.Receptor.PeriodicidadPago = ObjCFDITimbre.Nomina.Receptor.PeriodicidadPago If ObjCFDITimbre.Nomina.Receptor.CodigoBanco <> "" AndAlso ObjCFDITimbre.Nomina.Receptor.NumeroCuenta <> "" Then Nom.Receptor.BancoSpecified = True Nom.Receptor.Banco = ObjCFDITimbre.Nomina.Receptor.CodigoBanco @@ -2963,7 +2966,7 @@ Public Class Timbrado ObjCFDITimbre.Nomina.Receptor.Departamento, ObjCFDITimbre.Nomina.Receptor.Puesto, ObjCFDITimbre.Nomina.Receptor.CodigoRiesgoPuesto, - If(ObjCFDITimbre.Nomina.TipoNomina = "E", "99", ObjCFDITimbre.Nomina.Receptor.TipoPeriodo), + ObjCFDITimbre.Nomina.Receptor.PeriodicidadPago, ObjCFDITimbre.Nomina.Receptor.CodigoBanco, ObjCFDITimbre.Nomina.Receptor.NumeroCuenta, ObjCFDITimbre.Nomina.Receptor.SBC, @@ -3088,18 +3091,18 @@ Public Class Timbrado UrlServicio = "https://cfdi.gofac.com.mx/timbrado.asmx?WSDL" - If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 Then + If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 OrElse Not ClsPaginas.EsProduccion Then EmisorRFC = "EKU9003173C9" UsuarioActual.Empresa.Empresa = "ESCUELA KEMPER URGATE" - ArchivoLLave = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.key" - ArchivoCertificado = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.cer" + ArchivoLLave = $"{Extensiones.ModExtensiones.DirectorioEmpresas}1\Certificados\EKU9003173C9.key" + ArchivoCertificado = $"{Extensiones.ModExtensiones.DirectorioEmpresas}1\Certificados\EKU9003173C9.cer" Clave = "12345678a" TimbraProduccion = False UsuarioServicio = "UserTest" ClaveServicio = "1234567890" - + UsuarioActual.Empresa.CodigoRegimenFiscal = "601" End If #Region "Valida" @@ -3311,15 +3314,18 @@ Public Class Timbrado If Not Directory.Exists(RutaArchivo) Then Directory.CreateDirectory(RutaArchivo) - If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 Then + If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 OrElse Not ClsPaginas.EsProduccion Then EmisorRFC = "EKU9003173C9" UsuarioActual.Empresa.Empresa = "ESCUELA KEMPER URGATE" - ArchivoLLave = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.key" - ArchivoCertificado = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.cer" + ArchivoLLave = $"{Extensiones.ModExtensiones.DirectorioEmpresas}1\Certificados\EKU9003173C9.key" + ArchivoCertificado = $"{Extensiones.ModExtensiones.DirectorioEmpresas}1\Certificados\EKU9003173C9.cer" Clave = "12345678a" TimbraProduccion = False + UsuarioServicio = "UserTest" + ClaveServicio = "1234567890" + End If #Region "Valida"