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

Compras/Compras.aspx

@@ -682,7 +682,7 @@
                                                 </th>
                                                 <th style="width: 100px">P.U.&nbsp;</th>
                                                 <th style="width: 40px">IVA&nbsp;</th>
-                                                <th style="width: 40px">% IEPS&nbsp;</th>
+                                                <th style="width: 40px" runat="server" id="TD_Gvps_IEPS" visible="false">IEPS&nbsp;</th>
                                                 <th style="width: 110px">Total&nbsp;</th>
                                                 <div id="dvNoDeducible" runat="server" visible="false">
                                                     <th style="width: 80px">¿No Deducible?&nbsp;</th>
@@ -783,15 +783,15 @@
                                             <%-- 8 --%>
                                             <asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="53px">
                                                 <ItemTemplate>
-                                                    <asp:Label ID="LtlIva" runat="server" Text='<%# If(Eval("IVA").ToString.Length > 0, (CDbl(Eval("IVA").ToString)).ToString("###,####,###.00"), "") %>'></asp:Label><br />
+                                                    <asp:Label ID="LtlIva" runat="server" Text='<%# If(Eval("IVA").ToString.Length > 0, If((CDbl(Eval("IVA").ToString)) > 0, (CDbl(Eval("IVA").ToString)).ToString("###,####,###.00"), ""), "") %>'></asp:Label><br />
                                                     <asp:Label ID="LblIVAPorcentaje" runat="server" Text='<%# String.Format("{0} {1}", (CDbl(Eval("IVAPorcentaje").ToString) * 100).ToString("#####"), If(CDbl(Eval("IVAPorcentaje").ToString) * 100 > 0, "%", "")) %>'></asp:Label>
                                                 </ItemTemplate>
                                             </asp:TemplateField>
                                              <%-- 9 --%>
-                                            <asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="53px">
+                                            <asp:TemplateField ItemStyle-HorizontalAlign="Right" ItemStyle-Width="53px" Visible="false">
                                                 <ItemTemplate>                                                    
-                                                    <asp:Label ID="LtlIEPSPSPorcentaje" runat="server" Text='<%# If(Eval("IEPSPSPorcentaje").ToString.Length > 0, (CDbl(Eval("IEPSPSPorcentaje").ToString) * 100).ToString("#####") & If(CDbl(Eval("IEPSPSPorcentaje").ToString) * 100 > 0, "%", ""), "") %>'></asp:Label>
+                                                    <asp:Label ID="LtlIEPSPS" runat="server" Text='<%# If(Eval("IEPSPS").ToString.Length > 0, If((CDbl(Eval("IEPSPS").ToString)) > 0, (CDbl(Eval("IEPSPS").ToString)).ToString("###,####,###.00"), ""), "") %>'></asp:Label><br />
-                                                    <%--<asp:Label ID="Label10" runat="server" Text='<%# Eval("IEPSPSPorcentaje").ToString %>'></asp:Label>--%>
+                                                    <asp:Label ID="LtlIEPSPSPorcentaje" runat="server" Text='<%# If(Eval("IEPSPSPorcentaje").ToString.Length > 0, (CDbl(Eval("IEPSPSPorcentaje").ToString) * 100).ToString("#####") & If(CDbl(Eval("IEPSPSPorcentaje").ToString) * 100 > 0, "%", ""), "") %>'></asp:Label>                                                    
                                                 </ItemTemplate>
                                             </asp:TemplateField>
 

Compras/Compras.aspx.vb

@@ -1548,8 +1548,8 @@ Partial Class Compras_Compras
 
         End If
 
-        'SE OCUPAN AFUERA DEL POSTBACK ??
+            'SE OCUPAN AFUERA DEL POSTBACK ??
-        cargaddlVinculacionServcios()
+            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
 

Compras/eFacturas.aspx.vb

@@ -2787,7 +2787,7 @@ Partial Class Compras_eFacturas
         XMLNodosPagosModalCount = 0
 
         Dim XMLDoc As New XmlDocument
-        Dim Archivo As String = String.Format("{0}Compras\{2}\{3}", UsuarioActual.Empresa.Ruta, gvRow.DataKey("RFCDe"), gvRow.DataKey("XML"))
+        Dim Archivo As String = String.Format("{0}Compras\{1}\{2}", UsuarioActual.Empresa.Ruta, gvRow.DataKey("RFCDe"), gvRow.DataKey("XML"))
         If IO.File.Exists(Archivo) Then