From 07396a6ebcca4a3e6104e6f3523c2c1b3b28d04a Mon Sep 17 00:00:00 2001
From: Rakcsle Supertramp <rakcsle@outlook.com>
Date: Tue, 14 Jan 2020 17:31:20 -0700
Subject: [PATCH] Ocultar iva 6%

---
 Compras/Compras.aspx.vb | 28 ++++++++++++++++++----------
 1 file changed, 18 insertions(+), 10 deletions(-)

diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 12ec62f2a..8fea41205 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -1025,10 +1025,17 @@ Partial Class Compras_Compras
         Set(value As Double)
             ViewState("SubTotal2Original") = value
         End Set
-    End Property
+    End Property
+
     Private Property IVAOriginal As Double
-        Get
-            Return ViewState("IVAOriginal").ToString.ToDouble
+        Get
+
+            If ViewState("IVAOriginal") Is Nothing Then
+                Return 0
+            Else
+                Return ViewState("IVAOriginal").ToString.ToDouble
+            End If
+
         End Get
         Set(value As Double)
             ViewState("IVAOriginal") = value
@@ -2241,15 +2248,15 @@ 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
-                        tdIVA6.Visible = True
+
+                        'comentado  para reubicar el boton
+                        'tdIVA6.Visible = True
+
+
                         Exit For
                     End If
                 Next
@@ -17028,8 +17035,9 @@ Partial Class Compras_Compras
 
             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
+                    If dRow("CveTipoPS").ToString.ToEntero = 1 Then
+                        'Comnetado para reubicar el boton
+                        'tdIVA6.Visible = True
                         Exit For
                     End If
                 Next