- ventas, que al editar pregunte en la existencia sea producto

-- comprobaciones, el redondeo de % de pago
-- clsinventarios. parametro de clasificación en kardex horizontal

Ventas/Ventas.aspx.vb

@@ -5733,6 +5733,7 @@ Partial Class Ventas
 
         If Not UsuarioActual.TienePermisoProceso(169) Then ' NO VALIDA EXISTENCIAS NI COSTO - PERMISO PARA NO VALIDAR
             Dim CvePS As Integer = DatarowPS("CvePS").ToString.ToEntero
+            Dim CveTipoPS As Integer = DatarowPS("CveTipoPS").ToString.ToEntero
 
             CantidadInventario = GvPS.Rows(e.RowIndex).DataKey("CantidadInventario").ToString.ToDecimal
 
@@ -5742,7 +5743,7 @@ Partial Class Ventas
             End If
 
             'SOLO VALIDA EXISTENCIAS Y COSTO: SI USA INVENTARIOS, SOLO PRODUCTOS TIPO PRODUCTO, SOLO REMISIONES E INGRESOS
-            If UsuarioActual.Empresa.UsaInventarios AndAlso (DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing", "PA") Or (DdlTipoComprobante.SelectedValue.Contiene("Cot") And UsuarioActual.CveEmpresa.Contiene(119))) Then
+            If UsuarioActual.Empresa.UsaInventarios AndAlso CveTipoPS = 2 AndAlso (DdlTipoComprobante.SelectedValue.Contiene("Rem", "Ing", "PA") Or (DdlTipoComprobante.SelectedValue.Contiene("Cot") And UsuarioActual.CveEmpresa.Contiene(119))) Then
                 Dim ObjInventarios As New ClsInventarios
                 Dim Existencia As Decimal
                 If ValidaExistencia Then