diff --git a/App_Code/ClsPaginas.vb b/App_Code/ClsPaginas.vb
index fe349f780..4f709540a 100644
--- a/App_Code/ClsPaginas.vb
+++ b/App_Code/ClsPaginas.vb
@@ -9562,6 +9562,7 @@ Public Class ClsPaginas
         Public Property CveCompraAmortizacion As Integer = 0
         Public Property OtroGastoIngreso As Decimal = 0
         Public Property CveConceptoPago As Integer = -1 'no definido de inicio
+        Public Property CveCreditoDetalle As Integer = -1
 
     End Class
 
diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 3af2c50b1..fe2fe1bfd 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -5957,19 +5957,31 @@ Partial Class Compras_Compras
                                                                     ErrorPrepoliza = True
                                                                 End If
 
-                                                                If TipoCreditoInteres Then
+                                                                If importeMovimiento <> 0 Then
+                                                                    Dim Pago As New CompraPago
+                                                                    Pago.ImportePago = importeMovimiento
+                                                                    Pago.CveIE = CveIE
+                                                                    Pago.CveMonedaPago = 1
+                                                                    Pago.CveCompraAmortizacion = -1
+                                                                    Pago.CveCreditoDetalle = CveCreditoDetalle
 
-                                                                    Dim importeMovimientoIn As Decimal = ImporteIECredito - importeMovimiento
-                                                                    Dim importeMNIn As Decimal = importeMovimientoIn * tipoCambioActual * Multiplicador
+                                                                    ErrorMovtosCxP = AplicaPrePolizaPago(CompraActual, Pago, CvePrePoliza, ObjConta)
 
-                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimientoIn, importeMNIn, 41, Referencia, Concepto, CtaProveedorAcreedores, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoIn), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
-                                                                        ErrorPrepoliza = True
-                                                                    End If
-                                                                    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimientoIn, importeMNIn, 50, Referencia, Concepto, ViewState("IdCtaContDocsXPagar").ToString.ToEntero(), CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoIn), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
-                                                                        ErrorPrepoliza = True
-
-                                                                    End If
                                                                 End If
+
+                                                                'If TipoCreditoInteres Then
+
+                                                                '    Dim importeMovimientoIn As Decimal = ImporteIECredito - importeMovimiento
+                                                                '    Dim importeMNIn As Decimal = importeMovimientoIn * tipoCambioActual * Multiplicador
+
+                                                                '    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, True, importeMovimientoIn, importeMNIn, 41, Referencia, Concepto, CtaProveedorAcreedores, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoIn), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+                                                                '        ErrorPrepoliza = True
+                                                                '    End If
+                                                                '    If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimientoIn, importeMNIn, 50, Referencia, Concepto, ViewState("IdCtaContDocsXPagar").ToString.ToEntero(), CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveIE:=CveIE, CveCreditoDetalle:=CveCreditoDetalle, CveClasificacion:=CveClasificacionDT, CveSubProyecto:=CveSubProyectoDT, ImporteME:=If(tipoCambioActual = 1, 0, importeMovimientoIn), CveTipoGasto:=CveTipoGastoDT, TipoCambio:=tipoCambioActual, Contabilizable:=SeContabiliza) Then
+                                                                '        ErrorPrepoliza = True
+
+                                                                '    End If
+                                                                'End If
                                                             End If
                                                             importeMovimiento = 0 : importeMN = 0
                                                             If TipoCambioCompra > 1 AndAlso DdlMoneda.SelectedValue.ToEntero <> 1 Then Concepto += $" TC{TipoCambioCompra} ${importeMovimiento.FormatoNumero(2)}"