From f6af3cab6c2efb36320e48f31eb78f19c7172288 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Thu, 25 Aug 2022 19:31:44 -0700
Subject: [PATCH] -- mejoras comercio exterior

---
 Ventas/Ventas.aspx.vb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index c05bf1b78..e2f241f6b 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -5148,7 +5148,6 @@ Partial Class Ventas
             'ESTATUS FACTURA
             If Not (CveRemision > 0 Or CveCotizacion > 0) Then
                 CveEstatus = DbRowVenta("CveEstatusFactura").ToString().ToEntero()
-
             End If
 
             TxtTipoCambio.Text = DbRowVenta("TipoCambio").ToString()
@@ -6369,6 +6368,8 @@ Partial Class Ventas
                     TxtComExtCalle.Text = ObjCliente.Direccion
                     TxtComExtNumero.Text = ObjCliente.NoExt
                     TxtComExtCP.Text = ObjCliente.CP
+                    'en comercio exterior como regla de timbrado se utiliza el TC del día anterior
+                    TxtTipoCambio.Text = GlobalTipoCambio(TxtFecha.Text.ToDate.AddDays(-1)).ToString()
 
                 End If