diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 7458819a9..10911f968 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -6196,6 +6196,7 @@ Partial Class Compras_Compras
                                                                 End If
 
 
+                                                                Dim RegistroCuentaPuente As Boolean = False
                                                                 'NC CON PRODUCTOS - CUENTA PUENTE
                                                                 If UsuarioActual.CveEmpresa.Contiene(119) AndAlso UsuarioActual.Empresa.UsaInventarios AndAlso DdlTipoComprobante.SelectedValue.Contiene("NC", "DEV") AndAlso Not UsuarioActual.Empresa.Funcionalidad(126) = "1" Then
 
@@ -6213,6 +6214,7 @@ Partial Class Compras_Compras
                                                                     Concepto = $"{NombreProveedor} {TxtSerie.Text} - {TxtFolio.Text}"
 
                                                                     If importeMovimiento > 0 Or TxtTotal.Text.ToDecimal = 0 Then
+                                                                        RegistroCuentaPuente = True
                                                                         'Conta ContPAQ
                                                                         If IdCtaContable = 0 Then
                                                                             CuentasContablesInvalidas.Append("<br>" & GlobalDTContaConceptosContables(-1).FiltroPrimero(String.Format("CveConceptoContable = {0}", 68))("ConceptoContable").ToString)
@@ -6255,7 +6257,7 @@ Partial Class Compras_Compras
 
 
 
-                                                                If Not ChkNCInvNC.Checked OrElse Not ListaDocumentos.Count > 0 Then
+                                                                If Not ChkNCInvNC.Checked OrElse Not RegistroCuentaPuente Then
                                                                     'GASTO
                                                                     If UsuarioActual.CveEmpresa = 119 Then
                                                                         DT = TmpDT
@@ -6494,7 +6496,7 @@ Partial Class Compras_Compras
                                                                     If ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMovimiento, Referencia, ConceptoContable, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMovimiento, ImporteME:=importeMovimiento, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
                                                                         IdCtaContable = CtaProveedorComplementaria
                                                                         CveCuenta = CveCuentaProveedorComplementaria
-                                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMN - importeMovimiento, Referencia, 234, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN - importeMovimiento, ImporteME:=importeMovimiento, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza) Then
+                                                                        If Not ObjConta.AddPrePolizasDetalle(CvePrePoliza, False, importeMN - importeMovimiento, Referencia, 234, Concepto, FechaMovimiento, IdCtaContable, -1, CveCompra:=CveCompra, CveProveedor:=CveProveedorConcepto, CveAcreedor:=CveAcreedor, CvePersonal:=CvePersonal, CveColectiva:=CveColectiva, CveCreditoDetalle:=CveCreditoDetalle, ImporteMX:=importeMN - importeMovimiento, ImporteME:=importeMovimiento, CveCuenta:=CveCuenta, Contabilizable:=SeContabiliza, TipoCambio:=tipoCambioActual) Then
                                                                             ErrorPrepoliza = True
                                                                             Exit Select
                                                                         End If
diff --git a/Compras/RepRembolsoComprobaciones.aspx.vb b/Compras/RepRembolsoComprobaciones.aspx.vb
index 50fd8aed0..33994b2a3 100644
--- a/Compras/RepRembolsoComprobaciones.aspx.vb
+++ b/Compras/RepRembolsoComprobaciones.aspx.vb
@@ -190,6 +190,7 @@ Partial Class Compras_RepRembolsoComprobaciones
         If ObjMov.ValidacionPrePolizaCuadre(CvePrePoliza, -1) Then
             If ObjMov.ValorPolizaDescuadre > 0 Then
                 GuardaLogAD($"Compras/RepRembolsoComprobaciones - Unificar | Error:{ObjMov.MensajePolizaDescuadre} Diferencia:{ObjMov.ValorDiferencia} | CvePrePoliza:{CvePrePoliza}", "LogPrePolizas")
+                Alert(ObjMov.MensajePolizaDescuadre, TipoMensaje.MsgError)
                 TieneError = True
             End If
         End If