Software Du Jour/SoftwareDuJour.iso/BUSINESS/DBASE/DB3AR.ARC/ADDNAMES.PRG

Text File | 1985-10-16 | 1.9 KB | 83 lines

SET HEADING OFF
SET SAFETY OFF
***************(B:ADDNAMES.PRG)
CLEAR
SET BELL OFF
SET TALK OFF
SET CONFIRM ON
SET EXACT ON
DO WHILE .T.
USE B:CUST INDEX B:ACCT
@ 2,0 CLEAR
STORE '    ' TO MACCT
STORE "                              " TO MNAME
@ 20,22 SAY 'Do you want to enter an account? '
?
?
STORE ' ' TO OPTION
WAIT '                                    ?  ' TO OPTION
IF OPTION<>'Y'
RETURN
ENDIF
IF OPTION='Y'
@ 2,0 CLEAR
@ 6,25 SAY 'Enter account number ' GET MACCT PICTURE 'XXXX'
READ
*!! EOF() will be true if NO FIND, and RECNO() will equal BOTTOM, not 0.
FIND &MACCT
STORE NAME TO MNAME
IF .NOT. (EOF() .OR. BOF())
@ 2,0 CLEAR
@ 6,10 SAY "#&MACCT is already in use as &MNAME"
@ 20,25 SAY 'Are you trying to confuse me? '
@ 23,37 SAY '?'
STORE 1 TO XX
DO WHILE XX<70
STORE XX+1 TO XX
ENDDO WHILE XX<70
SKIP
LOOP
ENDIF #<>0
@ 2,0 CLEAR
APPEND BLANK
ENDIF
@ 3,1 SAY 'Account number &MACCT'
@ 4,1 SAY 'Salesman ' GET SALES
@ 4,20 SAY ' H = House, A = #1.., B = #2...'
@ 6,1 SAY 'Attention of (Leave blank if accts. payable' GET ATTN
@ 8,1 SAY 'Customer name ' GET NAME
@ 10,1 SAY 'Address ' GET ADDRESS
@ 12,1 SAY 'City ' GET CITY
@ 12,27 SAY 'State ' GET STATE
@ 12,40 SAY 'Zip ' GET ZIP
@ 14,1 SAY 'Phone ' GET PHONE
@ 16,1 SAY 'Unapplied credits? ' GET UCREDIT
@ 18,1 SAY 'Discount? ' GET DISC
@ 20,1 SAY 'Credit limit (Blank if 500.00' GET CRLMT
@ 20,45 SAY 'Terms (Blank if Net 30)' GET TERMS
READ
REPLACE ACCT WITH '&MACCT'
IF CRLMT=0.00
REPLACE CRLMT WITH 500.00
ENDIF
IF ATTN='                 '
REPLACE ATTN WITH 'Accts.Payable Dept'
ENDIF
IF SALES=' '
REPL SALES WITH 'H'
ENDIF
IF TERMS='        '
REPLACE TERMS WITH 'Net 30'
ENDIF
@ 22,1 SAY 'Is this correct?                                  '
WAIT ' ' TO OPTION
IF OPTION<>'Y'
EDIT
ENDIF
@ 2,0 CLEAR
ENDIF
ENDDO
SET BELL ON
SET EXACT OFF
RETURN (WHILE OPTION = 'N')