thisform.LockScreen = .T.
*- disable Paid checkbox if adding a new order
THISFORM.grdOrdHistory.column5.chkPaid.Enabled = !THISFORM.cmdAddToCurrentOrder.Enabled
*- enable Find button only if not adding a new order
THISFORM.cmdFind.Enabled = !(THISFORM.cmdAddToCurrentOrder.Enabled)
=REQUERY("history")
GO TOP IN history
=SEEK(history.order_id,"orders","order_id")
=REQUERY("citems")
thisform.Refresh()
THISFORM.txtBalance.Value = THISFORM.CalcBalance()
#IF 0
THISFORM.grdOrdHistory.SetFocus()
#ENDIF
SELECT customer
thisform.LockScreen = .F.