From 92f213c14f377dfecb33609ba081f910105cde43 Mon Sep 17 00:00:00 2001
From: rakcsle <rakcsle.rakcsle@gmail.com>
Date: Wed, 22 Sep 2021 09:50:23 -0700
Subject: [PATCH] CveSubProyecto  Concepto 25

---
 Compras/Compras.aspx.vb | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 5a0045c9c..2a15a440e 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -6093,6 +6093,7 @@ Partial Class Compras_Compras
 
                                                         Case 25 'IEPS X Acreditar
                                                             If Not DdlTipoComprobante.SelectedValue.Contiene("Ant") Then
+                                                                CveSubProyectoInsertar = CveSubProyecto
                                                                 importeMovimiento = ImporteIEPSxAcreditar
                                                                 importeMN = Math.Round(importeMovimiento, 2) * tipoCambioActual * Multiplicador
                                                                 If tipoCambioActual > 1 Then Concepto += $" TC{tipoCambioActual} ${importeMovimiento.FormatoNumero(2)}"