diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index c8ecc8f12..ed899c1ce 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -2193,36 +2193,44 @@ Partial Class OC
             Dim TotalPS As Double = If(txtPrecioUnitario.Text.ToDouble > 0, (txtPrecioUnitario.Text.ToDouble * TxtCant.Text.ToDouble) - TxtDescuentoAdd.Text.ToDouble, 0)
             Dim ImportePS As Double = If(txtPrecioUnitario.Text.ToDouble > 0, txtPrecioUnitario.Text.ToDouble, 0)
             Dim CveOrdenCompraDetalle As Integer = DtDetalle.MAX("CveOrdenCompraDetalle").ToEntero + 100
+            Dim CantidadVentaMinima As Decimal = DrPS("VentaMinima").ToString.ToDecimal
+
+            If CantidadVentaMinima > 0 AndAlso TxtCant.Text.ToDecimal > 0 Then
+                If TxtCant.Text.ToDecimal Mod CantidadVentaMinima <> 0 Then
+                    Alert(String.Format("El producto se vende solo en cantidades de <b>{0:####.####}</b>", CantidadVentaMinima))
+                    Exit Sub
+                End If
+            End If
 
             'Si es Proveedor Extranjero el IVA es 0%
             If GlobalDTCompProveedores(CveEmpresaActual).FiltraParametros($"CveProveedor = {DdlProveedores.SelectedValue} AND RFC = 'XEXX010101000'").Rows.Count = 1 Then
-                IvaPS = 0
-            End If
+                    IvaPS = 0
+                End If
 
-            AddPS(TxtCant.Text, DdlP2.SelectedValue.ToEntero, DdlP2.SelectedText, TxtObsPS.Text, ImportePS, TxtDescuentoAdd.Text.ToDouble, TotalPS,
+                AddPS(TxtCant.Text, DdlP2.SelectedValue.ToEntero, DdlP2.SelectedText, TxtObsPS.Text, ImportePS, TxtDescuentoAdd.Text.ToDouble, TotalPS,
                       CboUnidadMedida.SelectedValue.ToEntero, IvaPS, IEPSPS, IEPSPSIVA, DdlClasificacion.SelectedValue.ToEntero, CboUnidadMedida.SelectedItem.Text, DdlClasificacion.SelectedItem.Text, DdlProyecto.SelectedValue.ToEntero, Proyecto,
                       DdlSubProyecto.SelectedValue.ToEntero, SubProyecto, LblCodigo.Text, HdnCveActivoFijo.Value.ToEntero, 0, CveOrdenCompraDetalle, CveOrdenCompra, IdCuentaPorEjercer,
                       IdCuentaComprometido, DdlACGeneral1.SelectedValue.ToEntero, DdlACGeneral2.SelectedValue.ToEntero, DdlACGeneral3.SelectedValue.ToEntero, DdlACGeneral4.SelectedValue.ToEntero,
                       DdlACGeneral5.SelectedValue.ToEntero, RetIVA, RetISR, CveCultivoCuadroDetalle:=DdlCultivosCuadro.SelectedValue.ToEntero, Cuadro:=DdlCultivosCuadro.SelectedItem.Text)
 
-            TxtCant.Text = ""
-            CboUnidadMedida.SelectedIndex = 0
-            DdlClasificacion.SelectedIndex = 0
-            DdlP2.SelectedValue = "-1"
-            DdlP2.SelectedText = "Seleccione un producto o servicio"
-            txtPrecioUnitario.Text = ""
-            TxtObsPS.Text = ""
-            HdnCveActivoFijo.Value = ""
-            LblCodigo.Text = ""
-            LblCvePOA.Text = ""
-            TxtCant.Focus()
+                TxtCant.Text = ""
+                CboUnidadMedida.SelectedIndex = 0
+                DdlClasificacion.SelectedIndex = 0
+                DdlP2.SelectedValue = "-1"
+                DdlP2.SelectedText = "Seleccione un producto o servicio"
+                txtPrecioUnitario.Text = ""
+                TxtObsPS.Text = ""
+                HdnCveActivoFijo.Value = ""
+                LblCodigo.Text = ""
+                LblCvePOA.Text = ""
+                TxtCant.Focus()
 
-            Total.Text = "0.00"
-            TxtDescuentoAdd.Text = "0.00"
+                Total.Text = "0.00"
+                TxtDescuentoAdd.Text = "0.00"
 
-        End If
+            End If
 
-        CargaSuperior()
+            CargaSuperior()
         CargaDatosDetalles()
 
         UPPDetalle.Update()