diff --git a/Bancos/IE.aspx.vb b/Bancos/IE.aspx.vb
index 4c511f2c9..60e52e7ed 100644
--- a/Bancos/IE.aspx.vb
+++ b/Bancos/IE.aspx.vb
@@ -3359,11 +3359,11 @@ Partial Class Bancos_IE
 
                                                         IdCtaIVADevolucionIMPUESTOS = IdCtaIVAXAcreditarDevDinC
 
-                                                        If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -IVADev, ReferenciaAplicar, 14, ConceptoAplicar, Now, IdCtaIVADevolucionIMPUESTOS, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IVADevMN, ImporteME:=-IVADev) Then
+                                                        If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -IVADev, ReferenciaAplicar, 14, ConceptoAplicar, Now, IdCtaIVADevolucionIMPUESTOS, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IVADevMN, ImporteME:=-IVADev, PorcentajeImpuesto:=PorcentajeCompraDevDinC) Then
 
                                                             IdCtaIVADevolucionIMPUESTOS = IdCtaIVAAcreditableDevDinC
 
-                                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -IVADev, ReferenciaAplicar, 19, ConceptoAplicar, Now, IdCtaIVADevolucionIMPUESTOS, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IVADevMN, ImporteME:=-IVADev) Then
+                                                            If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -IVADev, ReferenciaAplicar, 19, ConceptoAplicar, Now, IdCtaIVADevolucionIMPUESTOS, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IVADevMN, ImporteME:=-IVADev, PorcentajeImpuesto:=PorcentajeCompraDevDinC) Then
                                                                 MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución"
                                                                 ErrorDevolucionImpuestos = True
                                                             End If
@@ -3547,23 +3547,19 @@ Partial Class Bancos_IE
                                             PorcentajeCompraDevDinC = ObjCompras.DtResultados.Rows(0)("PorcentajeIVA").ToString.ToDecimal
 
                                             Dim DTCuentas As DataTable = GlobalDTClasificacionPorcentaje(UsuarioActual.CveEmpresa, PorcentajeIVA:=PorcentajeCompraDevDinC)
-                                            Dim CveCuentaIVAxAcreditarDevDinC = 0
-                                            Dim CveCuentaIVAAcreditableDevDinC = 0
 
                                             Dim IdCtaIVAXAcreditarDevDinC As Integer
                                             Dim IdCtaIVAAcreditableDevDinC As Integer
 
-                                            If DTCuentas IsNot Nothing AndAlso DTCuentas.Rows.Count > 0 Then
-                                                IdCtaIVAXAcreditarDevDinC = DTCuentas.Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero
-                                                IdCtaIVAAcreditableDevDinC = DTCuentas.Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero
-                                            Else
-                                                MsgError = "Sin Registros de porcentaje impuesto"
-                                            End If
+                                            'If DTCuentas IsNot Nothing AndAlso DTCuentas.Rows.Count > 0 Then
+                                            '    IdCtaIVAXAcreditarDevDinC = DTCuentas.Rows(0)("IdCtaIVAXAcreditar").ToString.ToEntero
+                                            '    IdCtaIVAAcreditableDevDinC = DTCuentas.Rows(0)("IdCtaIVAAcreditable").ToString.ToEntero
+                                            'Else
+                                            '    MsgError = "Sin Registros de porcentaje impuesto"
+                                            'End If
 
                                             Dim IVADevMN As Decimal = 0
                                             Dim IEPSDevMN As Decimal = 0
-
-
                                             Dim PorcentajeDevolucion As Decimal = ((TxtImporte.Text.ToDecimal * 100D / TotalCompraDev) / 100).RoundSQL(2)
 
                                             IVADev = Math.Round(IVADev * PorcentajeDevolucion, 2)
@@ -3587,11 +3583,11 @@ Partial Class Bancos_IE
 
                                                 IdCtaIVADevolucionIMPUESTOS = IdCtaIVAXAcreditarDevDinC
 
-                                                If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -IVADev, ReferenciaAplicar, 14, ConceptoAplicar, Now, IdCtaIVADevolucionIMPUESTOS, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IVADevMN, ImporteME:=-IVADev) Then
+                                                If ObjMov.AddPrePolizasDetalle(CvePrePoliza, True, -IVADev, ReferenciaAplicar, 14, ConceptoAplicar, Now, IdCtaIVADevolucionIMPUESTOS, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IVADevMN, ImporteME:=-IVADev, PorcentajeImpuesto:=PorcentajeCompraDevDinC) Then
 
                                                     IdCtaIVADevolucionIMPUESTOS = IdCtaIVAAcreditableDevDinC
 
-                                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -IVADev, ReferenciaAplicar, 19, ConceptoAplicar, Now, IdCtaIVADevolucionIMPUESTOS, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IVADevMN, ImporteME:=-IVADev) Then
+                                                    If Not ObjMov.AddPrePolizasDetalle(CvePrePoliza, False, -IVADev, ReferenciaAplicar, 19, ConceptoAplicar, Now, IdCtaIVADevolucionIMPUESTOS, -1, CveIE, CveCompra:=CveCompraDeCDin, CveProveedor:=CveProveedor, ImporteMX:=-IVADevMN, ImporteME:=-IVADev, PorcentajeImpuesto:=PorcentajeCompraDevDinC) Then
                                                         MsgError = "Ocurrió un error al registrar el asiento de impuestos de devolución"
                                                         ErrorDevolucionImpuestos = True
                                                     End If