diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index 386b71e15..3ac099c3d 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -9634,8 +9634,10 @@ Public Class ClsPaginas
 
         End If
 
-        'si tiene iva y su proporcion
-        If Not ErrorMovtos AndAlso CompraActual.IVA <> 0 Then
+        If Pago.AplicaAcreditable Then
+
+            'si tiene iva y su proporcion
+            If Not ErrorMovtos AndAlso CompraActual.IVA <> 0 Then
             ImporteMovimiento = (PorcentajePago * CompraActual.IVA).RoundSQL
             ImporteMN = (ImporteMovimiento * CompraActual.TC).RoundSQL
             If CompraActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
@@ -9701,27 +9703,29 @@ Public Class ClsPaginas
 
         End If
 
-        'si tiene IEPS y su proporcion
-        If Not ErrorMovtos AndAlso CompraActual.IEPS > 0 Then
-            ImporteMovimiento = (PorcentajePago * CompraActual.IEPS).RoundSQL
-            ImporteMN = (ImporteMovimiento * CompraActual.TC).RoundSQL
-            If CompraActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
+            'si tiene IEPS y su proporcion
+            If Not ErrorMovtos AndAlso CompraActual.IEPS > 0 Then
+                ImporteMovimiento = (PorcentajePago * CompraActual.IEPS).RoundSQL
+                ImporteMN = (ImporteMovimiento * CompraActual.TC).RoundSQL
+                If CompraActual.CveMoneda > 1 Then ImporteME = ImporteMovimiento
 
-            Dim Ret As New ConceptosRetenciones
-            If UsuarioActual.Empresa.TipoContabilidad = 2 Then
-                If ObjConta.GetRetCuenta(26, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContableAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
+                Dim Ret As New ConceptosRetenciones
+                If UsuarioActual.Empresa.TipoContabilidad = 2 Then
+                    If ObjConta.GetRetCuenta(26, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContableAcreditable = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSAcreditable").ToString.ToEntero
 
-                If ObjConta.GetRetCuenta(25, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContablexAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
+                    If ObjConta.GetRetCuenta(25, UsuarioActual.CveEmpresa) AndAlso ObjConta.DtResultados.Rows.Count > 0 Then Ret.IdCtaContablexAcreditar = ObjConta.DtResultados.Rows(0)("IdCuentaIEPSxAcreditar").ToString.ToEntero
+
+                End If
+
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, 25, CompraActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
+
+                'si tiene funcionalidad para tomar el TC de pago. se recalcula el importe
+                If FuncionalidadFluctuacionImpuestos Then ImporteMN = (ImporteMovimiento * Pago.TCPago).RoundSQL
+
+                If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 26, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
 
             End If
 
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, ImporteMovimiento, ImporteMN, 25, CompraActual.SerieFolio, Concepto, Ret.IdCtaContablexAcreditar, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
-
-            'si tiene funcionalidad para tomar el TC de pago. se recalcula el importe
-            If FuncionalidadFluctuacionImpuestos Then ImporteMN = (ImporteMovimiento * Pago.TCPago).RoundSQL
-
-            If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, ImporteMovimiento, ImporteMN, 26, CompraActual.SerieFolio, Concepto, Ret.IdCtaContableAcreditable, CveCompra:=CompraActual.CveCompra, CveProveedor:=CompraActual.CveProveedor, CveIE:=Pago.CveIE, CvePersonal:=Pago.CvePersonal, TipoCambio:=CompraActual.TC, TipoCambioPago:=Pago.TCPago, ImporteME:=ImporteME, CveSubProyecto:=CompraActual.CveSubProyecto) Then ErrorMovtos = True
-
         End If
 
         'si tiene otros gastos/ingresos
@@ -9779,6 +9783,7 @@ Public Class ClsPaginas
 
 
     Public Class CompraPago
+        Public Property TipoPago As String = "B" ' B - Bancos, A - Anticipos, E - ExC, NC - Nota de crédito
         Public Fecha As Date
         Public Property CveIE As Integer = -1
         Public Property CvePersonal As Integer = -1
@@ -9789,6 +9794,7 @@ Public Class ClsPaginas
         Public Property OtroGastoIngreso As Decimal = 0
         Public Property CveConceptoPago As Integer = -1 'no definido de inicio
         Public Property CveCreditoDetalle As Integer = -1
+        Public Property AplicaAcreditable As Boolean = True
 
     End Class