-- mejoras comercio exterior

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