- cambio en reportes

2020-03-23 18:54:02 -07:00
parent 49d85ee295
commit 7e7a596719
2 changed files with 18 additions and 3 deletions
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -14293,7 +14293,7 @@ Partial Class Ventas


        If DtPromociones IsNot Nothing AndAlso DtPromociones.Rows.Count > 0 Then
-            Dim dr As DataRow = DtPromociones.FiltroPrimero($"CvePS = {CvePS}")
+            Dim dr As DataRow = DtPromociones.FiltroPrimero(String.Format("CvePS = {0} AND (CveSubProyecto = {1} OR CveSubProyecto IS NULL)", CvePS, DdlSubProyectoDatos.SelectedValue))
            If dr IsNot Nothing Then
                TipoPromo = dr("TipoPromocion").ToString.ToEntero
                TotalPromocion = dr("PUPromocion").ToString.ToDecimal * TxtCantidad.Text.ToDecimal