home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DB3.ARC / NAMETEST.PRG < prev    next >
Text File  |  1984-10-25  |  4KB  |  85 lines

  1.          **********  Nametest COMMAND FILE  **********
  2. * Checks names in the file in USE against the Supplier file and gives
  3. * the operator the options of editing, adding them to the Supplier file
  4. * or ignoring them.  If a name is edited, it is presented again.
  5. ***********************************************************************
  6. PARAMETER File_no
  7. GO TOP
  8. DO WHILE .NOT. EOF()
  9.    IF DELETED()
  10.       SKIP
  11.    ELSE
  12.       CLEAR
  13.       @  4,25 SAY 'CHECKING NAMES '
  14.       @  6,25 SAY 'RECORD '+STR(RECNO(),5)
  15.       @  7,25 SAY UPPER(Name)
  16.       Decision = 'T'
  17.       Tname = Name
  18.       Key = SUBSTR(Name,1,10)
  19.       SELECT 4
  20.       SEEK Key
  21.       IF EOF()
  22.          Again = .T.
  23.          DO WHILE Again
  24.             @  9,20 SAY 'THIS SUPPLIER NAME IS NOT IN THE Supplier FILE. '
  25.             @ 11,20 SAY '     &F3 to CONTINUE.                                '
  26.             @ 12,20 SAY '     &F4 to EDIT.                               '
  27.             @ 13,20 SAY '     &F5 to ADD it to the Supplier file.           '
  28.             SET COLOR TO  , 
  29.             @ 14,0 GET Decision
  30.             READ
  31.             SET COLOR TO W, ,W
  32.             DO CASE
  33.                CASE UPPER(Decision) = 'A'
  34.                   APPEND BLANK
  35.                   REPLACE Supplier with UPPER(Tname)
  36.                   CLEAR
  37.                   @  3, 0 SAY 'Supplier Entry'
  38.                   @  5, 0 SAY '   Supplier Name' GET Supplier PICTURE ;
  39.                               '!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!'
  40.                   @  6, 0 SAY '         Address' GET Address PICTURE ;
  41.                               '!!!!!!!!!!!!!!!!!!!!!!!!'
  42.                   @  7, 0 SAY '            City' GET City PICTURE '!!!!!!!!!!!!!!!!'
  43.                   @  8, 0 SAY '           State' GET State PICTURE '!!'
  44.                   @  9, 0 SAY '           Phone' GET Phone_Nmbr
  45.                   @ 10, 0 SAY '       Area Code' GET Area_Code
  46.                   @ 19,10 SAY '^W to save, ESC to cancel changes.'          
  47.                   READ
  48.                   Again = .F.
  49.                   *
  50.                CASE UPPER(Decision) = 'E'
  51.                   SELECT &File_no
  52.                   CLEAR
  53.                   @  3, 0 SAY '           Entry'+ STR(RECNO(),5)
  54.                   @  5, 0 SAY '      CHECK DATE' GET Check_Date
  55.                   @  6, 0 SAY '    CHECK NUMBER' GET Check_Nmbr
  56.                   @  7, 0 SAY '          CLIENT' GET Client PICTURE '!!!'
  57.                   @  8, 0 SAY '      JOB NUMBER' GET Job_Nmbr 
  58.                   @  9, 0 SAY '          AMOUNT' GET Amount
  59.                   @ 10, 0 SAY '            NAME' GET Name PICTURE '!!!!!!!!!!!!!!!!!!!!'
  60.                   @ 11, 0 SAY '     DESCRIPTION' GET Descrip PICTURE '!!!!!!!!!!!!!!!!!!!!'
  61.                   @ 12, 0 SAY '     BILL NUMBER' GET Bill_Nmbr PICTURE '!!!!!!!'
  62.                   @ 13, 0 SAY '       BILL DATE' GET Bill_Date
  63.                   @ 14, 0 SAY '           HOURS' GET HOURS
  64.                   @ 15, 0 SAY ' EMPLOYEE NUMBER' GET Emp_Nmbr
  65.                   @ 19,10 SAY '^W to save, ESC to cancel changes.'             
  66.                   READ
  67.                   SELECT 4
  68.                   Again = .F.
  69.                   *
  70.                CASE UPPER(Decision) = 'C'
  71.                   Again = .F.
  72.                   *
  73.                OTHERWISE
  74.                   Again = .T.
  75.             ENDCASE
  76.          ENDDO
  77.       ENDIF not found
  78.       SELECT &File_no
  79.       IF UPPER(Decision) <> 'E'
  80.          SKIP
  81.       ENDIF
  82.    ENDIF deleted
  83. ENDDO
  84. RETURN
  85.