Compras, mostrar ocultar columna IEPS, columna IPS con porcentaje. Efacturas error en ruta de xml

Compras/Compras.aspx.vb

@@ -1548,8 +1548,8 @@ Partial Class Compras_Compras
 
         End If
 
-        'SE OCUPAN AFUERA DEL POSTBACK ??
-        cargaddlVinculacionServcios()
+            'SE OCUPAN AFUERA DEL POSTBACK ??
+            cargaddlVinculacionServcios()
         If UsuarioActual.TienePermisoProceso(117) Then
 
             HplAddClasificacion.Visible = False
@@ -1574,9 +1574,30 @@ Partial Class Compras_Compras
 
         End If
 
+
+
+        MostrarOcultarColumnaIEPS()
+
+
     End Sub
 
 #Region "C A R G A S"
+
+    Private Sub MostrarOcultarColumnaIEPS()
+
+
+        If TxtIEPS.Text.ToDecimal <> 0 And TmpDT.SUM("IEPSPS") <> 0 Then
+            GvPS.Columns(9).Visible = True
+            TD_Gvps_IEPS.Visible = True
+        Else
+            GvPS.Columns(9).Visible = False
+            TD_Gvps_IEPS.Visible = False
+        End If
+        UpPS.Update()
+
+    End Sub
+
+
     Private Sub CargaOrdenCorte()
         Dim ObjCGame As New ClsCGame()
         If ObjCGame.GetOrdenCorte(UsuarioActual.CveEmpresa) Then
@@ -4361,8 +4382,6 @@ Partial Class Compras_Compras
             Exit Sub
         End If
 
-
-
         '------------------TERMINA VALIDACIONES------------------
 
         'si hay necesidad de actualizar el globaldtps
@@ -8640,6 +8659,16 @@ Partial Class Compras_Compras
             End If
 
 
+            For Each dRow As DataRow In TmpDT.Rows
+
+                If dRow("IEPSPSPorcentaje").ToString.ToDecimal > 0 AndAlso dRow("IEPSPS").ToString.ToDecimal = 0 Then
+                    dRow("IEPSPSPorcentaje") = 0
+                End If
+
+            Next
+
+            TmpDT.AcceptChanges()
+
         End If
 
 
@@ -18267,7 +18296,11 @@ Partial Class Compras_Compras
         End If
 
         UpPS.Update()
-                CargaGvPersonal()
+        CargaGvPersonal()
+
+        MostrarOcultarColumnaIEPS()
+
+
     End Sub
     ''' <summary>
     ''' Regresa el INDEX del row que acaba de agregar en el TMPDT
@@ -19772,6 +19805,9 @@ Partial Class Compras_Compras
             Alert("Debe seleccionar al menos un impuesto", TipoMensaje.MsgAdvertencia)
         End If
 
+
+        MostrarOcultarColumnaIEPS()
+
     End Sub
 #End Region