home *** CD-ROM | disk | FTP | other *** search
/ The C Users' Group Library 1994 August / wc-cdrom-cusersgrouplibrary-1994-08.iso / listings / v_01_03 / 1n03055a < prev    next >
Text File  |  1990-07-05  |  1KB  |  36 lines
  1.  
  2. USE Goods ORDER Part_id
  3. mpart_id = SPACE(4)
  4. @ 6,4 SAY "Part Number:  " GET mpart_id FUNCTION "!999" VALID duplicat(mpart_id) ;
  5.    VALID Duplicat(&key.) ERROR "Duplicate part number, please re-enter";
  6.    MESSAGE "Enter a part number or press ESC to quit."
  7. FUNCTION Duplicat
  8.    PARAMETERS key
  9.    rec_is_dup = .F.
  10.    IF RECCOUNT() = 0 .OR. "" = TRIM(key)
  11.       RETURN rec_is_dup
  12.    ENDIF
  13.    record_num = RECNO()
  14.    SEEK TRIM(key)
  15.    DO CASE
  16.       CASE PROMPT() = "Edit record"
  17.          rec_is_dup = record_num <<>> RECNO() .AND. FOUND()
  18.       CASE PROMPT() = "Add record"
  19.          rec_is_dup = FOUND()
  20.    ENDCASE
  21.    IF rec_is_dup
  22.       ACTIVATE WINDOW duplicat
  23.       CLEAR
  24.       DO warnbell
  25.       ?"                      DUPLICATE RECORD!!!"
  26.       ?"                   Duplicates not allowed..."
  27.       ?" " + part_id + " " + part_name
  28.       ?"This is the existing part whose number you just entered"
  29.       ?"Please check the part number and re-enter a different one"
  30.       WAIT "     Press <<spacebar>> to continue"
  31.       DEACTIVATE WINDOW duplicat
  32.    ENDIF
  33.    GO record_num
  34. RETURN .NOT. rec_is_dup     
  35.  
  36.