home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST209.PRG < prev    next >
Encoding:
Text File  |  1989-08-08  |  666 b   |  32 lines
  1. *******************
  2.  
  3. FUNCTION Nodupe
  4.  
  5.    PARAMETER _work, _lookup, _where
  6.  
  7.    PRIVATE _tfound, _return
  8.  
  9.    IF PCOUNT() != 3
  10.       RETURN(.F.)
  11.    ENDIF
  12.  
  13.    scr_err_ro = IF(TYPE("scr_err_ro") = "U", 24, scr_err_ro)
  14.    scr_err_co = IF(TYPE("scr_err_co") = "U", 00, scr_err_co)
  15.  
  16.    _return = SELECT()
  17.  
  18.    IF LASTKEY() = 5 .OR. EMPTY ( _lookup )
  19.       @ scr_err_ro,scr_err_co
  20.       RETURN(.T.)
  21.    ENDIF
  22.    SELECT &_work.
  23.    SET FILTER TO RECNO() <> _where
  24.    SEEK _lookup
  25.    _tfound = EOF()
  26.    @ scr_err_ro,scr_err_co SAY IF( EOF(),SPACE(22),"No DUPLICATES allowed" )
  27.    SET FILTER TO
  28.    SELECT (_return)
  29.    RETURN(_tfound)
  30.  
  31. * End of File
  32.