diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index 82fe0d488..6d7a6cc18 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -4526,9 +4526,9 @@ Partial Class Compras_Compras
 
         Dim CveSubProyectoPrincipal As Integer = AsignarSubProyectoPrincipal()
 
-        If Not CveSubProyectoPrincipal > 0 Then
-            Alert("Falta asignar Proyecto a la compra", TipoMensaje.MsgAdvertencia)
-        End If
+        'If Not CveSubProyectoPrincipal > 0 Then
+        '    Alert("Falta asignar Proyecto a la compra", TipoMensaje.MsgAdvertencia)
+        'End If
 
         If Not ValidaVinculacionNotaFactura() Then
             Alert("Se requiere que la nota este aplicada a las facturas", TipoMensaje.MsgAdvertencia)
@@ -4868,13 +4868,13 @@ Partial Class Compras_Compras
         For Each Row As DataRow In TmpDT.Rows
 
             'VALIDACION DE CENTRO DE COSTO
-            If UsuarioActual.Empresa.RequiereCentroCostos AndAlso Row("CveSubProyecto").ToString.ToEntero <= 0 Then
-                RequiereCentroCosto = True
-                UM.Dispose()
-                PSS.Dispose()
-                Alert("Falta asignar Proyecto a la compra", TipoMensaje.MsgAdvertencia)
-                Exit Sub
-            End If
+            'If UsuarioActual.Empresa.RequiereCentroCostos AndAlso Row("CveSubProyecto").ToString.ToEntero <= 0 Then
+            '    RequiereCentroCosto = True
+            '    UM.Dispose()
+            '    PSS.Dispose()
+            '    Alert("Falta asignar Proyecto a la compra", TipoMensaje.MsgAdvertencia)
+            '    Exit Sub
+            'End If
 
             'REGISTRO LAS UNIDADES DE MEDIDA
             If Row("CveUM").ToString.ToEntero = 0 Then
@@ -7967,11 +7967,19 @@ Partial Class Compras_Compras
                                                 CvePreComprobacion = ObjConta.AddPrePolizas("Compras Comproba", 1, 0, 0, 1, TxtFecha.Text.ToDate, tConcepto, UsuarioActual.CveUsuario, UsuarioActual.CveEmpresa)
 
                                                 If ObjCompras.AddComprobacion(DdlPersonalReembolso.SelectedValue.ToEntero, DdlCuentaCajaChicaReembolso.SelectedValue.ToEntero, TxtNumeroReembolso.Text.Trim, CvePreComprobacion, UsuarioActual.CveEmpresa) > 0 Then
-
+                                                    Alert("Apertura de nueva comprobación.", TipoMensaje.ToastInformacion)
                                                 End If
                                             Else
                                                 'si ya existe, obtenemos la prepóliza
                                                 CvePreComprobacion = ObjCompras.DtResultados.FiltroPrimeroValor("CvePrePoliza").ToEntero
+                                                If ObjCompras.DtResultados.FiltroPrimeroValor("FolioPoliza").ToEntero > 0 Then
+                                                    TieneError = True
+                                                    ErrorPrepoliza = True
+                                                    Alert($"La Comprobación con folio '{TxtNumeroReembolso.Text.Trim}' está previamente contabilizada. No se puede asociar.", TipoMensaje.MsgError)
+                                                Else
+                                                    Alert("Factura agregada a una comprobación ya creada.", TipoMensaje.ToastInformacion)
+                                                End If
+
                                             End If
 
                                             ObjConta.PrePolizaUnificacion(CvePreComprobacion, CvePrePoliza)
@@ -8074,8 +8082,8 @@ Partial Class Compras_Compras
                                         Else
                                             ObjCompras.RollBack()
                                             If ObjContaAC IsNot Nothing Then ObjContaAC.RollBack()
-                                            Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente.", TipoMensaje.MsgError)
-                                        End If
+                                        ' Alert("Ocurrio un error al guardar la compra. Por favor intente nuevamente.", TipoMensaje.MsgError)
+                                    End If
 
                                     End If
 
@@ -8194,7 +8202,6 @@ Partial Class Compras_Compras
             End If
         Next
 
-
         If DTSubProyectoPrincipal.Rows.Count > 0 Then
             DTSubProyectoPrincipal = DTSubProyectoPrincipal.FiltraParametros("", "Total DESC ")
             CveSubProyectoPrincioal = DTSubProyectoPrincipal.FiltroPrimeroValor("CveSubProyecto").ToEntero