--Promociones sin clasificacion

--FIX permiso para cancelacion con dias anteriores

Ventas/Promociones.aspx.vb

@@ -128,7 +128,11 @@ Partial Class Ventas_Promociones
         'CLASIFICACIONES
         DdlClasificacion.DataSource = GlobalDTClasificaciones(UsuarioActual.CveEmpresa).FiltraParametros(" Codigo = '' OR Codigo IS NULL ", Orderby:="Clasificacion")
         DdlClasificacion.DataBind()
-        DdlClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+            DdlClasificacion.Items.Insert(0, New ListItem("Todos", "-1"))
+        Else
+            DdlClasificacion.Items.Insert(0, New ListItem("Seleccione", "-1"))
+        End If
 
         'CARGA PS
         DdlPS.setEsWebService(UsuarioActual.Empresa.Funcionalidad(105) = "1")
@@ -373,9 +377,11 @@ Partial Class Ventas_Promociones
 
     Protected Sub BtnAgregar_Click(sender As Object, e As EventArgs)
 
-        If DdlClasificacion.SelectedValue.ToEntero <= 0 Then
+        If UsuarioActual.Empresa.Funcionalidad(382) <> "1" Then
-            Alert("Debe seleccionar una clasificacion", TipoMensaje.MsgAdvertencia)
+            If DdlClasificacion.SelectedValue.ToEntero <= 0 Then
-            Exit Sub
+                Alert("Debe seleccionar una clasificacion", TipoMensaje.MsgAdvertencia)
+                Exit Sub
+            End If
         End If
 
         If TxtCantMinima.Text.ToEntero <= 0 Then
@@ -397,8 +403,13 @@ Partial Class Ventas_Promociones
             Dr("CveClasificacion") = DdlClasificacion.SelectedValue
             Dr("Clasificacion") = DdlClasificacion.SelectedItem.Text
         Else
-            Dr("CveClasificacion") = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimeroValor("CveClasificacion")
+            If DdlPS.SelectedValue.ToEntero > 0 Then
-            Dr("Clasificacion") = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimeroValor("Clasificacion")
+                Dr("CveClasificacion") = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimeroValor("CveClasificacion")
+                Dr("Clasificacion") = GlobalDTPS(UsuarioActual.CveEmpresa, CvePS:=DdlPS.SelectedValue.ToEntero).FiltroPrimeroValor("Clasificacion")
+            Else
+                Dr("CveClasificacion") = -1
+                Dr("Clasificacion") = "Todas"
+            End If
         End If
 
         Dr("CvePS") = If(DdlPS.SelectedValue = "", "-1", DdlPS.SelectedValue)
@@ -481,7 +492,7 @@ Partial Class Ventas_Promociones
             RegistraScript("$('#DivAgregar').modal('show')")
             CveConsecutivo = e.CommandArgument.ToString.ToEntero
             DdlRin.SelectedValueExist(Gvr.DataKey("CveRinTamaño"))
-            DdlClasificacion.SelectedValue = Gvr.DataKey("CveClasificacion")
+            DdlClasificacion.SelectedValueExist(Gvr.DataKey("CveClasificacion"))
             ChangeDdlProducto()
             If UsuarioActual.Empresa.Funcionalidad(105) = "" Then
                 DdlPS.SelectedValue = Gvr.DataKey("CvePS")

Ventas/Ventas.aspx.vb

@@ -5079,7 +5079,7 @@ Partial Class Ventas
                                         If DbRowVenta("Fecha").ToString.ToDate.ToShortDateString.ToDate < Now.ToShortDateString.ToDate Then
                                             If DdlTipoComprobante.SelectedValue.Contiene("Ing", "Egs", "Ant") AndAlso UsuarioActual.TienePermisoProceso(159) Then
                                                 LkRefacturacion.Visible = True
-                                                LbCancelarDocumento.Visible = False
+                                                LbCancelarDocumento.Visible = UsuarioActual.TienePermisoProceso(378)
                                             Else
                                                 LbCancelarDocumento.Visible = UsuarioActual.TienePermisoProceso(378)
                                             End If
@@ -19041,7 +19041,11 @@ Partial Class Ventas
             If dr Is Nothing Then
 
                 'verifica marca, si tiene asignada la promocion
-                dr = DtPromociones.FiltroPrimero(String.Format("CvePS IS NULL AND CveClasificacion = {0} AND (CveMarca = {1} OR CveMarca IS NULL) AND (CveSubProyecto = {2} OR CveSubProyecto IS NULL) AND (CveRinTamaño = {3} OR CveRinTamaño IS NULL) AND ((TipoPromocion <> 3 AND (CantidadMinima <= {4} OR CantidadMinima IS NULL)) OR (TipoPromocion = 3 AND CantidadMinima <= {4} )) ", CveClasifPS, CveMarcaPS, DdlSubProyectoDatos.SelectedValue, CveRinTamañoPS, Cantidad), Orderby:="CantidadMinima desc")
+                If UsuarioActual.Empresa.Funcionalidad(382) = "1" Then
+                    dr = DtPromociones.FiltroPrimero(String.Format("CvePS IS NULL AND  (CveClasificacion = {0} OR CveClasificacion IS NULL) AND (CveMarca = {1} OR CveMarca IS NULL) AND (CveSubProyecto = {2} OR CveSubProyecto IS NULL) AND (CveRinTamaño = {3} OR CveRinTamaño IS NULL) AND ((TipoPromocion <> 3 AND (CantidadMinima <= {4} OR CantidadMinima IS NULL)) OR (TipoPromocion = 3 AND CantidadMinima <= {4} )) ", CveClasifPS, CveMarcaPS, DdlSubProyectoDatos.SelectedValue, CveRinTamañoPS, Cantidad), Orderby:="CantidadMinima desc")
+                Else
+                    dr = DtPromociones.FiltroPrimero(String.Format("CvePS IS NULL AND  CveClasificacion = {0} AND (CveMarca = {1} OR CveMarca IS NULL) AND (CveSubProyecto = {2} OR CveSubProyecto IS NULL) AND (CveRinTamaño = {3} OR CveRinTamaño IS NULL) AND ((TipoPromocion <> 3 AND (CantidadMinima <= {4} OR CantidadMinima IS NULL)) OR (TipoPromocion = 3 AND CantidadMinima <= {4} )) ", CveClasifPS, CveMarcaPS, DdlSubProyectoDatos.SelectedValue, CveRinTamañoPS, Cantidad), Orderby:="CantidadMinima desc")
+                End If
 
             End If
         End If