Ocultar iva 6%

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