From 9c13736bae9ccb3ffe1296cc8f02f4b08d11be2b Mon Sep 17 00:00:00 2001
From: rrene <rrene@DESKTOP-04EII7E>
Date: Tue, 24 Mar 2020 19:10:14 -0700
Subject: [PATCH 1/2] - cambios promociones

---
 Ventas/Promociones.aspx.vb | 1 +
 Ventas/Ventas.aspx.vb      | 8 +++++---
 vwd.webinfo                | 2 ++
 3 files changed, 8 insertions(+), 3 deletions(-)

diff --git a/Ventas/Promociones.aspx.vb b/Ventas/Promociones.aspx.vb
index 326906ac0..28f288585 100644
--- a/Ventas/Promociones.aspx.vb
+++ b/Ventas/Promociones.aspx.vb
@@ -82,6 +82,7 @@ Partial Class Ventas_Promociones
         'CARGA SUBPROYECTOS
         DdlSubProyecto.DataSource = GlobalDTSubProyectos(-1, CveEmpresa:=UsuarioActual.CveEmpresa)
         DdlSubProyecto.DataBind()
+        DdlSubProyecto.Items.Insert(0, New ListItem("Todos", "-1"))
 
         DdlVendedor.DataSource = GlobalDTVendedores(UsuarioActual.CveEmpresa)
         DdlVendedor.DataBind()
diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 315aade63..7cc809a30 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -14276,6 +14276,7 @@ Partial Class Ventas
         Dim CantMinima As Integer = 0
         Dim CveMarcaPS As Integer = 0
         Dim CveClasifPS As Integer = 0
+        Dim CveRinTamañoPS As Integer = 0
         Dim CvePromocionDetalle As Integer = 0
         Dim ObjDescuento As New Descuentos
 
@@ -14284,6 +14285,7 @@ Partial Class Ventas
 
             CveMarcaPS = DrPS("CveMarca").ToString.ToEntero
             CveClasifPS = DrPS("CveClasificacion").ToString.ToEntero
+            CveRinTamañoPS = DrPS("CveRinTamaño").ToString.ToEntero
 
             If CveClasifPS = 20636 Then
                 ValidaCondicionesComerciales = False
@@ -14293,7 +14295,7 @@ Partial Class Ventas
 
 
         If DtPromociones IsNot Nothing AndAlso DtPromociones.Rows.Count > 0 Then
-            Dim dr As DataRow = DtPromociones.FiltroPrimero(String.Format("CvePS = {0} AND (CveSubProyecto = {1} OR CveSubProyecto IS NULL)", CvePS, DdlSubProyectoDatos.SelectedValue))
+            Dim dr As DataRow = DtPromociones.FiltroPrimero(String.Format("CvePS = {0} AND (CveSubProyecto = {1} OR CveSubProyecto IS NULL) AND (CveRinTamaño = {2} OR CveRinTamaño IS NULL)", CvePS, DdlSubProyectoDatos.SelectedValue, CveRinTamañoPS))
             If dr IsNot Nothing Then
                 TipoPromo = dr("TipoPromocion").ToString.ToEntero
                 TotalPromocion = dr("PUPromocion").ToString.ToDecimal * TxtCantidad.Text.ToDecimal
@@ -14302,7 +14304,7 @@ Partial Class Ventas
                 CvePromocionDetalle = dr("CvePromocionDetalle").ToString.ToEntero
             Else
                 'verifica marca, si tiene asignada la promocion
-                Dim drC As DataRow = DtPromociones.FiltroPrimero(String.Format("CveClasificacion = {0} AND (CveMarca = {1} OR CveMarca IS NULL)", CveClasifPS, CveMarcaPS))
+                Dim drC As DataRow = DtPromociones.FiltroPrimero(String.Format("CveClasificacion = {0} AND (CveMarca = {1} OR CveMarca IS NULL) AND (CveSubProyecto = {2} OR CveSubProyecto IS NULL) AND (CveRinTamaño = {2} OR CveRinTamaño IS NULL)", CveClasifPS, CveMarcaPS, DdlSubProyectoDatos.SelectedValue, CveRinTamañoPS))
 
                 If drC IsNot Nothing Then
                     TipoPromo = drC("TipoPromocion").ToString.ToEntero
@@ -14807,7 +14809,7 @@ Partial Class Ventas
                     DrPoliza("PorcentajeIEPS") = DrPSAdicional("IEPSPorcentaje")
                     DrPoliza("ImporteIEPS") = Math.Round(DrPSAdicional("IEPSPorcentaje").ToString.ToDecimal * TotalCalculableImpuestos, NumeroDecimales)
                     DrPoliza("IEPS") = DrPoliza("ImporteIEPS")
-                    DrPoliza("Descuento") = Math.Round(Descuento, NumeroDecimales)
+                    DrPoliza("Descuento") = 0
                     DrPoliza("TipoDescuento") = HdnTipoDescuento.Value
                     DrPoliza("Total") = (DrPoliza("Cantidad").ToString.ToDecimal * PU)
                     DrPoliza("TotalImporte") = Math.Round(DrPoliza("Cantidad").ToString.ToDecimal * PU, NumeroDecimales)
diff --git a/vwd.webinfo b/vwd.webinfo
index c61135231..5455c17b5 100644
--- a/vwd.webinfo
+++ b/vwd.webinfo
@@ -34,6 +34,8 @@
     
   
     
+  
+    
   
     
   

From 332e31d5a0f5a304c8dcd41d13d67630a07903b4 Mon Sep 17 00:00:00 2001
From: Jonathan Alexis Perez Morales <jonathan.perez@adssistemas.mx>
Date: Wed, 25 Mar 2020 09:41:57 -0700
Subject: [PATCH 2/2] Validacion de salida de almacen

---
 Ventas/Ventas.aspx.vb | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/Ventas/Ventas.aspx.vb b/Ventas/Ventas.aspx.vb
index 93b3b113b..82a92f023 100644
--- a/Ventas/Ventas.aspx.vb
+++ b/Ventas/Ventas.aspx.vb
@@ -6724,7 +6724,7 @@ Partial Class Ventas
             End If
         End If
 
-        If GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 AndAlso ddlAlmacen.SelectedValue.ToEntero() <= 0 Then
+        If DivAlmacen.Visible AndAlso DdlTipoComprobante.SelectedValue.Contiene("Ing", "Rem", "Dev") AndAlso GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 AndAlso ddlAlmacen.SelectedValue.ToEntero() <= 0 Then
             Alert("Tiene que seleccionar un almacén para la salida de almacén", TipoMensaje.MsgAdvertencia)
             Exit Sub
         End If
@@ -11010,7 +11010,7 @@ Partial Class Ventas
                     Next
                 End If
 
-                If GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 Then
+                If DivAlmacen.Visible AndAlso GvInv.Rows.Cast(Of GridViewRow)().Count(Function(gvr) gvr.FCCheckBox("cbInv").Checked) > 0 Then
 
                     Dim Filtro As String = ""
                     Select Case factura.TipoDocto