IF SEEK(history.order_id,"orders","order_id") REPLACE orders.paid WITH THIS.value THISFORM.Save THISFORM.txtBalance.Value = THISFORM.CalcBalance() ENDIF