From d1fc3c46660b42ac01e96271f895bdf7f77fabea Mon Sep 17 00:00:00 2001 From: rrene Date: Sat, 10 Feb 2024 08:06:38 -0700 Subject: [PATCH] =?UTF-8?q?-=20mejora=20Revisi=C3=B3n=20B?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/Timbrado.vb | 13 +++++-------- 1 file changed, 5 insertions(+), 8 deletions(-) diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 899d3d43a..028c94f84 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -2458,7 +2458,7 @@ Public Class Timbrado #End Region -#Region "Comercio Exterior" +#Region "C O M P L E M E N T O D E C O M E R C I O E X T E R I O R" If Ventas.Cliente.AplicaComercioExterior And ObjCFDITimbre.Complementos.ComercioExterior.AplicaComercioExteriorSubProyecto Then If ObjCFDITimbre.Complementos.ComercioExterior IsNot Nothing Then @@ -2536,8 +2536,6 @@ Public Class Timbrado 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 UsuarioActual.CveEmpresa = 13 Then @@ -2681,8 +2679,7 @@ Public Class Timbrado #End Region - -#Region "Complemento Pago" +#Region "C O M P L E M E N T O D E P A G O" If ObjCFDITimbre.Comprobante.TipoComprobante = "P" Then @@ -2730,6 +2727,8 @@ Public Class Timbrado doc.ImpSaldoInsoluto, doc.ObjetoImpuesto) + If doc.MonedaDR <> docp.MonedaP Then cfdi.ContieneVariasMonedas = True 'consideración adicional Rev. B + If doc.Impuestos IsNot Nothing Then ''retenciones If (doc.Impuestos).Where(Function(x) x.TrasladooRetencion = "R").Count > 0 Then @@ -2771,9 +2770,7 @@ Public Class Timbrado End If #End Region - - -#Region "Nomina12" +#Region "C O M P L E M E N T O D E N O M I N A" 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")