merge --RepCancelacionPorRespuesta

App_Code/CFDITimbre.vb

@@ -72,7 +72,7 @@ Public Class CFDITimbre
             For Each c As CFDIConceptos In Conceptos
                 For Each imp As CFDIConceptosImpuestos In c.Impuestos
                     If imp.TrasladooRetencion = "T" Then
-                        tRetorno.Add(New CFDITraslados With {.Impuesto = imp.Impuesto, .Importe = imp.Importe, .TasaOCuota = imp.TasaOCuota, .TipoFactor = imp.TipoFactor})
+                        tRetorno.Add(New CFDITraslados With {.Impuesto = imp.Impuesto, .Base = imp.Base, .Importe = imp.Importe, .TasaOCuota = imp.TasaOCuota, .TipoFactor = imp.TipoFactor})
                     End If
                 Next
             Next
@@ -82,6 +82,7 @@ Public Class CFDITimbre
                                         .Select(Function(t) New CFDITraslados With {.Impuesto = t.Key.Impuesto,
                                                  .TipoFactor = t.Key.TipoFactor,
                                                  .TasaOCuota = t.Key.TasaOCuota,
+                                                 .Base = t.Sum(Function(tt) tt.Base),
                                                  .Importe = t.Sum(Function(tt) tt.Importe)}) _
                                         .OrderBy(Function(x) x.Impuesto).ToList
 
@@ -228,6 +229,7 @@ Public Class CFDIComprobante
     Public Property Moneda As String = ""
     Public Property TipoComprobante As String = ""
     Public Property MetodoPago As String = ""
+    Public Property Exportacion As String = "01" '01-No Aplica
     Public Property LugarExpedicion As String = ""
     Public Property NumCuentaPago As String = ""
     Public Property Confirmacion As String = ""
@@ -270,6 +272,8 @@ End Class
 Public Class CFDIReceptor
     Public Property RFC As String
     Public Property Nombre As String
+    Public Property RegimenFiscalReceptor As String = "601"
+    Public Property DomicilioFiscalReceptor As String = "601"
     Public Property ResidenciaFiscal As String = ""
     Public Property NumeroRegistroTributario As String = ""
     Public Property UsoCFDI As String
@@ -314,6 +318,7 @@ Public Class CFDIConceptos
     Public Property ClaveUnidad As String = ""
     Public Property Impuestos As List(Of CFDIConceptosImpuestos)
     Public Property Descuento As Decimal = 0.00D
+    Public Property ObjetoImpuesto As String = "02"
     Public Property ImporteGravaIVAAdicional As Decimal = 0.00D 'caso IEPS
 
     Sub New()
@@ -408,6 +413,7 @@ Public Class CFDITraslados
     Public Property TipoFactor As String
     Public Property TasaOCuota As Decimal
     Public Property Importe As Decimal
+    Public Property Base As Decimal
 End Class
 
 

App_Code/ClsPaginas.vb

@@ -5935,7 +5935,7 @@ Public Class ClsPaginas
         Dim bdir As String = If(RutaReporte.Contains("Empresas"), ModExtensiones.DirectorioBaseEmpresas, AppDomain.CurrentDomain.BaseDirectory)
 
         'TOMAR LA RUTA BASE PARA EL DIRECTORIO DE LA EMPRESA
-        If Not String.IsNullOrEmpty(RutaEmpresa) AndAlso Not RutaReporte.Contains("Grales") Then
+        If Not String.IsNullOrEmpty(RutaEmpresa) AndAlso Not RutaReporte.Contains("Grales") AndAlso Not RutaReporte.Contains("Contabilidad/Reportes/") Then
             bdir = RutaEmpresa.Replace($"{CveEmpresa}/", "")
         End If
 

App_Code/Modelos.vb

@@ -2125,7 +2125,8 @@ Namespace Modelos
             If factura.TipoDocto = "RNC" AndAlso factura.Num1 = 1 AndAlso factura.DtMovimientosUsados IsNot Nothing AndAlso ObjAcum IsNot Nothing Then
                 'Dim Mensaje As String = ""
                 Dim CveMovimiento = ObjInventario.AddMovimiento(factura.CveAlmacen, factura.CveConceptoMovimiento, 1, factura.Fecha, -1, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, -1, factura.CveVenta,
-                                                            CveSubProyecto, CveActivoFijo:=-1, Guia:="", Observaciones:=factura.ObservacionesMovimiento, CvePersonal:=-1, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, Modulo:="RU/G")
+                                                            CveSubProyecto, CveActivoFijo:=-1,
+                                                            Observaciones:=factura.MovimientoObservaciones, Recibio:=factura.MovimientoRecibio, CvePersonal:=-1, CveCliente:=CveCliente, CveClienteSucursal:=CveClienteSucursal, Modulo:="RU/GModel")
                 If CveMovimiento <= 0 Then
                     'Mensaje = "Error al guardar los movimientos"
                     Resultado = False
@@ -6303,7 +6304,8 @@ Namespace Modelos
         Public Property CveAlmacen As Integer
         Public Property GenerarSalidaAlmacen As Boolean = False
         Public Property CveConceptoMovimiento As Integer
-        Public Property ObservacionesMovimiento As String
+        Public Property MovimientoObservaciones As String
+        Public Property MovimientoRecibio As String
         Public Property DtMovimientosUsados As DataTable
         Public Property CveAlmacenDevolucion As Integer
         Public Property CveVenta As Integer
@@ -10009,6 +10011,8 @@ Namespace Modelos
         Public Property Pais As String
         Public Property RFC As String
         Public Property CP As String
+        Public Property CveRegimenFiscal As Integer
+        Public Property CodigoRegimenFiscal As String
         Public Property Telefono As String
         Public Property Contacto As String
         Public Property Mail As String

App_Code/Timbrado.vb

@@ -1016,10 +1016,16 @@ Public Class Timbrado
                 Retorno = TimbrarFacturaProFact(UsuarioActual, Ventas)
                     'Retorno = TimbrarFacturaProFact(UsuarioActual, Ventas, TmpDTConceptos, TmpDTImpuestos, TmpDTComplementos, Ruta, LstFordASN, FordGSDBM, ObjV)
             Case 4
+                If Ventas.Version = "4.0" Then
+                    Dim Ret As String = TimbrarFacturaGoCFDIv40(Ventas, UsuarioActual, CvePACEspecial)
+                    If Ret <> "" Then MensajeErrorCFDI = Ret
+                    Retorno = If(Ret = "", True, False)
+                Else
+                    Dim Ret As String = TimbrarFacturaGoCFDIv33(Ventas, UsuarioActual, CvePACEspecial)
+                    If Ret <> "" Then MensajeErrorCFDI = Ret
+                    Retorno = If(Ret = "", True, False)
+                End If
 
-                Dim Ret As String = TimbrarFacturaGoCFDIv33(Ventas, UsuarioActual, CvePACEspecial)
-                If Ret <> "" Then MensajeErrorCFDI = Ret
-                Retorno = If(Ret = "", True, False)
 
             Case 5
 
@@ -2155,7 +2161,7 @@ Public Class Timbrado
 
 #Region "Impuestos"
             'SI NO ES FACTURA EN 0 AGREGA LOS IMPUESTOS
-            If Ventas.Total <> 0 OrElse (ObjCFDITimbre.TotalImpuestosRetenidos > 0 OrElse ObjCFDITimbre.TotalImpuestosTrasladados > 0) Then
+            If Ventas.Total <> 0 And (ObjCFDITimbre.TotalImpuestosRetenidos > 0 OrElse ObjCFDITimbre.TotalImpuestosTrasladados > 0) Then
                 cfdi.Impuestos(ObjCFDITimbre.TotalImpuestosRetenidos, ObjCFDITimbre.TotalImpuestosTrasladados)
             End If
 #End Region
@@ -2169,55 +2175,59 @@ Public Class Timbrado
                 Next
             End If
 
-            ''se acumulan los importes
+
-            For Each Tras In ObjCFDITimbre.Traslados
+            If ObjCFDITimbre.Traslados.Sum(Function(x) x.Importe) > 0 Then
-                cfdi.Traslado(Tras.Impuesto, Tras.TipoFactor, Tras.TasaOCuota, Tras.Importe)
+                ''se acumulan los importes
-            Next
+                For Each Tras In ObjCFDITimbre.Traslados
+                    cfdi.Traslado(Tras.Impuesto, Tras.TipoFactor, Tras.TasaOCuota, Tras.Importe)
+                Next
+            End If
+
 #End Region
 
 #Region "Impuestos Locales"
 
             If ObjCFDITimbre.RetencionesLocales.Sum(Function(x) x.Importe) > 0 OrElse ObjCFDITimbre.TrasladosLocales.Sum(Function(x) x.Importe) > 0 Then
 
-                cfdi.ImpuestosLocales(ObjCFDITimbre.RetencionesLocales.Sum(Function(x) x.Importe), ObjCFDITimbre.TrasladosLocales.Sum(Function(x) x.Importe))
+                    cfdi.ImpuestosLocales(ObjCFDITimbre.RetencionesLocales.Sum(Function(x) x.Importe), ObjCFDITimbre.TrasladosLocales.Sum(Function(x) x.Importe))
 
-                For Each ret As CFDIRetencionesLocales In ObjCFDITimbre.RetencionesLocales
+                    For Each ret As CFDIRetencionesLocales In ObjCFDITimbre.RetencionesLocales
-                    If ret.Importe > 0 Then
+                        If ret.Importe > 0 Then
-                        cfdi.RetencionLocal(ret.ImpuestoLocalRetenido, ret.TasaRetencion, ret.Importe)
+                            cfdi.RetencionLocal(ret.ImpuestoLocalRetenido, ret.TasaRetencion, ret.Importe)
-                    End If
+                        End If
-                Next
+                    Next
 
-                For Each ret As CFDITrasladosLocales In ObjCFDITimbre.TrasladosLocales
+                    For Each ret As CFDITrasladosLocales In ObjCFDITimbre.TrasladosLocales
-                    If ret.Importe > 0 Then
+                        If ret.Importe > 0 Then
-                        cfdi.TrasladoLocal(ret.ImpuestoLocalTraslado, ret.TasaTraslado, ret.Importe)
+                            cfdi.TrasladoLocal(ret.ImpuestoLocalTraslado, ret.TasaTraslado, ret.Importe)
-                    End If
+                        End If
-                Next
+                    Next
-            End If
+                End If
 
-            If Ventas.CveComplementoTimbrado > 0 Then
+                If Ventas.CveComplementoTimbrado > 0 Then
 
-                Select Case Ventas.CveComplementoTimbrado
+                    Select Case Ventas.CveComplementoTimbrado
-                    Case 5 'INE Proceso Ordinario  Directivo Estatal"
+                        Case 5 'INE Proceso Ordinario  Directivo Estatal"
-                        cfdi.Ine11("Ordinario", "Directivo Estatal", "0")
+                            cfdi.Ine11("Ordinario", "Directivo Estatal", "0")
 
-                        cfdi.IneEntidad(Ventas.ComplementoINE.INEEntidad, "")
+                            cfdi.IneEntidad(Ventas.ComplementoINE.INEEntidad, "")
-                        cfdi.IneContabilidad(Ventas.ComplementoINE.INEIdContabilidad)
+                            cfdi.IneContabilidad(Ventas.ComplementoINE.INEIdContabilidad)
-                    Case 6 'INE Proceso Ordinario  Ejecutivo Estatal"
+                        Case 6 'INE Proceso Ordinario  Ejecutivo Estatal"
-                        cfdi.Ine11("Ordinario", "Ejecutivo Estatal", "0")
+                            cfdi.Ine11("Ordinario", "Ejecutivo Estatal", "0")
 
-                        cfdi.IneEntidad(Ventas.ComplementoINE.INEEntidad, "")
+                            cfdi.IneEntidad(Ventas.ComplementoINE.INEEntidad, "")
-                        cfdi.IneContabilidad(Ventas.ComplementoINE.INEIdContabilidad)
+                            cfdi.IneContabilidad(Ventas.ComplementoINE.INEIdContabilidad)
-                    Case 7   'INE Proceso Ordinario  Ejecutivo Nacional"
+                        Case 7   'INE Proceso Ordinario  Ejecutivo Nacional"
 
