* Program..: PRTMENU.PRG
* Author...: S. BERNARDI
* Date.....: 06/30/1990
* Notice...: (c) 1989 BERNATH COMPUTER

*========================================================================
*   Registered users may incorporate this module into their applications.
*   Required files: DBTPRMNU.PRG, DBTPRDEF.PRG, DBTPRTST.PRG
*                   ESCCODES.DBF, ESCCODES.NDX, PRNDEF.DBF, PRNDEF.NDX
*                   PRNDEF.FRM
* and applicable procedures from DBTPROC.PRG
*========================================================================

SET ESCAPE OFF
SET CONFIRM ON
EXITNOW = .F.
gFG=0
gBG=3
gNUMOPT = 1
CALL DBTOOLS WITH "4,1,0"
DO WHILE .NOT. EXITNOW

   CALL DBTOOLS WITH "7,2,0,3,0"
   DO SCRHEAD WITH "Printer Control Menu"
   DO MENUMSG WITH 1,14,2
   mMENUSTR="20,"+STR(gNUMOPT,2)+",0,7,27,13,49,14,2,1,1,10,0,2,"
   mMENUSTR=mMENUSTR+"Printer Driver Info,Select New Printer,Edit Printer Codes,"
   mMENUSTR=mMENUSTR+"Test Printer,List Printer Codes,@"
   CALL DBTOOLS WITH mMENUSTR
   selectnum = VAL(mMENUSTR)

   DO CASE
      CASE selectnum = 0
         EXITNOW = .T.

      CASE selectnum = 1
         DO DBTPRINT
      CASE selectnum = 2
         DO SELPRT WITH .T.,gPRT
      CASE selectnum = 3
         DO DBTPRDEF
      CASE selectnum = 4
        DO DBTPRTST
      CASE selectnum = 5
        mKEY = gPRT
        DO SELPRT WITH .F.,mKEY
        IF EXITNOW
           EXIT
        ENDIF
        SELECT B
        USE PRNDEF INDEX PRNDEF
        SELECT A
        USE ESCCODES INDEX ESCCODES
        SET RELATION TO KEY INTO PRNDEF
        SET FILTER TO KEY=mKEY
        CALL DBTOOLS WITH "11,3"
        SET CONSOLE OFF
        REPORT FORM PRNDEF TO PRINT
        CALL DBTOOLS WITH "11,2"
        SET CONSOLE ON
   ENDCASE

ENDDO  (EXITNOW)
RELEASE ALL EXCEPT g*
EXITNOW = .F.
gNUMOPT = 5
RETURN