first commit

2026-07-14 00:41:31 -05:00
commit 7905c43278
248 changed files with 38068 additions and 0 deletions
@@ -0,0 +1,41 @@
+PROCEDURE CGWB0000(INITRUN)
+
+LOCAL NCHOICE, MARR := {}, SAVESCR
+
+SETCOLOR(LNOR)
+
+CLS
+@ 0,30 SAY ' Customer File Maintenance '
+@ 1,0 SAY DOUBLE
+
+
+AADD(MARR, 'UPDATE/BROWSE From Great Plains Customer File')
+AADD(MARR, 'IMPORT From Great Plains Customer File')
+AADD(MARR, 'UPDATE Great Plains Tables')
+
+DO WHILE .T.
+  SAVESCR = SAVESCREEN()
+  NCHOICE = PICKLIST(MARR, 10)
+  IF LASTKEY() = 27
+    CLOSE DATABASES
+    RETURN
+  ENDIF
+  IF NCHOICE = 1
+    CGWBBROW()
+  ELSE
+    IF NCHOICE = 2
+      CGWB1170()
+    ELSE
+      IF NCHOICE = 3
+        CGWB1300()
+      ELSE
+        IF NCHOICE = 3
+          CGWB1100()
+        ENDIF
+      ENDIF
+    ENDIF
+  ENDIF
+  RESTSCREEN(,,,,SAVESCR)
+ENDDO
+
+