-                        cfdi.Ine11("Ordinario", "Ejecutivo Nacional", Ventas.ComplementoINE.INEIdContabilidad.ToString)
+                            cfdi.Ine11("Ordinario", "Ejecutivo Nacional", Ventas.ComplementoINE.INEIdContabilidad.ToString)
-                    Case 8 'INE PreCampaña
+                        Case 8 'INE PreCampaña
-                        cfdi.Ine11(Ventas.ComplementoINE.INETipoProceso, "", "0")
+                            cfdi.Ine11(Ventas.ComplementoINE.INETipoProceso, "", "0")
 
-                        cfdi.IneEntidad(Ventas.ComplementoINE.INEEntidad, Ventas.ComplementoINE.INETipoComite)
+                            cfdi.IneEntidad(Ventas.ComplementoINE.INEEntidad, Ventas.ComplementoINE.INETipoComite)
-                        cfdi.IneContabilidad(Ventas.ComplementoINE.INEIdContabilidad)
+                            cfdi.IneContabilidad(Ventas.ComplementoINE.INEIdContabilidad)
-                End Select
+                    End Select
 
-            End If
+                End If
 
 
 
@@ -2226,11 +2236,11 @@ Public Class Timbrado
 
 #Region "Comercio Exterior"
 
-            If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto Then
+                If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto Then
-                If ObjCFDITimbre.Complementos.ComercioExterior11 IsNot Nothing Then
+                    If ObjCFDITimbre.Complementos.ComercioExterior11 IsNot Nothing Then
 
