Error al amortizar compra

Compras/Compras.aspx.vb

@@ -8655,6 +8655,7 @@ Partial Class Compras_Compras
             ObjConta = New ClsContabilidad(ObjCompra.IniciaTransacSQL)
         End If
 
+        Try
 
             Dim Contador As Integer = 0
             Dim Importe As Double = 0
@@ -8783,7 +8784,10 @@ Partial Class Compras_Compras
 
                                     Pago.CveIE = CveIE
                                     Pago.CveCompraAmortizacion = CveCompraNC
-                                AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePolizaNueva, ObjConta)
+
+                                    If AplicaPrePolizaPagoCompra(CompraActual, Pago, CvePrePolizaNueva, ObjConta) Then
+                                        ErrorMovtosCxP = 1
+                                    End If
                                 End If
                             End If
 
@@ -8895,6 +8899,11 @@ Partial Class Compras_Compras
                 Alert("No hay movimientos seleccionados para aplicar", TipoMensaje.MsgAdvertencia)
             End If
             UPPAnticiposSel.Update()
+
+        Catch ex As Exception
+            ObjCompra.RollBack()
+            ObjCompra.Dispose()
+        End Try
     End Sub