home *** CD-ROM | disk | FTP | other *** search
/ World of Shareware - Software Farm 2 / wosw_2.zip / wosw_2 / DATABASE / DBT123S.ZIP / DBTPRMNU.PRG < prev    next >
Text File  |  1990-07-03  |  2KB  |  69 lines
  1. * Program..: PRTMENU.PRG
  2. * Author...: S. BERNARDI
  3. * Date.....: 06/30/1990
  4. * Notice...: (c) 1989 BERNATH COMPUTER
  5.  
  6. *========================================================================
  7. *   Registered users may incorporate this module into their applications.
  8. *   Required files: DBTPRMNU.PRG, DBTPRDEF.PRG, DBTPRTST.PRG
  9. *                   ESCCODES.DBF, ESCCODES.NDX, PRNDEF.DBF, PRNDEF.NDX
  10. *                   PRNDEF.FRM
  11. * and applicable procedures from DBTPROC.PRG
  12. *========================================================================
  13.  
  14. SET ESCAPE OFF
  15. SET CONFIRM ON
  16. EXITNOW = .F.
  17. gFG=0
  18. gBG=3
  19. gNUMOPT = 1
  20. CALL DBTOOLS WITH "4,1,0"
  21. DO WHILE .NOT. EXITNOW
  22.  
  23.    CALL DBTOOLS WITH "7,2,0,3,0"
  24.    DO SCRHEAD WITH "Printer Control Menu"
  25.    DO MENUMSG WITH 1,14,2
  26.    mMENUSTR="20,"+STR(gNUMOPT,2)+",0,7,27,13,49,14,2,1,1,10,0,2,"
  27.    mMENUSTR=mMENUSTR+"Printer Driver Info,Select New Printer,Edit Printer Codes,"
  28.    mMENUSTR=mMENUSTR+"Test Printer,List Printer Codes,@"
  29.    CALL DBTOOLS WITH mMENUSTR
  30.    selectnum = VAL(mMENUSTR)
  31.  
  32.    DO CASE
  33.       CASE selectnum = 0
  34.          EXITNOW = .T.
  35.  
  36.       CASE selectnum = 1
  37.          DO DBTPRINT
  38.       CASE selectnum = 2
  39.          DO SELPRT WITH .T.,gPRT
  40.       CASE selectnum = 3
  41.          DO DBTPRDEF
  42.       CASE selectnum = 4
  43.         DO DBTPRTST
  44.       CASE selectnum = 5
  45.         mKEY = gPRT
  46.         DO SELPRT WITH .F.,mKEY
  47.         IF EXITNOW
  48.            EXIT
  49.         ENDIF
  50.         SELECT B
  51.         USE PRNDEF INDEX PRNDEF
  52.         SELECT A
  53.         USE ESCCODES INDEX ESCCODES
  54.         SET RELATION TO KEY INTO PRNDEF
  55.         SET FILTER TO KEY=mKEY
  56.         CALL DBTOOLS WITH "11,3"
  57.         SET CONSOLE OFF
  58.         REPORT FORM PRNDEF TO PRINT
  59.         CALL DBTOOLS WITH "11,2"
  60.         SET CONSOLE ON
  61.    ENDCASE
  62.  
  63. ENDDO  (EXITNOW)
  64. RELEASE ALL EXCEPT g*
  65. EXITNOW = .F.
  66. gNUMOPT = 5
  67. RETURN
  68.  
  69.