home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a108 / 15.ddi / PRTOPTS.PR_ / PRTOPTS.bin
Encoding:
Text File  |  1994-03-10  |  32.0 KB  |  990 lines
  1. *       ╓─────────────────────────────────────────────────────────╖
  2. *       ║                                                         ║
  3. *       ║ 02/09/94             PRTOPTS.SPR               22:22:42 ║
  4. *       ║                                                         ║
  5. *       ╟─────────────────────────────────────────────────────────╢
  6. *       ║                                                         ║
  7. *       ║ Author's Name                                           ║
  8. *       ║                                                         ║
  9. *       ║ Copyright (c) 1994 Company Name                         ║
  10. *       ║ Address                                                 ║
  11. *       ║ City,     Zip                                           ║
  12. *       ║                                                         ║
  13. *       ║ Description:                                            ║
  14. *       ║ This program was automatically generated by GENSCRN.    ║
  15. *       ║                                                         ║
  16. *       ╙─────────────────────────────────────────────────────────╜
  17.  
  18. DO CASE
  19. CASE _DOS OR _UNIX      && no UNIX records in screen
  20.  
  21.     
  22.     #REGION 0
  23.     REGIONAL m.currarea, m.talkstat, m.compstat
  24.     
  25.     IF SET("TALK") = "ON"
  26.         SET TALK OFF
  27.         m.talkstat = "ON"
  28.     ELSE
  29.         m.talkstat = "OFF"
  30.     ENDIF
  31.     m.compstat = SET("COMPATIBLE")
  32.     SET COMPATIBLE FOXPLUS
  33.     
  34.     *       ╓─────────────────────────────────────────────────────────╖
  35.     *       ║                                                         ║
  36.     *       ║                MS-DOS Window definitions                ║
  37.     *       ║                                                         ║
  38.     *       ╙─────────────────────────────────────────────────────────╜
  39.     *
  40.     
  41.     IF NOT WEXIST("_qne1byq4d")
  42.         DEFINE WINDOW _qne1byq4d ;
  43.             FROM INT((SROW()-15)/2),INT((SCOL()-44)/2) ;
  44.             TO INT((SROW()-15)/2)+14,INT((SCOL()-44)/2)+43 ;
  45.             TITLE "Print Options" ;
  46.             FLOAT ;
  47.             NOCLOSE ;
  48.             SHADOW ;
  49.             NOMINIMIZE ;
  50.             DOUBLE ;
  51.             COLOR SCHEME 5
  52.     ENDIF
  53.     
  54.     
  55.     *       ╓─────────────────────────────────────────────────────────╖
  56.     *       ║                                                         ║
  57.     *       ║          PRTOPTS/MS-DOS Setup Code - SECTION 2          ║
  58.     *       ║                                                         ║
  59.     *       ╙─────────────────────────────────────────────────────────╜
  60.     *
  61.     
  62.     #REGION 1
  63.     
  64.     skipvar = .T.
  65.     stemname = makealias(juststem(dbfname))
  66.     SELECT (stemname)
  67.     createrb = 0
  68.     reptrb   = 3
  69.     layoutrb = 0
  70.     pdrivr   = 0
  71.     lastpd   = 1
  72.     
  73.     
  74.     *       ╓─────────────────────────────────────────────────────────╖
  75.     *       ║                                                         ║
  76.     *       ║              PRTOPTS/MS-DOS Screen Layout               ║
  77.     *       ║                                                         ║
  78.     *       ╙─────────────────────────────────────────────────────────╜
  79.     *
  80.     
  81.     #REGION 1
  82.     IF WVISIBLE("_qne1byq4d")
  83.         ACTIVATE WINDOW _qne1byq4d SAME
  84.     ELSE
  85.         ACTIVATE WINDOW _qne1byq4d NOSHOW
  86.     ENDIF
  87.     @ 7,8 GET pdrivrb ;
  88.         PICTURE "@*RVN Use current printer driver;Use report printer driver;Use no printer driver" ;
  89.         SIZE 1,30,0 ;
  90.         DEFAULT 1
  91.     @ 4,4 GET m.reptrb ;
  92.         PICTURE "@*RVN \<Modify report;Printer \<setup;\<Print report" ;
  93.         SIZE 1,17,0 ;
  94.         DEFAULT 1 ;
  95.         VALID _qne1byqky()
  96.     @ 1,4 GET createrb ;
  97.         PICTURE "@*RVN C\<reate report" ;
  98.         SIZE 1,17,0 ;
  99.         DEFAULT 1 ;
  100.         VALID _qne1byqte()
  101.     @ 2,8 GET layoutrb ;
  102.         PICTURE "@*RVN Form layout;Columnar layout" ;
  103.         SIZE 1,19,0 ;
  104.         DEFAULT 1 ;
  105.         DISABLE
  106.     @ 11,8 GET okcancl ;
  107.         PICTURE "@*HN \!OK;\?Cancel" ;
  108.         SIZE 1,11,4 ;
  109.         DEFAULT 1 ;
  110.         VALID _qne1byqz5()
  111.     
  112.     IF NOT WVISIBLE("_qne1byq4d")
  113.         ACTIVATE WINDOW _qne1byq4d
  114.     ENDIF
  115.     
  116.     
  117.     *       ╓─────────────────────────────────────────────────────────╖
  118.     *       ║                                                         ║
  119.     *       ║     MS-DOSREAD contains clauses from SCREEN prtopts     ║
  120.     *       ║                                                         ║
  121.     *       ╙─────────────────────────────────────────────────────────╜
  122.     *
  123.     
  124.     READ CYCLE ;
  125.         SHOW _qne1bysau() ;
  126.         MODAL
  127.     
  128.     RELEASE WINDOW _qne1byq4d
  129.     
  130.     #REGION 0
  131.     IF m.talkstat = "ON"
  132.         SET TALK ON
  133.     ENDIF
  134.     IF m.compstat = "ON"
  135.         SET COMPATIBLE ON
  136.     ENDIF
  137.     
  138.     
  139.     *       ╓─────────────────────────────────────────────────────────╖
  140.     *       ║                                                         ║
  141.     *       ║               PRTOPTS/MS-DOS Cleanup Code               ║
  142.     *       ║                                                         ║
  143.     *       ╙─────────────────────────────────────────────────────────╜
  144.     *
  145.     
  146.     #REGION 1
  147.     skipvar = .F.
  148.     
  149.  
  150. CASE _MAC
  151.  
  152.     
  153.     #REGION 0
  154.     REGIONAL m.currarea, m.talkstat, m.compstat
  155.     
  156.     IF SET("TALK") = "ON"
  157.         SET TALK OFF
  158.         m.talkstat = "ON"
  159.     ELSE
  160.         m.talkstat = "OFF"
  161.     ENDIF
  162.     m.compstat = SET("COMPATIBLE")
  163.     SET COMPATIBLE FOXPLUS
  164.     
  165.     m.rborder = SET("READBORDER")
  166.     SET READBORDER OFF
  167.     
  168.     *       ╓─────────────────────────────────────────────────────────╖
  169.     *       ║                                                         ║
  170.     *       ║              Macintosh Window definitions               ║
  171.     *       ║                                                         ║
  172.     *       ╙─────────────────────────────────────────────────────────╜
  173.     *
  174.     
  175.     IF NOT WEXIST("_qne1bysjj")
  176.         DEFINE WINDOW _qne1bysjj ;
  177.             AT  0.000, 0.000  ;
  178.             SIZE 17.615,43.000 ;
  179.             TITLE "Print Options" ;
  180.             FONT "Geneva", 10 ;
  181.             FLOAT ;
  182.             NOCLOSE ;
  183.             SHADOW ;
  184.             DOUBLE
  185.         MOVE WINDOW _qne1bysjj CENTER
  186.     ENDIF
  187.     
  188.     
  189.     *       ╓─────────────────────────────────────────────────────────╖
  190.     *       ║                                                         ║
  191.     *       ║        PRTOPTS/Macintosh Setup Code - SECTION 2         ║
  192.     *       ║                                                         ║
  193.     *       ╙─────────────────────────────────────────────────────────╜
  194.     *
  195.     
  196.     #REGION 1
  197.     
  198.     skipvar = .T.
  199.     stemname = makealias(juststem(dbfname))
  200.     SELECT (stemname)
  201.     createrb = 0
  202.     reptrb   = 3
  203.     layoutrb = 0
  204.     pdrivr   = 0
  205.     lastpd   = 1
  206.     
  207.     
  208.     *       ╓─────────────────────────────────────────────────────────╖
  209.     *       ║                                                         ║
  210.     *       ║             PRTOPTS/Macintosh Screen Layout             ║
  211.     *       ║                                                         ║
  212.     *       ╙─────────────────────────────────────────────────────────╜
  213.     *
  214.     
  215.     #REGION 1
  216.     IF WVISIBLE("_qne1bysjj")
  217.         ACTIVATE WINDOW _qne1bysjj SAME
  218.     ELSE
  219.         ACTIVATE WINDOW _qne1bysjj NOSHOW
  220.     ENDIF
  221.     @ 9.385,7.000 GET pdrivrb ;
  222.         PICTURE "@*RVN3 Use current printer driver;Use report printer driver;Use no printer driver" ;
  223.         SIZE 1.308,26.167,0.000 ;
  224.         DEFAULT 1 ;
  225.         FONT "Geneva", 10 ;
  226.         STYLE "T"
  227.     @ 5.385,3.000 GET m.reptrb ;
  228.         PICTURE "@*RVN3 \<Modify report;Printer \<setup;\<Print report" ;
  229.         SIZE 1.308,15.333,0.000 ;
  230.         DEFAULT 1 ;
  231.         FONT "Geneva", 10 ;
  232.         STYLE "T" ;
  233.         VALID _qne1bysvw()
  234.     @ 14.846,7.000 GET okcancl ;
  235.         PICTURE "@*HN3 \!OK;\?Cancel" ;
  236.         SIZE 1.462,11.000,4.000 ;
  237.         DEFAULT 1 ;
  238.         FONT "Geneva", 10 ;
  239.         STYLE "B" ;
  240.         VALID _qne1byt32()
  241.     @ 1.077,3.000 GET createrb ;
  242.         PICTURE "@*RVN3 C\<reate report" ;
  243.         SIZE 1.308,15.000,0.000 ;
  244.         DEFAULT 1 ;
  245.         FONT "Geneva", 10 ;
  246.         STYLE "T" ;
  247.         VALID _qne1bytdy()
  248.     @ 2.615,7.000 GET layoutrb ;
  249.         PICTURE "@*RVN3 Form layout;Columnar layout" ;
  250.         SIZE 1.308,17.333,0.000 ;
  251.         DEFAULT 1 ;
  252.         FONT "Geneva", 10 ;
  253.         STYLE "T" ;
  254.         DISABLE
  255.     
  256.     IF NOT WVISIBLE("_qne1bysjj")
  257.         ACTIVATE WINDOW _qne1bysjj
  258.     ENDIF
  259.     
  260.     
  261.     *       ╓─────────────────────────────────────────────────────────╖
  262.     *       ║                                                         ║
  263.     *       ║   MacintoshREAD contains clauses from SCREEN prtopts    ║
  264.     *       ║                                                         ║
  265.     *       ╙─────────────────────────────────────────────────────────╜
  266.     *
  267.     
  268.     READ CYCLE ;
  269.         SHOW _qne1bytqx() ;
  270.         MODAL
  271.     
  272.     RELEASE WINDOW _qne1bysjj
  273.     
  274.     #REGION 0
  275.     
  276.     SET READBORDER &rborder
  277.     
  278.     IF m.talkstat = "ON"
  279.         SET TALK ON
  280.     ENDIF
  281.     IF m.compstat = "ON"
  282.         SET COMPATIBLE ON
  283.     ENDIF
  284.     
  285.     
  286.     *       ╓─────────────────────────────────────────────────────────╖
  287.     *       ║                                                         ║
  288.     *       ║             PRTOPTS/Macintosh Cleanup Code              ║
  289.     *       ║                                                         ║
  290.     *       ╙─────────────────────────────────────────────────────────╜
  291.     *
  292.     
  293.     #REGION 1
  294.     skipvar = .F.
  295.     
  296.  
  297. CASE _WINDOWS
  298.  
  299.     
  300.     #REGION 0
  301.     REGIONAL m.currarea, m.talkstat, m.compstat
  302.     
  303.     IF SET("TALK") = "ON"
  304.         SET TALK OFF
  305.         m.talkstat = "ON"
  306.     ELSE
  307.         m.talkstat = "OFF"
  308.     ENDIF
  309.     m.compstat = SET("COMPATIBLE")
  310.     SET COMPATIBLE FOXPLUS
  311.     
  312.     m.rborder = SET("READBORDER")
  313.     SET READBORDER OFF
  314.     
  315.     *       ╓─────────────────────────────────────────────────────────╖
  316.     *       ║                                                         ║
  317.     *       ║               Windows Window definitions                ║
  318.     *       ║                                                         ║
  319.     *       ╙─────────────────────────────────────────────────────────╜
  320.     *
  321.     
  322.     IF NOT WEXIST("_qne1bytzw")
  323.         DEFINE WINDOW _qne1bytzw ;
  324.             AT  0.000, 0.000  ;
  325.             SIZE 17.615,43.000 ;
  326.             TITLE "Print Options" ;
  327.             FONT "MS Sans Serif", 8 ;
  328.             STYLE "B" ;
  329.             FLOAT ;
  330.             NOCLOSE ;
  331.             SHADOW ;
  332.             NOMINIMIZE ;
  333.             DOUBLE ;
  334.             COLOR RGB(,,,192,192,192)
  335.         MOVE WINDOW _qne1bytzw CENTER
  336.     ENDIF
  337.     
  338.     
  339.     *       ╓─────────────────────────────────────────────────────────╖
  340.     *       ║                                                         ║
  341.     *       ║         PRTOPTS/Windows Setup Code - SECTION 2          ║
  342.     *       ║                                                         ║
  343.     *       ╙─────────────────────────────────────────────────────────╜
  344.     *
  345.     
  346.     #REGION 1
  347.     
  348.     skipvar = .T.
  349.     stemname = makealias(juststem(dbfname))
  350.     SELECT (stemname)
  351.     createrb = 0
  352.     reptrb   = 3
  353.     layoutrb = 0
  354.     pdrivr   = 0
  355.     lastpd   = 1
  356.     
  357.     
  358.     *       ╓─────────────────────────────────────────────────────────╖
  359.     *       ║                                                         ║
  360.     *       ║              PRTOPTS/Windows Screen Layout              ║
  361.     *       ║                                                         ║
  362.     *       ╙─────────────────────────────────────────────────────────╜
  363.     *
  364.     
  365.     #REGION 1
  366.     IF WVISIBLE("_qne1bytzw")
  367.         ACTIVATE WINDOW _qne1bytzw SAME
  368.     ELSE
  369.         ACTIVATE WINDOW _qne1bytzw NOSHOW
  370.     ENDIF
  371.     @ 9.385,9.333 GET pdrivrb ;
  372.         PICTURE "@*RVN Use current printer driver;Use report printer driver;Use no printer driver" ;
  373.         SIZE 1.308,28.167,0.000 ;
  374.         DEFAULT 1 ;
  375.         FONT "MS Sans Serif", 8 ;
  376.         STYLE "BT" ;
  377.         COLOR ,,,,,,,,RGB(,,,192,192,192),RGB(,,,192,192,192)
  378.     @ 5.385,5.333 GET m.reptrb ;
  379.         PICTURE "@*RVN \<Modify report;Printer \<setup;\<Print report" ;
  380.         SIZE 1.308,16.833,0.000 ;
  381.         DEFAULT 1 ;
  382.         FONT "MS Sans Serif", 8 ;
  383.         STYLE "BT" ;
  384.         VALID _qne1byued() ;
  385.         COLOR ,,,,,,,,RGB(,,,192,192,192),RGB(,,,192,192,192)
  386.     @ 1.077,5.333 GET createrb ;
  387.         PICTURE "@*RVN C\<reate report" ;
  388.         SIZE 1.308,16.833,0.000 ;
  389.         DEFAULT 1 ;
  390.         FONT "MS Sans Serif", 8 ;
  391.         STYLE "BT" ;
  392.         VALID _qne1byum4() ;
  393.         COLOR ,,,,,,,,RGB(,,,192,192,192),RGB(,,,192,192,192)
  394.     @ 2.538,9.333 GET layoutrb ;
  395.         PICTURE "@*RVN Form layout;Columnar layout" ;
  396.         SIZE 1.308,19.500,0.000 ;
  397.         DEFAULT 1 ;
  398.         FONT "MS Sans Serif", 8 ;
  399.         STYLE "BT" ;
  400.         DISABLE ;
  401.         COLOR ,,,,,,,,RGB(,,,192,192,192),RGB(,,,192,192,192)
  402.     @ 14.846,7.000 GET okcancl ;
  403.         PICTURE "@*HN \!\<OK;\?\<Cancel" ;
  404.         SIZE 1.538,11.000,4.000 ;
  405.         DEFAULT 1 ;
  406.         FONT "MS Sans Serif", 8 ;
  407.         STYLE "B" ;
  408.         VALID _qne1byus9()
  409.     
  410.     IF NOT WVISIBLE("_qne1bytzw")
  411.         ACTIVATE WINDOW _qne1bytzw
  412.     ENDIF
  413.     
  414.     
  415.     *       ╓─────────────────────────────────────────────────────────╖
  416.     *       ║                                                         ║
  417.     *       ║    WindowsREAD contains clauses from SCREEN prtopts     ║
  418.     *       ║                                                         ║
  419.     *       ╙─────────────────────────────────────────────────────────╜
  420.     *
  421.     
  422.     READ CYCLE ;
  423.         SHOW _qne1byv35() ;
  424.         MODAL
  425.     
  426.     RELEASE WINDOW _qne1bytzw
  427.     
  428.     #REGION 0
  429.     
  430.     SET READBORDER &rborder
  431.     
  432.     IF m.talkstat = "ON"
  433.         SET TALK ON
  434.     ENDIF
  435.     IF m.compstat = "ON"
  436.         SET COMPATIBLE ON
  437.     ENDIF
  438.     
  439.     
  440.     *       ╓─────────────────────────────────────────────────────────╖
  441.     *       ║                                                         ║
  442.     *       ║              PRTOPTS/Windows Cleanup Code               ║
  443.     *       ║                                                         ║
  444.     *       ╙─────────────────────────────────────────────────────────╜
  445.     *
  446.     
  447.     #REGION 1
  448.     skipvar = .F.
  449.     
  450.  
  451. ENDCASE
  452.  
  453.  
  454. *       ╓─────────────────────────────────────────────────────────╖
  455. *       ║                                                         ║
  456. *       ║ _QNE1BYQKY           m.reptrb VALID                     ║
  457. *       ║                                                         ║
  458. *       ║ Function Origin:                                        ║
  459. *       ║                                                         ║
  460. *       ║ From Platform:       MS-DOS                             ║
  461. *       ║ From Screen:         PRTOPTS,     Record Number:   10   ║
  462. *       ║ Variable:            m.reptrb                           ║
  463. *       ║ Called By:           VALID Clause                       ║
  464. *       ║ Object Type:         Radio Button                       ║
  465. *       ║ Snippet Number:      1                                  ║
  466. *       ║                                                         ║
  467. *       ╙─────────────────────────────────────────────────────────╜
  468. *
  469. FUNCTION _qne1byqky     &&  m.reptrb VALID
  470. #REGION 1
  471. DO CASE
  472. CASE reptrb = 1
  473.    lastpd = IIF(pdrivrb=0,lastpd,pdrivrb)
  474.    pdrivrb = 0
  475.    SHOW GET pdrivrb DISABLE
  476. CASE reptrb = 2
  477.    lastpd = IIF(pdrivrb=0,lastpd,pdrivrb)
  478.    pdrivrb = 0
  479.    SHOW GET pdrivrb DISABLE
  480. CASE reptrb = 3
  481.    pdrivrb = lastpd
  482.    SHOW GET pdrivrb ENABLE
  483. ENDCASE
  484. createrb = 0
  485. layoutrb = 0
  486. SHOW GET layoutrb DISABLE
  487. SHOW GET createrb
  488.  
  489.  
  490. *       ╓─────────────────────────────────────────────────────────╖
  491. *       ║                                                         ║
  492. *       ║ _QNE1BYQTE           createrb VALID                     ║
  493. *       ║                                                         ║
  494. *       ║ Function Origin:                                        ║
  495. *       ║                                                         ║
  496. *       ║ From Platform:       MS-DOS                             ║
  497. *       ║ From Screen:         PRTOPTS,     Record Number:   11   ║
  498. *       ║ Variable:            createrb                           ║
  499. *       ║ Called By:           VALID Clause                       ║
  500. *       ║ Object Type:         Radio Button                       ║
  501. *       ║ Snippet Number:      2                                  ║
  502. *       ║                                                         ║
  503. *       ╙─────────────────────────────────────────────────────────╜
  504. *
  505. FUNCTION _qne1byqte     &&  createrb VALID
  506. #REGION 1
  507. IF createrb = 1
  508.    reptrb   = 0
  509.    pdrivrb  = 0
  510.    layoutrb = 1
  511.    SHOW GET reptrb
  512.    SHOW GET layoutrb ENABLE
  513.    SHOW GET pdrivrb  DISABLE
  514. ENDIF
  515.  
  516.  
  517. *       ╓─────────────────────────────────────────────────────────╖
  518. *       ║                                                         ║
  519. *       ║ _QNE1BYQZ5           okcancl VALID                      ║
  520. *       ║                                                         ║
  521. *       ║ Function Origin:                                        ║
  522. *       ║                                                         ║
  523. *       ║ From Platform:       MS-DOS                             ║
  524. *       ║ From Screen:         PRTOPTS,     Record Number:   13   ║
  525. *       ║ Variable:            okcancl                            ║
  526. *       ║ Called By:           VALID Clause                       ║
  527. *       ║ Object Type:         Push Button                        ║
  528. *       ║ Snippet Number:      3                                  ║
  529. *       ║                                                         ║
  530. *       ╙─────────────────────────────────────────────────────────╜
  531. *
  532. FUNCTION _qne1byqz5     &&  okcancl VALID
  533. #REGION 1
  534. IF okcancl = 1
  535.    DO CASE
  536.    CASE createrb = 1
  537.       m.repname = UPPER(ALLTRIM(PUTFILE('Report form','','FRX','OK')))
  538.       IF !EMPTY(m.repname)
  539.          IF layoutrb = 1
  540.             CREATE REPORT (m.repname) FROM (m.dbfname) FORM
  541.          ELSE
  542.             CREATE REPORT (m.repname) FROM (m.dbfname) COLUMN
  543.          ENDIF
  544.          MODIFY REPORT (m.repname)
  545.       ENDIF
  546.    CASE reptrb = 1
  547.       MODIFY REPORT ?
  548.    CASE reptrb = 2
  549.       IF !regen
  550.          mname = 'prtsetup.prg'
  551.       ELSE
  552.          mname = 'prtsetup.spr'
  553.       ENDIF
  554.       DO (mname)
  555.    CASE reptrb = 3
  556.       DO CASE
  557.       CASE pdrivrb = 1
  558.          DO putprt WITH ""
  559.       CASE pdrivrb = 2
  560.          DO putprt WITH "PDSETUP"
  561.       CASE pdrivrb = 3
  562.          old_driver = _PDRIVER
  563.          _PDRIVER = ""
  564.          DO putprt WITH ""
  565.          _PDRIVER = old_driver
  566.       ENDCASE
  567.    ENDCASE
  568. ELSE
  569.    CLEAR READ
  570. ENDIF
  571.  
  572.  
  573.  
  574.  
  575. *       ╓─────────────────────────────────────────────────────────╖
  576. *       ║                                                         ║
  577. *       ║ _QNE1BYSAU           Read Level Show                    ║
  578. *       ║                                                         ║
  579. *       ║ Function Origin:                                        ║
  580. *       ║                                                         ║
  581. *       ║                                                         ║
  582. *       ║ From Platform:       MS-DOS                             ║
  583. *       ║ From Screen:         PRTOPTS                            ║
  584. *       ║ Called By:           READ Statement                     ║
  585. *       ║ Snippet Number:      4                                  ║
  586. *       ║                                                         ║
  587. *       ╙─────────────────────────────────────────────────────────╜
  588. *
  589. FUNCTION _qne1bysau     && Read Level Show
  590. PRIVATE currwind
  591. STORE WOUTPUT() TO currwind
  592. *
  593. * Show Code from screen: PRTOPTS
  594. *
  595. #REGION 1
  596. SHOW GET reptrb,2 DISABLE
  597. IF NOT EMPTY(currwind)
  598.     ACTIVATE WINDOW (currwind) SAME
  599. ENDIF
  600.  
  601. *       ╓─────────────────────────────────────────────────────────╖
  602. *       ║                                                         ║
  603. *       ║ _QNE1BYSVW           m.reptrb VALID                     ║
  604. *       ║                                                         ║
  605. *       ║ Function Origin:                                        ║
  606. *       ║                                                         ║
  607. *       ║ From Platform:       Macintosh                          ║
  608. *       ║ From Screen:         PRTOPTS,     Record Number:   16   ║
  609. *       ║ Variable:            m.reptrb                           ║
  610. *       ║ Called By:           VALID Clause                       ║
  611. *       ║ Object Type:         Radio Button                       ║
  612. *       ║ Snippet Number:      5                                  ║
  613. *       ║                                                         ║
  614. *       ╙─────────────────────────────────────────────────────────╜
  615. *
  616. FUNCTION _qne1bysvw     &&  m.reptrb VALID
  617. #REGION 1
  618. DO CASE
  619. CASE reptrb = 1
  620.    lastpd = IIF(pdrivrb=0,lastpd,pdrivrb)
  621.    pdrivrb = 0
  622.    SHOW GET pdrivrb DISABLE
  623. CASE reptrb = 2
  624.    lastpd = IIF(pdrivrb=0,lastpd,pdrivrb)
  625.    pdrivrb = 0
  626.    SHOW GET pdrivrb DISABLE
  627. CASE reptrb = 3
  628.    pdrivrb = lastpd
  629.    SHOW GET pdrivrb ENABLE
  630. ENDCASE
  631. createrb = 0
  632. layoutrb = 0
  633. SHOW GET layoutrb DISABLE
  634. SHOW GET createrb
  635.  
  636.  
  637. *       ╓─────────────────────────────────────────────────────────╖
  638. *       ║                                                         ║
  639. *       ║ _QNE1BYT32           okcancl VALID                      ║
  640. *       ║                                                         ║
  641. *       ║ Function Origin:                                        ║
  642. *       ║                                                         ║
  643. *       ║ From Platform:       Macintosh                          ║
  644. *       ║ From Screen:         PRTOPTS,     Record Number:   17   ║
  645. *       ║ Variable:            okcancl                            ║
  646. *       ║ Called By:           VALID Clause                       ║
  647. *       ║ Object Type:         Push Button                        ║
  648. *       ║ Snippet Number:      6                                  ║
  649. *       ║                                                         ║
  650. *       ╙─────────────────────────────────────────────────────────╜
  651. *
  652. FUNCTION _qne1byt32     &&  okcancl VALID
  653. #REGION 1
  654. IF okcancl = 1
  655.    DO CASE
  656.    CASE createrb = 1
  657.       m.repname = UPPER(ALLTRIM(PUTFILE('Report form','','FRX','OK')))
  658.       IF !EMPTY(m.repname)
  659.          IF layoutrb = 1
  660.             CREATE REPORT (m.repname) FROM (m.dbfname) FORM
  661.          ELSE
  662.             CREATE REPORT (m.repname) FROM (m.dbfname) COLUMN
  663.          ENDIF
  664.          MODIFY REPORT (m.repname)
  665.       ENDIF
  666.    CASE reptrb = 1
  667.       MODIFY REPORT ?
  668.    CASE reptrb = 2
  669.       IF !regen
  670.          mname = 'prtsetup.prg'
  671.       ELSE
  672.          mname = 'prtsetup.spr'
  673.       ENDIF
  674.       DO (mname)
  675.    CASE reptrb = 3
  676.       DO CASE
  677.       CASE pdrivrb = 1
  678.          DO putprt WITH ""
  679.       CASE pdrivrb = 2
  680.          DO putprt WITH "PDSETUP"
  681.       CASE pdrivrb = 3
  682.          old_driver = _PDRIVER
  683.          _PDRIVER = ""
  684.          DO putprt WITH ""
  685.          _PDRIVER = old_driver
  686.       ENDCASE
  687.    ENDCASE
  688. ELSE
  689.    CLEAR READ
  690. ENDIF
  691.  
  692.  
  693.  
  694.  
  695. *       ╓─────────────────────────────────────────────────────────╖
  696. *       ║                                                         ║
  697. *       ║ _QNE1BYTDY           createrb VALID                     ║
  698. *       ║                                                         ║
  699. *       ║ Function Origin:                                        ║
  700. *       ║                                                         ║
  701. *       ║ From Platform:       Macintosh                          ║
  702. *       ║ From Screen:         PRTOPTS,     Record Number:   18   ║
  703. *       ║ Variable:            createrb                           ║
  704. *       ║ Called By:           VALID Clause                       ║
  705. *       ║ Object Type:         Radio Button                       ║
  706. *       ║ Snippet Number:      7                                  ║
  707. *       ║                                                         ║
  708. *       ╙─────────────────────────────────────────────────────────╜
  709. *
  710. FUNCTION _qne1bytdy     &&  createrb VALID
  711. #REGION 1
  712. IF createrb = 1
  713.    reptrb   = 0
  714.    pdrivrb  = 0
  715.    layoutrb = 1
  716.    SHOW GET reptrb
  717.    SHOW GET layoutrb ENABLE
  718.    SHOW GET pdrivrb  DISABLE
  719. ENDIF
  720.  
  721.  
  722. *       ╓─────────────────────────────────────────────────────────╖
  723. *       ║                                                         ║
  724. *       ║ _QNE1BYTQX           Read Level Show                    ║
  725. *       ║                                                         ║
  726. *       ║ Function Origin:                                        ║
  727. *       ║                                                         ║
  728. *       ║                                                         ║
  729. *       ║ From Platform:       Macintosh                          ║
  730. *       ║ From Screen:         PRTOPTS                            ║
  731. *       ║ Called By:           READ Statement                     ║
  732. *       ║ Snippet Number:      8                                  ║
  733. *       ║                                                         ║
  734. *       ╙─────────────────────────────────────────────────────────╜
  735. *
  736. FUNCTION _qne1bytqx     && Read Level Show
  737. PRIVATE currwind
  738. STORE WOUTPUT() TO currwind
  739. *
  740. * Show Code from screen: PRTOPTS
  741. *
  742. #REGION 1
  743. SHOW GET reptrb,2 DISABLE
  744. IF NOT EMPTY(currwind)
  745.     ACTIVATE WINDOW (currwind) SAME
  746. ENDIF
  747.  
  748. *       ╓─────────────────────────────────────────────────────────╖
  749. *       ║                                                         ║
  750. *       ║ _QNE1BYUED           m.reptrb VALID                     ║
  751. *       ║                                                         ║
  752. *       ║ Function Origin:                                        ║
  753. *       ║                                                         ║
  754. *       ║ From Platform:       Windows                            ║
  755. *       ║ From Screen:         PRTOPTS,     Record Number:    3   ║
  756. *       ║ Variable:            m.reptrb                           ║
  757. *       ║ Called By:           VALID Clause                       ║
  758. *       ║ Object Type:         Radio Button                       ║
  759. *       ║ Snippet Number:      9                                  ║
  760. *       ║                                                         ║
  761. *       ╙─────────────────────────────────────────────────────────╜
  762. *
  763. FUNCTION _qne1byued     &&  m.reptrb VALID
  764. #REGION 1
  765. DO CASE
  766. CASE reptrb = 1
  767.    lastpd = IIF(pdrivrb=0,lastpd,pdrivrb)
  768.    pdrivrb = 0
  769.    SHOW GET pdrivrb DISABLE
  770. CASE reptrb = 2
  771.    lastpd = IIF(pdrivrb=0,lastpd,pdrivrb)
  772.    pdrivrb = 0
  773.    SHOW GET pdrivrb DISABLE
  774. CASE reptrb = 3
  775.    pdrivrb = lastpd
  776.    SHOW GET pdrivrb ENABLE
  777. ENDCASE
  778. createrb = 0
  779. layoutrb = 0
  780. SHOW GET layoutrb DISABLE
  781. SHOW GET createrb
  782.  
  783.  
  784. *       ╓─────────────────────────────────────────────────────────╖
  785. *       ║                                                         ║
  786. *       ║ _QNE1BYUM4           createrb VALID                     ║
  787. *       ║                                                         ║
  788. *       ║ Function Origin:                                        ║
  789. *       ║                                                         ║
  790. *       ║ From Platform:       Windows                            ║
  791. *       ║ From Screen:         PRTOPTS,     Record Number:    4   ║
  792. *       ║ Variable:            createrb                           ║
  793. *       ║ Called By:           VALID Clause                       ║
  794. *       ║ Object Type:         Radio Button                       ║
  795. *       ║ Snippet Number:      10                                 ║
  796. *       ║                                                         ║
  797. *       ╙─────────────────────────────────────────────────────────╜
  798. *
  799. FUNCTION _qne1byum4     &&  createrb VALID
  800. #REGION 1
  801. IF createrb = 1
  802.    reptrb   = 0
  803.    pdrivrb  = 0
  804.    layoutrb = 1
  805.    SHOW GET reptrb
  806.    SHOW GET layoutrb ENABLE
  807.    SHOW GET pdrivrb  DISABLE
  808. ENDIF
  809.  
  810.  
  811. *       ╓─────────────────────────────────────────────────────────╖
  812. *       ║                                                         ║
  813. *       ║ _QNE1BYUS9           okcancl VALID                      ║
  814. *       ║                                                         ║
  815. *       ║ Function Origin:                                        ║
  816. *       ║                                                         ║
  817. *       ║ From Platform:       Windows                            ║
  818. *       ║ From Screen:         PRTOPTS,     Record Number:    6   ║
  819. *       ║ Variable:            okcancl                            ║
  820. *       ║ Called By:           VALID Clause                       ║
  821. *       ║ Object Type:         Push Button                        ║
  822. *       ║ Snippet Number:      11                                 ║
  823. *       ║                                                         ║
  824. *       ╙─────────────────────────────────────────────────────────╜
  825. *
  826. FUNCTION _qne1byus9     &&  okcancl VALID
  827. #REGION 1
  828. IF okcancl = 1
  829.    DO CASE
  830.    CASE createrb = 1
  831.       m.repname = UPPER(ALLTRIM(PUTFILE('Report form','','FRX','OK')))
  832.       IF !EMPTY(m.repname)
  833.          IF layoutrb = 1
  834.             CREATE REPORT (m.repname) FROM (m.dbfname) FORM
  835.          ELSE
  836.             CREATE REPORT (m.repname) FROM (m.dbfname) COLUMN
  837.          ENDIF
  838.          MODIFY REPORT (m.repname)
  839.       ENDIF
  840.    CASE reptrb = 1
  841.       MODIFY REPORT ?
  842.    CASE reptrb = 2
  843.       IF !regen
  844.          mname = 'prtsetup.prg'
  845.       ELSE
  846.          mname = 'prtsetup.spr'
  847.       ENDIF
  848.       DO (mname)
  849.    CASE reptrb = 3
  850.       DO CASE
  851.       CASE pdrivrb = 1
  852.          DO putprt WITH ""
  853.       CASE pdrivrb = 2
  854.          DO putprt WITH "PDSETUP"
  855.       CASE pdrivrb = 3
  856.          old_driver = _PDRIVER
  857.          _PDRIVER = ""
  858.          DO putprt WITH ""
  859.          _PDRIVER = old_driver
  860.       ENDCASE
  861.    ENDCASE
  862. ELSE
  863.    CLEAR READ
  864. ENDIF
  865.  
  866.  
  867.  
  868.  
  869. *       ╓─────────────────────────────────────────────────────────╖
  870. *       ║                                                         ║
  871. *       ║ _QNE1BYV35           Read Level Show                    ║
  872. *       ║                                                         ║
  873. *       ║ Function Origin:                                        ║
  874. *       ║                                                         ║
  875. *       ║                                                         ║
  876. *       ║ From Platform:       Windows                            ║
  877. *       ║ From Screen:         PRTOPTS                            ║
  878. *       ║ Called By:           READ Statement                     ║
  879. *       ║ Snippet Number:      12                                 ║
  880. *       ║                                                         ║
  881. *       ╙─────────────────────────────────────────────────────────╜
  882. *
  883. FUNCTION _qne1byv35     && Read Level Show
  884. PRIVATE currwind
  885. STORE WOUTPUT() TO currwind
  886. *
  887. * Show Code from screen: PRTOPTS
  888. *
  889. #REGION 1
  890. SHOW GET reptrb,2 DISABLE
  891. IF NOT EMPTY(currwind)
  892.     ACTIVATE WINDOW (currwind) SAME
  893. ENDIF
  894.  
  895.  
  896. *       ╓─────────────────────────────────────────────────────────╖
  897. *       ║                                                         ║
  898. *       ║  PRTOPTS/Windows Supporting Procedures and Functions    ║
  899. *       ║                                                         ║
  900. *       ╙─────────────────────────────────────────────────────────╜
  901. *
  902.  
  903. #REGION 1
  904. PROCEDURE putprt
  905. PARAMETERS reptparm
  906.  
  907. m.repname = UPPER(ALLTRIM(GETFILE('FRX|LBX','Report or label form')))
  908. m.startrec = RECNO()
  909. IF !EMPTY(m.repname)
  910.    RELEASE m.repbut, m.repdest, m.okbut
  911.    PUBLIC m.repbut, m.repdest, m.okbut
  912.  
  913.    IF !regen
  914.       mname = 'getdest.prg'  && dialog box to get output destination
  915.    ELSE
  916.       mname = 'getdest.spr'
  917.    ENDIF
  918.    DO (mname)
  919.  
  920.    err_string = ON('ERROR')
  921.    ON ERROR DO rpterror
  922.  
  923.    IF m.okbut = 1
  924.       DO CASE
  925.       CASE m.repbut = 1  && screen
  926.          m.startwin = WONTOP()
  927.          IF FILE(m.repname)
  928.             REPORT FORM (m.repname) PREVIEW
  929.          ELSE
  930.             MODIFY REPORT (m.repname)
  931.             IF FILE(m.repname)
  932.                REPORT FORM (m.repname) PREVIEW
  933.             ENDIF
  934.          ENDIF
  935.  
  936.       CASE m.repbut = 2  && output to printer
  937.          IF SYS(13) <> "READY"
  938.             WAIT WINDOW "The printer is not ready."
  939.          ELSE
  940.             IF FILE(m.repname)
  941.                WAIT WINDOW "Printing report..." NOWAIT
  942.                REPORT FORM (m.repname) TO PRINT PROMPT NOCONSOLE &reptparm
  943.                WAIT WINDOW "Report printed!" NOWAIT
  944.                =INKEY(2,"HM")
  945.                WAIT CLEAR
  946.             ELSE
  947.                MODIFY REPORT (m.repname)
  948.                IF FILE(m.repname)
  949.                   WAIT WINDOW "Printing report..." NOWAIT
  950.                   REPORT FORM (m.repname) TO PRINT PROMPT NOCONSOLE &reptparm
  951.                   WAIT WINDOW "Report printed!" NOWAIT
  952.                   =INKEY(2,"HM")
  953.                   WAIT CLEAR
  954.                ENDIF
  955.             ENDIF
  956.          ENDIF
  957.  
  958.       CASE m.repbut = 3  && output to file
  959.          m.repdest = ALLTRIM(m.repdest)
  960.          IF !EMPTY(m.repdest)
  961.             m.win_string = "Printing to "+m.repdest
  962.             WAIT WINDOW m.win_string NOWAIT
  963.             IF FILE(m.repname)
  964.                REPORT FORM (m.repname) TO FILE (m.repdest) NOCONSOLE
  965.             ELSE
  966.                MODIFY REPORT (m.repname)
  967.                IF FILE(m.repname)
  968.                   REPORT FORM (m.repname) TO FILE (m.repdest) NOCONSOLE
  969.                ENDIF
  970.             ENDIF
  971.          ENDIF
  972.       ENDCASE
  973.    ENDIF
  974. ENDIF
  975. IF TYPE('err_string') <> 'U'
  976.    ON ERROR &err_string
  977. ELSE
  978.    ON ERROR
  979. ENDIF
  980.  
  981. IF m.startrec <= RECCOUNT() AND m.startrec > 0
  982.    GOTO m.startrec   && back to starting position
  983. ELSE
  984.    GOTO TOP
  985. ENDIF
  986.  
  987.  
  988. PROCEDURE rpterror
  989. DO alert WITH "Error producing report.;The report form may not correspond to this database."
  990. RETURN