diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 3a19f2a15..5db262b65 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -18174,7 +18174,7 @@ Partial Class Compras_Compras
 
                 If CvePS = -2 Then 'opción Incluir en producto
                     For Each Dr As DataRow In TmpDT.Rows
-                        If Dr("").ToString.ToDecimal = 0 Then
+                        If Dr("IVA").ToString.ToDecimal = 0 Then
                             Dr("PU") = ((Dr("IEPSPS").ToString.ToDecimal / Dr("Cantidad").ToString.ToDecimal) + Dr("Pu").ToString.ToDecimal).RoundSQL(6)
                             Dr("IEPSPS") = 0
                             Dr("IEPSPSPorcentaje") = 0
diff --git a/Empresas/Grales/CargaPromociones.xlsx b/Empresas/Grales/CargaPromociones.xlsx
new file mode 100644
index 000000000..a2e53f4f4
Binary files /dev/null and b/Empresas/Grales/CargaPromociones.xlsx differ