diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 26fe6e0c7..bca8c6791 100644
--- a/OC/OC.aspx.vb
+++ b/OC/OC.aspx.vb
@@ -989,7 +989,7 @@ Partial Class OC_OC
             Dim DrPS As DataRow = GlobalDTPS(CveEmpresaActual, CvePS:=Dr("CvePS").ToString.ToEntero).FiltroPrimero("")
             If DrPS IsNot Nothing AndAlso DrPS("IVA").ToString.ToEntero = -1 Then
                 Dr("IVA") = Math.Round(Dr("Total").ToString.ToDecimal * Porcentaje, 6)
-                Dr("IVAPorcentaje") = Math.Round(Porcentaje, 2)
+                Dr("IVAPorcentaje") = If(Math.Round(Porcentaje, 2) > 0.14, 0.16, Math.Round(Porcentaje, 2))
 
                 ' Tipo Dato '0' es Cuando es Nuevo, '1' para editar y '2' viene de la BD
                 Dr("TipoDato") = If(Dr("TipoDato").ToString.ToEntero = 0, 0, 1)
@@ -2592,7 +2592,7 @@ Partial Class OC_OC
         Dim PorcentajeIVADetalle As Decimal = Me.DtDetalle.MAX("IVAPorcentaje", "IVAPorcentaje > 0").ToDecimal()
 
         If PorcentajeIVADetalle > 0 AndAlso (PorcentajeIVA <> PorcentajeIVADetalle) Then
-            Alert("El IVA de los conceptos no coincide con el IVA a facturar.", TipoMensaje.MsgAdvertencia)
+            Alert($"El IVA de los conceptos no coincide con el IVA a facturar.[{PorcentajeIVA}-{PorcentajeIVADetalle}]", TipoMensaje.MsgAdvertencia)
             TieneError = True
         End If