$FUNCNAME$
  DBSEEK()
$CATEGORY$
  DATABASE
$SUMMARY$
   Move to the record having the specified key value
$LANG_RU$
      ,    .
$SYNTAX$
     DBSEEK(<expKey>, [<lSoftSeek>], [<lLast>]) --> lFound
$LANG_RU$
     DBSEEK(< >,
	   [<  >]) -->  
$ARGUMENTS$
     <expKey> is a value of any type that specifies the key value
     associated with the desired record.

     <lSoftSeek> is an optional logical value that specifies whether a
     soft seek is to be performed.  This determines how the work area is
     positioned if the specified key value is not found (see below).  If
     <lSoftSeek> is omitted, the current global _SET_SOFTSEEK setting is
     used.

     <lLast> is specified as true (.T.) to seek the last occurrence of
     the specified key value.  False (.F.), the default, seeks the first
     occurrence.

     Note:  This parameter is only supported for specific RDDs.  DBFNTX
     is NOT one of them.
$LANG_RU$
     < > -   ,  
         .

     <  > -   ,
      ,     .
      ,     ,  
         (. ).  < 
     > ,   ,   SET() 
      _SET_SOFTSEEK.
$RETURNS$
     DBSEEK() returns true (.T.) if the specified key value was found;
     otherwise, it returns false (.F.).
$LANG_RU$
     DBSEEK()  "" (.T.),    
        "" (.F.)   .
$DESCRIPTION$
     DBSEEK() moves to the first logical record whose key value is equal to
     <expKey>.  If such a record is found, it becomes the current record and
     DBSEEK() returns true (.T.); otherwise, it returns false (.F.).  the
     positioning of the work area is as follows: for a normal (not soft)
     seek, the work area is positioned to LASTREC() + 1 and EOF() returns
     true (.T.); for a soft seek, the work area is positioned to the first
     record whose key value is greater than the specified key value.  If no
     such record exists, the work area is positioned to LASTREC() + 1 and
     EOF() returns true (.T.).

     For a work area with no active indexes, DBSEEK() has no effect.

     DBSEEK() performs the same function as the standard SEEK command.  For
     more information, refer to the SEEK command.
$LANG_RU$
     DBSEEK() -      , 
        < >.    ,
         ,  DBSEEK()  ""
     (.T.).     DBSEEK()  "" (.F.), 
        :   (
     )       
     LASTREC() + 1,   EOF()  "" (.T.).
            ,
        ,    .
         ,     
      LASTREC()+1,   EOF()   ""
     (.T.)

      DBSEEK()    ,   
     .

     DBSEEK()    ,     SEEK.
           SEEK.
$EXAMPLES$
       In this example, DBSEEK() moves the pointer to the record in
	the database, Employee, in which the value in FIELD "cName" matches
	the entered value of cName:

	ACCEPT "Employee name: " TO cName
	IF ( Employee->(DBSEEK(cName)) )
	   Employee->(VIEWRECORD())
	ELSE
	   ? "Not found"
	END
$LANG_RU$
	  ACCEPT " : " TO cName
	  IF ( Employee->(DBSEEK(name)) )
	     Employee->(ViewRecord())
	  ELSE
	     ? " "
	  END
$SEEALSO$
  DBGOBOTTOM(),DBGOTOP(),DBSKIP(),EOF(),FOUND()
$END$
