Jason Soltys
103 lines
2.3 KiB
Plaintext
103 lines
2.3 KiB
Plaintext
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
|
|
|
|
|
|
|