From 3d2af25cb3dc08fb1dd372a9e3c1e5ff8ff7699b Mon Sep 17 00:00:00 2001
From: Rakcsle Supertramp <rakcsle@outlook.com>
Date: Thu, 2 Jan 2020 13:30:40 -0700
Subject: [PATCH] Funcionalidad  6%   ret servicios CveFuncionalidad  577

---
 Compras/Compras.aspx.vb | 30 +++++++++---------------------
 1 file changed, 9 insertions(+), 21 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 1137e4f71..be31eebe3 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -2235,25 +2235,19 @@ Partial Class Compras_Compras
         'ASIGNA VALORES ORIGINALES PARA GUARDAR
         AsignaValoresOriginales(SubtotalTemp, Subtotal2Temp, IVATemp, RetIVATemp, RetISRTemp, Total)
 
+        If UsuarioActual.Empresa.Funcionalidad(577).ToString = "1" Then
 
-
-        If RetencionIVA = 0 And IVAOriginal > 0 Then
-
-            For Each dRow As DataRow In TmpDT.Rows
-
-                If dRow("CveTipoPS").ToString.ToEntero = 1 Then
-                    tdIVA6.Visible = True
-                    Exit For
-                End If
-
-
-            Next
+            If RetencionIVA = 0 And IVAOriginal > 0 Then
+                For Each dRow As DataRow In TmpDT.Rows
+                    If dRow("CveTipoPS").ToString.ToEntero = 1 Then
+                        tdIVA6.Visible = True
+                        Exit For
+                    End If
+                Next
+            End If
 
         End If
 
-
-
-
     End Sub
 
     ''' <summary>
@@ -19226,12 +19220,6 @@ Partial Class Compras_Compras
 
         TotalOriginal = TxtTotal.Text.ToDecimal
 
-        'For Each dRow As DataRow In TmpDT.Rows
-        '    If dRow("CveTipoPS").ToString.ToEntero = 1 Then
-        '        tdIVA6.Visible = True
-        '        Exit For
-        '    End If
-        'Next
 
 
         For Each dRow As DataRow In TmpDT.Rows