*STORE ' ' TO DBB
*REST FROM CUSTOMER
**SET TALK OFF
*STORE ' ' TO SEP,DBBB
*STORE 0 TO CL
*STORE ' ' TO SEL1
IF DBBB = 'SCOTT'
 SET KEY -9 TO CRMA
ENDIF
CLOSE DATA
SELECT 88
USE LASTNUM
DO WHILE .T.
STORE 0 TO MMREC
STORE ' ' TO OT
STORE '         ' TO MVENDOR,MDESC,VT
STORE SPACE(10) TO MSEARCH
SELECT 1
STORE 'ORDERS' TO DNET
DO NETERROR
GOTO BOTTOM
IF SUBSTR(ODESC,1,5) = '     ' .AND. SUBSTR(ODESC1,1,5) = '     ' .AND. OTYPE = ' '
 DO WHILE SUBSTR(ODESC,1,5) = '     ' .AND. SUBSTR(ODESC1,1,5) = '     ' .AND. OTYPE = ' '
  SKIP -1
 ENDDO 
 SKIP
ELSE
 STORE 'Y' TO DNETAPPEND
 DO NETERROR
 REPLACE TEST WITH '~'
 REPLACE ODATE WITH DATE()
 UNLOCK ALL
ENDIF
STORE SPACE(5) TO MONAME
STORE ' ' TO MOTYPE
STORE 'B' TO DIRECTION
STORE 0 TO RECC,ONUM
STORE 'EDIT/DEL/ADD ORDER' TO TOP1
DO TOP
SET DELIMITER ON
@ 1,0 SAY 'RECORD # - ' + STR(RECNO(),4,0)
@ 5,0 CLEAR 
@ 5,0 SAY 'Enter rec #,  press ENTER to add new record,  999 = search fields -' get mmrec
@ 7,0 SAY SEP
READ
IF CL = 1
 PRESSED = LASTKEY()
 IF PRESSED = 27
  RETURN
 ENDIF
ENDIF
IF MMREC = 999
 @ 7,30 SAY '<<< SEARCH FIELDS >>>'
 @ 9,0 SAY 'VENDOR NAME .... - ' GET MONAME PICTURE '!!!!!'
 @ 11,0 SAY 'SEARCH FIELDS (RMA/PERSON/DESC/ETC) - ' GET MSEARCH PICTURE '!!!!!!!!!!' 
 @ 13,0 SAY 'ORDER TYPE (R/S) - ' GET MOTYPE PICTURE '!'
 READ
 IF CL = 1
  PRESSED = LASTKEY()
  IF PRESSED = 27
   RETURN
  ENDIF
 ENDIF
ENDIF
STORE ' ' TO LLRP
GOTO TOP

IF MMREC <> 0 .AND. MMREC <> 999
 GOTO MMREC
 STORE 0 TO MMREC
ELSE
 GOTO BOTT
ENDIF
*IF MONAME <> '     ' .OR. MOTYPE <> ' '
* GOTO TOP
*ENDIF

IF SUBSTR(ODESC,1,5) = '     '
 DO LOCKWAIT
 REPLACE ODATE WITH DATE()
 UNLOCK
ENDIF
DO WHILE .T.
SELECT 1
@ 1,0 SAY 'RECORD # - ' + STR(RECNO(),4,0)
STORE 'N' TO MLOOP
IF MSEARCH <> '     ' 
 IF AT(TRIM(MSEARCH),ODESC) = 0 .AND.AT(TRIM(MSEARCH),ODESC1) = 0 .AND.AT(TRIM(MSEARCH),OPERSON) = 0 .AND.AT(TRIM(MSEARCH),OPO) = 0 .AND.AT(TRIM(MSEARCH),SERIAL) = 0 
  STORE 'Y' TO MLOOP
  IF DIRECTION = 'F'
   SKIP
   IF EOF()
    EXIT
   ENDIF
  ENDIF
  IF DIRECTION = 'B'
   STORE 'Y' TO MLOOP
   SKIP -1
   IF BOF()
    EXIT
   ENDIF
  ENDIF
 ENDIF
ENDIF
IF MONAME <> '     ' 
 IF TRIM(OVENDOR) <> TRIM(MONAME)
  STORE 'Y' TO MLOOP
  IF DIRECTION = 'F'
   SKIP
   IF EOF()
    EXIT
   ENDIF
  ENDIF
  IF DIRECTION = 'B'
   STORE 'Y' TO MLOOP
   SKIP -1
   IF BOF()
    EXIT
   ENDIF
  ENDIF
 ENDIF
ENDIF
IF MOTYPE <> ' '
 IF OTYPE <> MOTYPE
  IF DIRECTION = 'F'
   SKIP
   IF EOF()
    EXIT
   ENDIF
   STORE 'Y' TO MLOOP
  ENDIF
  IF DIRECTION = 'B'
   SKIP -1
   IF BOF()
    EXIT
   ENDIF
   STORE 'Y' TO MLOOP
  ENDIF
 ENDIF
ENDIF

IF MLOOP = 'Y'
 PRESSED = INKEY()
 IF PRESSED = 27
  EXIT
 ENDIF
 LOOP
