-- Retva/ISR

OC/OC.aspx.vb

@@ -4073,6 +4073,9 @@ Partial Class OC_OC
         If CvePS <> CvePSAnterior Or Not CveOrdenCompra > 0 Then
             RetISR = DrPS("RetISR").ToString.ToDecimal
             RetIVA = DrPS("RetIVA").ToString.ToDecimal
+            If Math.Round(DdlIVA.SelectedValue.ToDecimal - 1, 2) = 0.08 Then
+                RetIVA = RetIVA / 2
+            End If
             'If IvaPS = -1 Then 'IVA DE LA SUCURSAL
             '    IvaPS = GlobalDTSubProyectos(-1, gvr.FCDropDownList("DdlSubProyectoEdit").SelectedValue.ToEntero).FiltroPrimeroValor("IVA").ToDecimal
             'End If