try

Ventas/PV.aspx.vb

@@ -5212,6 +5212,8 @@ Partial Class PV
             'Alert("No se ha especificado producto a entregar")
             Exit Sub
         End If
+        Try
+
 
             If DdlTipoUso.SelectedValue.ToEntero > 0 AndAlso DdlPSAjuste.SelectedValue.ToEntero > 0 AndAlso TxtMesesUso.Text <> "" AndAlso DdlPS.SelectedValue.ToEntero > 0 Then
                 Dim CveMarca As Integer = -1
@@ -5267,6 +5269,10 @@ Partial Class PV
                 End If
                 ObjAcum.Dispose()
             End If
+        Catch ex As Exception
+            OnError("Ocurrió un error al recalcular el costo", ex)
+        End Try
+
         UpAjuste.Update()
     End Sub