-- candado de cantidad de precio venta sea mayor a cero

Ventas/ProductosServicios.aspx.vb

@@ -1162,6 +1162,16 @@ Partial Class ProductosyServicios
             Return
         End If
 
+        If UsuarioActual.CveEmpresa = 119 Then
+            If TxtVentaMinima.Text.ToDecimal < 1 Then
+                Alert("La cantidad de venta mínima debe de ser especificada(mayor a 1)", TipoMensaje.MsgAdvertencia)
+                Return
+            End If
+
+        End If
+
+
+
         Dim ObjProductosServicios As New ClsProductosServicios()
         Dim ObjInv As New ClsInventarios(ObjProductosServicios.IniciaTransacSQL())
 
@@ -1176,6 +1186,7 @@ Partial Class ProductosyServicios
             CveProveedor = DdlProveedor.txtValue.Value.ToEntero
         End If
 
+
         Dim CveMarca As Integer = 0
         If UsuarioActual.CveEmpresa.Contiene(1, 72, 80) And CvePS = -1 Then CveMarca = DdlMarcaPSDes.SelectedValue.ToEntero Else CveMarca = DdlMarca.SelectedValue.ToEntero