*---------------------- Location Section ------------------------ * Library: Aforms.vcx * Class: Dataentryform * Method: Queryunload() *----------------------- Usage Section -------------------------- *) Description: *) * Scope: Public * Parameters: *$ Usage: *$ * Returns: *--------------------- Maintenance Section ---------------------- * Change Log: * CREATED 06/07/2005 - WGB * MODIFIED *---------------------------------------------------------------- LOCAL llReturn thisform.lIsClosing = .t. if type('THISFORM.ActiveControl') = 'O' and not ; isnull(thisform.activecontrol) and PEMSTATUS(thisform.activecontrol,'valid',5) ; and inlist(lower(thisform.activecontrol.baseclass),'textbox','editbox') thisform.activecontrol.valid() endif llReturn = dodefault() thisform.lIsClosing = .f. RETURN m.llReturn