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)