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