From 2d317f5baf359c4e03b34745ed21c065c5c01e5b Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Thu, 8 Oct 2020 18:12:44 -0700
Subject: [PATCH] -- cambio en la cuenta contable enviada

---
 Compras/ReembolsosComprobaciones.aspx.vb | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/Compras/ReembolsosComprobaciones.aspx.vb b/Compras/ReembolsosComprobaciones.aspx.vb
index 36b4176d3..f5d83d58c 100644
--- a/Compras/ReembolsosComprobaciones.aspx.vb
+++ b/Compras/ReembolsosComprobaciones.aspx.vb
@@ -644,7 +644,7 @@ Partial Class Compras_ReembolsosComprobaciones
                         ConceptoMovimiento = $"{gvr.DataKey("Proveedor")} F:{gvr.DataKey("SerieFolio")} {If(DdlPersonal.Visible, DdlPersonal.SelectedItem.Text, DdlCajaChica.SelectedItem.Text)}"
                         Referencia = gvr.DataKey("SerieFolio").ToString
                         IdCtaProveedor = gvr.DataKey("IdCtaContProveedores").ToEntero
-                        CveCuentaProveedor = gvr.DataKey("IdCtaContProveedoresSIG").ToEntero
+
 
                         ImportePagar = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
                         ImporteOriginal = gvr.FCTextBox("TxtAbonar").Text.ToDecimal
@@ -660,6 +660,11 @@ Partial Class Compras_ReembolsosComprobaciones
                                 Case Else
                             End Select
                         End If
+                        If gvr.DataKey("CveTipoConcepto").ToEntero = 2 Then
+                            IdCtaProveedor = gvr.DataKey("IdCtaContAcreedor").ToEntero
+                        Else
+                            IdCtaProveedor = gvr.DataKey("IdCtaContProveedores").ToEntero
+                        End If
 
                         If SaldoCheque > 0 Then
                             ImporteMovto = If(ImportePagar > SaldoCheque, SaldoCheque, ImportePagar)