From d0f35ab3a166a3cf3d4eeb258d50c33e0e2c408b Mon Sep 17 00:00:00 2001 From: rrene Date: Mon, 18 Jul 2022 17:00:17 -0700 Subject: [PATCH] =?UTF-8?q?--=20timbrado=20n=C3=B3mina=204.0?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/LogicNominas.vb | 13 +++++++------ App_Code/Timbrado.vb | 8 ++++---- 2 files changed, 11 insertions(+), 10 deletions(-) diff --git a/App_Code/LogicNominas.vb b/App_Code/LogicNominas.vb index 8df3ed569..a7b7cb98b 100644 --- a/App_Code/LogicNominas.vb +++ b/App_Code/LogicNominas.vb @@ -28,7 +28,7 @@ Public Class LogicNominas ObjFactura.Folio = cfdi.Comprobante.Folio.ToEntero() ObjFactura.Serie = cfdi.Comprobante.Serie ObjFactura.Timbre = cfdi - If Not ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura, CvePAC, False) Then + If Not ObjTimbrado.TimbrarFactura(UsuarioActual, ObjFactura, CvePAC) Then Retorno = ObjTimbrado.MensajeErrorCFDI End If End If @@ -175,7 +175,7 @@ Public Class LogicNominas If continuar AndAlso objPersonal.GetPersonal(CvePersonal, UsuarioActual.CveEmpresa) AndAlso objPersonal.DtResultados.Rows.Count > 0 Then RFC = objPersonal.RFC cfdi.Emisor.RegistroPatronal = objPersonal.DtResultados.Rows(0)("RegistroPatronal").ToString() - NombreCompleto = objPersonal.NombreCompleto + NombreCompleto = String.Format("{0} {1} {2}", objPersonal.Nombres, objPersonal.APaterno, objPersonal.AMaterno) CodigoPostal = objPersonal.CP Sindicalizado = objPersonal.DtResultados.Rows(0)("Sindicalizado").ToString().ToUpper().Contiene("TRUE", "1") CURP = objPersonal.CURP @@ -318,7 +318,8 @@ Public Class LogicNominas cfdi.Emisor.CURP = UsuarioActual.Empresa.CURP End If cfdi.Nomina.CveNomina = CveNomina - cfdi.Receptor.UsoCFDI = "P01" + + cfdi.Receptor.UsoCFDI = If(UsuarioActual.Empresa.Funcionalidad(350).Contiene("1"), "CN01", "P01") cfdi.Receptor.RFC = RFC cfdi.Receptor.Nombre = NombreCompleto @@ -426,7 +427,7 @@ Public Class LogicNominas If ObjDeducciones IsNot Nothing AndAlso ObjDeducciones.Count > 0 Then cfdi.Nomina.Deducciones = ObjDeducciones - cfdi.Comprobante.Version = "3.3" + cfdi.Comprobante.Version = If(UsuarioActual.Empresa.Funcionalidad(350).Contiene("1"), "4.0", "3.3") cfdi.Comprobante.Serie = Serie cfdi.Comprobante.Folio = Folio cfdi.Comprobante.Fecha = Now @@ -439,7 +440,7 @@ Public Class LogicNominas cfdi.Comprobante.TipoDocto = "Egs" cfdi.Comprobante.MetodoPago = "PUE" cfdi.Comprobante.CondicionesdePago = "" '"CONTADO" - cfdi.Comprobante.FormadePago = "99" + cfdi.Comprobante.FormadePago = If(UsuarioActual.Empresa.Funcionalidad(350).Contiene("1"), "", "99") cfdi.Comprobante.LugarExpedicion = UsuarioActual.Empresa.CP.ToString() ' AHORITA SOLO SE REQUIERE ESPECIFICAR EL CODIGO POSTAL cfdi.Comprobante.NumCuentaPago = "" 'objPersonal.BancoNumCuenta '4.0 @@ -466,7 +467,7 @@ Public Class LogicNominas cfdi.Nomina.Receptor.Sindicalizado = If(Sindicalizado, "Si", "No") cfdi.Nomina.Receptor.CodigoEntidadFederativa = ClaveEstado - cfdi.Conceptos.Add(New CFDIConceptos With {.Cantidad = 1, .ClaveUnidad = "ACT", .ClaveProdServ = "84111505", .Descripcion = "Pago de nómina", .ValorUnitario = cfdi.Comprobante.Subtotal, .Importe = cfdi.Comprobante.Subtotal, .Descuento = cfdi.Nomina.TotalDeducciones.ToString().ToDecimal()}) + cfdi.Conceptos.Add(New CFDIConceptos With {.Cantidad = 1, .ClaveUnidad = "ACT", .ClaveProdServ = "84111505", .Descripcion = "Pago de nómina", .ValorUnitario = cfdi.Comprobante.SubTotal, .Importe = cfdi.Comprobante.SubTotal, .Descuento = cfdi.Nomina.TotalDeducciones.ToString().ToDecimal(), .ObjetoImpuesto = "01"}) If continuar Then diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index fa00d566c..de93de273 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -1192,7 +1192,7 @@ Public Class Timbrado Return Timbre End Function - Public Function TimbrarFactura(UsuarioActual As Usuario, Ventas As Modelos.Factura, Optional CvePACEspecial As Integer = -1, Optional NomUsaPac4 As Boolean = True) As Boolean + Public Function TimbrarFactura(UsuarioActual As Usuario, Ventas As Modelos.Factura, Optional CvePACEspecial As Integer = -1) As Boolean Dim Retorno As Boolean = False Dim tCvePAC As Integer = UsuarioActual.Empresa.CvePAC @@ -1228,7 +1228,7 @@ Public Class Timbrado Retorno = If(Ret = "", True, False) Case 3 - If UsuarioActual.Empresa.Funcionalidad(350) = "1" AndAlso NomUsaPac4 Then + If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then Retorno = TimbrarFacturaProFactV40(UsuarioActual, Ventas) Else Retorno = TimbrarFacturaProFact(UsuarioActual, Ventas) @@ -1236,7 +1236,7 @@ Public Class Timbrado 'Retorno = TimbrarFacturaProFact(UsuarioActual, Ventas, TmpDTConceptos, TmpDTImpuestos, TmpDTComplementos, Ruta, LstFordASN, FordGSDBM, ObjV) Case 4 - If UsuarioActual.Empresa.Funcionalidad(350) = "1" AndAlso NomUsaPac4 Then + If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then Dim Ret As String = TimbrarFacturaGoCFDIv40(Ventas, UsuarioActual, CvePACEspecial) If Ret <> "" Then MensajeErrorCFDI = Ret Retorno = If(Ret = "", True, False) @@ -1248,7 +1248,7 @@ Public Class Timbrado Case 5 - If UsuarioActual.Empresa.Funcionalidad(350) = "1" AndAlso NomUsaPac4 Then + If UsuarioActual.Empresa.Funcionalidad(350) = "1" Then Dim Ret As String = TimbrarFacturaPADEv40(Ventas, UsuarioActual, CvePACEspecial) If Ret <> "" Then MensajeErrorCFDI = Ret Retorno = If(Ret = "", True, False)