first commit

2026-07-14 00:41:31 -05:00
commit 7905c43278
248 changed files with 38068 additions and 0 deletions
@@ -0,0 +1,156 @@
+#INCLUDE 'RQB.CH'
+#include "RASQLB.CH"
+#INCLUDE 'INKEY.CH'
+
+// CONSTANTS
+#define T_CM_CUSNO 1 // 1ST Index order for CUSMAS.DAT (customer #)
+#define T_CM_NAME  2 // 2nd Index order for CUSMAS.DAT (customer name)
+#define A_CUSNO  2   // 2nd Element in CUSMAS Field Array (customer #)
+#define A_NAME   4   // 4TH Element in CUSMAS Field Array (customer name)
+
+
+EXTERNAL N_XVIA
+
+// BTRIEVE
+
+///////////////////////////
+FUNCTION BROWSE_TABLE(MFILE, MFIELD_ARR, MHEADER)
+// BROWSE THE MFILE
+
+LOCAL NTOP, NLEFT, NBOTT, NRIGHT
+LOCAL MPROC, MPIC, SAVESEL := N_XSELECT()
+
+N_XSELECT(MFILE)  // SELECT THE BROWSE FILE WORK AREA
+
+NTOP = 3
+NBOTT = 20
+NLEFT = 1
+NRIGHT = 79
+
+//PARAMETER p_row1,p_col1,p_row2,p_col2,MFIELD_ARR,p_proc,p_pic,MHEADER
+QBROWSE(NTOP, NLEFT, NBOTT, NRIGHT, MFIELD_ARR, MPROC, MPIC, MHEADER)
+
+N_XSELECT(SAVESEL)  // RESTORE SAVED WORK AREA
+RETURN
+
+
+
+
+* * * * * * * * * * * * * * * * * *
+FUNCTION CGWBBROW(MFILE)
+// BROWSE THE GREAT PLAINS FILE THRU BTRIEVE
+
+LOCAL MPATH, MTABLE, MHEADER, MFIELD_ARR:= {}, MHEAD_ARR := {}
+LOCAL MLEN
+
+N_XLOGIN()
+N_XERRLVL(3)
+
+NET_USE('&CONTROL', .F., 5, 'CONTROL')   && CUSTOMER CHANGE FLAG
+MPATH = ALLTRIM(CONTROL->BTR_PATH)
+MTABLE = MPATH + MFILE + '.DAT'
+USE
+
+
+MSTRUCT := {}
+MFLD_NAMES := {}
+SELECT 0
+NET_USE('CGWBTREV', .F., 5, 'DEFINITIONS')   && CUSTOMER CHANGE FLAG
+DO WHILE !EOF()
+  IF TRIM(SYSNAME) == MFILE
+    AADD(MSTRUCT, FNAME + TYPE + LENGTH + DECIMAL_PT + NUM_DECS + FILLER + SEMI_COLON)
+    IF FNAME <> 'FILL' .AND. AT('ARCM', FNAME) = 0
+      AADD(MFLD_NAMES, FNAME)
+      MLEN = MAX( VAL(LENGTH), LEN(ALLTRIM(FNAME)) )
+      AADD(MHEAD_ARR, SUBS(FNAME,1,MLEN) )
+    ENDIF
+  ENDIF
+  SKIP 1
+ENDDO
+USE
+
+
+SET DEFAULT FILETYPE TO '.DAT'
+SET RDD TO 'RQBRDD'
+NEW_STRUCT := RQBSTRUCT(MFILE)
+
+N_XSELECT(0)  // SELECT NEXT EMPTY BTRIEVE WORK AREA
+N_XUSE(MTABLE, MSTRUCT)
+N_XORDER(1)  // SET TO CORRECT INDEX ORDER
+
+
+
+N_XSRECSIZ()
+N_XRECSIZ()
+SET DEFAULT FILETYPE TO
+SET RDD TO
+
+
+CLS
+MHEADER := {}
+MFIELD_ARR := {}
+
+AADD(MFIELD_ARR, 'CUSNO')
+AADD(MHEADER, 'GP CUST#')
+
+AADD(MFIELD_ARR, 'BANK')
+AADD(MHEADER, 'CGW CUST#')
+
+AADD(MFIELD_ARR, 'NAME')
+AADD(MHEADER, 'CUST NAME')
+
+AADD(MFIELD_ARR, 'ADD1')
+AADD(MHEADER, 'ADDRESS')
+
+AADD(MFIELD_ARR, 'CITY')
+AADD(MHEADER, 'CITY')
+
+AADD(MFIELD_ARR, 'STATE')
+AADD(MHEADER, 'STATE')
+
+AADD(MFIELD_ARR, 'ZIP')
+AADD(MHEADER, 'ZIP')
+
+AADD(MFIELD_ARR, 'PHONE')
+AADD(MHEADER, 'PHONE')
+
+AADD(MFIELD_ARR, 'FAX')
+AADD(MHEADER, 'FAX')
+
+AADD(MFIELD_ARR, 'TAXSCH')
+AADD(MHEADER, 'TAX SCH.')
+
+AADD(MFIELD_ARR, 'SHIPNAME')
+AADD(MHEADER, 'SHIPPING NAME')
+
+AADD(MFIELD_ARR, 'SHIPADD1')
+AADD(MHEADER, 'SHIPPING ADDR1')
+
+AADD(MFIELD_ARR, 'SHIPADD2')
+AADD(MHEADER, 'SHIPPING ADDR2')
+
+AADD(MFIELD_ARR, 'SHIPCITY')
+AADD(MHEADER, 'SHIPPING CITY')
+
+AADD(MFIELD_ARR, 'SHIPST')
+AADD(MHEADER, 'SHIPPING STATE')
+
+AADD(MFIELD_ARR, 'SHIPZIP')
+AADD(MHEADER, 'SHIPPING ZIP')
+
+AADD(MFIELD_ARR, 'SHP_METHOD')
+AADD(MHEADER, 'SHP_METHOD')
+
+AADD(MFIELD_ARR, 'TERMS')
+AADD(MHEADER, 'TERMS')
+
+AADD(MFIELD_ARR, 'SLSMAN')
+AADD(MHEADER, 'SALESMAN')
+
+AADD(MFIELD_ARR, 'CLIMIT')
+AADD(MHEADER, 'CREDIT LIMIT')
+
+BROWSE_TABLE(MTABLE, MFLD_NAMES, MHEAD_ARR)
+N_XCLOSE(.T.)  // CLOSE ALL BTRIVE FILES!
+RETURN
+