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