home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / DATABASE / DBT123S.ZIP / ACCTMENU.PRG < prev    next >
Text File  |  1990-06-15  |  777b  |  33 lines
  1. * Program : ACCTMENU.PRG
  2. *         : (c) 1989 BERNATH COMPUTER
  3. *         : 12:49:35  06/12/1990
  4.  
  5. EXITNOW = .F.
  6. gFG=0
  7. gBG=3
  8. gNUMOPT = 1
  9.  
  10. DO WHILE .NOT. EXITNOW
  11.    DO SCRHEAD WITH "SAMPLE DATA ENTRY","Accounts Menu",13,7
  12.    DO MENUMSG WITH 1,0,2
  13.    mMENUSTR="20,"+STR(gNUMOPT,2)+",0,7,20,11,58,15,2,1,1,10,0,2,"
  14.    mMENUSTR=mMENUSTR+"Add Change Delete Accounts,List Chart of Accounts,Setup Account Balances,@"
  15.    CALL DBTOOLS WITH mMENUSTR
  16.    gNUMOPT = VAL(mMENUSTR)
  17.    DO CASE gNUMOPT
  18.       CASE gNUMOPT = 1
  19.          DO ACCTDE
  20.       CASE gNUMOPT = 2
  21.          DO CHARACCT
  22.       CASE gNUMOPT = 3
  23.          DO SETACCT
  24.       CASE gNUMOPT = 0
  25.          EXITNOW = .T.
  26.          EXIT
  27.    ENDCASE
  28. ENDDO
  29. RELEASE ALL EXCEPT g*
  30. EXITNOW = .F.
  31. gNUMOPT = 1
  32. RETURN
  33.