Correcion de cancelacion en NC,mostar productos en ajuste PV

Ventas/PV.aspx.vb

@@ -1071,7 +1071,7 @@ Partial Class PV
             CargaSucursales()
             CargaClasificaciones()
             CargaPS(-1, DdlPS)
-            CargaPS(-1, DdlPSAjuste)
+            CargaPS(-1, DdlPSAjuste, AplicaAlmacen:=False)
             CargaEmpresa()
             CreaDTVentas()
             CargaMetodosPago()
@@ -1866,7 +1866,7 @@ Partial Class PV
         End If
         DdlClasificacion.DataBind()
     End Sub
-    Private Sub CargaPS(CveClasificacion As Integer, Objeto As ADServerControl.Dropdownlost)
+    Private Sub CargaPS(CveClasificacion As Integer, Objeto As ADServerControl.Dropdownlost, Optional AplicaAlmacen As Boolean = True)
         Objeto.setEsWebService(UsuarioActual.Empresa.Funcionalidad(141).ToString = "1")
         If Not UsuarioActual.Empresa.Funcionalidad(141).ToString = "1" Then
             Objeto.ddl.Items.Clear()
@@ -1877,7 +1877,11 @@ Partial Class PV
         Else
             Objeto.Attributes.Add("data-cvesubproyecto", DdlSubProyectoDatos.SelectedValue)
             Objeto.ddlWS.Attributes.Add("data-cveclasificacion", CveClasificacion.ToString)
-            Objeto.ddlWS.Attributes.Add("data-pagina", "ventas/ventas")
+            If AplicaAlmacen Then
+                Objeto.ddlWS.Attributes.Add("data-pagina", "ventas/ventas")
+            Else
+                Objeto.ddlWS.Attributes.Add("data-pagina", "-1")
+            End If
             Objeto.ddlWS.Attributes.Add("data-Estatus", "1")
         End If
     End Sub