From e6a875013b1a5bd1ee869a6e2fe1cec7fef66ab9 Mon Sep 17 00:00:00 2001
From: rrene <rene.molina@adssistemas.mx>
Date: Mon, 17 Jul 2023 16:51:53 -0700
Subject: [PATCH] -- Retva/ISR

---
 OC/OC.aspx.vb | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/OC/OC.aspx.vb b/OC/OC.aspx.vb
index 216e04505..f45a1488c 100644
--- a/OC/OC.aspx.vb
+++ b/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