From 20d1fd4dae608aabcc908abd29036fb9cc58abcc Mon Sep 17 00:00:00 2001
From: Rakcsle Supertramp <rakcsle@outlook.com>
Date: Fri, 10 Jan 2020 12:43:38 -0700
Subject: [PATCH] Correciones iva 6%

---
 Compras/Compras.aspx    |  6 ++++--
 Compras/Compras.aspx.vb | 10 +++++++---
 2 files changed, 11 insertions(+), 5 deletions(-)

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")