first commit

2026-07-14 00:41:31 -05:00
commit 7905c43278
248 changed files with 38068 additions and 0 deletions
@@ -0,0 +1,62 @@
+*MIKE LEWIS
+PROCEDURE CGWB1310
+
+LOCAL MARR := {}, ARR1 := {}, ARR2 := {}, L, L2, MFLD
+
+// UPDATE ALL OF THE FOLLING TABLES
+CGWB1300('AR_INFO', 'ARARAM', {'CAGE1'}, .T.)
+CGWB1300('SALESMEN', 'SLSMAS', {'SLSMAN'}, .F.)
+CGWB1300('TAX_DETAIL', 'STXDET', {'SSTAXDET', 'SSTAXSEQ'}, .F.)
+CGWB1300('TAX_SCHED', 'STXSCH', {'STAXSCH'}, .F.)
+
+// SETUP THE SHIP VIA AND TERMS FILES
+AADD(ARR1, {'10', 'SHIP0'})
+AADD(ARR1, {'20', 'SHIP1'})
+AADD(ARR1, {'30', 'SHIP2'})
+AADD(ARR1, {'40', 'SHIP3'})
+AADD(ARR1, {'50', 'SHIP4'})
+AADD(ARR1, {'60', 'SHIP5'})
+AADD(ARR1, {'70', 'SHIP6'})
+AADD(ARR1, {'80', 'SHIP7'})
+AADD(ARR1, {'90', 'SHIP8'})
+AADD(ARR1, {' 0', 'SHIP9'})
+
+AADD(ARR2, {'10', 'TRMDSC1'})
+AADD(ARR2, {'20', 'TRMDSC2'})
+AADD(ARR2, {'30', 'TRMDSC3'})
+AADD(ARR2, {'40', 'TRMDSC4'})
+AADD(ARR2, {'50', 'TRMDSC5'})
+AADD(ARR2, {'60', 'TRMDSC6'})
+
+DBOPEN('AR_INFO')
+
+FOR L = 1 TO 2
+  IF L = 1
+    MARR = ACLONE(ARR1)
+    DBOPEN('SHIPMETH')
+  ELSE
+    MARR = ACLONE(ARR2)
+    DBOPEN('TERMS')
+  ENDIF
+  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
+NEXT
+
+CLOSE DATABASES
+RETURN
+
+
+