Jason Soltys
41 lines
685 B
Plaintext
41 lines
685 B
Plaintext
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
|
|
|
|
|