Correciones iva 6%

2020-01-10 12:43:38 -07:00
parent 25c01ea556
commit 20d1fd4dae
2 changed files with 11 additions and 5 deletions
--- 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")