first commit

2026-07-14 00:41:31 -05:00
commit 7905c43278
248 changed files with 38068 additions and 0 deletions
@@ -0,0 +1,214 @@
+* UPGRADE - build the user manual for now!
+*
+*
+PROCEDURE UPGRADE(CURVER)
+CLEAR
+@ 10,10 SAY '*** Upgrading Data Files - One Moment Please ***'
+*
+SELECT CONTROL
+OLDVERSION = VERSION
+FROMFILE = 'OLD0KA.DBF'
+IF FILE(FROMFILE)
+  DBOPEN('CONTROL',.T.)
+  FIL_LOCK(5)
+  APPEND FROM &FROMFILE
+  GOTO BOTTOM
+  REPLACE VERSION WITH CURVER
+  REPLACE INSTALLED WITH .F.
+  UNLOCK
+ELSE
+  FIL_LOCK(5)
+  REPLACE VERSION WITH CURVER
+  REPLACE INSTALLED WITH .F.
+  UNLOCK
+  *
+* NET_USE ('GRA0UM',.T.,5, 'USERMAN')
+* FROMFILE = 'USER.MAN'
+* SELECT USERMAN
+* ZAP
+* APPEND FROM &FROMFILE SDF
+* USE
+  *
+  RETURN
+ENDIF
+*
+* WORKSTAT = M_DATA + ':' + SYSCODE + '0WS'
+DBOPEN('WORKSTAT',.T.)
+FROMFILE = 'OLD0WS.DBF'
+IF FILE(FROMFILE)
+  APPEND FROM &FROMFILE
+  USE
+ENDIF
+
+* PASSWORD = M_DATA + ':' + SYSCODE + '0PA'
+DBOPEN('PASSWORD',.T.)
+FROMFILE = 'OLD0PA.DBF'
+IF FILE(FROMFILE)
+  SELECT PASSWORD
+  ZAP
+  APPEND FROM &FROMFILE
+ENDIF
+USE
+*
+*
+*THIS IS COMMENTED OUT BECAUSE I DO NOT KNOW WHAT THE USER.MAN FILE IS?
+*
+*
+DBOPEN('DATADICT')
+GOTO TOP
+DO WHILE !EOF()
+
+  IF ALIAS = 'DATADICT' .OR. ALIAS = 'CONTROL' ;
+   .OR. ALIAS = 'WORKSTAT' .OR. ALIAS = 'PASSWORD' ;
+   .OR. ALIAS = 'IMPCUST' .OR. ALIAS = 'STDCUST'
+    SKIP 1
+    LOOP
+  ENDIF
+
+  @ 12,10 SAY '*** Current file is ' + ALIAS
+
+  NET_USE (FILE_NAME,.T.,5, 'CURFILE')
+  SELECT CURFILE
+  ZAP
+* IF __DBDRIVER = 'CDX'
+*   ORDLISTCLEAR()
+* ENDIF
+  FROMFILE = 'OLD' + SUBS( DATADICT->FILE_NAME,4)
+
+  IF OLDVERSION < '3.40' .AND. __DBDRIVER = 'CDX'
+    SELECT 0
+    USE (FROMFILE) EXCLUSIVE ALIAS 'FROMFILE' VIA 'DBFNTX'
+  ELSE
+    NET_USE( FROMFILE, .T., 5, 'FROMFILE' )
+  ENDIF
+
+  SELECT FROMFILE
+  GOTO TOP
+  DO WHILE !EOF()
+    ADD_ONEREC('FROMFILE', 'CURFILE', .F., .T.)    // NO AUDITPROC / ASSUME EXACT SAME STRUCTURE
+    SELECT FROMFILE
+    SKIP 1
+  ENDDO
+**  APPEND FROM &FROMFILE
+  CLOSE FROMFILE
+  CLOSE CURFILE
+
+  SELECT DATADICT
+  SKIP 1
+ENDDO
+
+
+
+/*
+NET_USE ('FSB0UM',.T.,5)
+FROMFILE = 'USER.MAN'
+SELECT FSB0UM
+ZAP
+APPEND FROM &FROMFILE SDF
+USE
+*/
+*
+**  THE REST IF FOR EXAMPLE SAKE ONLY!
+*
+* NET_USE ('FSB0LA',.T.,5)
+* FROMFILE = 'OLD0LA'
+* APPEND FROM &FROMFILE
+* NULLDATE = CTOD('  /  /  ')
+* GOTO TOP
+* DO WHILE .NOT. EOF()
+*   IF ACC_METH = ' '
+*     REPLACE ACC_METH WITH '1'
+*   ENDIF
+*   IF ORIG_INDEX = ' '
+*     REPLACE ORIG_PM WITH ORIG_RATE
+*     REPLACE ORIG_INDEX WITH 'F'
+*   ENDIF
+*   IF REPAY_NDX = ' '
+*     REPLACE REPAY_PM WITH REPAY_RATE
+*     REPLACE REPAY_NDX WITH 'F'
+*   ENDIF
+*   IF CO_DATE = NULLDATE
+*     REPLACE CO_DATE WITH BB_DATE
+*   ENDIF
+*   IF REPAY_METH = ' '
+*     REPLACE REPAY_METH WITH '1'
+*   ENDIF
+*   SKIP 1
+* ENDDO
+* USE
+* *
+*
+*
+* NET_USE ('FSB0MA',.T.,5)
+* FROMFILE = 'OLD0MA'
+* APPEND FROM &FROMFILE
+* REPLACE ALL CO_DATE WITH BB_DATE FOR CO_DATE = CTOD('  /  /  ')
+* USE
+* *
+*
+* NET_USE ('FSB0RA',.T.,5)
+* FROMFILE = 'OLD0RA'
+* APPEND FROM &FROMFILE
+* REPLACE ALL REPAY_METH WITH '1' FOR REPAY_METH = ' '
+*
+* USE
+* *
+*
+* NET_USE ('FSB0CA',.T.,5)
+* FROMFILE = 'OLD0CA'
+* APPEND FROM &FROMFILE
+* USE
+* *
+* NET_USE ('FSB0LT',.T.,5)
+* FROMFILE = 'OLD0LT.DBF'
+* IF FILE(FROMFILE)
+*   SELECT FSB0LT
+*   ZAP
+*   APPEND FROM &FROMFILE
+* ENDIF
+* REPLACE ALL TYPE_ACC WITH '1' FOR TYPE_ACC = ' '
+* LOCATE FOR TYPE_CODE = 'O  '
+* REPLACE TYPE_ACC WITH '3'
+* USE
+* *
+*
+* NET_USE ('FSB0OI',.T.,5)
+* FROMFILE = 'OLD0OI.DBF'
+* IF FILE(FROMFILE)
+*   SELECT FSB0OI
+*   ZAP
+*   APPEND FROM &FROMFILE
+* ENDIF
+* USE
+* *
+* NET_USE ('FSB0TA',.T.,5)
+* FROMFILE = 'OLD0TA'
+* APPEND FROM &FROMFILE
+* IF OLDVERSION < '4.10'
+*   REPLACE ALL TRANS_DESC WITH 'PAYMENT' FOR TRANS_TYPE = 'P';
+*             .AND. TRANS_DESC = SPACE(30)
+*   REPLACE ALL TRANS_DESC WITH 'ADJUSTMENT' FOR TRANS_TYPE = 'D';
+*             .AND. TRANS_DESC = SPACE(30)
+* ENDIF
+* REPLACE ALL TRANS_TYPE WITH 'Y' FOR TRANS_TYPE = 'D'
+* USE
+* *
+* COPY FILE OLD0CN.DBF TO FSB0CN.DBF
+* COPY FILE OLD0LN.DBF TO FSB0LN.DBF
+* COPY FILE OLD0TN.DBF TO FSB0TN.DBF
+
+*
+* NET_USE ('FSB0RI',.T.,5)
+* FROMFILE = 'OLD0RI.DBF'
+* SELECT FSB0RI
+* IF FILE(FROMFILE)
+*   ZAP
+*   APPEND FROM &FROMFILE
+* ENDIF
+* USE
+  *
+*
+*
+RETURN
+
+