From 11b64af34b067869e885cc16af197807caf83ac5 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Tue, 19 Dec 2023 06:07:41 -0700
Subject: [PATCH] =?UTF-8?q?--=20carga=20factura=20clientes,=20si=20son=20d?=
 =?UTF-8?q?=C3=B3lares,=20sin=20TC,=20toma=20el=20TC=20del=20d=C3=ADa?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 General/SaldosIniciales.aspx.vb | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/General/SaldosIniciales.aspx.vb b/General/SaldosIniciales.aspx.vb
index a09bfa891..ba0aeeb98 100644
--- a/General/SaldosIniciales.aspx.vb
+++ b/General/SaldosIniciales.aspx.vb
@@ -1497,12 +1497,15 @@ Partial Class General_SaldosIniciales
                         'Moneda
                         If Moneda.ToUpper.Contiene("PESOS", "PESO", "MXN", "MONEDA NACIONAL") Then
                             CveMoneda = 1
-                        ElseIf Moneda.ToUpper.Contiene("DOLARES", "DOLAR", "USD", "DÓLARES") Then
+                        ElseIf Moneda.ToUpper.Contiene("DOLARES", "DOLAR", "USD", "DÓLARES", "DÓLAR") Then
                             CveMoneda = 2
                         End If
 
                         'Si no se especifica TC, se manda como pesos.
                         If TipoCambio = "" Then TipoCambio = "1"
+                        If CveMoneda = 2 AndAlso TipoCambio = "1" Then
+                            TipoCambio = GlobalTipoCambio(Fecha).ToString
+                        End If
 
                         'PrePóliza
                         Dim CvePrePoliza As Integer = ObjConta.AddPrePolizas("Compras/SaldoInicial", 1, Total, Total, CveMoneda, Fecha, String.Format("{0}-{1}", Serie, Folio), UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)