PROCEDURE CGWB0000(INITRUN)

LOCAL NCHOICE, MARR := {}, SAVESCR

SETCOLOR(LNOR)

CLS
@ 0,30 SAY ' Customer File Maintenance '
@ 1,0 SAY DOUBLE


AADD(MARR, 'UPDATE/BROWSE From Great Plains Customer File')
AADD(MARR, 'IMPORT From Great Plains Customer File')
AADD(MARR, 'UPDATE Great Plains Tables')

DO WHILE .T.
  SAVESCR = SAVESCREEN()
  NCHOICE = PICKLIST(MARR, 10)
  IF LASTKEY() = 27
    CLOSE DATABASES
    RETURN
  ENDIF
  IF NCHOICE = 1
    CGWBBROW()
  ELSE
    IF NCHOICE = 2
      CGWB1170()
    ELSE
      IF NCHOICE = 3
        CGWB1300()
      ELSE
        IF NCHOICE = 3
          CGWB1100()
        ENDIF
      ENDIF
    ENDIF
  ENDIF
  RESTSCREEN(,,,,SAVESCR)
ENDDO