LOCAL lcCustomer_id, lcOrder_ID, liRecno
lcOrder_ID = oApp.DoFormRetVal("findOrder")
IF !EMPTY(lcOrder_id) AND !ISNULL(lcOrder_id)
liRecno = RECNO("orders")
THISFORM.lockscreen = .T.
THISFORM.first && force any save actions
IF SEEK(lcOrder_id, "orders", "order_id")
THISFORM.RefreshForm
ELSE
GO liRecno IN Orders
ENDIF
ENDIF
#IF 0
lcCustomer_id = oApp.DoFormRetVal("findCustomer")
IF !EMPTY(lcCustomer_id)
REPLACE orders.customer_id WITH lcCustomer_id
THISFORM.cboCustomer_ID.Refresh
THISFORM.cboCustomer_ID.InteractiveChange
ENDIF
#ENDIF