From 41430372f5a0f27ad83af3a931fc09027007ccfe Mon Sep 17 00:00:00 2001 From: rrene Date: Thu, 4 Jul 2024 14:23:39 -0700 Subject: [PATCH] =?UTF-8?q?--=20se=20quita=20valdidaci=C3=B3n=20inicial=20?= =?UTF-8?q?de=20cambio=20B,.=20sobre=20complemento=20de=20pago,=20cuando?= =?UTF-8?q?=20el=20pago=20tiene=20facturas=20de=20diferete=20moneda?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- App_Code/Timbrado.vb | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/App_Code/Timbrado.vb b/App_Code/Timbrado.vb index 54179530f..087ed3309 100644 --- a/App_Code/Timbrado.vb +++ b/App_Code/Timbrado.vb @@ -2640,10 +2640,10 @@ concep.DescripcionesEspecificas.NumeroSerie) For Each docp As CFDIComplementoPago In ObjCFDITimbre.ComplementoPagos20.ComplementoPagos - Dim MonDiferente As Integer = (From c In docp.DocumentosRelacionados - Where c.MonedaDR <> docp.MonedaP AndAlso docp.MonedaP = "USD" - Select c.MonedaDR).Count() - If MonDiferente > 0 Then cfdi.ContieneVariasMonedas = True 'consideración adicional Rev. B + 'Dim MonDiferente As Integer = (From c In docp.DocumentosRelacionados + ' Where c.MonedaDR <> docp.MonedaP AndAlso docp.MonedaP = "USD" + ' Select Case c.MonedaDR).Count() + 'If MonDiferente > 0 Then cfdi.ContieneVariasMonedas = True 'consideración adicional Rev. B cfdi.Pago20(docp.FechaPago.ToString("yyyy-MM-ddTHH:mm:ss"), docp.FormaDePagoP,