Funcionalidad 6% ret servicios CveFuncionalidad 577

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