-- minima venta

Inventarios/EntradasSalidas.aspx.vb

@@ -1259,6 +1259,13 @@ Partial Class Inventarios_EntradasSalidas
             Alert("El producto requiere Serie", TipoMensaje.MsgAdvertencia)
         End If
 
+        If RowPS("VentaMinima").ToString.ToDecimal > 0 Then
+            If Cantidad Mod RowPS("VentaMinima").ToString().ToDecimal <> 0 Then
+                Alert(String.Format("El producto se vende solo en cantidades de {0}", RowPS("VentaMinima").ToString()))
+                Valido = False
+            End If
+        End If
+
         'salida
         If Valido AndAlso DdlConcepto.SelectedValue.Contiene({"3", "5", "7", "8", "11", "12", "13", "15", "16", "17", "20", "21", "30", "31"}) Then ' salida de almacen