CGW/CGWUGRAD.PRG

* 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