first commit

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