home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a087 / 4.ddi / PRTSETUP.PR_ / PRTSETUP.bin
Encoding:
Text File  |  1994-02-02  |  29.7 KB  |  884 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 10/22/93            PRTSETUP.PRG               15:19:53 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Walter J. Kennamer                                      
  8. *       *                                                         
  9. *       * Copyright (c) 1993 Microsoft Corp.                      
  10. *       * One Microsoft Way                                       
  11. *       * Redmond, WA  98027                                      
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18. DO CASE
  19. CASE _MAC
  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.     m.rborder = SET("READBORDER")
  35.     SET READBORDER ON
  36.     
  37.     m.currarea = SELECT()
  38.     
  39.     
  40.     *       *********************************************************
  41.     *       *                                                         
  42.     *       *              Macintosh Window definitions               
  43.     *       *                                                         
  44.     *       *********************************************************
  45.     *
  46.     
  47.     IF NOT WEXIST("_qka0wuzig")
  48.         DEFINE WINDOW _qka0wuzig ;
  49.             AT  0.000, 0.000  ;
  50.             SIZE 17.000,57.000 ;
  51.             TITLE "Printing Destination" ;
  52.             FONT "Geneva", 10 ;
  53.             FLOAT ;
  54.             NOCLOSE ;
  55.             SHADOW ;
  56.             DOUBLE
  57.         MOVE WINDOW _qka0wuzig CENTER
  58.     ENDIF
  59.     
  60.     
  61.     *       *********************************************************
  62.     *       *                                                         
  63.     *       *        PRTSETUP/Macintosh Setup Code - SECTION 2        
  64.     *       *                                                         
  65.     *       *********************************************************
  66.     *
  67.     
  68.     #REGION 1
  69.     
  70.     skipvar = .T.
  71.     pfilname = SPACE(67)
  72.     
  73.     pdest = SET('PRINTER',1)
  74.     IF ":" $ pdest
  75.        pdest = LEFT(pdest,AT(':',pdest)-1)
  76.     ENDIF
  77.     IF !INLIST(pdest,'PRN','LPT1','LPT2','LPT3','COM1','COM2','COM3')
  78.        pfilname = PADR(pdest,67)
  79.        pdest = 'File'
  80.     ENDIF
  81.     origdest = pdest
  82.     prt_infile =pfilname
  83.     
  84.     IF SET('PRINT') = 'ON'
  85.        prtstat = 1
  86.     ELSE
  87.        prtstat = 2
  88.     ENDIF
  89.     origprtstat = prtstat
  90.     
  91.     pdrivstup = IIF(LEN(_PDRIVER)=0,0,1)
  92.     
  93.     *       *********************************************************
  94.     *       *                                                         
  95.     *       *            PRTSETUP/Macintosh Screen Layout             
  96.     *       *                                                         
  97.     *       *********************************************************
  98.     *
  99.     
  100.     #REGION 1
  101.     IF WVISIBLE("_qka0wuzig")
  102.         ACTIVATE WINDOW _qka0wuzig SAME
  103.     ELSE
  104.         ACTIVATE WINDOW _qka0wuzig NOSHOW
  105.     ENDIF
  106.     @ 2.769,2.500 TO 16.461,40.667 ;
  107.         PEN 1, 8
  108.     @ 3.538,9.000 SAY "Print to:"  ;
  109.         FONT "Geneva", 10 ;
  110.         STYLE "B"
  111.     @ 1.231,3.000 SAY "Printer Setup:"  ;
  112.         FONT "Geneva", 10 ;
  113.         STYLE "B"
  114.     @ 3.231,18.000 GET pdest ;
  115.         PICTURE "@^3 File;PRN;LPT1;LPT2;LPT3;COM1;COM2;COM3" ;
  116.         SIZE 1.462,19.833 ;
  117.         DEFAULT "LPT1" ;
  118.         FONT "Geneva", 10 ;
  119.         VALID _qka0wv18y()
  120.     @ 5.923,4.000 GET flist ;
  121.         PICTURE "@*HN3 \<File..." ;
  122.         SIZE 1.538,11.000,1.000 ;
  123.         DEFAULT 1 ;
  124.         FONT "Geneva", 10 ;
  125.         STYLE "B" ;
  126.         VALID _qka0wv1io()
  127.     @ 8.231,4.833 GET pfilname ;
  128.         SIZE 0.923,34.667 ;
  129.         DEFAULT " " ;
  130.         FONT "Geneva", 10 ;
  131.         PICTURE "@3S67" ;
  132.         VALID _qka0wv1yf()
  133.     @ 10.846,4.000 GET prtstat ;
  134.         PICTURE "@*RVN3 Print On;Print Off" ;
  135.         SIZE 1.308,11.143,0.000 ;
  136.         DEFAULT 2 ;
  137.         FONT "Geneva", 10 ;
  138.         STYLE "BT"
  139.     @ 11.077,36.333 GET _LMARGIN ;
  140.         SIZE 0.923,2.667 ;
  141.         DEFAULT " " ;
  142.         FONT "Geneva", 10 ;
  143.         PICTURE "@3 999" ;
  144.         VALID _qka0wv2cb()
  145.     @ 12.538,36.333 GET _RMARGIN ;
  146.         SIZE 0.923,2.667 ;
  147.         DEFAULT " " ;
  148.         FONT "Geneva", 10 ;
  149.         PICTURE "@3 999" ;
  150.         VALID _qka0wv2kn()
  151.     @ 2.769,43.500 GET OKbut ;
  152.         PICTURE "@*HT3 \!OK" ;
  153.         SIZE 1.538,10.000,6.000 ;
  154.         DEFAULT 1 ;
  155.         FONT "Geneva", 10 ;
  156.         STYLE "B"
  157.     @ 5.538,43.500 GET CancBut ;
  158.         PICTURE "@*HT3 \?Cancel" ;
  159.         SIZE 1.538,10.000,1.000 ;
  160.         DEFAULT 1 ;
  161.         FONT "Geneva", 10 ;
  162.         STYLE "B"
  163.     @ 14.692,4.000 GET pdrivstup ;
  164.         PICTURE "@*C3 Printer \<Driver Setup..." ;
  165.         SIZE 1.308,24.000 ;
  166.         DEFAULT 0 ;
  167.         FONT "Geneva", 10 ;
  168.         STYLE "BT" ;
  169.         VALID _qka0wv2y2() ;
  170.         DISABLE
  171.     @ 11.000,22.000 SAY "Left Margin:"  ;
  172.         FONT "Geneva", 10 ;
  173.         STYLE "B"
  174.     @ 12.462,22.000 SAY "Right Margin:"  ;
  175.         FONT "Geneva", 10 ;
  176.         STYLE "B"
  177.     
  178.     IF NOT WVISIBLE("_qka0wuzig")
  179.         ACTIVATE WINDOW _qka0wuzig
  180.     ENDIF
  181.     
  182.     
  183.     *       *********************************************************
  184.     *       *                                                         
  185.     *       *   MacintoshREAD contains clauses from SCREEN prtsetup   
  186.     *       *                                                         
  187.     *       *********************************************************
  188.     *
  189.     
  190.     READ CYCLE ;
  191.         DEACTIVATE _qka0wv3eq() ;
  192.         SHOW _qka0wv3f7() ;
  193.         MODAL
  194.     
  195.     RELEASE WINDOW _qka0wuzig
  196.     SELECT (m.currarea)
  197.     
  198.     
  199.     #REGION 0
  200.     
  201.     SET READBORDER &rborder
  202.     
  203.     IF m.talkstat = "ON"
  204.         SET TALK ON
  205.     ENDIF
  206.     IF m.compstat = "ON"
  207.         SET COMPATIBLE ON
  208.     ENDIF
  209.     
  210.     
  211.     *       *********************************************************
  212.     *       *                                                         
  213.     *       *             PRTSETUP/Macintosh Cleanup Code             
  214.     *       *                                                         
  215.     *       *********************************************************
  216.     *
  217.     
  218.     #REGION 1
  219.     DO CASE
  220.     CASE okbut = 1
  221.        SET PRINTER TO
  222.     
  223.        IF prtstat = 1
  224.           SET PRINT ON
  225.        ELSE
  226.           SET PRINT OFF
  227.        ENDIF
  228.     
  229.        pdest = ALLTRIM(UPPER(pdest))
  230.        DO CASE
  231.        CASE pdest = 'FILE'
  232.           IF !EMPTY(pfilname)
  233.              SET PRINTER TO (pfilname)
  234.           ELSE
  235.              SET PRINTER TO
  236.           ENDIF
  237.        OTHERWISE
  238.           pfilname = ''
  239.           SET PRINTER TO &pdest
  240.        ENDCASE
  241.     CASE cancbut = 1
  242.        IF origprtstat = 1
  243.           SET PRINT ON
  244.        ELSE
  245.           SET PRINT OFF
  246.        ENDIF
  247.        pdest = origdest
  248.        pfilname = prt_infile
  249.     ENDCASE
  250.     skipvar = .F.
  251.  
  252. CASE _WINDOWS
  253.  
  254.     
  255.     #REGION 0
  256.     REGIONAL m.currarea, m.talkstat, m.compstat
  257.     
  258.     IF SET("TALK") = "ON"
  259.         SET TALK OFF
  260.         m.talkstat = "ON"
  261.     ELSE
  262.         m.talkstat = "OFF"
  263.     ENDIF
  264.     m.compstat = SET("COMPATIBLE")
  265.     SET COMPATIBLE FOXPLUS
  266.     
  267.     m.rborder = SET("READBORDER")
  268.     SET READBORDER ON
  269.     
  270.     m.currarea = SELECT()
  271.     
  272.     
  273.     *       *********************************************************
  274.     *       *                                                         
  275.     *       *               Windows Window definitions                
  276.     *       *                                                         
  277.     *       *********************************************************
  278.     *
  279.     
  280.     IF NOT WEXIST("_qka0wv558")
  281.         DEFINE WINDOW _qka0wv558 ;
  282.             AT  0.000, 0.000  ;
  283.             SIZE 17.000,57.000 ;
  284.             TITLE "Printing Destination" ;
  285.             FONT "MS Sans Serif", 8 ;
  286.             STYLE "B" ;
  287.             FLOAT ;
  288.             NOCLOSE ;
  289.             SHADOW ;
  290.             NOMINIMIZE ;
  291.             DOUBLE
  292.         MOVE WINDOW _qka0wv558 CENTER
  293.     ENDIF
  294.     
  295.     
  296.     *       *********************************************************
  297.     *       *                                                         
  298.     *       *         PRTSETUP/Windows Setup Code - SECTION 2         
  299.     *       *                                                         
  300.     *       *********************************************************
  301.     *
  302.     
  303.     #REGION 1
  304.     
  305.     skipvar = .T.
  306.     pfilname = SPACE(67)
  307.     
  308.     pdest = SET('PRINTER',1)
  309.     IF ":" $ pdest
  310.        pdest = LEFT(pdest,AT(':',pdest)-1)
  311.     ENDIF
  312.     IF !INLIST(pdest,'PRN','LPT1','LPT2','LPT3','COM1','COM2','COM3')
  313.        pfilname = PADR(pdest,67)
  314.        pdest = 'File'
  315.     ENDIF
  316.     origdest = pdest
  317.     prt_infile =pfilname
  318.     
  319.     IF SET('PRINT') = 'ON'
  320.        prtstat = 1
  321.     ELSE
  322.        prtstat = 2
  323.     ENDIF
  324.     origprtstat = prtstat
  325.     
  326.     pdrivstup = IIF(LEN(_PDRIVER)=0,0,1)
  327.     
  328.     *       *********************************************************
  329.     *       *                                                         
  330.     *       *             PRTSETUP/Windows Screen Layout              
  331.     *       *                                                         
  332.     *       *********************************************************
  333.     *
  334.     
  335.     #REGION 1
  336.     IF WVISIBLE("_qka0wv558")
  337.         ACTIVATE WINDOW _qka0wv558 SAME
  338.     ELSE
  339.         ACTIVATE WINDOW _qka0wv558 NOSHOW
  340.     ENDIF
  341.     @ 2.769,2.500 TO 16.461,40.667 ;
  342.         PEN 1, 8
  343.     @ 3.538,9.000 SAY "Print to:"  ;
  344.         FONT "MS Sans Serif", 8 ;
  345.         STYLE "B"
  346.     @ 1.231,3.000 SAY "Printer Setup:"  ;
  347.         FONT "MS Sans Serif", 8 ;
  348.         STYLE "B"
  349.     @ 3.231,18.000 GET pdest ;
  350.         PICTURE "@^ File;PRN;LPT1;LPT2;LPT3;COM1;COM2;COM3" ;
  351.         SIZE 1.538,19.800 ;
  352.         DEFAULT "LPT1" ;
  353.         FONT "MS Sans Serif", 8 ;
  354.         VALID _qka0wv6ir()
  355.     @ 5.923,4.000 GET flist ;
  356.         PICTURE "@*HN \<File..." ;
  357.         SIZE 1.769,11.000,1.000 ;
  358.         DEFAULT 1 ;
  359.         FONT "MS Sans Serif", 8 ;
  360.         STYLE "B" ;
  361.         VALID _qka0wv6s1()
  362.     @ 8.154,4.667 GET pfilname ;
  363.         SIZE 1.000,35.000 ;
  364.         DEFAULT " " ;
  365.         FONT "MS Sans Serif", 8 ;
  366.         PICTURE "@S67" ;
  367.         VALID _qka0wv77r()
  368.     @ 10.846,4.000 GET prtstat ;
  369.         PICTURE "@*RVN Print On;Print Off" ;
  370.         SIZE 1.308,12.333,0.000 ;
  371.         DEFAULT 2 ;
  372.         FONT "MS Sans Serif", 8 ;
  373.         STYLE "B"
  374.     @ 11.000,36.167 GET _LMARGIN ;
  375.         SIZE 1.000,3.000 ;
  376.         DEFAULT " " ;
  377.         FONT "MS Sans Serif", 8 ;
  378.         PICTURE "999" ;
  379.         VALID _qka0wv7l7()
  380.     @ 12.462,36.167 GET _RMARGIN ;
  381.         SIZE 1.000,3.000 ;
  382.         DEFAULT " " ;
  383.         FONT "MS Sans Serif", 8 ;
  384.         PICTURE "999" ;
  385.         VALID _qka0wv7tj()
  386.     @ 2.769,43.500 GET OKbut ;
  387.         PICTURE "@*HT \!OK" ;
  388.         SIZE 1.769,10.000,6.000 ;
  389.         DEFAULT 1 ;
  390.         FONT "MS Sans Serif", 8 ;
  391.         STYLE "B"
  392.     @ 5.538,43.500 GET CancBut ;
  393.         PICTURE "@*HT \?Cancel" ;
  394.         SIZE 1.769,10.000,1.000 ;
  395.         DEFAULT 1 ;
  396.         FONT "MS Sans Serif", 8 ;
  397.         STYLE "B"
  398.     @ 14.692,4.000 GET pdrivstup ;
  399.         PICTURE "@*C Printer \<Driver Setup..." ;
  400.         SIZE 1.308,26.333 ;
  401.         DEFAULT 0 ;
  402.         FONT "MS Sans Serif", 8 ;
  403.         STYLE "B" ;
  404.         VALID _qka0wv86h() ;
  405.         DISABLE
  406.     @ 11.000,22.000 SAY "Left Margin:"  ;
  407.         FONT "MS Sans Serif", 8 ;
  408.         STYLE "B"
  409.     @ 12.462,22.000 SAY "Right Margin:"  ;
  410.         FONT "MS Sans Serif", 8 ;
  411.         STYLE "B"
  412.     
  413.     IF NOT WVISIBLE("_qka0wv558")
  414.         ACTIVATE WINDOW _qka0wv558
  415.     ENDIF
  416.     
  417.     
  418.     *       *********************************************************
  419.     *       *                                                         
  420.     *       *    WindowsREAD contains clauses from SCREEN prtsetup    
  421.     *       *                                                         
  422.     *       *********************************************************
  423.     *
  424.     
  425.     READ CYCLE ;
  426.         DEACTIVATE _qka0wv8nm() ;
  427.         SHOW _qka0wv8nn() ;
  428.         MODAL
  429.     
  430.     RELEASE WINDOW _qka0wv558
  431.     SELECT (m.currarea)
  432.     
  433.     
  434.     #REGION 0
  435.     
  436.     SET READBORDER &rborder
  437.     
  438.     IF m.talkstat = "ON"
  439.         SET TALK ON
  440.     ENDIF
  441.     IF m.compstat = "ON"
  442.         SET COMPATIBLE ON
  443.     ENDIF
  444.     
  445.     
  446.     *       *********************************************************
  447.     *       *                                                         
  448.     *       *              PRTSETUP/Windows Cleanup Code              
  449.     *       *                                                         
  450.     *       *********************************************************
  451.     *
  452.     
  453.     #REGION 1
  454.     DO CASE
  455.     CASE okbut = 1
  456.        SET PRINTER TO
  457.     
  458.        IF prtstat = 1
  459.           SET PRINT ON
  460.        ELSE
  461.           SET PRINT OFF
  462.        ENDIF
  463.     
  464.        pdest = ALLTRIM(UPPER(pdest))
  465.        DO CASE
  466.        CASE pdest = 'FILE'
  467.           IF !EMPTY(pfilname)
  468.              SET PRINTER TO (pfilname)
  469.           ELSE
  470.              SET PRINTER TO
  471.           ENDIF
  472.        OTHERWISE
  473.           pfilname = ''
  474.           SET PRINTER TO &pdest
  475.        ENDCASE
  476.     CASE cancbut = 1
  477.        IF origprtstat = 1
  478.           SET PRINT ON
  479.        ELSE
  480.           SET PRINT OFF
  481.        ENDIF
  482.        pdest = origdest
  483.        pfilname = prt_infile
  484.     ENDCASE
  485.     skipvar = .F.
  486.  
  487. ENDCASE
  488.  
  489.  
  490. *       *********************************************************
  491. *       *                                                         
  492. *       * _QKA0WV18Y           pdest VALID                        
  493. *       *                                                         
  494. *       * Function Origin:                                        
  495. *       *                                                         
  496. *       * From Platform:       Macintosh                          
  497. *       * From Screen:         PRTSETUP,     Record Number:    5  
  498. *       * Variable:            pdest                              
  499. *       * Called By:           VALID Clause                       
  500. *       * Object Type:         Popup                              
  501. *       * Snippet Number:      1                                  
  502. *       *                                                         
  503. *       *********************************************************
  504. *
  505. FUNCTION _qka0wv18y     &&  pdest VALID
  506. #REGION 1
  507. IF UPPER(pdest) = 'FILE'
  508.    _CUROBJ = 3
  509. ENDIF
  510. SHOW GETS
  511.  
  512. *       *********************************************************
  513. *       *                                                         
  514. *       * _QKA0WV1IO           flist VALID                        
  515. *       *                                                         
  516. *       * Function Origin:                                        
  517. *       *                                                         
  518. *       * From Platform:       Macintosh                          
  519. *       * From Screen:         PRTSETUP,     Record Number:    6  
  520. *       * Variable:            flist                              
  521. *       * Called By:           VALID Clause                       
  522. *       * Object Type:         Push Button                        
  523. *       * Snippet Number:      2                                  
  524. *       *                                                         
  525. *       *********************************************************
  526. *
  527. FUNCTION _qka0wv1io     &&  flist VALID
  528. #REGION 1
  529. IF flist = 1
  530.    origfile = pfilname
  531.    pfilname = GETFILE('','Print to:')
  532.    IF EMPTY(pfilname)
  533.       pfilname = origfile
  534.    ENDIF
  535. ENDIF
  536. pfilname = UPPER(PADR(pfilname,67))
  537. IF !EMPTY(pfilname)
  538.    pdest = 'File'
  539. ENDIF
  540. SHOW GETS
  541.  
  542. *       *********************************************************
  543. *       *                                                         
  544. *       * _QKA0WV1YF           pfilname VALID                     
  545. *       *                                                         
  546. *       * Function Origin:                                        
  547. *       *                                                         
  548. *       * From Platform:       Macintosh                          
  549. *       * From Screen:         PRTSETUP,     Record Number:    7  
  550. *       * Variable:            pfilname                           
  551. *       * Called By:           VALID Clause                       
  552. *       * Object Type:         Field                              
  553. *       * Snippet Number:      3                                  
  554. *       *                                                         
  555. *       *********************************************************
  556. *
  557. FUNCTION _qka0wv1yf     &&  pfilname VALID
  558. #REGION 1
  559. pfilname = PADR(UPPER(LTRIM(pfilname)),67)
  560. IF !EMPTY(pfilname)
  561.    pdest = 'File'
  562. ENDIF
  563. SHOW GETS
  564.  
  565. *       *********************************************************
  566. *       *                                                         
  567. *       * _QKA0WV2CB           _LMARGIN VALID                     
  568. *       *                                                         
  569. *       * Function Origin:                                        
  570. *       *                                                         
  571. *       * From Platform:       Macintosh                          
  572. *       * From Screen:         PRTSETUP,     Record Number:    9  
  573. *       * Variable:            _LMARGIN                           
  574. *       * Called By:           VALID Clause                       
  575. *       * Object Type:         Field                              
  576. *       * Snippet Number:      4                                  
  577. *       *                                                         
  578. *       *********************************************************
  579. *
  580. FUNCTION _qka0wv2cb     &&  _LMARGIN VALID
  581. #REGION 1
  582. _LMARGIN = MAX(0,_LMARGIN)
  583. SHOW GETS
  584.  
  585. *       *********************************************************
  586. *       *                                                         
  587. *       * _QKA0WV2KN           _RMARGIN VALID                     
  588. *       *                                                         
  589. *       * Function Origin:                                        
  590. *       *                                                         
  591. *       * From Platform:       Macintosh                          
  592. *       * From Screen:         PRTSETUP,     Record Number:   10  
  593. *       * Variable:            _RMARGIN                           
  594. *       * Called By:           VALID Clause                       
  595. *       * Object Type:         Field                              
  596. *       * Snippet Number:      5                                  
  597. *       *                                                         
  598. *       *********************************************************
  599. *
  600. FUNCTION _qka0wv2kn     &&  _RMARGIN VALID
  601. #REGION 1
  602. _RMARGIN = MIN(_RMARGIN,255)
  603. SHOW GETS
  604.  
  605. *       *********************************************************
  606. *       *                                                         
  607. *       * _QKA0WV2Y2           pdrivstup VALID                    
  608. *       *                                                         
  609. *       * Function Origin:                                        
  610. *       *                                                         
  611. *       * From Platform:       Macintosh                          
  612. *       * From Screen:         PRTSETUP,     Record Number:   13  
  613. *       * Variable:            pdrivstup                          
  614. *       * Called By:           VALID Clause                       
  615. *       * Object Type:         Check Box                          
  616. *       * Snippet Number:      6                                  
  617. *       *                                                         
  618. *       *********************************************************
  619. *
  620. FUNCTION _qka0wv2y2     &&  pdrivstup VALID
  621. #REGION 1
  622. DO (_GENPD) WITH 1,"?"
  623. IF LEN(_PDSETUP) = 0
  624.    pdrivstup = 0
  625. ELSE
  626.    pdrivstup = 1
  627. ENDIF
  628. SHOW GET pdrivstup
  629.  
  630. *       *********************************************************
  631. *       *                                                         
  632. *       * _QKA0WV3EQ           Read Level Deactivate              
  633. *       *                                                         
  634. *       * Function Origin:                                        
  635. *       *                                                         
  636. *       *                                                         
  637. *       * From Platform:       Macintosh                          
  638. *       * From Screen:         PRTSETUP                           
  639. *       * Called By:           READ Statement                     
  640. *       * Snippet Number:      7                                  
  641. *       *                                                         
  642. *       *********************************************************
  643. *
  644. FUNCTION _qka0wv3eq     && Read Level Deactivate
  645. *
  646. * Deactivate Code from screen: PRTSETUP
  647. *
  648. #REGION 1
  649. ?? CHR(7)
  650. RETURN .F.
  651.  
  652. *       *********************************************************
  653. *       *                                                         
  654. *       * _QKA0WV3F7           Read Level Show                    
  655. *       *                                                         
  656. *       * Function Origin:                                        
  657. *       *                                                         
  658. *       *                                                         
  659. *       * From Platform:       Macintosh                          
  660. *       * From Screen:         PRTSETUP                           
  661. *       * Called By:           READ Statement                     
  662. *       * Snippet Number:      8                                  
  663. *       *                                                         
  664. *       *********************************************************
  665. *
  666. FUNCTION _qka0wv3f7     && Read Level Show
  667. PRIVATE currwind
  668. STORE WOUTPUT() TO currwind
  669. *
  670. * Show Code from screen: PRTSETUP
  671. *
  672. #REGION 1
  673. IF UPPER(pdest) = 'FILE'
  674.    SHOW GET pfilname ENABLE
  675.    IF EMPTY(pfilname)
  676.       SHOW GET okbut DISABLE
  677.    ELSE
  678.       SHOW GET okbut ENABLE
  679.    ENDIF
  680. ELSE
  681.    SHOW GET pfilname DISABLE
  682.    SHOW GET okbut ENABLE
  683. ENDIF
  684. IF NOT EMPTY(currwind)
  685.     ACTIVATE WINDOW (currwind) SAME
  686. ENDIF
  687.  
  688. *       *********************************************************
  689. *       *                                                         
  690. *       * _QKA0WV6IR           pdest VALID                        
  691. *       *                                                         
  692. *       * Function Origin:                                        
  693. *       *                                                         
  694. *       * From Platform:       Windows                            
  695. *       * From Screen:         PRTSETUP,     Record Number:   22  
  696. *       * Variable:            pdest                              
  697. *       * Called By:           VALID Clause                       
  698. *       * Object Type:         Popup                              
  699. *       * Snippet Number:      9                                  
  700. *       *                                                         
  701. *       *********************************************************
  702. *
  703. FUNCTION _qka0wv6ir     &&  pdest VALID
  704. #REGION 1
  705. IF UPPER(pdest) = 'FILE'
  706.    _CUROBJ = 3
  707. ENDIF
  708. SHOW GETS
  709.  
  710. *       *********************************************************
  711. *       *                                                         
  712. *       * _QKA0WV6S1           flist VALID                        
  713. *       *                                                         
  714. *       * Function Origin:                                        
  715. *       *                                                         
  716. *       * From Platform:       Windows                            
  717. *       * From Screen:         PRTSETUP,     Record Number:   23  
  718. *       * Variable:            flist                              
  719. *       * Called By:           VALID Clause                       
  720. *       * Object Type:         Push Button                        
  721. *       * Snippet Number:      10                                 
  722. *       *                                                         
  723. *       *********************************************************
  724. *
  725. FUNCTION _qka0wv6s1     &&  flist VALID
  726. #REGION 1
  727. IF flist = 1
  728.    origfile = pfilname
  729.    pfilname = GETFILE('','Print to:')
  730.    IF EMPTY(pfilname)
  731.       pfilname = origfile
  732.    ENDIF
  733. ENDIF
  734. pfilname = UPPER(PADR(pfilname,67))
  735. IF !EMPTY(pfilname)
  736.    pdest = 'File'
  737. ENDIF
  738. SHOW GETS
  739.  
  740. *       *********************************************************
  741. *       *                                                         
  742. *       * _QKA0WV77R           pfilname VALID                     
  743. *       *                                                         
  744. *       * Function Origin:                                        
  745. *       *                                                         
  746. *       * From Platform:       Windows                            
  747. *       * From Screen:         PRTSETUP,     Record Number:   24  
  748. *       * Variable:            pfilname                           
  749. *       * Called By:           VALID Clause                       
  750. *       * Object Type:         Field                              
  751. *       * Snippet Number:      11                                 
  752. *       *                                                         
  753. *       *********************************************************
  754. *
  755. FUNCTION _qka0wv77r     &&  pfilname VALID
  756. #REGION 1
  757. pfilname = PADR(UPPER(LTRIM(pfilname)),67)
  758. IF !EMPTY(pfilname)
  759.    pdest = 'File'
  760. ENDIF
  761. SHOW GETS
  762.  
  763. *       *********************************************************
  764. *       *                                                         
  765. *       * _QKA0WV7L7           _LMARGIN VALID                     
  766. *       *                                                         
  767. *       * Function Origin:                                        
  768. *       *                                                         
  769. *       * From Platform:       Windows                            
  770. *       * From Screen:         PRTSETUP,     Record Number:   26  
  771. *       * Variable:            _LMARGIN                           
  772. *       * Called By:           VALID Clause                       
  773. *       * Object Type:         Field                              
  774. *       * Snippet Number:      12                                 
  775. *       *                                                         
  776. *       *********************************************************
  777. *
  778. FUNCTION _qka0wv7l7     &&  _LMARGIN VALID
  779. #REGION 1
  780. _LMARGIN = MAX(0,_LMARGIN)
  781. SHOW GETS
  782.  
  783. *       *********************************************************
  784. *       *                                                         
  785. *       * _QKA0WV7TJ           _RMARGIN VALID                     
  786. *       *                                                         
  787. *       * Function Origin:                                        
  788. *       *                                                         
  789. *       * From Platform:       Windows                            
  790. *       * From Screen:         PRTSETUP,     Record Number:   27  
  791. *       * Variable:            _RMARGIN                           
  792. *       * Called By:           VALID Clause                       
  793. *       * Object Type:         Field                              
  794. *       * Snippet Number:      13                                 
  795. *       *                                                         
  796. *       *********************************************************
  797. *
  798. FUNCTION _qka0wv7tj     &&  _RMARGIN VALID
  799. #REGION 1
  800. _RMARGIN = MIN(_RMARGIN,255)
  801. SHOW GETS
  802.  
  803. *       *********************************************************
  804. *       *                                                         
  805. *       * _QKA0WV86H           pdrivstup VALID                    
  806. *       *                                                         
  807. *       * Function Origin:                                        
  808. *       *                                                         
  809. *       * From Platform:       Windows                            
  810. *       * From Screen:         PRTSETUP,     Record Number:   30  
  811. *       * Variable:            pdrivstup                          
  812. *       * Called By:           VALID Clause                       
  813. *       * Object Type:         Check Box                          
  814. *       * Snippet Number:      14                                 
  815. *       *                                                         
  816. *       *********************************************************
  817. *
  818. FUNCTION _qka0wv86h     &&  pdrivstup VALID
  819. #REGION 1
  820. DO (_GENPD) WITH 1,"?"
  821. IF LEN(_PDSETUP) = 0
  822.    pdrivstup = 0
  823. ELSE
  824.    pdrivstup = 1
  825. ENDIF
  826. SHOW GET pdrivstup
  827.  
  828. *       *********************************************************
  829. *       *                                                         
  830. *       * _QKA0WV8NM           Read Level Deactivate              
  831. *       *                                                         
  832. *       * Function Origin:                                        
  833. *       *                                                         
  834. *       *                                                         
  835. *       * From Platform:       Windows                            
  836. *       * From Screen:         PRTSETUP                           
  837. *       * Called By:           READ Statement                     
  838. *       * Snippet Number:      15                                 
  839. *       *                                                         
  840. *       *********************************************************
  841. *
  842. FUNCTION _qka0wv8nm     && Read Level Deactivate
  843. *
  844. * Deactivate Code from screen: PRTSETUP
  845. *
  846. #REGION 1
  847. ?? CHR(7)
  848. RETURN .F.
  849.  
  850. *       *********************************************************
  851. *       *                                                         
  852. *       * _QKA0WV8NN           Read Level Show                    
  853. *       *                                                         
  854. *       * Function Origin:                                        
  855. *       *                                                         
  856. *       *                                                         
  857. *       * From Platform:       Windows                            
  858. *       * From Screen:         PRTSETUP                           
  859. *       * Called By:           READ Statement                     
  860. *       * Snippet Number:      16                                 
  861. *       *                                                         
  862. *       *********************************************************
  863. *
  864. FUNCTION _qka0wv8nn     && Read Level Show
  865. PRIVATE currwind
  866. STORE WOUTPUT() TO currwind
  867. *
  868. * Show Code from screen: PRTSETUP
  869. *
  870. #REGION 1
  871. IF UPPER(pdest) = 'FILE'
  872.    SHOW GET pfilname ENABLE
  873.    IF EMPTY(pfilname)
  874.       SHOW GET okbut DISABLE
  875.    ELSE
  876.       SHOW GET okbut ENABLE
  877.    ENDIF
  878. ELSE
  879.    SHOW GET pfilname DISABLE
  880.    SHOW GET okbut ENABLE
  881. ENDIF
  882. IF NOT EMPTY(currwind)
  883.     ACTIVATE WINDOW (currwind) SAME
  884. ENDIF