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)}"