Click Method
Object:frmordhistory.cmdFind
Expand/Collapse source code of procedure cmdFind.Click Source Code
LOCAL lcCustomer_id

*- if they checked a row in the items grid, give the
*- user the option to save items first
SELECT cItems
IF TSBaseForm::DataChanged()
	IF MESSAGEBOX(ITEMNOTSAVED_LOC, ;
		MB_ICONEXCLAMATION + MB_YESNO, ;
    	TASTRADE_LOC) == IDNO
    	GOTO THISFORM.nOrderRec IN "history"
		SELECT customer
    	RETURN
    ELSE
    	=TABLEREVERT(.T.)
    ENDIF
    SELECT customer
ENDIF

lcCustomer_id = oApp.DoFormRetVal("findCustomer")

IF !EMPTY(lcCustomer_id)
	=SEEK(lcCustomer_id,"customer","customer_i")
ENDIF

THISFORM.RefreshForm