Shareware Overload/ShartewareOverload.cdr/database/dbsales.zip/DBSALES.LBR/GAADD.PRO

Text File | 1986-01-14 | 2KB | 99 lines

*
* GAADD.PRO - program file to add database information
* called from GAMAIN.PRO
*
CLEAR
? '&mname ,'
TEXT
This program error checks for duplicate entries on your
KEY field.

This field may be any 7 or less keyboard characters.

For fastest searching use a Letter/number combination to:
        1. Find a company
        2. Cover for similiar names.

i.e.  JOHNSON MANUFACTURING - may have the key JOHMAN1
      JOHNS MANVILLE CO.      would then be    JOHMAN2

ENDTEXT
&gause1
DO WHILE .T.
ACCEPT 'Enter Key, or return to exit ... ' to mkey
IF mkey < "!"
   RETURN
ENDIF
FIND &mkey
IF .NOT. EOF()
? CHR(7)
?'KEY IN USE'
SET HEAD OFF
LIST KEY,NAME,COMPANY WHILE KEY = "&mkey"
SET HEAD ON
LOOP
ELSE
CLEAR
APPEND BLANK
@ 0,0 SAY CMONTH(DATE())
@ 0,12 SAY DAY(DATE())
@ 0,17 SAY YEAR(DATE())
@ 0,30 SAY SUBSTR(TIME(),1,5)
@ 0,50 SAY 'RECORD #'
@ 0,59 SAY RECNO() PICTURE '@B'
@ 1,1 SAY "-------------------------------------------------------"
@ 1,56 SAY "------------------------"
@ 2,1 SAY "DATE"
@ 2,7 GET DATE
@ 2,21 SAY "INTITIAL CONTACT"
@ 2,39 GET CONTACT
@ 2,53 SAY "KEY"
@ 2,58 SAY mkey
@ 3,1 SAY "CALL"
@ 3,7 GET CALL
@ 4,1 SAY "-------------------------------------------------------"
@ 4,56 SAY "------------------------"
@ 5,1 SAY "NAME"
@ 5,7 GET NAME
@ 6,1 SAY "TELEPHONE"
@ 6,12 GET TELEPHONE
@ 8,1 SAY "COMPANY"
@ 8,12 GET COMPANY picture "!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!"
@ 9,1 SAY "ADDRESS1"
@ 9,12 GET ADDRESS1
@ 10,1 SAY "ADDRESS2"
@ 10,12 GET ADDRESS2
@ 11,1 SAY "CITY"
@ 11,12 GET CITY picture "!xxxxxxxxxxxxxxxxxxx"
@ 11,41 SAY "STATE"
@ 11,48 GET STATE picture "!!"
@ 11,55 SAY "ZIP"
@ 11,60 GET ZIP
@ 12,1 SAY "COUNTRY"
@ 12,12 GET COUNTRY
@ 13,1 SAY "======================================================="
@ 13,56 SAY "========================"
@ 14,1 SAY gadata1
@ 14,17 GET DATA1
@ 16,1 SAY gadata2
@ 16,17 GET DATA2
@ 18,1 SAY gadata3
@ 18,17 GET DATA3
@ 20,1 SAY gadata4
@ 20,17 GET DATA4
@ 22,1 SAY "NOTES"
@ 22,7 GET NOTES
@ 22,15 SAY '(PgDn gives memo field access, ^PgDn enters, ^End ì
saves)'
@ 24,0 SAY 'Esc exits, PgDn saves and continues, Ctrl/End saves'
READ
REPLACE KEY WITH mkey
CHANGE NEXT 1 FIELDS NOTES
CLEAR
LOOP
ENDIF
ENDDO