LPARAMETERS txItem,tcTable,tcOrder,tlExact LOCAL lcOldExact,llRetVal lcOldExact = SET("EXACT") IF TYPE("tlExact") = "N" DO CASE CASE tlExact = 0 SET EXACT OFF CASE tlExact = 1 SET EXACT ON ENDCASE ENDIF IF !EMPTY(tcOrder) IF SEEK(txItem,tcTable,tcOrder) llRetVal = .T. ELSE llRetVal = .F. ENDIF ELSE IF SEEK(txItem,tcTable) llRetVal = .T. ELSE llRetVal = .F. ENDIF ENDIF SET EXACT &lcOldExact RETURN llRetVal