Error al guardar folio de poliza

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,12 +7915,15 @@ 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
 
+                                    If Not TieneError Then
                                         ObjCompras.Commit()
                                         If ObjContaAC IsNot Nothing Then ObjContaAC.Commit()
 
@@ -7944,6 +7948,11 @@ Partial Class Compras_Compras
                                             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)