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)