diff --git a/Compras/Compras.aspx.vb b/Compras/Compras.aspx.vb
index f5a0be724..14fe93b5f 100644
--- a/Compras/Compras.aspx.vb
+++ b/Compras/Compras.aspx.vb
@@ -7904,6 +7904,7 @@ Partial Class Compras_Compras
 
                                     'AJUSTA POLIZA
                                     If IdPoliza > 0 Then
+                                        PolizaFolio = ObjContaAC.Folio
                                         ObjContaAC.AjustaPoliza(IdPoliza)
                                         Msg.AppendFormat("<br/><br/><a Class=""Texto"" target='_blank' href=""/Contabilidad/RegPoliza.aspx?IdPoliza={0}"">Ver Póliza</a>", IdPoliza)
                                     End If
@@ -7914,35 +7915,43 @@ Partial Class Compras_Compras
                                         Msg.AppendFormat("</br><a class=""Texto"" target='_blank' href=""/Compras/PopUpVerFactura.aspx?P={0}"">Imprimir Entrada Almacen</a>", TempParametros)
                                     End If
 
-                                    ObjCompras.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, PolizaFolio.ToString, IdPoliza, CvePrePoliza, CveCompra, 0)
-
+                                    If Not ObjCompras.UpdateCompraPrePoliza(TxtFecha.Text.ToDate, PolizaFolio.ToString, IdPoliza, CvePrePoliza, CveCompra, 0) Then
+                                        TieneError = True
+                                    End If
+
                                     If EntregaDirecta Then
                                         Msg.AppendFormat($"</br><a class=""Texto"" target='_blank' href=""/Inventarios/RecepcionAlmacen.aspx?CveCompra={CveCompra}&ED=1"">Recibir mercancía de entrega directa.</a>")
                                     End If
 
-                                    ObjCompras.Commit()
-                                    If ObjContaAC IsNot Nothing Then ObjContaAC.Commit()
-
-                                    Dim CveEvaluacionProveedor As Integer = -1
-
-                                    If Me.RequiereEvaluacion Then
-                                        Dim ObjPro As New ClsCompProveedores()
-                                        CveEvaluacionProveedor = ObjPro.AddEvaluacionProveedor(CveProveedor, CveCompra, Now, "", Me.CveUsuarioEvaluador, "", "", UsuarioActual.CveEmpresa)
-                                        ObjPro.Dispose()
-                                    End If
-
-                                    'ENVIO DE CORREO NOTIFICACION A VENDEDORES DE OC
-                                    MandaCorreoOCVendedores(CveCompra)
-                                    If Not ErrorMovInv Then
-                                        For Each intMovimientoAlmacen As Integer In ListaMovimientosAlmacen
-                                            MandaCorreoOCVendedoresRecepcionAlmacen(CveCompra, intMovimientoAlmacen)
-                                        Next
-                                    End If
-
-                                    If CveEvaluacionProveedor > 0 Then
-                                        Msg.Append("<br/><br/>El proveedor tiene evaluaciones pendientes<br/>")
-                                        Msg.Append("¿Desea realizar una evaluacion al proveedor?")
-                                        Msg.AppendFormat($"</br><a class=""Texto"" target='_blank' href=""/Compras/EvaluacionProveedor.aspx?CveEvaluacionProveedor={CveEvaluacionProveedor}"">Evaluar Proveedor.</a>")
+                                    If Not TieneError Then
+                                        ObjCompras.Commit()
+                                        If ObjContaAC IsNot Nothing Then ObjContaAC.Commit()
+
+                                        Dim CveEvaluacionProveedor As Integer = -1
+
+                                        If Me.RequiereEvaluacion Then
+                                            Dim ObjPro As New ClsCompProveedores()
+                                            CveEvaluacionProveedor = ObjPro.AddEvaluacionProveedor(CveProveedor, CveCompra, Now, "", Me.CveUsuarioEvaluador, "", "", UsuarioActual.CveEmpresa)
+                                            ObjPro.Dispose()
+                                        End If
+
+                                        'ENVIO DE CORREO NOTIFICACION A VENDEDORES DE OC
+                                        MandaCorreoOCVendedores(CveCompra)
+                                        If Not ErrorMovInv Then
+                                            For Each intMovimientoAlmacen As Integer In ListaMovimientosAlmacen
+                                                MandaCorreoOCVendedoresRecepcionAlmacen(CveCompra, intMovimientoAlmacen)
+                                            Next
+                                        End If
+
+                                        If CveEvaluacionProveedor > 0 Then
+                                            Msg.Append("<br/><br/>El proveedor tiene evaluaciones pendientes<br/>")
+                                            Msg.Append("¿Desea realizar una evaluacion al proveedor?")
+                                            Msg.AppendFormat($"</br><a class=""Texto"" target='_blank' href=""/Compras/EvaluacionProveedor.aspx?CveEvaluacionProveedor={CveEvaluacionProveedor}"">Evaluar Proveedor.</a>")
+                                        End If
+                                    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(Msg.ToString, TipoMensaje.MsgInformacion, MsgAccionAceptar)