Click Method
Object:frmorderentry.cmdFind
Expand/Collapse source code of procedure cmdFind.Click Source Code
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