first commit

2026-07-14 00:41:31 -05:00
commit 7905c43278
248 changed files with 38068 additions and 0 deletions
@@ -0,0 +1,103 @@
+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
+
+
+