ENDIF
SELECT 88
STORE RMAUSERS TO RUSERS
SELECT 1
@ 7,0 CLEAR
@ 7,0 SAY 'FILENUMBER - ' + STR(RECNO(),4,0)
@ 7,40 SAY 'F10 TO AUTO RECEIVE  '
DO DBTOMEM
STORE ORECDATE TO MORECDATE
@ 9,0 SAY 'ORDER DATE - ' GET ODATE PICTURE '99/99/99'
@ 9,39 SAY 'UPS PICKUP CTRL NUMBER - ' GET UPSNUM
@ 10,0 SAY 'QUANITY     - ' GET QTY
@ 11,0 SAY 'DESCRIPTION - ' GET ODESC
@ 12,0 SAY 'DESCRIPTION - ' GET ODESC1              
@ 13,0 SAY "SERIAL #'S  - " GET SERIAL
@ 14,0 SAY 'PACKAGE SHIPPED TO VENDOR ................... - ' GET OVENDOR
@ 15,0 SAY 'ESTIMATED VALUE OF THIS SHIPMENT ............ - ' GET OAMT PICTURE '999999.99'
@ 16,0 SAY 'PAYMENT/CREDIT (CASH,COD,ACCT,CC,CREDIT,EXCH) - ' GET OPAYMENT
@ 17,0 SAY 'NAME OF CUSTOMER THIS EQUIPMENT BELONGS ..... - ' GET OPERSON
@ 18,0 SAY 'RMA/PO# - ' GET OPO
@ 18,45 SAY 'IS ORD A DEFECTIVE PART(Y/N)-' GET BAD PICTURE '!'
@ 19,0 SAY 'ORIGINAL INV# - ' GET INVNUM
IF AT(TRIM(DBBB),RUSERS) <> 0
 @ 19,45 SAY 'RECEIVED DATE - ' GET MORECDATE PICTURE '99/99/99'
ENDIF
@ 20,0 SAY 'SHIPMENT TYPE (UPS,1ST,2ND)  - ' GET OSHIP
@ 21,0 SAY 'ORDER TYPE (S-RESALE, R-RMA)  - ' GET OTYPE 
@ 21,45 SAY 'TECHNICIAN J/D/S - ' GET TECH
@ 22,0 SAY 'COMMENTS - ' GET COMMENTS
@ 23,0 SAY 'COMMENTS - ' GET COMMENTS1
@ 24,0 SAY 'Press ESC to EXIT'
READ
DO MEMTODB
SELECT 1
DO LOCKWAIT
REPLACE ORECDATE WITH MORECDATE
UNLOCK
STORE OPO TO MOPO
STORE MONAME TO MNAME
IF CL = 1
 PRESSED = LASTKEY()
 IF PRESSED = 27
  EXIT
 ENDIF
 IF PRESSED = 3 .AND. .NOT. EOF()
  SKIP 
  STORE 'F' TO DIRECTION 
  IF EOF() 
   SKIP -1
   IF SUBSTR(ODESC,1,5) <> '     '
    STORE 'Y' TO DNETAPPEND
    DO NETERROR
    REPLACE ODATE WITH DATE()
    UNLOCK ALL
   ENDIF
  ENDIF
  STORE RECNO() TO LLP
  STORE 'Y' TO BYPASS
  LOOP
 ENDIF
 IF PRESSED = 18 
  STORE 'B' TO DIRECTION 
  SKIP -1
  STORE RECNO() TO LLP
  STORE 'Y' TO BYPASS
  LOOP
 ENDIF
ENDIF
SET DELIMITER OFF
EXIT
ENDDO
STORE ' ' TO SEL
@ 22,0 CLEAR
@ 23,0 SAY 'DO YOU WISH TO PRINT A LABEL - ' GET SEL PICTURE '!'
READ
PRESSED = LASTKEY()
IF PRESSED = 27
 CLOSE DATA
 EXIT
ENDIF
STORE OVENDOR TO MOVENDOR
STORE '    ' TO XRN
IF SEL = 'Y'
 STORE 'Y' TO RMA
 STORE OVENDOR TO MNAME
* FIND THE RECORD LOOKUP NUMBER
 SELECT 88
 IF MNAME = XRA1
  STORE XRN1 TO XRN
 ENDIF
 IF MNAME = XRA2
  STORE XRN2 TO XRN
 ENDIF
 IF MNAME = XRA3
  STORE XRN3 TO XRN
 ENDIF
 IF MNAME = XRA4
  STORE XRN4 TO XRN
 ENDIF
 IF MNAME = XRA5
  STORE XRN5 TO XRN
 ENDIF
 IF MNAME = XRA6
  STORE XRN6 TO XRN
 ENDIF
 IF MNAME = XRA7
  STORE XRN7 TO XRN
 ENDIF
 IF MNAME = XRA8
  STORE XRN8 TO XRN
 ENDIF
 IF MNAME = XRA9
  STORE XRN9 TO XRN
 ENDIF
 IF MNAME = XRA10
  STORE XRN10 TO XRN
 ENDIF
 STORE 'Y' TO RECPRG
 DO PHONE
ENDIF
ENDDO