home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a075 / 1.img / TOOLKIT1.EXE / SST207.PRG < prev    next >
Encoding:
Text File  |  1989-09-11  |  1.7 KB  |  86 lines
  1. **********************
  2.  
  3. FUNCTION Infile
  4.  
  5.    * The infile() function validates that the parameter 
  6.    * passed in found in the file indicated
  7.    *
  8.  
  9.    PARAMETER _tcode, _tarea, _match, _show, _fill, _req
  10.  
  11.    PRIVATE _retval, _narea, _atesting, _lrow, _lcol, _ldown, _pick
  12.  
  13.    IF LASTKEY() = 5            && If up arrow was pressed, do not validate
  14.       RETURN(.T.)              && the field
  15.    ENDIF                  
  16.  
  17.    IF PCOUNT() < 6
  18.       _req = .F.
  19.    ENDIF
  20.    _narea = 0
  21.  
  22.    scrpath = IF((TYPE("scrpath") = "U"), "", scrpath)
  23.  
  24.    IF EMPTY(_tarea)
  25.       _tarea = LTRIM(TRIM(STR(SELECT())))
  26.    ELSEIF LEN(_tarea) = 1
  27.       SELECT &_tarea
  28.    ELSE
  29.       IF FILE( scrpath+_tarea+".DBF" )
  30.          SELECT 0
  31.          USE ( scrpath+_tarea )
  32.       ELSE
  33.          RETURN(.T.)
  34.       ENDIF
  35.    ENDIF
  36.    _narea = SELECT()
  37.  
  38.    IF "["$_tcode
  39.       _atesting = &_tcode.
  40.    ELSE
  41.       _atesting = _tcode
  42.    ENDIF
  43.  
  44.    IF ( !_req .AND. EMPTY( _atesting ) ) .OR. RECCOUNT() = 0
  45.       SELECT ( _narea )
  46.       USE
  47.       RETURN(!_req)
  48.    ENDIF
  49.  
  50.    LOCATE ALL FOR _atesting = &_match
  51.    _retval = FOUND()
  52.  
  53.    IF !_retval
  54.       
  55.       _lrow = ROW()
  56.       _lcol = COL()
  57.       _ldown= ROW()+7
  58.  
  59.       _pick = Dpop( _lrow, _lcol, _ldown, 24, _tarea, _show, "",.F.,.T.)
  60.       *
  61.    ELSE
  62.       _pick = RECNO()
  63.    ENDIF
  64.  
  65.    IF _pick > 0 .AND. TYPE("_fill") = "A"
  66.  
  67.       Storarray(_fill, _tarea, _pick)
  68.  
  69.    ENDIF
  70.    IF _pick > 0
  71.       GOTO _pick
  72.       IF "["$_tcode
  73.          &_tcode. = &_match.
  74.       ELSE
  75.          _tcode = &_match.
  76.      ENDIF
  77.      _retval = .T.
  78.    ENDIF
  79.    IF _narea > 0
  80.       SELECT (_narea)
  81.       USE
  82.    ENDIF
  83.    RETURN(_retval)
  84.  
  85. * End of File
  86.