Validar porcentaje IVA en OC

OC/OC.aspx.vb

@@ -2253,6 +2253,14 @@ Partial Class OC
             End If
         End If
 
+        'VALIDAR PORCENTAJES DE IVA
+        Dim PorcentajeIVA As Decimal = DdlIVA.SelectedValue.ToDecimal() - 1
+        Dim PorcentajeIVADetalle As Decimal = Me.DtDetalle.MAX("IVAPorcentaje", "IVAPorcentaje > 0").ToDecimal()
+
+        If PorcentajeIVA > 0 AndAlso (PorcentajeIVA <> PorcentajeIVADetalle) Then
+            Alert("El IVA de los conceptos no coincide con el IVA a facturar.", TipoMensaje.MsgAdvertencia)
+            TieneError = True
+        End If
 
         Return TieneError
     End Function