CartaPorteTimbrada Ajustes v 3.0

General/SaldosIniciales.aspx.vb

@@ -1661,8 +1661,19 @@ Partial Class General_SaldosIniciales
                     If Moneda.ToUpper.Contiene("PESOS", "PESO", "MXN") Then
                         CveMoneda = 1
                         TipoCambio = "1"
-                    ElseIf Moneda.ToUpper.Contiene("DÓLARES", "DOLARES", "USD") Then
+                    ElseIf Moneda.ToUpper.Contiene("DÓLAR", "DÓLARES", "DOLARES", "USD") Then
                         CveMoneda = 2
+
+                        If TipoCambio.Trim.ToDecimal < 10 Then
+
+                            If UsuarioActual.CveEmpresa.Contiene(13, 83) Then
+                                TipoCambio = GlobalTipoCambio(Fecha.AddDays(-1)).ToString()
+                            Else
+                                TipoCambio = GlobalTipoCambio(Fecha).ToString()
+                            End If
+
+                        End If
+
                     End If
 
                     'Si no se especifica TC, se manda como pesos.