Jason Soltys
51 lines
1005 B
Plaintext
51 lines
1005 B
Plaintext
PROCEDURE CGWB1210()
|
|
******************************************************
|
|
** MIKE LEWIS - BROWSE 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, 'BROWSE Customer File')
|
|
AADD(XARR, 'BROWSE Salesmen File')
|
|
AADD(XARR, 'BROWSE Shipping Terms File')
|
|
AADD(XARR, 'BROWSE Tax Schedule File')
|
|
AADD(XARR, 'BROWSE Tax Detail File')
|
|
|
|
DO WHILE .T.
|
|
SAVESCR = SAVESCREEN()
|
|
NCHOICE = PICKLIST(XARR, 10)
|
|
IF LASTKEY() = 27
|
|
CLOSE DATABASES
|
|
RETURN
|
|
ENDIF
|
|
IF NCHOICE = 1
|
|
CGWBBROW('CUSMAS')
|
|
ELSE
|
|
IF NCHOICE = 2
|
|
CGWBBROW('SLSMAS')
|
|
ELSE
|
|
IF NCHOICE = 3
|
|
CGWBBROW('ARARAM')
|
|
ELSE
|
|
IF NCHOICE = 4
|
|
CGWBBROW('STXSCH')
|
|
ELSE
|
|
IF NCHOICE = 5
|
|
CGWBBROW('STXDET')
|
|
ENDIF
|
|
ENDIF
|
|
ENDIF
|
|
ENDIF
|
|
ENDIF
|
|
RESTSCREEN(,,,,SAVESCR)
|
|
ENDDO
|
|
|
|
|