From 2f1f9d08d2c27c6c4792e8a16d35ad2ea4c075ab Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Sat, 10 Sep 2022 09:38:31 -0700
Subject: [PATCH] -- cta mon extranjera

---
 Bancos/ProveedoresAbonar.aspx.vb | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/Bancos/ProveedoresAbonar.aspx.vb b/Bancos/ProveedoresAbonar.aspx.vb
index acb22ef22..442153439 100644
--- a/Bancos/ProveedoresAbonar.aspx.vb
+++ b/Bancos/ProveedoresAbonar.aspx.vb
@@ -851,7 +851,8 @@ Partial Class Bancos_ProveedoresAbonar
                                 CompraActual.EsImportacion = gvr.DataKey("EsImportacion") = "1"
                                 CompraActual.UsuarioActual = UsuarioActual
                                 CompraActual.CveSubProyecto = gvr.DataKey("CveSubProyecto").ToEntero
-                                CompraActual.IdCtaContableProv = CtaProveedor
+                                CompraActual.IdCtaContableProv = If(CompraActual.CveMoneda >= 2, IdCtaContMonedaExtranjera, CtaProveedor)
+                                CompraActual.IdCtaContableProvComplementaria = IdCtaContComplementaria
 
                                 'Importe de pago
                                 Pago.ImportePago = gvr.FCTextBox("TxtAbonar").Text.ToDecimal