diff --git a/Contabilidad/DiarioPagos.aspx b/Contabilidad/DiarioPagos.aspx
index 640fd5901..4fc3dee48 100644
--- a/Contabilidad/DiarioPagos.aspx
+++ b/Contabilidad/DiarioPagos.aspx
@@ -250,6 +250,7 @@
                                                                   <asp:HiddenField ID="HdnIdCtaContRetISRCirculacion" runat="server" Value='<%# Eval("IdCuentaRetISRCirculacion")%>' />
                                                                   <asp:HiddenField ID="HdnIdSegNeg" runat="server" Value='<%# Eval("IdSegNeg")%>' />
                                                                   <asp:HiddenField ID="HdnCompraIdPoliza" runat="server" Value='<%# Eval("CompraIdPoliza")%>' />
+                                                                  <asp:HiddenField ID="HdnPorcentajeIVA" runat="server" Value='<%# Eval("PorcentajeIVA")%>' />
 
                                                                   <table width="100%" cellpadding="0" cellspacing="0" runat="server" id="TbCompra">
                                                                       <tr class="SubTotales">
@@ -429,7 +430,7 @@
                                                                           <asp:HiddenField ID="HdnIdCtaContRetISRCirculacion" runat="server" Value='<%# Eval("IdCuentaRetISRCirculacion")%>' />
                                                                           <asp:HiddenField ID="HdnIdSegNeg" runat="server" Value='<%# Eval("IdSegNeg")%>' />
                                                                           <asp:HiddenField ID="HdnCompraIdPoliza" runat="server" Value='<%# Eval("CompraIdPoliza")%>' />
-
+                                                                          <asp:HiddenField ID="HdnPorcentajeIVA" runat="server" Value='<%# Eval("PorcentajeIVA")%>' />
                                                                           <table width="100%" cellpadding="0" cellspacing="0" runat="server" id="TbCompra">
                                                                               <tr class="SubTotales">
                                                                                   <td>
@@ -689,6 +690,7 @@
                                                                   <asp:HiddenField ID="HdnCvePrePoliza" runat="server" Value='<%# Eval("CvePrePoliza")%>' />
                                                                   <asp:HiddenField ID="HdnCompraIdPoliza" runat="server" Value='<%# Eval("CompraIdPoliza")%>' />
                                                                    <asp:HiddenField ID="HdnIdSegNeg" runat="server" Value='<%# Eval("IdSegNeg")%>' />
+                                                                  <asp:HiddenField ID="HdnPorcentajeIVA" runat="server" Value='<%# Eval("PorcentajeIVA")%>' />
 
                                                                   <table width="100%" cellpadding="0" cellspacing="0" runat="server" id="TbCompra">
                                                                       <tr class="SubTotales">
diff --git a/Contabilidad/DiarioPagos.aspx.vb b/Contabilidad/DiarioPagos.aspx.vb
index b92daaddf..49273017a 100644
--- a/Contabilidad/DiarioPagos.aspx.vb
+++ b/Contabilidad/DiarioPagos.aspx.vb
@@ -1,4 +1,5 @@
-Imports System.Data
+Imports System
+Imports System.Data
 Imports System.Web.Services
 Imports Extensiones
 
@@ -649,7 +650,7 @@ Partial Class Contabilidad_DiarioPagos
                                 'recorro el grid de compras
                                 Dim GvCompras As GridView = gvr.FCGridView("GvPC")
                                 For Each gvrc As GridViewRow In GvCompras.Rows
-
+                                    Dim PorcentajeIVA As Decimal = (gvrc.FCHiddenField("HdnPorcentajeIVA").Value.ToDecimal() * 100).ToEntero
                                     Cargos = 0
                                     AbonoProveedor = 0 : CargoProveedor = 0 : CargoAnticipo = 0 : AbonoAnticipo = 0
 
@@ -906,6 +907,35 @@ Partial Class Contabilidad_DiarioPagos
                                         MsgError = "No se pudo insertar movimientos de devoluciones de IVA" : Exit For
                                     End If
 
+                                    Dim GuidMov As String = Guid.NewGuid().ToString()
+
+                                    Dim NoDeducible = False
+                                    Dim IVANoAcred As Decimal = 0 'si NoDeducible es true -- >  Es el iva no deducible , ivano deducible totald e la compra
+
+                                    If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, PorcentajeIVA, SubTotal, IVAAcreditable * ttTipoCambioPago,
+                                                        Fecha, NumPoliza, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMov, "", 1, 2) Then
+                                        MsgError = "No se pudo insertar movimientos de impuesto de IVA" : Exit For
+                                    End If
+
+
+                                    If MsgError = "" AndAlso CompraPagadoRetIVA > 0 Then
+                                        Dim GuidMovRetIVA As String = Guid.NewGuid().ToString()
+                                        Dim TasaOCuotaRetIVA As Decimal = (((CompraPagadoRetIVA * ttTipoCambioPago) / SubTotal) * 100).ToDecimal.RoundSQL(4)
+                                        If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, TasaOCuotaRetIVA, SubTotal, CompraPagadoRetIVA * ttTipoCambioPago,
+                                                        Fecha, NumPoliza, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMovRetIVA, GuidMov, 2, 2) Then
+                                            MsgError = "No se pudo insertar movimientos de retención de IVA" : Exit For
+                                        End If
+                                    End If
+
+                                    If MsgError = "" AndAlso CompraPagadoRetISR > 0 Then
+                                        Dim GuidMovRetISR As String = Guid.NewGuid().ToString()
+                                        Dim TasaOCuotaRetIVA As Decimal = (((CompraPagadoRetISR * ttTipoCambioPago) / SubTotal) * 100).ToDecimal.RoundSQL(4)
+                                        If Not Conta.AddMovimientoImpuesto(IDPoliza, IdCuentaBancos, IdProveedor, PorcentajeIVA, TasaOCuotaRetIVA, SubTotal, CompraPagadoRetISR * ttTipoCambioPago,
+                                                        Fecha, NumPoliza, gvrc.FCHiddenField("HdnSerie").Value, gvrc.FCHiddenField("HdnFolio").Value.StrToNum, UUID, NoDeducible, IVANoAcred, GuidMovRetISR, GuidMov, 2, 1) Then
+                                            MsgError = "No se pudo insertar movimientos de retención de ISR" : Exit For
+                                        End If
+                                    End If
+
                                     If CompraRetIVA > 0 Then
 
                                         If Not Conta.AddMovimiento(IDPoliza, IdCuentaRetIVA, False, CompraRetIVA, gvrc.FCHiddenField("HdnSerieFolio").Value, ConceptoDetalle, IdSegNeg, Fecha, gvrc.FCHiddenField("HdnCveCompra").Value.ContaReferencia(TipoContaReferencia.Compra), If(MonExt, CompraRetIVA, 0.0)) Then MsgError = "No se pudo insertar movimiento contable" : Exit For