diff --git a/App_Code/Modelos.vb b/App_Code/Modelos.vb
index ad137e7d5..b29e7d852 100644
--- a/App_Code/Modelos.vb
+++ b/App_Code/Modelos.vb
@@ -2197,6 +2197,7 @@ Namespace Modelos
                                     Dim ImporteAcumulado91 As Decimal = 0
                                     Dim CveUltimaVenta As Integer = 0
                                     If tipoCambio > 1 Then Concepto += $" TC:{tipoCambio} ${importeMovimiento.FormatoNumero(2)}"
+                                    IdCtaContable = 0
                                     If tipoCambio = 1 Then
                                         IdCtaContable = ObjFactura.Cliente.IdCtaContClientes
                                         CveCuenta = ObjFactura.Cliente.CveCuentaClientes
@@ -2600,8 +2601,12 @@ Namespace Modelos
                                                 'CTACONTABLE
                                                 'IdCtaContable = IdCtaContAnticipos
                                                 'CveCuenta = CveCuentaAnticipos
-                                                IdCtaContable = ObjFactura.Cliente.IdCtaContClientes
-                                                CveCuenta = ObjFactura.Cliente.CveCuentaClientes
+
+                                                If tipoCambio = 1 Then
+                                                    IdCtaContable = ObjFactura.Cliente.IdCtaContClientes
+                                                Else
+                                                    IdCtaContable = ObjFactura.Cliente.IdCtaContMonedaExtranjera
+                                                End If
 
                                                 CveSubProyectoContabilizar = CveSubProyectoVenta