diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index 40e4e3811..e79fadb0c 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -907,8 +907,10 @@
                                                     <td runat="server" id="tdT5" visible="false">
                                                         <asp:Label Text="" ID="LbIVAOriginal" runat="server" />
                                                     </td>
-                                                    <td runat="server" id="tdIVA6" visible="false">
-                                                        <asp:LinkButton runat="server" ID="LnkActivaIva6" Text="" ToolTip="Ret IVA Servicios" OnClick="LnkActivaIva6_Click"><i class="fa fa-usd" aria-hidden="true"></i></asp:LinkButton>
+                                                    <td runat="server" id="tdIVA6" visible="false" class="label label-sm label-success"   style="color:white!important"   >
+                                                        
+                                                        <asp:LinkButton runat="server" ID="LnkActivaIva6"  Text="" ToolTip="Ret IVA Servicios" OnClick="LnkActivaIva6_Click" style="color:white!important"    >Deglose 6%</asp:LinkButton>
+                                                        <%--<asp:LinkButton runat="server" ID="LnkActivaIva6" Text="" ToolTip="Ret IVA Servicios" OnClick="LnkActivaIva6_Click"><i class="fa fa-usd" aria-hidden="true"></i></asp:LinkButton>--%>
                                                     </td>
 
                                                     <%--<td align="left" runat="server" id="TdIVA" visible="false">
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 6d3b6c35f..9b80eb72f 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -2087,8 +2087,12 @@ Partial Class Compras_Compras
             End If
 
             DdlRetIVAConcepto.Items.Add(New ListItem("Arrendamiento", "4"))
-            DdlRetIVAConcepto.Items.Add(New ListItem("Ret IVA Servicios", "5"))
-
+
+            If UsuarioActual.Empresa.Funcionalidad(577).ToEntero = 1 Then
+                DdlRetIVAConcepto.Items.Add(New ListItem("Ret IVA Servicios", "5"))
+            End If
+
+
         End If
 
 
@@ -19300,7 +19304,7 @@ Partial Class Compras_Compras
 
         DdlRetIVAConcepto.SelectedValueExist("5")
 
-        LblRetIVA.Text = "0.06%"
+        LblRetIVA.Text = "6.0%"
 
         RetencionIVA = TmpDT.SUMD("RetIVA")
         TxtRetIVA.Text = RetencionIVA.ToString("###,###,###.00")