diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index f3fd68e1b..d004eafde 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -2149,18 +2149,8 @@ Partial Class Compras_Compras
 
     Private Sub CargaRetIVAConcepto(Optional Cambio As Boolean = False)
 
-
-
-
-
         If TrRetIVA.Visible Then
             TdRetIVAConcepto.Visible = True
-
-
-
-
-
-
         End If
 
         If Cambio Then
@@ -2174,15 +2164,12 @@ Partial Class Compras_Compras
             End If
 
             DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
-
-            'If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then
-            DdlRetIVAConcepto.Items.Add(New ListItem("Ret IVA Servicios", "5"))
-            'End If
-
+            ''If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then
+            'DdlRetIVAConcepto.Items.Add(New ListItem("Ret IVA Servicios", "5"))
+            ''End If
 
         End If
 
-
         UpPS.Update()
 
     End Sub