diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 5fac2308b..3d24b5aef 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -2237,6 +2237,11 @@ Partial Class Compras_Compras
 
         If UsuarioActual.Empresa.Funcionalidad(577).ToString = "1" Then
 
+            'If UsuarioActual.CveRol = 1 Then
+            ' Alert("Ok funcionalidad 577")
+            'End If
+
+
             If RetencionIVA = 0 And IVAOriginal > 0 Then
                 For Each dRow As DataRow In TmpDT.Rows
                     If dRow("CveTipoPS").ToString.ToEntero = 1 Then
@@ -16988,6 +16993,26 @@ Partial Class Compras_Compras
             CompruebaAgregar()
             GuardaAC()
         End If
+
+        If UsuarioActual.Empresa.Funcionalidad(577).ToString = "1" Then
+
+            'If UsuarioActual.CveRol = 1 Then
+            '    Alert($"Ok funcionalidad 577  RetencionIVA { RetencionIVA}   IVAOriginal {IVAOriginal}")
+            'End If
+
+            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
+
+
+
         UpPS.Update()
         CargaGvPersonal()
     End Sub