* Program : CHARACT.PRG - Chart of Accounts
*         : (c) 1989 BERNATH COMPUTER
*         : 12:59:54  2/27/1989

EXITNOW = .F.
mRPTDATE = DATE()
mPGNUM = 0
gWIDE = .F.
mOUTPUT = " "
mTITLE = "Chart of Accounts"
mHEAD1 = "  Account Number           Name                           Level G/D Type"
mHEAD2 = "  ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ  ÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄÄ ÄÄÄÄÄ ÄÄÄ ÄÄÄÄ"

USE ACCOUNTS INDEX ACCOUNTS
SET COLOR TO +W/G,+G/N,,G

DO WHILE .NOT. EXITNOW
    DO SCRHEAD WITH "SAMPLE DATA ENTRY PROGRAM",mTITLE,0,1
    CALL DBTOOLS WITH "3,7,25,16,65,10,2,3,0,1"
    CALL DBTOOLS WITH "1,8,28,15,2,0,Lowest Account to process:"
    CALL DBTOOLS WITH "1,9,27,15,2,0,Highest Account to process:"
    CALL DBTOOLS WITH "1,11,28,15,2,0,Include General Accounts (Y/N)?"
    CALL DBTOOLS WITH "1,12,28,15,2,0,Report Date:"
    CALL DBTOOLS WITH "1,12,41,10,0,0,"+DTOC(mRPTDATE)
    CALL DBTOOLS WITH "1,13,28,15,2,0,Output to S)creen  P)rinter:"
    CALL DBTOOLS WITH "1,13,38,10,0,0,S"
    CALL DBTOOLS WITH "1,13,47,10,0,0,P"
    mLOACCT = "0    "
    mHIACCT = "99999"
    @ 8,55 GET mLOACCT PICTURE "99999"
    @ 9,55 GET mHIACCT PICTURE "99999"
    READ
    DO KEYTRAP
    IF EXITNOW
       EXIT
    ENDIF
    mPR_GEN = "Y"
    @ 11,60 SAY mPR_GEN
    DO YESNO WITH mPR_GEN
    @ 12,41 GET mRPTDATE PICTURE "@D"
    READ
    DO KEYTRAP
    IF EXITNOW
       EXIT
    ENDIF
    mOUTPUT = "P"
    @ 13,60 SAY mOUTPUT
    DO GETKEY WITH mOUTPUT, "SP"
    CALL DBTOOLS WITH "15,30,10,2"
    mLINES = 99
    DO CASE mOUTPUT
       CASE mOUTPUT = "S"
          mPGLEN = 20
          CLEAR
       CASE mOUTPUT = "P"
          mPGLEN = 56
          SET PRINTER ON
          SET CONSOLE OFF
    ENDCASE
    GO TOP
    SET COLOR TO N/G
    SET FILTER TO ACCTNUM >= mLOACCT .AND. ACCTNUM <= mHIACCT
    DO WHILE .NOT. EOF()
       IF mLINES > mPGLEN
          DO PAGEHEAD WITH mTITLE,mRPTDATE,mPGNUM,mOUTPUT
          ? mHEAD1
          ? mHEAD2
          mLINES = 7
       ENDIF
       IF EXITNOW
          EXIT
       ENDIF
       IF (mPR_GEN = "N" .AND. GEN_DET = "D") .OR. mPR_GEN = "Y"
          IF LEVEL = 1
             ?
             mLINES = mLINES + 1
             IF  mOUTPUT = "S"
                   SET COLOR TO +W/G
             ENDIF
          ENDIF

          mSTUFF = SPACE(2+(LEVEL-1)*4)+ACCTNUM
          mL = LEN(TRIM(mSTUFF))
          mSTUFF = TRIM(mSTUFF)+SPACE(28-mL)+ACCTNAME+"        "+STR(LEVEL,1)+"    "+GEN_DET+"   "+ACCT_TYPE
          ? mSTUFF
          mLINES = mLINES + 1
          IF mOUTPUT = "S"
                SET COLOR TO N/G
          ENDIF

       SKIP
    ENDDO
    IF EXITNOW
       EXIT
    ENDIF
    DO CASE mOUTPUT
       CASE mOUTPUT = "S"
          CALL DBTOOLS WITH "10,24,25,14,10"
       CASE mOUTPUT = "P"
         EJECT
         SET PRINTER OFF
         SET CONSOLE ON
    ENDCASE
ENDDO

SET FILTER TO
CLOSE DATABASES
EXITNOW = .F.
RELEASE ALL EXCEPT g*
gNUMOPT = 2
RETURN