home *** CD-ROM | disk | FTP | other *** search
/ Software Du Jour / SoftwareDuJour.iso / BUSINESS / DBASE / DB3PLSAR.ARC / ADDNAMES.PRG < prev    next >
Encoding:
Text File  |  1986-08-04  |  2.1 KB  |  82 lines
  1. SET HEADING OFF
  2. SET SAFETY OFF
  3. ***************(ADDNAMES.PRG)
  4. CLEAR
  5. SET BELL OFF
  6. SET TALK OFF
  7. SET CONFIRM ON
  8. SET EXACT ON
  9. DO WHILE .T.
  10.    USE CUST INDEX ACCT
  11.    @ 2,0 CLEAR
  12.    STORE '    ' TO MACCT
  13.    STORE "                              " TO MNAME
  14.    @ 20,22 SAY 'Do you want to enter an account? '
  15.    ?
  16.    ?
  17.    STORE ' ' TO OPTION
  18.    WAIT '                                    ?  ' TO OPTION
  19.    IF OPTION<>'Y'
  20.       RETURN
  21.    ENDIF
  22.    IF OPTION='Y'
  23.       @ 2,0 CLEAR
  24.       @ 6,25 SAY 'Enter account number ' GET MACCT PICTURE 'XXXX'
  25.       READ
  26.       FIND &MACCT
  27.       STORE NAME TO MNAME
  28.       IF .NOT. (EOF() .OR. BOF())
  29.          @ 2,0 CLEAR
  30.          @ 6,10 SAY "#&MACCT is already in use as &MNAME"
  31.          @ 20,25 SAY 'Are you trying to confuse me? '
  32.          @ 23,37 SAY '?'
  33.          STORE 1 TO XX
  34.          DO WHILE XX<70
  35.             STORE XX+1 TO XX
  36.          ENDDO WHILE XX<70
  37.          SKIP
  38.          LOOP
  39.       ENDIF #<>0
  40.       @ 2,0 CLEAR
  41.       APPEND BLANK
  42.    ENDIF
  43.    @ 3,1 SAY 'Account number &MACCT'
  44.    @ 4,1 SAY 'Salesman ' GET SALES
  45.    @ 4,20 SAY ' H = House, A = #1.., B = #2...'
  46.    @ 6,1 SAY 'Attention of (Leave blank if accts. payable' GET ATTN
  47.    @ 8,1 SAY 'Customer name ' GET NAME
  48.    @ 10,1 SAY 'Address ' GET ADDRESS
  49.    @ 12,1 SAY 'City ' GET CITY
  50.    @ 12,27 SAY 'State ' GET STATE
  51.    @ 12,40 SAY 'Zip ' GET ZIP
  52.    @ 14,1 SAY 'Phone ' GET PHONE
  53.    @ 16,1 SAY 'Unapplied credits? ' GET UCREDIT
  54.    @ 18,1 SAY 'Discount? ' GET DISC
  55.    @ 20,1 SAY 'Credit limit (Blank if 500.00' GET CRLMT
  56.    @ 20,45 SAY 'Terms (Blank if Net 30)' GET TERMS
  57.    READ
  58.    REPLACE ACCT WITH '&MACCT'
  59.    IF CRLMT=0.00
  60.       REPLACE CRLMT WITH 500.00
  61.    ENDIF
  62.    IF ATTN='                 '
  63.       REPLACE ATTN WITH 'Accts.Payable Dept'
  64.    ENDIF
  65.    IF SALES=' '
  66.       REPL SALES WITH 'H'
  67.    ENDIF
  68.    IF TERMS='        '
  69.       REPLACE TERMS WITH 'Net 30'
  70.    ENDIF
  71.    @ 22,1 SAY 'Is this correct?                                  '
  72.    WAIT ' ' TO OPTION
  73.    IF OPTION<>'Y'
  74.       EDIT
  75.    ENDIF
  76.    @ 2,0 CLEAR
  77. ENDIF
  78. ENDDO
  79. SET BELL ON
  80. SET EXACT OFF
  81. RETURN (WHILE OPTION = 'N')
  82.