PROCEDURE CGWB1220()
******************************************************
** MIKE LEWIS   - UPDATE MENU 09-28-94 - CGWB1200
******************************************************

LOCAL NCHOICE, MARR := {}, SAVESCR, XARR := {}



SETCOLOR(LNOR)

CLS
@ 0,30 SAY ' Great Plains File Maintenance '
@ 1,0 SAY DOUBLE

AADD(XARR, 'UPDATE Customer File')
AADD(XARR, 'UPDATE Salesmen File')
AADD(XARR, 'UPDATE Shipping Terms File')
AADD(XARR, 'UPDATE Tax Schedule File')
AADD(XARR, 'UPDATE Tax Detail File')

DO WHILE .T.
  SAVESCR = SAVESCREEN()
  NCHOICE = PICKLIST(XARR, 10)
  IF LASTKEY() = 27
    CLOSE DATABASES
    RETURN
  ENDIF
  IF NCHOICE = 1
    CGWB1300('CUST_MAST', 'CUSMAS', {'CUSNO'})
  ELSE
    IF NCHOICE = 2
      CGWB1300('SALESMEN', 'SLSMAS', {'SLSMAN'}, .T.)
    ELSE
      IF NCHOICE = 3
        CGWB1300('AR_INFO', 'ARARAM', {'CAGE1'}, .T.)
      ELSE
        IF NCHOICE = 4
          CGWB1300('TAX_SCHED', 'STXSCH', {'STAXSCH'}, .T.)


          // SETUP THE SHIP VIA FILE
          MARR := {}
          AADD(MARR, {'10', 'SHIP0'})
          AADD(MARR, {'20', 'SHIP1'})
          AADD(MARR, {'30', 'SHIP2'})
          AADD(MARR, {'40', 'SHIP3'})
          AADD(MARR, {'50', 'SHIP4'})
          AADD(MARR, {'60', 'SHIP5'})
          AADD(MARR, {'70', 'SHIP6'})
          AADD(MARR, {'80', 'SHIP7'})
          AADD(MARR, {'90', 'SHIP8'})
          AADD(MARR, {' 0', 'SHIP9'})

          DO_UPDATE('SHIPMETH', MARR)
        ELSE
          IF NCHOICE = 5
            CGWB1300('TAX_DETAIL', 'STXDET', {'SSTAXDET', 'SSTAXSEQ'}, .T.)

            // SETUP THE TERMS FILE
            MARR := {}
            AADD(MARR, {'10', 'TRMDSC1'})
            AADD(MARR, {'20', 'TRMDSC2'})
            AADD(MARR, {'30', 'TRMDSC3'})
            AADD(MARR, {'40', 'TRMDSC4'})
            AADD(MARR, {'50', 'TRMDSC5'})
            AADD(MARR, {'60', 'TRMDSC6'})
            DO_UPDATE('TERMS', MARR)
          ENDIF
        ENDIF
      ENDIF
    ENDIF
  ENDIF
  RESTSCREEN(,,,,SAVESCR)
ENDDO

*******************************************************
FUNCTION DO_UPDATE(MFILE, MARR)
//
DBOPEN('AR_INFO')
DBOPEN(MFILE)

FOR L2 = 1 TO LEN(MARR)
  SEEK MARR[L2,1]
  IF !FOUND()
    ADD_REC(1)
  ELSE
    REC_LOCK(1)
  ENDIF

  REPLACE CODE WITH MARR[L2,1]
  MFLD = MARR[L2,2]
  REPLACE DESC WITH AR_INFO->&MFLD
  UNLOCK

  SKIP 1
NEXT

CLOSE DATABASES
RETURN