-                    'DATOS GENERALES
+                        'DATOS GENERALES
-                    cfdi.ComercioExterior11(ObjCFDITimbre.Complementos.ComercioExterior11.MotivoTraslado,
+                        cfdi.ComercioExterior11(ObjCFDITimbre.Complementos.ComercioExterior11.MotivoTraslado,
                                                        ObjCFDITimbre.Complementos.ComercioExterior11.TipoOperacion,
                                                        ObjCFDITimbre.Complementos.ComercioExterior11.ClavedePedimento,
                                                        ObjCFDITimbre.Complementos.ComercioExterior11.CertificadoOrigen,
@@ -2241,9 +2251,9 @@ Public Class Timbrado
                                                        ObjCFDITimbre.Complementos.ComercioExterior11.Observaciones,
                                                        ObjCFDITimbre.Complementos.ComercioExterior11.TipoCambioUSD,
                                                        ObjCFDITimbre.Complementos.ComercioExterior11.TotalUSD)
-                    'EMISOR
+                        'EMISOR
-                    cfdi.ComercioExterior11Emisor(If(EmisorRFC.Length >= 12, "", ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.CURP))
+                        cfdi.ComercioExterior11Emisor(If(EmisorRFC.Length >= 12, "", ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.CURP))
-                    cfdi.ComercioExterior11Domicilio(ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Calle,
+                        cfdi.ComercioExterior11Domicilio(ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Calle,
                                                                     ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.NumeroExterior,
                                                                     ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.NumeroInterior,
                                                                     ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Colonia,
@@ -2253,9 +2263,9 @@ Public Class Timbrado
                                                                     ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Estado,
                                                                     ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Pais,
                                                                     ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.CP)
-                    'RECEPTOR
+                        'RECEPTOR
-                    cfdi.ComercioExterior11Receptor(ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.NumRegIdTrib)
+                        cfdi.ComercioExterior11Receptor(ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.NumRegIdTrib)
-                    cfdi.ComercioExterior11DomicilioReceptor(ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Calle,
+                        cfdi.ComercioExterior11DomicilioReceptor(ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Calle,
                                                                             ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.NumeroExterior,
                                                                             ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.NumeroInterior,
                                                                             ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Colonia,
@@ -2265,7 +2275,7 @@ Public Class Timbrado
                                                                             ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Estado,
                                                                             ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Pais,
                                                                             ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.CP)
-                    cfdi.ComercioExterior11Destinatario(ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumRegIdTrib,
+                        cfdi.ComercioExterior11Destinatario(ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumRegIdTrib,
                                                                    ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Nombre,
                                                                    ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Calle,
                                                                             ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumeroExterior,
@@ -2277,35 +2287,35 @@ Public Class Timbrado
                                                                             ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Estado,
                                                                             ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Pais,
                                                                             ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.CP)
-                    'MERCANCIAS
+                        'MERCANCIAS
-                    If ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias IsNot Nothing AndAlso ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias.Count > 0 Then
+                        If ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias IsNot Nothing AndAlso ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias.Count > 0 Then
-                        For Each concep As CFDIComercioExterior11Mercancias In ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias
+                            For Each concep As CFDIComercioExterior11Mercancias In ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias
-                            cfdi.ComercioExterior11Mercancia(concep.NoIdentificacion, concep.FraccionArancelaria, concep.CantidadAduana, concep.UnidadAduana, concep.ValorUnitarioAduana, concep.ValorDolares)
+                                cfdi.ComercioExterior11Mercancia(concep.NoIdentificacion, concep.FraccionArancelaria, concep.CantidadAduana, concep.UnidadAduana, concep.ValorUnitarioAduana, concep.ValorDolares)
-                            If concep.DescripcionesEspecificas.Marca <> "" Then
+                                If concep.DescripcionesEspecificas.Marca <> "" Then
-                                cfdi.ComercioExterior11MercanciaDescripcionesEspeciales(concep.DescripcionesEspecificas.Marca,
+                                    cfdi.ComercioExterior11MercanciaDescripcionesEspeciales(concep.DescripcionesEspecificas.Marca,
                                                                                                    concep.DescripcionesEspecificas.Modelo,
                                                                                                    concep.DescripcionesEspecificas.SubModelo,
                                                                                                    concep.DescripcionesEspecificas.NumeroSerie)
-                            End If
+                                End If
-                        Next
+                            Next
+
+                        End If
+
 
                     End If
-
-
                 End If
-            End If
 
 #End Region
 
 
-        End If
+            End If
 
 
 
 #Region "C O M P L E M E N T O   C A R T A   P O R T E"
 
 
-        If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then
+            If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then
 
             Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte
 
@@ -3333,6 +3343,700 @@ Public Class Timbrado
         Return Retorno
     End Function
 
+
+#Region "T i m b r a d o   v. 4. 0"
+    Public Function TimbrarFacturaGoCFDIv40(Ventas As Modelos.Factura, UsuarioActual As Usuario, Optional CvePACEspecial As Integer = -1) As String
+        If CvePACEspecial = -1 Then
+            CvePACEspecial = UsuarioActual.Empresa.CvePAC
+        End If
+        Dim sw As New Diagnostics.Stopwatch
+        Dim swmili As Long = 0
+        Dim swTiempo As New StringBuilder
+        sw.Start()
+        Dim Retorno As String = ""
+        Dim ObjCFDITimbre As CFDITimbre = Ventas.Timbre
+
+        Dim ArchivoLLave As String = String.Format("{0}Certificados\{1}", UsuarioActual.Empresa.Ruta, UsuarioActual.Empresa.ArchivoKey)
+        Dim ArchivoCertificado As String = String.Format("{0}Certificados\{1}", UsuarioActual.Empresa.Ruta, UsuarioActual.Empresa.ArchivoCer)
+        Dim UsuarioServicio As String = If(CvePACEspecial = 2, UsuarioActual.Empresa.RFC, "rene.molina@adsistemas.mx")
+        Dim ClaveServicio As String = If(CvePACEspecial = 2, UsuarioActual.Empresa.RFC.ToLower, "rene2018")
+        Dim Clave As String = UsuarioActual.Empresa.ContraseñaKey
+        Dim EmisorRFC As String = UsuarioActual.Empresa.RFC
+        Dim UrlServicio As String = "" ' Produccion
+        Dim RutaArchivo As String = String.Format("{0}XML\{1}\", UsuarioActual.Empresa.Ruta, Ventas.TipoDocto)
+        Dim NombreArchivoXML As String = ObjCFDITimbre.Comprobante.SerieFolio
+        Dim SubTotal As Decimal = 0
+        Dim TimbraProduccion As Boolean = True
+        If Not Directory.Exists(RutaArchivo) Then Directory.CreateDirectory(RutaArchivo)
+
+        UrlServicio = "https://cfdi.gofac.com.mx/timbrado.asmx?WSDL"
+
+        If Not UsuarioActual.Empresa.FacturaProduccion OrElse UsuarioActual.CveEmpresa = 1 Then
+
+            EmisorRFC = "EKU9003173C9"
+            UsuarioActual.Empresa.Empresa = "ESCUELA KEMPER URGATE SA DE CV"
+            ArchivoLLave = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.key"
+            ArchivoCertificado = $"{UsuarioActual.Empresa.Ruta}Certificados\EKU9003173C9.cer"
+
+            Clave = "12345678a"
+            TimbraProduccion = False
+            UsuarioServicio = "UserTest"
+            ClaveServicio = "1234567890"
+
+        End If
+
+#Region "Valida"
+        If Not File.Exists(ArchivoCertificado) Then
+            Alert("El archivo de certificado no existe", TipoMensaje.MsgError)
+            Return "El archivo de certificado no existe"
+        End If
+        If Not File.Exists(ArchivoLLave) Then
+            Alert("El archivo de llave privada no existe", TipoMensaje.MsgError)
+            Return "El archivo de llave privada no existe"
+        End If
+        If UsuarioActual.Empresa.ContraseñaKey = "" Then
+            Alert("La clave no puede ser vacía", TipoMensaje.MsgError)
+            Return "La clave no puede ser vacía"
+        End If
+#End Region
+
+#Region "Variables"
+        Dim llaveByte As Byte(), certByte As Byte()
+        Dim llaveBase64 As String, certBase64 As String
+        Dim cfdi As New GoFac.Cfdi4
+        Dim complemento As String = ""
+        Dim complementoConcepto As String = ""
+
+#End Region
+
+#Region "Verifica"
+        Try
+            llaveByte = System.IO.File.ReadAllBytes(ArchivoLLave)
+            llaveBase64 = Convert.ToBase64String(llaveByte)
+        Catch ex As Exception
+            Alert($"Error al leer la llave privada: {ex.Message}", TipoMensaje.MsgError)
+            Return "Error al leer la llave privada"
+        End Try
+
+
+        Try
+            certByte = System.IO.File.ReadAllBytes(ArchivoCertificado)
+            certBase64 = Convert.ToBase64String(certByte)
+        Catch ex As Exception
+            Alert($"Error al leer el certificado: {ex.Message}", TipoMensaje.MsgError)
+            Return "Error al leer el certificado"
+
+        End Try
+#End Region
+
+
+        sw.Stop()
+        swTiempo.AppendFormat("Verificado : ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds)
+        swmili = sw.ElapsedMilliseconds
+        sw.Start()
+
+
+        'cfdi.QuitarCerosDecimalDerecha = True ' no limita a 2 decimales, el atributo, de cantidad y precio unitario
+#Region "Certificado"
+        cfdi.CertArchivo(ArchivoCertificado)
+#End Region
+
+
+        sw.Stop()
+        swTiempo.AppendFormat("Certificado : ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds)
+        swmili = sw.ElapsedMilliseconds
+        sw.Start()
+
+#Region "Comprobante"
+
+        cfdi.Comprobante(
+                            ObjCFDITimbre.Comprobante.Serie,
+                            ObjCFDITimbre.Comprobante.Folio,
+                            ObjCFDITimbre.Comprobante.Fecha.ToString("yyyy-MM-ddTHH:mm:ss"),
+                            ObjCFDITimbre.Comprobante.FormadePago,
+                            ObjCFDITimbre.Comprobante.CondicionesdePago,
+                            ObjCFDITimbre.Comprobante.SubTotal,
+                            ObjCFDITimbre.Comprobante.Descuentos,
+                            ObjCFDITimbre.Comprobante.Moneda,
+                            ObjCFDITimbre.Comprobante.TipoCambio.ToString,
+                            ObjCFDITimbre.Comprobante.Total,
+                            ObjCFDITimbre.Comprobante.TipoComprobante,
+                            ObjCFDITimbre.Comprobante.Exportacion,
+                            ObjCFDITimbre.Comprobante.MetodoPago,
+                            ObjCFDITimbre.Comprobante.LugarExpedicion,
+                            ObjCFDITimbre.Comprobante.Confirmacion)
+
+        If ObjCFDITimbre.CFDIRelacionados.TipoRelacion <> "" Then
+            cfdi.CfdiRelacionados(ObjCFDITimbre.CFDIRelacionados.TipoRelacion)
+            For Each uid As String In ObjCFDITimbre.CFDIRelacionados.UUID
+                cfdi.CfdiRelacionado(uid)
+            Next
+        End If
+#Region "Emisor"
+        ' cfdi.agregarCfdiRelacionados()
+        cfdi.Emisor(EmisorRFC, UsuarioActual.Empresa.Empresa, UsuarioActual.Empresa.CodigoRegimenFiscal, "")
+
+#End Region
+
+#Region "Receptor"
+
+        cfdi.Receptor(ObjCFDITimbre.Receptor.RFC, ObjCFDITimbre.Receptor.Nombre, ObjCFDITimbre.Receptor.DomicilioFiscalReceptor, ObjCFDITimbre.Receptor.ResidenciaFiscal, ObjCFDITimbre.Receptor.NumeroRegistroTributario, ObjCFDITimbre.Receptor.RegimenFiscalReceptor, ObjCFDITimbre.Receptor.UsoCFDI)
+
+#End Region
+
+#End Region
+
+#Region "Conceptos"
+
+        'Nodo conceptos, se agregan los PS
+
+        If ObjCFDITimbre.Conceptos IsNot Nothing AndAlso ObjCFDITimbre.Conceptos.Count > 0 Then
+            For Each concep As CFDIConceptos In ObjCFDITimbre.Conceptos
+                cfdi.Concepto(concep.ClaveProdServ, concep.Noidentificacion, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Descripcion, concep.ValorUnitario, concep.Importe, concep.Descuento, concep.ObjetoImpuesto)
+                For Each imp As CFDIConceptosImpuestos In concep.Impuestos
+                    If imp.TrasladooRetencion = "T" Then
+                        cfdi.ConceptoTraslado(imp.Base, imp.Impuesto, imp.TipoFactor, imp.TasaOCuota, imp.Importe)
+                    Else
+                        cfdi.ConceptoRetencion(imp.Base, imp.Impuesto, imp.TipoFactor, imp.TasaOCuota, imp.Importe)
+                    End If
+                Next
+                If concep.CuentaPredial <> "" Then cfdi.CuentaPredial(concep.CuentaPredial)
+                If concep.NumeroPedimento <> "" Then cfdi.InformacionAduanera(concep.NumeroPedimento)
+            Next
+        End If
+
+#End Region
+
+        If ObjCFDITimbre.Comprobante.TipoComprobante.Contiene("I", "E") Then
+
+#Region "Impuestos"
+            'SI NO ES FACTURA EN 0 AGREGA LOS IMPUESTOS
+            If Ventas.Total <> 0 OrElse (ObjCFDITimbre.TotalImpuestosRetenidos > 0 OrElse ObjCFDITimbre.TotalImpuestosTrasladados > 0) Then
+                cfdi.Impuestos(ObjCFDITimbre.TotalImpuestosRetenidos, ObjCFDITimbre.TotalImpuestosTrasladados)
+            End If
+#End Region
+#Region " Traslados y Retenciones"
+
+
+            If ObjCFDITimbre.Retenciones.Sum(Function(x) x.Importe) > 0 Then
+                ''se acumulan los importes
+                For Each Ret In ObjCFDITimbre.Retenciones
+                    cfdi.Retencion(Ret.Impuesto, Ret.Importe)
+                Next
+            End If
+
+            ''se acumulan los importes
+            For Each Tras In ObjCFDITimbre.Traslados
+                cfdi.Traslado(Tras.Base, Tras.Impuesto, Tras.TipoFactor, Tras.TasaOCuota, Tras.Importe)
+            Next
+#End Region
+
+#Region "Impuestos Locales"
+
+            If ObjCFDITimbre.RetencionesLocales.Sum(Function(x) x.Importe) > 0 OrElse ObjCFDITimbre.TrasladosLocales.Sum(Function(x) x.Importe) > 0 Then
+
+                cfdi.ImpuestosLocales(ObjCFDITimbre.RetencionesLocales.Sum(Function(x) x.Importe), ObjCFDITimbre.TrasladosLocales.Sum(Function(x) x.Importe))
+
+                For Each ret As CFDIRetencionesLocales In ObjCFDITimbre.RetencionesLocales
+                    If ret.Importe > 0 Then
+                        cfdi.RetencionLocal(ret.ImpuestoLocalRetenido, ret.TasaRetencion, ret.Importe)
+                    End If
+                Next
+
+                For Each ret As CFDITrasladosLocales In ObjCFDITimbre.TrasladosLocales
+                    If ret.Importe > 0 Then
+                        cfdi.TrasladoLocal(ret.ImpuestoLocalTraslado, ret.TasaTraslado, ret.Importe)
+                    End If
+                Next
+            End If
+
+            'If Ventas.CveComplementoTimbrado > 0 Then
+
+            '    Select Case Ventas.CveComplementoTimbrado
+            '        Case 5 'INE Proceso Ordinario  Directivo Estatal"
+            '            cfdi.Ine11("Ordinario", "Directivo Estatal", "0")
+
+            '            cfdi.IneEntidad(Ventas.ComplementoINE.INEEntidad, "")
+            '            cfdi.IneContabilidad(Ventas.ComplementoINE.INEIdContabilidad)
+            '        Case 6 'INE Proceso Ordinario  Ejecutivo Estatal"
+            '            cfdi.Ine11("Ordinario", "Ejecutivo Estatal", "0")
+
+            '            cfdi.IneEntidad(Ventas.ComplementoINE.INEEntidad, "")
+            '            cfdi.IneContabilidad(Ventas.ComplementoINE.INEIdContabilidad)
+            '        Case 7   'INE Proceso Ordinario  Ejecutivo Nacional"
+
+            '            cfdi.Ine11("Ordinario", "Ejecutivo Nacional", Ventas.ComplementoINE.INEIdContabilidad.ToString)
+            '        Case 8 'INE PreCampaña
+            '            cfdi.Ine11(Ventas.ComplementoINE.INETipoProceso, "", "0")
+
+            '            cfdi.IneEntidad(Ventas.ComplementoINE.INEEntidad, Ventas.ComplementoINE.INETipoComite)
+            '            cfdi.IneContabilidad(Ventas.ComplementoINE.INEIdContabilidad)
+            '    End Select
+
+            'End If
+
+
+
+#End Region
+
+
+#Region "Comercio Exterior"
+
+            'If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior11.AplicaComercioExteriorSubProyecto Then
+            '    If ObjCFDITimbre.Complementos.ComercioExterior11 IsNot Nothing Then
+
+            '        'DATOS GENERALES
+            '        cfdi.ComercioExterior11(ObjCFDITimbre.Complementos.ComercioExterior11.MotivoTraslado,
+            '                                           ObjCFDITimbre.Complementos.ComercioExterior11.TipoOperacion,
+            '                                           ObjCFDITimbre.Complementos.ComercioExterior11.ClavedePedimento,
+            '                                           ObjCFDITimbre.Complementos.ComercioExterior11.CertificadoOrigen,
+            '                                           ObjCFDITimbre.Complementos.ComercioExterior11.NumCertificadoOrigen,
+            '                                           ObjCFDITimbre.Complementos.ComercioExterior11.NumeroExportadorConfiable,
+            '                                           ObjCFDITimbre.Complementos.ComercioExterior11.Incoterm,
+            '                                           ObjCFDITimbre.Complementos.ComercioExterior11.Subdivision,
+            '                                           ObjCFDITimbre.Complementos.ComercioExterior11.Observaciones,
+            '                                           ObjCFDITimbre.Complementos.ComercioExterior11.TipoCambioUSD,
+            '                                           ObjCFDITimbre.Complementos.ComercioExterior11.TotalUSD)
+            '        'EMISOR
+            '        cfdi.ComercioExterior11Emisor(If(EmisorRFC.Length >= 12, "", ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.CURP))
+            '        cfdi.ComercioExterior11Domicilio(ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Calle,
+            '                                                        ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.NumeroExterior,
+            '                                                        ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.NumeroInterior,
+            '                                                        ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Colonia,
+            '                                                        ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Localidad,
+            '                                                        ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Referencia,
+            '                                                        ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Municipio,
+            '                                                        ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Estado,
+            '                                                        ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.Pais,
+            '                                                        ObjCFDITimbre.Complementos.ComercioExterior11.Emisor.CP)
+            '        'RECEPTOR
+            '        cfdi.ComercioExterior11Receptor(ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.NumRegIdTrib)
+            '        cfdi.ComercioExterior11DomicilioReceptor(ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Calle,
+            '                                                                ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.NumeroExterior,
+            '                                                                ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.NumeroInterior,
+            '                                                                ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Colonia,
+            '                                                                ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Localidad,
+            '                                                                ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Referencia,
+            '                                                                ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Municipio,
+            '                                                                ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Estado,
+            '                                                                ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.Pais,
+            '                                                                ObjCFDITimbre.Complementos.ComercioExterior11.Receptor.CP)
+            '        cfdi.ComercioExterior11Destinatario(ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumRegIdTrib,
+            '                                                       ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Nombre,
+            '                                                       ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Calle,
+            '                                                                ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumeroExterior,
+            '                                                                ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.NumeroInterior,
+            '                                                                ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Colonia,
+            '                                                                ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Localidad,
+            '                                                                ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Referencia,
+            '                                                                ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Municipio,
+            '                                                                ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Estado,
+            '                                                                ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.Pais,
+            '                                                                ObjCFDITimbre.Complementos.ComercioExterior11.Destinatario.CP)
+            '        'MERCANCIAS
+            '        If ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias IsNot Nothing AndAlso ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias.Count > 0 Then
+            '            For Each concep As CFDIComercioExterior11Mercancias In ObjCFDITimbre.Complementos.ComercioExterior11.Mercancias
+            '                cfdi.ComercioExterior11Mercancia(concep.NoIdentificacion, concep.FraccionArancelaria, concep.CantidadAduana, concep.UnidadAduana, concep.ValorUnitarioAduana, concep.ValorDolares)
+            '                If concep.DescripcionesEspecificas.Marca <> "" Then
+            '                    cfdi.ComercioExterior11MercanciaDescripcionesEspeciales(concep.DescripcionesEspecificas.Marca,
+            '                                                                                       concep.DescripcionesEspecificas.Modelo,
+            '                                                                                       concep.DescripcionesEspecificas.SubModelo,
+            '                                                                                       concep.DescripcionesEspecificas.NumeroSerie)
+            '                End If
+            '            Next
+
+            '        End If
+
+
+            '    End If
+            'End If
+
+#End Region
+
+
+        End If
+
+
+
+#Region "C O M P L E M E N T O   C A R T A   P O R T E"
+
+
+        If ObjCFDITimbre.Complementos.CartaPorte IsNot Nothing Then
+
+            Dim Carta As CFDICartaPorte = ObjCFDITimbre.Complementos.CartaPorte
+
+            ''DATOS GENERALES
+            cfdi.CartaPorte(Carta.TranspInternac, Carta.EntradaSalidaMercancia, "", Carta.ViaEntradaSalida, Carta.TotalDistanciaRecorrida)
+
+            'UBICACIONES
+            If Carta.Ubicaciones IsNot Nothing AndAlso Carta.Ubicaciones.Count > 0 Then
+                For Each ubica As CFDICartaPorteUbicacion In Carta.Ubicaciones
+                    'origen
+                    cfdi.CartaPorteUbicacion(ubica.TipoUbicacion, ubica.IDUbicacion, ubica.RFCRemitenteDestinatario, ubica.NombreRemitenteDestinatario, ubica.NumRegIdTrib, ubica.ResidenciaFiscal, ubica.NumEstacion, ubica.NombreEstacion, ubica.NavegacionTrafico, ubica.FechaHoraSalidaLlegada, ubica.TipoEstacion, ubica.DistanciaRecorrida)
+                    'cfdi.CartaPorteOrigen(ubica.Origen.IDOrigen, ubica.Origen.RFCRemitente, ubica.Origen.NombreRemitente, ubica.NumRegIdTrib, ubica.Origen.ResidenciaFiscal, ubica.Origen.NumEstacion, ubica.Origen.NombreEstacion, ubica.Origen.NavegacionTrafico, ubica.Origen.FechaHoraSalida)
+                    cfdi.CartaPorteDomicilio(ubica.Domicilio.Calle, ubica.Domicilio.NumeroExterior, ubica.Domicilio.NumeroInterior, ubica.Domicilio.Colonia, ubica.Domicilio.Localidad, ubica.Domicilio.Referencia, ubica.Domicilio.Municipio, ubica.Domicilio.Estado, ubica.Domicilio.Pais, ubica.Domicilio.CP)
+                Next
+
+            End If
+
+            'MERCANCIAS
+            If Carta.Mercancias IsNot Nothing Then
+                cfdi.CartaPorteMercancias(Carta.Mercancias.PesoBrutoTotal, Carta.Mercancias.UnidadPeso, Carta.Mercancias.PesoNetoTotal, Carta.Mercancias.NumTotalMercancias, Carta.Mercancias.CargoporTasacion)
+                If Carta.Mercancias IsNot Nothing AndAlso Carta.Mercancias.Mercancias.Count > 0 Then
+                    For Each concep As CFDICartaPorteMercancia In Carta.Mercancias.Mercancias
+                        cfdi.CartaPorteMercancia(concep.BienesTransp, concep.ClaveSTCC, concep.Descripción, concep.Cantidad, concep.ClaveUnidad, concep.Unidad, concep.Dimensiones, concep.MaterialPeligroso, concep.ClaveMaterialPeligroso, If(concep.ClaveMaterialPeligroso <> "", concep.Embalaje, ""), concep.DescripEmbalaje, concep.PesoenKg, concep.ValorMercancia, concep.Moneda, concep.FraccionArrancelaria, concep.UUIDComercioExt)
+                        For Each transp In concep.MercanciasCantidadTransporta
+                            cfdi.CartaPorteCantidadTransporta(transp.Cantidad, transp.IDOrigen, transp.IDDestino, transp.CvesTransportes)
+                        Next
+                    Next
+                End If
+            End If
+            '
+            If Carta.FiguraTransporte IsNot Nothing Then
+
+                If Carta.FiguraTransporte.AutoTransporte IsNot Nothing Then
+
+                    cfdi.CartaPorteAutotransporte(Carta.FiguraTransporte.AutoTransporte.PermisoSCT, Carta.FiguraTransporte.AutoTransporte.NumPermisoSCT)
+
+                    cfdi.CartaPorteIdentificacionVehicular(Carta.FiguraTransporte.AutoTransporte.Vehiculo.ConfigVehicular, Carta.FiguraTransporte.AutoTransporte.Vehiculo.PlacaVM, Carta.FiguraTransporte.AutoTransporte.Vehiculo.AnioModeloVM)
+
+                    cfdi.CartaPorteSeguros(Carta.FiguraTransporte.AutoTransporte.NombreSeguroResponsabilidadCivil, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroResponsabilidadCivil,
+                                            Carta.FiguraTransporte.AutoTransporte.NombreSeguroMedioAmbiente, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroMedioAmbiente,
+                                            Carta.FiguraTransporte.AutoTransporte.NombreSeguroCarga, Carta.FiguraTransporte.AutoTransporte.PolizaSeguroCarga,
+                                            Carta.FiguraTransporte.AutoTransporte.PrimaSeguro)
+
+                    If Carta.FiguraTransporte.AutoTransporte.Remolques IsNot Nothing AndAlso Carta.FiguraTransporte.AutoTransporte.Remolques.Count > 0 Then
+                        For Each concep As CFDICartaPorteRemolque In Carta.FiguraTransporte.AutoTransporte.Remolques
+                            cfdi.CartaPorteRemolque(concep.SubTipoRemolque, concep.Placa)
+                        Next
+
+                    End If
+                End If
+
+                If Carta.FiguraTransporte.Operadores IsNot Nothing AndAlso Carta.FiguraTransporte.Operadores.Count > 0 Then
+                    For Each concep As CFDICartaPorteOperador In Carta.FiguraTransporte.Operadores
+                        cfdi.CartaPorteTiposFigura(concep.TipoFigura, concep.RFCFigura, concep.NumLicencia, concep.NombreFigura, concep.NumRegidTribFigura, If(concep.ResidenciaFiscalFigura <> "MEX", concep.ResidenciaFiscalFigura, ""))
+                        If concep.TipoFigura.Contiene("02", "03") Then ' “02”- Propietario o “03” -Arrendador
+                            cfdi.CartaPortePartesTransporte("PT01")
+                            cfdi.CartaPortePartesTransporteDomicilio(concep.Domicilio.Calle, concep.Domicilio.NumeroExterior, concep.Domicilio.NumeroInterior, concep.Domicilio.Colonia, concep.Domicilio.Localidad, concep.Domicilio.Referencia, concep.Domicilio.Municipio, concep.Domicilio.Estado, concep.Domicilio.Pais, concep.Domicilio.CP)
+                        End If
+                    Next
+                End If
+
+            End If
+
+        End If
+
+
+#End Region
+
+
+#Region "Complemento Pago"
+
+        If ObjCFDITimbre.Comprobante.TipoComprobante = "P" Then
+
+            cfdi.Pago(ObjCFDITimbre.ComplementoPagos.FechaPago.ToString("yyyy-MM-ddTHH:mm:ss"),
+                               ObjCFDITimbre.ComplementoPagos.FormaDePagoP,
+                               ObjCFDITimbre.ComplementoPagos.MonedaP,
+                               ObjCFDITimbre.ComplementoPagos.TipoCambioP,
+                               ObjCFDITimbre.ComplementoPagos.Monto,
+                               ObjCFDITimbre.ComplementoPagos.NumOperacion,
+                               ObjCFDITimbre.ComplementoPagos.RfcEmisorCtaOrd,
+                               ObjCFDITimbre.ComplementoPagos.NomBancoOrdExt,
+                               ObjCFDITimbre.ComplementoPagos.CtaOrdenante,
+                               ObjCFDITimbre.ComplementoPagos.RfcEmisorCtaBen,
+                               ObjCFDITimbre.ComplementoPagos.CtaBeneficiario,
+                               ObjCFDITimbre.ComplementoPagos.TipoCadPago,
+                               ObjCFDITimbre.ComplementoPagos.CertPago,
+                               ObjCFDITimbre.ComplementoPagos.CadPago,
+                               ObjCFDITimbre.ComplementoPagos.SelloPago)
+
+
+            If ObjCFDITimbre.ComplementoPagos.DocumentosRelacionados.Count > 0 Then
+
+
+                For Each doc As CFDIComplementoPagosDocsRelacionados In ObjCFDITimbre.ComplementoPagos.DocumentosRelacionados
+                    cfdi.PagoDoctoRelacionado(doc.IdDocumento,
+                                                       doc.Serie,
+                                                       doc.Folio,
+                                                       doc.MonedaDR,
+                                                       doc.TipoCambioDR,
+                                                       doc.MetodoDePagoDR,
+                                                       doc.NumParcialidad,
+                                                       doc.ImpSaldoAnt,
+                                                       doc.ImpPagado,
+                                                       doc.ImpSaldoInsoluto)
+
+                Next
+
+                'Estos impuestos aplicarían para anticipos
+                If ObjCFDITimbre.ComplementoPagos.TotalImpuestosRetenidos > 0 OrElse ObjCFDITimbre.ComplementoPagos.TotalImpuestosTrasladados > 0 Then
+
+                    cfdi.PagoImpuestos(ObjCFDITimbre.ComplementoPagos.TotalImpuestosRetenidos, ObjCFDITimbre.ComplementoPagos.TotalImpuestosTrasladados)
+                    If (ObjCFDITimbre.ComplementoPagos.Impuestos).Where(Function(x) x.TrasladooRetencion = "R").Count > 0 Then
+                        For Each Ret As CFDIConceptosImpuestos In (ObjCFDITimbre.ComplementoPagos.Impuestos).Where(Function(x) x.TrasladooRetencion = "R")
+                            cfdi.PagoRetencion(Ret.Impuesto, Ret.Importe)
+                        Next
+                    End If
+                    If (ObjCFDITimbre.ComplementoPagos.Impuestos).Where(Function(x) x.TrasladooRetencion = "T").Count > 0 Then
+                        For Each Tra As CFDIConceptosImpuestos In (ObjCFDITimbre.ComplementoPagos.Impuestos).Where(Function(x) x.TrasladooRetencion = "T")
+                            cfdi.PagoTraslado(Tra.Impuesto, Tra.TipoFactor, Tra.TasaOCuota, Tra.Importe)
+                        Next
+                    End If
+
+                End If
+
+
+
+            End If
+
+        End If
+#End Region
+
+
+
+#Region "Nomina12"
+        If ObjCFDITimbre.Comprobante.TipoComprobante = "N" Then
+
+            'cfdi.Esquema.AgregarEsquema("http://www.sat.gob.mx/nomina12 http://www.sat.gob.mx/sitio_internet/cfd/nomina/nomina12.xsd")
+            cfdi.Nomina12(ObjCFDITimbre.Nomina.TipoNomina, ObjCFDITimbre.Nomina.FechaPago.ToString("yyyy-MM-dd"), ObjCFDITimbre.Nomina.FechaInicio.ToDate().ToString("yyyy-MM-dd"), ObjCFDITimbre.Nomina.FechaFin.ToDate().ToString("yyyy-MM-dd"), ObjCFDITimbre.Nomina.NumDiasPagados, If(ObjCFDITimbre.Nomina.Percepciones IsNot Nothing AndAlso ObjCFDITimbre.Nomina.Percepciones.Count > 0, ObjCFDITimbre.Nomina.TotalPercepciones, 0), If(ObjCFDITimbre.Nomina.Deducciones IsNot Nothing AndAlso ObjCFDITimbre.Nomina.Deducciones.Count > 0, ObjCFDITimbre.Nomina.TotalDeducciones, 0), If(ObjCFDITimbre.Nomina.OtrosPagos IsNot Nothing AndAlso ObjCFDITimbre.Nomina.OtrosPagos.Count > 0, ObjCFDITimbre.Nomina.TotalOtrosPagos, 0))
+
+            cfdi.Nomina12Emisor(ObjCFDITimbre.Emisor.CURP, If(ObjCFDITimbre.Nomina.Receptor.TipoContrato.Contiene("09", "10", "99"), "", ObjCFDITimbre.Emisor.RegistroPatronal), ObjCFDITimbre.Emisor.RFC)
+
+            If UsuarioActual.Empresa.UsaAC Then cfdi.Nomina12EntidadSNCF("IF", 90)
+
+
+#Region "Receptor"
+
+            cfdi.Nomina12Receptor(ObjCFDITimbre.Nomina.Receptor.CURP,
+                                                 ObjCFDITimbre.Nomina.Receptor.NSS,
+                                                 ObjCFDITimbre.Nomina.Receptor.FechaInicioContrato.ToDate().ToString("yyyy-MM-dd"),
+                                                 ObjCFDITimbre.Nomina.Receptor.Antiguedad,
+                                                 ObjCFDITimbre.Nomina.Receptor.TipoContrato,
+                                                 ObjCFDITimbre.Nomina.Receptor.Sindicalizado,
+                                                 ObjCFDITimbre.Nomina.Receptor.CodigoTipoJornada,
+                                                 ObjCFDITimbre.Nomina.Receptor.CodigoRegimenContratacion,
+                                                 ObjCFDITimbre.Nomina.Receptor.CodigoEmpleado,
+                                                 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.CodigoBanco,
+                                                 ObjCFDITimbre.Nomina.Receptor.NumeroCuenta,
+                                                 ObjCFDITimbre.Nomina.Receptor.SBC,
+                                                 ObjCFDITimbre.Nomina.Receptor.SDI,
+                                                 ObjCFDITimbre.Nomina.Receptor.CodigoEntidadFederativa)
+            'cfdi.Nomina12SubContratacion("", "0")
+            'cfdi.agregarNominaPercepcionesPercepcionAccionesOTitulos12("100", "200");
+            'cfdi.agregarNominaPercepcionesSeparacionIndemnizacion12("100", "10", "1000", "100", "50");
+            'cfdi.agregarNominaPercepcionesJubilacionPensionRetiro12("50", "100", "10", "100", "0");
+
+
+        End If
+#End Region
+        If ObjCFDITimbre.Nomina IsNot Nothing Then
+            'If cfdi.Nomina12SeparacionIndemnizacion Then
+            If ObjCFDITimbre.Nomina.Percepciones IsNot Nothing AndAlso ObjCFDITimbre.Nomina.Percepciones.Count > 0 Then
+                cfdi.Nomina12Percepciones(ObjCFDITimbre.Nomina.TotalSueldos, ObjCFDITimbre.Nomina.TotalIndemnizacion, ObjCFDITimbre.Nomina.TotalJubilacion, ObjCFDITimbre.Nomina.TotalPercepcionesGravado, ObjCFDITimbre.Nomina.TotalPercepcionesExento)
+                For Each percep As CFDINominaPercepciones In ObjCFDITimbre.Nomina.Percepciones
+                    cfdi.Nomina12Percepcion(percep.TipoPercepcion, percep.Clave, percep.Concepto, Math.Round(percep.ImporteGravado, 2), Math.Round(percep.ImporteExento, 2))
+                    If percep.TipoPercepcion.ToEntero() = 19 Then
+
+                        If ObjCFDITimbre.Nomina.HorasExtras IsNot Nothing AndAlso ObjCFDITimbre.Nomina.HorasExtras.Count > 0 Then
+                            For Each HoraExtra As CFDINominaHorasExtras In ObjCFDITimbre.Nomina.HorasExtras
+                                cfdi.Nomina12HorasExtra(HoraExtra.Dias.ToEntero, HoraExtra.TipoHoras, HoraExtra.HorasExtra, HoraExtra.ImportePagado)
+                            Next
+                        End If
+                    End If
+                Next
+            End If
+
+            If ObjCFDITimbre.IStimbreFiniquito Then
+                'ObjCFDITimbre.Nomina.
+                Dim UltimoSueldoOrdinario As Double = ObjCFDITimbre.Nomina.UltimoSueldoOrdinario.ToString().ToDouble()
+                Dim TotalIndemnizacion As Double = ObjCFDITimbre.Nomina.TotalIndemnizacion
+                Dim t1 As Double = If(UltimoSueldoOrdinario < TotalIndemnizacion, UltimoSueldoOrdinario, TotalIndemnizacion)
+                Dim t2 As Double = If(UltimoSueldoOrdinario < TotalIndemnizacion, TotalIndemnizacion, UltimoSueldoOrdinario)
+                cfdi.Nomina12SeparacionIndemnizacion(TotalIndemnizacion, ObjCFDITimbre.Nomina.Antiguedad, UltimoSueldoOrdinario, t1, t2 - t1)
+
+            End If
+            'deducciones al final
+            If ObjCFDITimbre.Nomina.Deducciones IsNot Nothing AndAlso ObjCFDITimbre.Nomina.Deducciones.Count > 0 Then
+                cfdi.Nomina12Deducciones(ObjCFDITimbre.Nomina.TotalDeduccionesOtras, Math.Round(ObjCFDITimbre.Nomina.TotalDeduccionesImpuestosRetenidos, 2))
+                For Each deduc As CFDINominaDeducciones In ObjCFDITimbre.Nomina.Deducciones
+                    cfdi.Nomina12Deduccion(deduc.TipoDeduccion, deduc.Clave, deduc.Concepto, Math.Round(deduc.Importe, 2))
+                Next
+            End If
+            If ObjCFDITimbre.Nomina.OtrosPagos IsNot Nothing Then
+                ' cfdi.agregarNominaOtrosPagosOtroPago12("002", "002", "Subsidio", "10.00");
+                ' cfdi.agregarNominaOtrosPagosOtroPagoSubsidioAlEmpleo12("10.00");
+                If ObjCFDITimbre.Nomina.OtrosPagos IsNot Nothing AndAlso ObjCFDITimbre.Nomina.OtrosPagos.Count > 0 Then
+                    For Each otpag As CFDINominaOtrosPagos In ObjCFDITimbre.Nomina.OtrosPagos
+                        cfdi.Nomina12OtroPago(otpag.TipoOtroPago, otpag.Clave, otpag.Concepto, otpag.Importe)
+                        If otpag.TipoOtroPago = "002" Then
+                            cfdi.Nomina12SubsidioAlEmpleo(otpag.Subsidiocausado)
+                        End If
+
+                        If otpag.TipoOtroPago = "004" AndAlso otpag.Importe > 0 Then
+                            If otpag.ejercicio > 0 Then
+                                cfdi.CompensacionSaldosAFavor(otpag.SaldoAFavor, otpag.ejercicio, otpag.RemanenteSalFav) 'otpag.SaldoAFavor
+                            End If
+                        End If
+
+                    Next
+                End If
+            End If
+            If ObjCFDITimbre.Nomina.Incapacidades IsNot Nothing AndAlso ObjCFDITimbre.Nomina.Incapacidades.Count > 0 Then
+                For Each Incap As CFDINominaIncapacidades In ObjCFDITimbre.Nomina.Incapacidades
+                    cfdi.Nomina12Incapacidad(Incap.DiasIncapacidad.ToEntero, Incap.TipoIncapacidad, Incap.Importe)
+                Next
+            End If
+        End If
+#End Region
+
+        sw.Stop()
+        swTiempo.AppendFormat("Armado: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds)
+        swmili = sw.ElapsedMilliseconds
+        sw.Start()
+#Region "Genera XML"
+        Dim ArchivoGenerado As Boolean = False
+        Try
+            cfdi.GenerarXMLB64(llaveBase64, Clave)
+            ArchivoGenerado = True
+        Catch ex As Exception
+            Retorno = cfdi.Mensaje
+            If Retorno = "" OrElse IsNothing(Retorno) Then
+                Retorno = $"llaveBase64 ={llaveBase64} <br/>Clave ={Clave} <br/> {ex.ToString()}"
+            End If
+            MensajeErrorCFDI = Retorno
+        End Try
+
+#End Region
+        sw.Stop()
+        swTiempo.AppendFormat("Genera: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds)
+        swmili = sw.ElapsedMilliseconds
+        sw.Start()
+
+#Region "Timbra"
+        If ArchivoGenerado Then
+
+            cfdi.TimbrarCfdi(UsuarioServicio, ClaveServicio, UrlServicio, TimbraProduccion)
+
+            sw.Stop()
+            swTiempo.AppendFormat("Timbrado: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds)
+            swmili = sw.ElapsedMilliseconds
+            sw.Start()
+            'Verifica el error
+            If cfdi.Mensaje = "" Then
+
+                Dim FolioFiscal As String
+
+                UUID = cfdi.CfdiInfo.UUID
+                FolioFiscal = cfdi.CfdiInfo.UUID 'obtenerAtributo(cfdi.XmlTimbrado, "TimbreFiscalDigital", "UUID") 'XmlDoc.DocumentElement("cfdi:Complemento").FirstChild.Attributes("UUID").InnerText
+
+                If FolioFiscal <> "" Then
+
+                    cfdi.EscribirXml(RutaArchivo & NombreArchivoXML & ".xml")
+
+                    sw.Stop()
+                    swTiempo.AppendFormat("Guardado: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds)
+                    swmili = sw.ElapsedMilliseconds
+                    sw.Start()
+
+                    Select Case ObjCFDITimbre.Comprobante.TipoComprobante
+                        Case "N"
+
+                            Using ObjNomina2 As New ClsNominas()
+
+                                If ObjNomina2.UpdateEstatusNomNominas(3, CvePACEspecial, FolioFiscal, ObjCFDITimbre.Comprobante.Fecha, ("01/01/2000").ToDate, ObjCFDITimbre.Nomina.CveNomina, 0, 0, 0, 0, 0, isFiniquito:=Ventas.Timbre.IStimbreFiniquito) Then
+                                    Retorno = ""
+                                Else
+                                    Retorno = "Error"
+                                End If
+                            End Using
+
+                        Case "T"
+
+                            Dim objGrales As New ClsGenerales
+                            If objGrales.UpdateTimbreTimbrado(Ventas.CveTimbre, FolioFiscal, ObjCFDITimbre.Comprobante.Fecha, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa, UsuarioActual.Empresa.CvePAC) Then
+                                Retorno = ""
+                            Else
+                                Retorno = "Error"
+                            End If
+                            objGrales.Dispose()
+
+                            Using ObjInv As New ClsInventarios()
+                                If ObjInv.UpdateMovimientoTimbrado(Ventas.Inv_CveMovimiento, 1, FolioFiscal, MinFecha) Then
+                                    Retorno = ""
+                                Else
+                                    Retorno = "Error"
+                                End If
+                            End Using
+
+
+                        Case Else
+
+                            'Actualiza Estatus Factura
+                            If Ventas.CveVenta > 0 Then
+
+                                Using ObjVentas As New ClsVentas()
+
+                                    If ObjVentas.UpdateEstatusFactura(3, FolioFiscal, "", ObjCFDITimbre.Comprobante.Fecha, Ventas.CveVenta, CvePAC:=CvePACEspecial, RFCReceptor:=ObjCFDITimbre.Receptor.RFC) Then
+                                        Retorno = ""
+                                    Else
+                                        Retorno = "Error"
+                                    End If
+                                End Using
+
+                                'Genero la addenda Ford
+                                If Ventas.Cliente.Ford_GSDB <> "" Then
+
+                                    Dim RutaCadena As String = String.Format("{0}{1}.xml", RutaArchivo, NombreArchivoXML)  'If(UsuarioActual.Empresa.FacturaProduccion, String.Format("{0}XML\{1}\{2}.xml", Ruta, Ventas.SerieFolio), String.Format("{0}XML\{1}\{2}.xml", Ruta, Ventas.TipoDocto, Ventas.SerieFolio))
+
+                                    Dim FolioFactura As String = ""
+                                    If UsuarioActual.CveEmpresa = 8 Then FolioFactura = Ventas.Folio.ToString ' sogo, pordefault manda el folio de la factura
+                                    GeneraAddendaFord(RutaCadena, FolioFactura, Ventas.FordASN, Ventas.FordGSDB)
+
+                                End If
+
+                            End If
+                    End Select
+
+
+                    If Not IO.Directory.Exists($"{UsuarioActual.Empresa.Ruta}CBB\") Then IO.Directory.CreateDirectory($"{UsuarioActual.Empresa.Ruta}CBB\")
+
+                    Try
+                        Dim RutaCBB As String = $"{UsuarioActual.Empresa.Ruta}CBB\{ObjCFDITimbre.Comprobante.SerieFolio}.jpg"
+                        'temp
+                        'Dim b As Byte() = cfdi. .QrCode($"?re={UsuarioActual.Empresa.RFC}&rr={ObjCFDITimbre.Receptor.RFC}&tt={String.Format("{0,12:F6}", ObjCFDITimbre.Comprobante.Total).Trim()}&id={FolioFiscal}")
+                        'File.WriteAllBytes(RutaCBB, b)
+                    Catch ex As Exception
+                        OnError("Ocurrió un error al generar el QR", ex)
+                    End Try
+                    Retorno = ""
+                Else
+                    Retorno = "No se pudo timbrar ante el SAT. UUID no generado."
+                End If
+                sw.Stop()
+                swTiempo.AppendFormat("Actualizado: ({0}) {1} ", sw.ElapsedMilliseconds - swmili, sw.ElapsedMilliseconds)
+                swmili = sw.ElapsedMilliseconds
+                sw.Start()
+
+            Else
+                Retorno = cfdi.Mensaje
+                MensajeErrorCFDI = cfdi.Mensaje
+                If cfdi.Xml <> "" Then cfdi.EscribirXml(RutaArchivo & NombreArchivoXML & ".xml")
+
+            End If
+        End If
+
+#End Region
+        GuardaLogTimbrado(swTiempo.ToString, CvePACEspecial)
+        Return Retorno
+    End Function
+
+#End Region
+
     <Serializable(), XmlRoot("servicioTimbrado")>
     Public Class PADEServicioTimbradoResp
         <XmlElement("id")>

Compras/Compras.aspx.vb

@@ -1118,7 +1118,7 @@ Partial Class Compras_Compras
             CargaDatosAgregarPS()
             TieneAnticiposXML = False
             Modalidad = ""
-            Version = "3.3"
+            Version = "4.0"
             CveMetodoPago = -1
             RFCProv = ""
             CargaDdlTipoGasto()
@@ -1638,7 +1638,7 @@ Partial Class Compras_Compras
     End Sub
 
     Private Sub ValidaIVA()
-        If Version <> "3.3" And CveCompra <= 0 Then
+        If (Version <> "3.3" And Version <> "4.0") And CveCompra <= 0 Then
             Dim ImporteIVAXML As Double = (TxtSubTotal.Text.Trim.ToDouble - TxtDescuento.Text.Trim.ToDouble - TxtIEPS.Text.Trim.ToDouble) * 0.16
             If Math.Abs(TxtIVA.Text.Trim.ToDouble - ImporteIVAXML) >= 1 Then
                 Alert("El <b>IVA</b> del <b>CFDi</b> no tiene un comportamiento normal, por favor verifique que sea correcto. <br /><br /> <b>NOTA:</b> Esta advertencia no aplica en casos de conceptos(alimentos, combustibles o servicios de comunicación) exentos de IVA o causantes de IEPS.", TipoMensaje.MsgAdvertencia)
@@ -1743,15 +1743,29 @@ Partial Class Compras_Compras
 
                     CargaComprobanteXML(XMLDoc)
 
-                    If NuevaValidacionXML = 1 Or Version = "3.3" Then
+                    If NuevaValidacionXML = 1 Or (Version = "3.3" Or Version = "4.0") Then
                         Dim Xml As New StringBuilder
                         Dim nodo As XmlNode = XMLDoc.DocumentElement
                         Dim Version = ValorXML(nodo, "version")
+
+
                         Dim Prefijo As String = If(XMLDoc.DocumentElement.Prefix = "", "cfd", XMLDoc.DocumentElement.Prefix)
-                        Dim cfdVer As String = "http://www.sat.gob.mx/cfd/3"
+                        Dim cfdVer As String = ""
                         Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable)
 
-                        If Prefijo.ToLower <> "cfdi" Then cfdVer = "http://www.sat.gob.mx/cfd/2"
+
+                        If Version = "3.2" Then
+                            Prefijo = "cfd"
+                            cfdVer = "http://www.sat.gob.mx/cfd/2"
+                        ElseIf Version = "3.3" Then
+                            cfdVer = "http://www.sat.gob.mx/cfd/3"
+
+                        Else ' se considera que es la version 4.0
+                            cfdVer = "http://www.sat.gob.mx/cfd/4"
+                        End If
+
+                        'If Prefijo.ToLower <> "cfdi" Then cfdVer = "http://www.sat.gob.mx/cfd/2"
+
                         namespaces.AddNamespace(Prefijo, cfdVer)
                         namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
                         namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")
@@ -1759,7 +1773,8 @@ Partial Class Compras_Compras
 
                         Dim nodeconceptos As XmlNode = XMLDoc.SelectSingleNode(String.Format("//{0}:Conceptos", Prefijo), namespaces)
 
-                        Xml.Append(Replace(Replace(Replace(nodeconceptos.OuterXml, "<cfdi:", "<"), "</cfdi:", "</"), "xmlns:cfdi=""http://www.sat.gob.mx/cfd/3""", ""))
+                        Xml.Append(Replace(Replace(Replace(Replace(nodeconceptos.OuterXml, "<cfdi:", "<"), "</cfdi:", "</"), "xmlns:cfdi=""http://www.sat.gob.mx/cfd/3""", ""), "xmlns:cfdi=""http://www.sat.gob.mx/cfd/4""", ""))
+
                         If ObjeFacturas.GetFacturasComparacionXML(Version, Xml.ToString, UsuarioActual.CveEmpresa) Then
                             TmpDT = ObjeFacturas.DtResultados
                             TmpDT.Columns.Add("CveSATPSActualizado")
@@ -1883,7 +1898,7 @@ Partial Class Compras_Compras
                     Dim Msg As String = ""
 
 
-                    If Version = "3.3" Then
+                    If Version = "3.3" Or Version = "4.0" Then
 
                         ValidacionesTotalesXml()
 
@@ -3573,11 +3588,25 @@ Partial Class Compras_Compras
         'Dim DtPSTemp = TmpDT.Clone
         'Dim Row As DataRow = Nothing
 
-        Dim Prefijo As String = If(XMLDoc.DocumentElement.Prefix = "", "cfd", XMLDoc.DocumentElement.Prefix)
+
-        Dim cfdVer As String = "http://www.sat.gob.mx/cfd/3"
         Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable)
 
-        If Prefijo.ToLower <> "cfdi" Then cfdVer = "http://www.sat.gob.mx/cfd/2"
+        Dim nodo As XmlNode = XMLDoc.DocumentElement
+        Dim VersionCFDI As String = ValorXML(nodo, "version")
+
+        Dim Prefijo As String = If(XMLDoc.DocumentElement.Prefix = "", "cfd", XMLDoc.DocumentElement.Prefix)
+        Dim cfdVer As String = ""
+
+        If VersionCFDI = "3.2" Then
+            Prefijo = "cfd"
+            cfdVer = "http://www.sat.gob.mx/cfd/2"
+        ElseIf VersionCFDI = "3.3" Then
+            cfdVer = "http://www.sat.gob.mx/cfd/3"
+
+        Else ' se considera que es la version 4.0
+            cfdVer = "http://www.sat.gob.mx/cfd/4"
+        End If
+
         namespaces.AddNamespace(Prefijo, cfdVer)
         namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
         namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")
@@ -3714,7 +3743,7 @@ Partial Class Compras_Compras
 
                 'Alert(ValorXML(node, "ClaveProdServ").Trim)
 
-                If Version = "3.3" Then
+                If Version = "3.3" Or Version = "4.0" Then
                     If node IsNot Nothing AndAlso node.ChildNodes.Count > 0 Then
                         'OBTENER TRASLADOS POR DETALLES
                         Dim ContadorTraslado = 0
@@ -5171,7 +5200,7 @@ Partial Class Compras_Compras
                                         End If
 
                                         'ACTUALIZAR PRODUCTO/SERVICIO SAT
-                                        If Version = "3.3" Then
+                                        If Version = "3.3" Or Version = "4.0" Then
                                             If Row("CveSATPSActualizado").ToString().ToEntero() = 1 Then
                                                 If Not ObjProductosServicios.UpdateProductosServiciosSAT(Row("CvePS").ToString().ToEntero(), Row("CveSATPS").ToString().ToEntero(), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa) Then
                                                     ErrorSATPS = True
@@ -10833,7 +10862,7 @@ Partial Class Compras_Compras
 
 
 
-        If Version = "3.3" Then
+        If Version = "3.3" Or Version = "4.0" Then
             Dim drm As DataRow = GlobalDTVtaMetodoPago.FiltroPrimero(String.Format("ClaveMetodoPagoSAT = '{0}'", ValorXML(nodo, "MetodoPago")))
             If drm IsNot Nothing Then
                 CveMetodoPago = drm("CveMetodoPago").ToString.ToEntero
@@ -10842,11 +10871,28 @@ Partial Class Compras_Compras
         End If
 
 
-        Dim Prefijo As String = If(XMLDoc.DocumentElement.Prefix = "", "cfd", XMLDoc.DocumentElement.Prefix)
-        Dim cfdVer As String = "http://www.sat.gob.mx/cfd/3"
         Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable)
 
-        If Prefijo.ToLower <> "cfdi" Then cfdVer = "http://www.sat.gob.mx/cfd/2"
+
+
+
+
+        Dim Prefijo As String = If(XMLDoc.DocumentElement.Prefix = "", "cfd", XMLDoc.DocumentElement.Prefix)
+        Dim cfdVer As String = ""
+
+        If Version = "3.2" Then
+            Prefijo = "cfd"
+            cfdVer = "http://www.sat.gob.mx/cfd/2"
+        ElseIf Version = "3.3" Then
+            cfdVer = "http://www.sat.gob.mx/cfd/3"
+
+        Else ' se considera que es la version 4.0
+            cfdVer = "http://www.sat.gob.mx/cfd/4"
+        End If
+
+
+
+        'If Prefijo.ToLower <> "cfdi" Then cfdVer = "http://www.sat.gob.mx/cfd/2"
         namespaces.AddNamespace(Prefijo, cfdVer)
         namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
         namespaces.AddNamespace("implocal", "http://www.sat.gob.mx/implocal")
@@ -10889,7 +10935,7 @@ Partial Class Compras_Compras
 
             TotalRetenciones = ValorXML(node, "totalImpuestosRetenidos", "0").ToDecimal
 
-            If Version = "3.3" Then
+            If Version = "3.3" Or Version = "4.0" Then
 
                 For Each retencion As XmlNode In nodeRetenciones
                     If retencion.Attributes("Impuesto").Value = "002" Then
@@ -10920,7 +10966,7 @@ Partial Class Compras_Compras
             TotalTraslados = ValorXML(node, "totalImpuestosTrasladados", "0").ToDecimal
             Dim nodeTraslados As XmlNodeList = XMLDoc.SelectNodes(String.Format("//{0}:Comprobante/{0}:Impuestos/{0}:Traslados/{0}:Traslado", Prefijo), namespaces)
 
-            If Version = "3.3" Then
+            If Version = "3.3" Or Version = "4.0" Then
 
                 For Each traslado As XmlNode In nodeTraslados
                     If traslado.Attributes("Impuesto").Value = "002" Then
@@ -15639,7 +15685,7 @@ Partial Class Compras_Compras
                 e.Row.FCLabel("LbEstatusInv").Text = "NA"
             End If
 
-            If Version = "3.3" Then
+            If Version = "3.3" Or Version = "4.0" Then
                 CargaPSSAT(e.Row.FCDropDownLost("DdlSATPS"))
                 If e.Row.DBCampo("CveSATPS").ToEntero > 0 Then
                     e.Row.FCDropDownLost("DdlSATPS").SelectedValue = e.Row.DBCampo("CveSATPS")
@@ -18305,7 +18351,7 @@ Partial Class Compras_Compras
             Row("Consec") = TmpDT.Rows.Count + 1
         End If
 
-        If Version = "3.3" And CveSATPS > 0 Then
+        If (Version = "3.3" Or Version = "4.0") And CveSATPS > 0 Then
             Dim DrPSSAT As DataRow = Nothing
             If CargaXml Then
                 DrPSSAT = GlobalDTPSATPS("-1", CveSATPS.ToString).FiltroPrimero("")
@@ -18362,7 +18408,7 @@ Partial Class Compras_Compras
         Row("NoDeducible") = NoDeducible
 
         Row("PU") = Math.Round(PU, DecimalesPermitidos)
-        If CargaXml And Version = "3.3" Then
+        If CargaXml And (Version = "3.3" Or Version = "4.0") Then
             Row("IVA") = Math.Round(IVA, DecimalesPermitidos)
             Row("IVAPorcentaje") = PorcentajeIVA
             Row("RetIVA") = Math.Round(RetIVA, DecimalesPermitidos)

Compras/eFacturas.aspx.vb

@@ -2845,6 +2845,8 @@ Partial Class Compras_eFacturas
 
         Dim XMLDoc As New XmlDocument
         Dim Archivo As String = String.Format("{0}Compras\{1}\{2}", UsuarioActual.Empresa.Ruta, gvRow.DataKey("RFCDe"), gvRow.DataKey("XML"))
+
+        Dim Prefijo As String = ""
         If IO.File.Exists(Archivo) Then
 
 
@@ -2855,12 +2857,27 @@ Partial Class Compras_eFacturas
             XMLDoc.LoadXml(SXML)
 
             Dim Xml As New StringBuilder
+
+
             Dim namespaces As New XmlNamespaceManager(XMLDoc.NameTable)
 
-            namespaces.AddNamespace(XMLDoc.DocumentElement.Prefix, "http://www.sat.gob.mx/cfd/3")
+            Dim RootDocumento As XmlElement = XMLDoc.DocumentElement
+            Dim VersionCFDI As String = ValorXML(RootDocumento, "version")
+
+            If VersionCFDI = "3.3" Then
+                Prefijo = "pago10"
+                namespaces.AddNamespace("pago10", "http://www.sat.gob.mx/Pagos")
+                namespaces.AddNamespace(XMLDoc.DocumentElement.Prefix, "http://www.sat.gob.mx/cfd/3")
+            ElseIf VersionCFDI = "4.0" Then
+                Prefijo = "pago20"
+                namespaces.AddNamespace("pago20", "http://www.sat.gob.mx/Pagos20")
+                namespaces.AddNamespace(XMLDoc.DocumentElement.Prefix, "http://www.sat.gob.mx/cfd/4")
+            End If
+
+
             namespaces.AddNamespace("tfd", "http://www.sat.gob.mx/TimbreFiscalDigital")
 
-            ' namespaces.AddNamespace("pago10", "http://www.sat.gob.mx/Pagos")
+
             nodeComp = XMLDoc.SelectSingleNode(String.Format("//{0}:Complemento", XMLDoc.DocumentElement.Prefix), namespaces)
 
 
@@ -2868,20 +2885,20 @@ Partial Class Compras_eFacturas
 
             nodeTFD = nodeComp.SelectSingleNode(String.Format("//{0}:TimbreFiscalDigital", "tfd"), namespaces)
 
-            Dim PrefijoPagos As String = ""
+            'Dim PrefijoPagos As String = ""
 
-            For Each nodoPrefijo As XmlNode In nodeComp.ChildNodes
+            'For Each nodoPrefijo As XmlNode In nodeComp.ChildNodes
-                If nodoPrefijo.Prefix <> "tfd" And nodoPrefijo.Prefix.ToUpper.Contains("PAGO") Then
+            '    If nodoPrefijo.Prefix <> "tfd" And nodoPrefijo.Prefix.ToUpper.Contains("PAGO") Then
-                    PrefijoPagos = nodoPrefijo.Prefix
+            '        PrefijoPagos = nodoPrefijo.Prefix
-                End If
+            '    End If
-            Next
+            'Next
 
-            namespaces.AddNamespace(PrefijoPagos, "http://www.sat.gob.mx/Pagos")
+            'namespaces.AddNamespace(PrefijoPagos, "http://www.sat.gob.mx/Pagos")
             nodeComp = XMLDoc.SelectSingleNode(String.Format("//{0}:Complemento", XMLDoc.DocumentElement.Prefix), namespaces)
 
 
-            nodePagos = nodeComp.SelectSingleNode(String.Format("//{0}:Pagos/{0}:Pago", PrefijoPagos), namespaces)
+            nodePagos = nodeComp.SelectSingleNode(String.Format("//{0}:Pagos/{0}:Pago", Prefijo), namespaces)
-            nodePagos2 = nodeComp.SelectSingleNode(String.Format("//{0}:Pagos", PrefijoPagos), namespaces)
+            nodePagos2 = nodeComp.SelectSingleNode(String.Format("//{0}:Pagos", Prefijo), namespaces)
 
 
 
@@ -2923,7 +2940,7 @@ Partial Class Compras_eFacturas
 
 
             Dim nodePagosN As XmlNodeList
-            nodePagosN = nodeComp.SelectNodes(String.Format("//{0}:Pagos", PrefijoPagos), namespaces)
+            nodePagosN = nodeComp.SelectNodes(String.Format("//{0}:Pagos", Prefijo), namespaces)
 
 
             For Each NodosPagos As XmlNode In nodePagosN
@@ -2964,7 +2981,7 @@ Partial Class Compras_eFacturas
             MontoPago = Monto
 
             Dim ObjCompraFolios As New ClsCompras
-            If ObjCompraFolios.GetCompararComplementoPago(gvRow.DataKey("CveProveedor").ToEntero, Monto, nodePagos2.InnerXml.Replace($"{PrefijoPagos}:", ""), UsuarioActual.CveEmpresa, OP:=If(CveComplementoPagoCompra > 0, 2, 1), CveFactura:=CveFacturaComplemento) Then
+            If ObjCompraFolios.GetCompararComplementoPago(gvRow.DataKey("CveProveedor").ToEntero, Monto, nodePagos2.InnerXml.Replace($"{Prefijo}:", ""), UsuarioActual.CveEmpresa, OP:=If(CveComplementoPagoCompra > 0, 2, 1), CveFactura:=CveFacturaComplemento) Then
                 '
                 '.GetCompararComplementoPago(gvRow.DataKey("CveProveedor").ToEntero, Monto, nodePagos2.InnerXml.Replace("pago10:", ""), UsuarioActual.CveEmpresa) Then
                 If ObjCompraFolios.DtResultados.Rows.Count > 0 Then

Contabilidad/RepBalanceGeneral.aspx.vb

@@ -1091,7 +1091,12 @@ Partial Class Contabilidad_RepBalanceGeneral
         'parametros a enviar al reporte                     
         Dim params As New List(Of ReportParameter)
         params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
+
+        'LogoRuta = String.Format("file://{0}Formatos\Suc{1}.png", UsuarioActual.Empresa.Ruta, Vta.CveSucursal)
+
+        Dim RutaLogo As String = String.Format("file://{0}Logo.png", UsuarioActual.Empresa.Ruta)
+        params.Add(New ReportParameter("pImg", RutaLogo))
+
         params.Add(New ReportParameter("pFirma1", ""))
         params.Add(New ReportParameter("pFirma2", ""))
         params.Add(New ReportParameter("pFechaFin", FechaF))
@@ -1125,7 +1130,10 @@ Partial Class Contabilidad_RepBalanceGeneral
         'parametros a enviar al reporte                     
         Dim params As New List(Of ReportParameter)
         params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
+
+        Dim RutaLogo As String = String.Format("file://{0}Logo.png", UsuarioActual.Empresa.Ruta)
+        params.Add(New ReportParameter("pImg", RutaLogo))
+        'params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
         params.Add(New ReportParameter("pFechaFin", FechaF))
         params.Add(New ReportParameter("pSubtotal", DdlSubtotales.SelectedValue.ToString))
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
@@ -1148,7 +1156,9 @@ Partial Class Contabilidad_RepBalanceGeneral
         'parametros a enviar al reporte                     
         Dim params As New List(Of ReportParameter)
         params.Add(New ReportParameter("pEmp", UsuarioActual.Empresa.Empresa))
-        params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
+        Dim RutaLogo As String = String.Format("file://{0}Logo.png", UsuarioActual.Empresa.Ruta)
+        params.Add(New ReportParameter("pImg", RutaLogo))
+        'params.Add(New ReportParameter("pImg", New Uri(Server.MapPath(String.Format("~/Empresas/{0}/Logo.png", UsuarioActual.CveEmpresa))).AbsoluteUri))
         params.Add(New ReportParameter("pFechaI", DdlEjercicio.SelectedValue))
         params.Add(New ReportParameter("UsuarioImprimio", UsuarioActual.Usuario))
         params.Add(New ReportParameter("FechaImpresion", Now.ToShortDateString))

Documentacion/TableroMaterialidad.aspx

@@ -167,7 +167,8 @@
                     <asp:Repeater ID="RptDatos" runat="server" OnItemDataBound="RptDatos_ItemDataBound">
                         <ItemTemplate>
                             <tr>
-                                <td><%# DataBinder.Eval(Container.DataItem, "NombreComercial") %></td>
+                                
+                                <td><%# string.Format("<a href='/Ventas/Clientes.aspx?CveCliente={0}' target='_blank'>{1}</a>",DataBinder.Eval(Container.DataItem, "CveCliente"),DataBinder.Eval(Container.DataItem, "NombreComercial")) %></td>
                                 <asp:Repeater ID="rptdocumentacion" runat="server">
                                     <ItemTemplate>
                                         <td><%#

GPS/PalletEtiqueta.rdlc

@@ -1586,10 +1586,10 @@ KM12 HERMOSILLO, SONORA</Value>
       <Page>
         <PageHeight>29.7cm</PageHeight>
         <PageWidth>21cm</PageWidth>
-        <LeftMargin>2cm</LeftMargin>
+        <LeftMargin>0cm</LeftMargin>
-        <RightMargin>2cm</RightMargin>
+        <RightMargin>0cm</RightMargin>
-        <TopMargin>2cm</TopMargin>
+        <TopMargin>0cm</TopMargin>
-        <BottomMargin>2cm</BottomMargin>
+        <BottomMargin>0cm</BottomMargin>
         <ColumnSpacing>0.13cm</ColumnSpacing>
         <Style />
       </Page>

Inventarios/RecepcionUsados.aspx.vb

@@ -1509,7 +1509,7 @@ Partial Class Inventarios_RecepcionUsados
 
         If CveMovimiento <= 0 Then
             CveMovimiento = ObjInv.AddMovimiento(DdlAlmacen.SelectedValue.ToEntero, CveConcepto, 1, TxtFecha.Text.ToDate, TxtFolio.Text.ToEntero, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa,
-                                                 -1, -1, -1, -1, Modulo:="RU/G")
+                                                 -1, -1, -1, -1, Recibio:=TxtResponsable.Text.Trim, Observaciones:=TxtObservaciones.Text.Trim, Modulo:="RU/G2")
         End If
 
         ObjInv.AddMovimientoDetalle(CveMovimiento, Cantidad, CveUM, CvePS, CostoPromedio, -1, Serie:=Serie)
@@ -2780,7 +2780,8 @@ Partial Class Inventarios_RecepcionUsados
 
         ObjRemisionNC.DtMovimientosUsados = DtMovimientos
         ObjRemisionNC.CveAlmacen = DdlAlmacen.SelectedValue.ToEntero()
-        ObjRemisionNC.ObservacionesMovimiento = TxtObservaciones.Text
+        ObjRemisionNC.MovimientoObservaciones = TxtObservaciones.Text
+        ObjRemisionNC.MovimientoRecibio = TxtResponsable.Text
         ObjRemisionNC.CveConceptoMovimiento = CveConcepto
     End Sub
 

RH/Personal.aspx.vb

@@ -52,6 +52,18 @@ Partial Class RH_Personal
             ViewState("DTDocumentacion") = value
         End Set
     End Property
+    Private Property DTDocumentacionFiscal As DataTable
+        Get
+            If ViewState("DTDocumentacionFiscal") Is Nothing Then
+                Return New DataTable
+            Else
+                Return DirectCast(ViewState("DTDocumentacionFiscal"), DataTable)
+            End If
+        End Get
+        Set(value As DataTable)
+            ViewState("DTDocumentacionFiscal") = value
+        End Set
+    End Property
     Property NombreCompleto As String
         Get
             If ViewState("NombreCompleto") Is Nothing Then
@@ -3749,8 +3761,18 @@ Partial Class RH_Personal
             Else
                 GvDocumentosFirma.DataSource = Nothing
             End If
+
+
+            If DTDocumentacion.FiltraParametros(" Modulo =  7 ").Rows.Count > 0 Then
+                GVMaterialidad.DataSource = DTDocumentacion.FiltraParametros(" Modulo =  7 ")
+            Else
+                GVMaterialidad.DataSource = Nothing
+            End If
+
+            GVMaterialidad.DataBind()
             GvDocumentosFirma.DataBind()
 
+            UpMaterialidad.Update()
             UPGvDocumentosFirma.Update()
             UpGvDocumentosFirma2.Update()
         End If

Ventas/CatAutorizacionLimites.aspx

@@ -104,15 +104,20 @@
                 EmptyDataText="No se encontraron autorizaciones" ToolTip=""
                 CssClass="table table-striped table-advance table-hover ScrollAD mysmallbtn" data-sort="true" Width="100%" GridLines="None">
                 <Columns>
+                    <asp:TemplateField HeaderText="Tipo " ItemStyle-Width="5%">
+                        <ItemTemplate>
+                            <asp:Label ID="LblTipo" Text='<%# Eval("TipoDocumento") %>' runat="server"></asp:Label>
+                        </ItemTemplate>
+                    </asp:TemplateField>
+                    <asp:BoundField DataField="TipoAutorizacionTexto" HeaderText="Tipo" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="10%" />
                     <asp:HyperLinkField DataTextField="NombreComercial" Target="_blank" HeaderText="Cliente" DataNavigateUrlFields="CveCliente" DataNavigateUrlFormatString="/Ventas/Clientes.aspx?CveCliente={0}" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="20%" />
                     <asp:BoundField DataField="Vendedor" HeaderText="Vendedor" ItemStyle-Width="15%" />
                     <asp:BoundField DataField="Importe" ItemStyle-Width="15%" HeaderText="Importe" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />
-                    <asp:BoundField DataField="LimiteCredito" ItemStyle-Width="10%" HeaderText="Limite Credito" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />
+                    <asp:BoundField DataField="LimiteCredito" ItemStyle-Width="10%" HeaderText="Limite Crédito" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />
                     <asp:BoundField DataField="Saldo" ItemStyle-Width="10%" HeaderText="Saldo" ItemStyle-HorizontalAlign="Right" DataFormatString="{0:N2}" />
                     <asp:BoundField DataField="FechaIng" ItemStyle-Width="10%" HeaderText="Fecha" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:d}" />
-                    <asp:BoundField DataField="TipoAutorizacionTexto" HeaderText="Tipo" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="10%" />
+                    
-                    <asp:BoundField DataField="DiasVencidos" ItemStyle-Width="5%" HeaderText="Dias Vencidos" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:N0}" />
+                    <asp:BoundField DataField="DiasVencidos" ItemStyle-Width="5%" HeaderText="D.Venc" ItemStyle-HorizontalAlign="Center" DataFormatString="{0:N0}" />                    
-                    <asp:BoundField DataField="TipoDocumento" HeaderText="Tipo" ItemStyle-HorizontalAlign="Left" ItemStyle-Width="5%" />
                     <asp:HyperLinkField DataTextField="FacturaAplicada" Target="_blank" HeaderText="Factura" DataNavigateUrlFields="CveVentaAplicada" DataNavigateUrlFormatString="/Ventas/Ventas.aspx?CveVenta={0}" ItemStyle-HorizontalAlign="Left" />
                     <asp:BoundField DataField="Usuario" HeaderText="Usuario" ItemStyle-Width="15%" ItemStyle-HorizontalAlign="Left" />
                     <asp:TemplateField HeaderText="Estatus" ItemStyle-HorizontalAlign="Center" ItemStyle-Width="5%">

Ventas/CatAutorizacionLimites.aspx.vb

@@ -158,6 +158,12 @@ Partial Class Ventas_CatAutorizacionLimites
             If e.Row.DBCampo("CveEstatus") = "0" Then
                 e.Row.FCLabel("LblEstatus").CssClass = "badge badge-secondary"
                 e.Row.FCLinkButton("LnkAutorizar").Visible = True
+                e.Row.FCLinkButton("LnkRechazar").Visible = True
+            ElseIf e.Row.DBCampo("CveEstatus") = "1" Then
+                e.Row.FCLabel("LblEstatus").CssClass = "badge badge-success"
+                e.Row.FCLinkButton("LnkAutorizar").Visible = False
+                e.Row.FCLinkButton("LnkRechazar").Visible = True
+            ElseIf e.Row.DBCampo("CveEstatus") = "2" Then
                 e.Row.FCLabel("LblEstatus").CssClass = "badge badge-primary"
                 e.Row.FCLinkButton("LnkAutorizar").Visible = False
                 e.Row.FCLinkButton("LnkRechazar").Visible = False

Ventas/RepCancelacionesPorRespuesta.aspx

@@ -70,7 +70,7 @@
                                     <asp:BoundField HeaderText="Motivo" DataField="MotivoCancelacion" ItemStyle-Width="25%" />
                                     <asp:TemplateField ItemStyle-Width="35px" HeaderText="Verificar">
                                         <ItemTemplate>
-                                            <asp:LinkButton runat="server" OnClick="BtnValidar_Click" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea verificar la cancelación?" data-btn-ok-label="si"></asp:LinkButton>
+                                            <asp:LinkButton runat="server" OnClick="BtnValidar_Click" CssClass="btn btn-circle btn-sm green" Text="<i class='fa fa-check'></i>" data-toggle="confirmation" data-popout="true" data-original-title="¿Está seguro que desea verificar la cancelación?" data-btn-ok-label="si"></asp:LinkButton>                                            
                                         </ItemTemplate>
                                     </asp:TemplateField>
                                 </Columns>

Ventas/RepCancelacionesPorRespuesta.aspx.cs

@@ -281,11 +281,11 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
                         }
                     }
 
-                    if (respCancelacion.CveEstatus.Contiene(4, 5) && EsRefacturacion)
+                    //if (respCancelacion.CveEstatus.Contiene(4, 5) && EsRefacturacion)
-                    {
+                    //{
-                        retorno.IrARefacturar = true;
+                    //    retorno.IrARefacturar = true;
-                        retorno.LigaRefacturacion = string.Format("Ventas.aspx?CveDevolucion={0}&NuevaFactura=1", CveVenta);
+                    //    retorno.LigaRefacturacion = string.Format("Ventas.aspx?CveDevolucion={0}&NuevaFactura=1", CveVenta);
-                    }
+                    //}
                 }
                 else
                 {
@@ -333,11 +333,11 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
 
                         }
 
-                        if (respCancelacion.CveEstatus.Contiene(4, 5) && EsRefacturacion)
+                        //if (respCancelacion.CveEstatus.Contiene(4, 5) && EsRefacturacion)
-                        {
+                        //{
-                            retorno.IrARefacturar = true;
+                        //    retorno.IrARefacturar = true;
-                            retorno.LigaRefacturacion = string.Format("Ventas.aspx?CveDevolucion={0}&NuevaFactura=1", CveVenta);
+                        //    retorno.LigaRefacturacion = string.Format("Ventas.aspx?CveDevolucion={0}&NuevaFactura=1", CveVenta);
-                        }
+                        //}
                     }
                     else if (resp.EstatusCancelacion.ToUpper() == "SOLICITUD RECHAZADA")
                     {
@@ -390,7 +390,7 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
         retorno.Mensaje = sb.ToString();
         return retorno;
     }
-    private Modelos.Factura.MCancelacionVentaMensaje CancelarDocumento(int CveVenta, int CveEstatus, int CveCliente, string Folio, string FolioFiscal, string CancelacionAcuse, DateTime CancelacionFecha, string TipoComprobante, double Total, int CvePACCancelacion, bool EsRefacturacion = false, string FolioSustitucion = "", int CveEstatusRefacturacion = -1)
+    private Modelos.Factura.MCancelacionVentaMensaje CancelarDocumento(int CveVenta, int CveEstatus, int CveCliente, string Folio, string FolioFiscal, string CancelacionAcuse, DateTime CancelacionFecha, string TipoComprobante, double Total, int CvePACCancelacion, bool EsRefacturacion = false, string FolioSustitucion = "", int CveEstatusRefacturacion = 0)
     {
         Modelos.Factura.MCancelacionVentaMensaje retorno = null;
         var factura = new Modelos.Factura(UsuarioActual, CveVenta, UsuarioActual.CveEmpresa, EsCancelacion: true);
@@ -622,6 +622,41 @@ public partial class Ventas_RepCancelacionesPorRespuesta : ClsPaginas
         }
 
     }
+
+    
+    //protected void BtnAcuse_Click(object sender, EventArgs e)
+    //{
+    //    GridViewRow GvRow = (GridViewRow)(((LinkButton)sender).NamingContainer);
+    //    string UsuarioServicio = "rene.molina@adsistemas.mx";
+    //    string ClaveServicio = "rene2018";        
+    //    string UrlServicio = "https://cfdi.gofac.com.mx/timbrado.asmx?WSDL";
+
+    //    this.CveVenta = GvRow.DataKey("CveVenta").ToEntero();
+ 
+    //    string Uuid = GvRow.DataKey("FolioFiscal");
+    //    decimal Total = GvRow.DataKey("Total").ToDecimal();
+    //    string RFCCliente = GvRow.DataKey("RFCCliente");
+    //    string FolioFiscalSustitucion = GvRow.DataKey("FolioFiscalSustitucion");
+    //    Cancelacion2022.AcuseSat resp = new Cancelacion2022.AcuseSat();
+    //    GoFac.GoCfdi a = new GoFac.GoCfdi();
+    //    a.ObtenerAcuse(UrlServicio, UsuarioActual.Empresa.RFC, UsuarioServicio, ClaveServicio, Uuid);
+
+    //    if (a.CodigoError != 0)
+    //    {
+    //        //no se pudo obtener, la mandamos cancelar
+    //        Timbrado ObjCancelacion = new Timbrado();
+
+    //        if (ObjCancelacion.CFDICancelar(UsuarioActual.Empresa, Uuid, Total, RFCCliente, UsuarioActual.Empresa.RFC, 4, ValidaFactura:false, CveSATMotivoCancelacion: 1, FolioSustitucion: FolioFiscalSustitucion ))
+    //        {
+    //            string b = ObjCancelacion.CancelacionAcuse;
+    //            //falta actualizar
+    //            Alert("Se regeneró la solicitud de cancelación");
+    //        } 
+
+
+    //    }
+
+    //}
 }
 public class MRespuestaSAT
 {

Ventas/Ventas.aspx.vb

@@ -7691,10 +7691,10 @@ Partial Class Ventas
             If e.Row.DBCampo("CveTipoInvPS").ToEntero() = 5 And CveVenta <= 0 Then
 
                 e.Row.FCTextBox("TxtSerie").Visible = True
-                    e.Row.FCTextBox("TxtSerie").Attributes.Remove("onkeypress")
+                e.Row.FCTextBox("TxtSerie").Attributes.Remove("onkeypress")
-                    e.Row.FCTextBox("TxtSerie").Attributes.Add("onkeypress", String.Format("SeriePS(event,{0},this,{1});", e.Row.FCButton("BtnSerie").ClientID, e.Row.FCHiddenField("HdnSerie").ClientID))
+                e.Row.FCTextBox("TxtSerie").Attributes.Add("onkeypress", String.Format("SeriePS(event,{0},this,{1});", e.Row.FCButton("BtnSerie").ClientID, e.Row.FCHiddenField("HdnSerie").ClientID))
-                    e.Row.FCTextBox("TxtSerie").Attributes.Remove("onblur")
+                e.Row.FCTextBox("TxtSerie").Attributes.Remove("onblur")
-                    e.Row.FCTextBox("TxtSerie").Attributes.Add("onblur", String.Format("SeriePSBlur({0},this,{1});", e.Row.FCButton("BtnSerie").ClientID, e.Row.FCHiddenField("HdnSerie").ClientID))
+                e.Row.FCTextBox("TxtSerie").Attributes.Add("onblur", String.Format("SeriePSBlur({0},this,{1});", e.Row.FCButton("BtnSerie").ClientID, e.Row.FCHiddenField("HdnSerie").ClientID))
 
                 'e.Row.FCTextBox("TxtSerie").Attributes.Add("onkeyup", String.Format("LimpiaAF(1, '{0}'); EnterAFEdit(event,this,{1},{2});", e.Row.FCHiddenField("HdnCveConcepto").Value, e.Row.FCHiddenField("HdnCveAF").ClientID, e.Row.FCHiddenField("HdnCodAF").ClientID))
 
@@ -10978,6 +10978,8 @@ Partial Class Ventas
             Timbre.Receptor.Nombre = Obj.Cliente.Nombre
         End If
 
+        Timbre.Receptor.RegimenFiscalReceptor = Obj.Cliente.CodigoRegimenFiscal
+        Timbre.Receptor.DomicilioFiscalReceptor = Obj.Cliente.CP
         Timbre.Receptor.ResidenciaFiscal = ""
         Timbre.Receptor.NumeroRegistroTributario = ""
         Timbre.Receptor.UsoCFDI = Obj.ClaveUsoCFDI
@@ -26984,9 +26986,7 @@ Partial Class Ventas
     Protected Sub BtnAplicarNC_Click(sender As Object, e As EventArgs)
         'SOLO APLICA SI NO HAY DOCUMENTOS QUE SELECCIONAR
         If UsuarioActual.Empresa.Funcionalidad(531) = "1" Then
-
             Dim Verificacion As Boolean = False
-
             If ListaRemisionesNC IsNot Nothing AndAlso ListaRemisionesNC.Count > 0 Then ' si hay opciones seleccionadas, se activa el generar las NCs
                 Verificacion = True
             Else
@@ -26999,7 +26999,7 @@ Partial Class Ventas
                         Dim RowAutorizacion As DataRow = ObjVentas.DtResultados.FiltroPrimero($"CveVenta IS NULL ", Orderby:="TipoAutorizacion")
                         If RowAutorizacion IsNot Nothing Then
                             Dim ImporteAutorizacion As Decimal = RowAutorizacion("Importe").ToString().ToDecimal()
-                            If ImporteAutorizacion > TxtTotalGv.Text.ToDecimal Then
+                            If ImporteAutorizacion > TxtNCImporte.Text.ToDecimal Then
                                 Verificacion = True
                             End If
                         End If