diff --git a/Compras/Compras.aspx b/Compras/Compras.aspx
index 626eaac84..cb2793e61 100644
--- a/Compras/Compras.aspx
+++ b/Compras/Compras.aspx
@@ -682,7 +682,7 @@
P.U. |
IVA |
- % IEPS |
+ IEPS |
Total |
| ¿No Deducible? |
@@ -783,15 +783,15 @@
<%-- 8 --%>
-
+
<%-- 9 --%>
-
+
-
- <%----%>
+
+
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index cc37d055e..b45976131 100644
--- a/Compras/Compras.aspx.vb
+++ b/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
'''
''' 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
diff --git a/Compras/eFacturas.aspx.vb b/Compras/eFacturas.aspx.vb
index 02c085bfd..f8f3c9304 100644
--- a/Compras/eFacturas.aspx.vb
+++ b/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