Liren Large Software Subsidy 5/05.iso/a/a087/4.ddi/GETDEST.PR_/GETDEST.bin

Text File | 1994-02-02 | 17.3 KB | 521 lines

*       *********************************************************
*       *
*       * 10/22/93             GETDEST.PRG               15:18:41
*       *
*       *********************************************************
*       *
*       * Walter J. Kennamer
*       *
*       * Copyright (c) 1993 Microsoft Corp.
*       * One Microsoft Way
*       * Redmond, WA  98027
*       *
*       * Description:
*       * This program was automatically generated by GENSCRN.
*       *
*       *********************************************************

DO CASE
CASE _MAC


    #REGION 0
    REGIONAL m.currarea, m.talkstat, m.compstat

    IF SET("TALK") = "ON"
        SET TALK OFF
        m.talkstat = "ON"
    ELSE
        m.talkstat = "OFF"
    ENDIF
    m.compstat = SET("COMPATIBLE")
    SET COMPATIBLE FOXPLUS

    m.rborder = SET("READBORDER")
    SET READBORDER ON

    m.currarea = SELECT()


    *       *********************************************************
    *       *
    *       *              Macintosh Window definitions
    *       *
    *       *********************************************************
    *

    IF NOT WEXIST("_qka0wtfmv")
        DEFINE WINDOW _qka0wtfmv ;
            AT  0.000, 0.000  ;
            SIZE 5.692,42.000 ;
            TITLE "Report Destination" ;
            FONT "Geneva", 10 ;
            FLOAT ;
            NOCLOSE ;
            SHADOW ;
            DOUBLE
        MOVE WINDOW _qka0wtfmv CENTER
    ENDIF


    *       *********************************************************
    *       *
    *       *        GETDEST/Macintosh Setup Code - SECTION 2
    *       *
    *       *********************************************************
    *

    #REGION 1
    skipvar = .T.
    repbut = 1   && default button choice
    repdest = SPACE(40)
    okbut = 0

    * Disable the file options if 'file' isn't the default destination
    IF repbut = 3
       SHOW GET repdest ENABLE
       SHOW GET rfile   ENABLE
    ELSE
       SHOW GET repdest DISABLE
       SHOW GET rfile   DISABLE
    ENDIF

    *       *********************************************************
    *       *
    *       *             GETDEST/Macintosh Screen Layout
    *       *
    *       *********************************************************
    *

    #REGION 1
    IF WVISIBLE("_qka0wtfmv")
        ACTIVATE WINDOW _qka0wtfmv SAME
    ELSE
        ACTIVATE WINDOW _qka0wtfmv NOSHOW
    ENDIF
    @ 0.692,2.000 SAY "Report Destination:"  ;
        FONT "Geneva", 10
    @ 1.846,4.000 GET repbut ;
        PICTURE "@*RVN3 \<Screen;\<Printer" ;
        SIZE 1.308,10.333,0.000 ;
        DEFAULT 1 ;
        FONT "Geneva", 10 ;
        STYLE "T" ;
        VALID _qka0wtgzh()
    @ 0.923,28.000 GET okbut ;
        PICTURE "@*VT3 \!OK" ;
        SIZE 1.462,10.000,1.000 ;
        DEFAULT 1 ;
        FONT "Geneva", 10 ;
        STYLE "B"
    @ 3.077,28.000 GET canclbut ;
        PICTURE "@*HT3 \?Cancel" ;
        SIZE 1.462,10.000,1.000 ;
        DEFAULT 1 ;
        FONT "Geneva", 10 ;
        STYLE "B" ;
        VALID _qka0wthcx()

    IF NOT WVISIBLE("_qka0wtfmv")
        ACTIVATE WINDOW _qka0wtfmv
    ENDIF


    *       *********************************************************
    *       *
    *       *   MacintoshREAD contains clauses from SCREEN getdest
    *       *
    *       *********************************************************
    *

    READ CYCLE ;
        DEACTIVATE _qka0wthmn() ;
        SHOW _qka0wthn3() ;
        MODAL

    RELEASE WINDOW _qka0wtfmv
    SELECT (m.currarea)


    #REGION 0

    SET READBORDER &rborder

    IF m.talkstat = "ON"
        SET TALK ON
    ENDIF
    IF m.compstat = "ON"
        SET COMPATIBLE ON
    ENDIF


    *       *********************************************************
    *       *
    *       *             GETDEST/Macintosh Cleanup Code
    *       *
    *       *********************************************************
    *

    #REGION 1
    skipvar = .F.

CASE _WINDOWS


    #REGION 0
    REGIONAL m.currarea, m.talkstat, m.compstat

    IF SET("TALK") = "ON"
        SET TALK OFF
        m.talkstat = "ON"
    ELSE
        m.talkstat = "OFF"
    ENDIF
    m.compstat = SET("COMPATIBLE")
    SET COMPATIBLE FOXPLUS

    m.rborder = SET("READBORDER")
    SET READBORDER ON

    m.currarea = SELECT()


    *       *********************************************************
    *       *
    *       *               Windows Window definitions
    *       *
    *       *********************************************************
    *

    IF NOT WEXIST("_qka0wtig9")
        DEFINE WINDOW _qka0wtig9 ;
            AT  0.000, 0.000  ;
            SIZE 5.692,42.000 ;
            TITLE "Report Destination" ;
            FONT "MS Sans Serif", 8 ;
            STYLE "B" ;
            FLOAT ;
            NOCLOSE ;
            SHADOW ;
            NOMINIMIZE ;
            DOUBLE
        MOVE WINDOW _qka0wtig9 CENTER
    ENDIF


    *       *********************************************************
    *       *
    *       *         GETDEST/Windows Setup Code - SECTION 2
    *       *
    *       *********************************************************
    *

    #REGION 1
    skipvar = .T.
    repbut = 1   && default button choice
    repdest = SPACE(40)
    okbut = 0

    * Disable the file options if 'file' isn't the default destination
    IF repbut = 3
       SHOW GET repdest ENABLE
       SHOW GET rfile   ENABLE
    ELSE
       SHOW GET repdest DISABLE
       SHOW GET rfile   DISABLE
    ENDIF

    *       *********************************************************
    *       *
    *       *              GETDEST/Windows Screen Layout
    *       *
    *       *********************************************************
    *

    #REGION 1
    IF WVISIBLE("_qka0wtig9")
        ACTIVATE WINDOW _qka0wtig9 SAME
    ELSE
        ACTIVATE WINDOW _qka0wtig9 NOSHOW
    ENDIF
    @ 0.692,2.000 SAY "Report Destination:"  ;
        FONT "MS Sans Serif", 8 ;
        STYLE "B"
    @ 1.846,4.000 GET repbut ;
        PICTURE "@*RVN \<Screen;\<Printer" ;
        SIZE 1.308,11.167,0.000 ;
        DEFAULT 1 ;
        FONT "MS Sans Serif", 8 ;
        STYLE "B" ;
        VALID _qka0wtjez()
    @ 0.769,29.833 GET okbut ;
        PICTURE "@*VT \!OK" ;
        SIZE 1.769,10.000,1.000 ;
        DEFAULT 1 ;
        FONT "MS Sans Serif", 8 ;
        STYLE "B"
    @ 2.846,29.833 GET canclbut ;
        PICTURE "@*HT \?Cancel" ;
        SIZE 1.769,10.000,1.000 ;
        DEFAULT 1 ;
        FONT "MS Sans Serif", 8 ;
        STYLE "B" ;
        VALID _qka0wtjsv()

    IF NOT WVISIBLE("_qka0wtig9")
        ACTIVATE WINDOW _qka0wtig9
    ENDIF


    *       *********************************************************
    *       *
    *       *    WindowsREAD contains clauses from SCREEN getdest
    *       *
    *       *********************************************************
    *

    READ CYCLE ;
        DEACTIVATE _qka0wtk17() ;
        SHOW _qka0wtk1o() ;
        MODAL

    RELEASE WINDOW _qka0wtig9
    SELECT (m.currarea)


    #REGION 0

    SET READBORDER &rborder

    IF m.talkstat = "ON"
        SET TALK ON
    ENDIF
    IF m.compstat = "ON"
        SET COMPATIBLE ON
    ENDIF


    *       *********************************************************
    *       *
    *       *              GETDEST/Windows Cleanup Code
    *       *
    *       *********************************************************
    *

    #REGION 1
    skipvar = .F.

ENDCASE


*       *********************************************************
*       *
*       * _QKA0WTGZH           repbut VALID
*       *
*       * Function Origin:
*       *
*       * From Platform:       Macintosh
*       * From Screen:         GETDEST,     Record Number:    3
*       * Variable:            repbut
*       * Called By:           VALID Clause
*       * Object Type:         Radio Button
*       * Snippet Number:      1
*       *
*       *********************************************************
*
FUNCTION _qka0wtgzh     &&  repbut VALID
#REGION 1
IF repbut <> 3
   SHOW GET rfile DISABLE
   SHOW GET repdest DISABLE
ELSE
   SHOW GET rfile ENABLE
   SHOW GET repdest ENABLE
   _CUROBJ = 5
ENDIF
SHOW GETS

*       *********************************************************
*       *
*       * _QKA0WTHCX           canclbut VALID
*       *
*       * Function Origin:
*       *
*       * From Platform:       Macintosh
*       * From Screen:         GETDEST,     Record Number:    5
*       * Variable:            canclbut
*       * Called By:           VALID Clause
*       * Object Type:         Push Button
*       * Snippet Number:      2
*       *
*       *********************************************************
*
FUNCTION _qka0wthcx     &&  canclbut VALID
#REGION 1
repdest = ''

*       *********************************************************
*       *
*       * _QKA0WTHMN           Read Level Deactivate
*       *
*       * Function Origin:
*       *
*       *
*       * From Platform:       Macintosh
*       * From Screen:         GETDEST
*       * Called By:           READ Statement
*       * Snippet Number:      3
*       *
*       *********************************************************
*
FUNCTION _qka0wthmn     && Read Level Deactivate
*
* Deactivate Code from screen: GETDEST
*
#REGION 1
?? CHR(7)
RETURN .F.

*       *********************************************************
*       *
*       * _QKA0WTHN3           Read Level Show
*       *
*       * Function Origin:
*       *
*       *
*       * From Platform:       Macintosh
*       * From Screen:         GETDEST
*       * Called By:           READ Statement
*       * Snippet Number:      4
*       *
*       *********************************************************
*
FUNCTION _qka0wthn3     && Read Level Show
PRIVATE currwind
STORE WOUTPUT() TO currwind
*
* Show Code from screen: GETDEST
*
#REGION 1
IF repbut = 3
   SHOW GET repdest ENABLE
   SHOW GET rfile   ENABLE
ELSE
   SHOW GET repdest DISABLE
   SHOW GET rfile   DISABLE
ENDIF

IF repbut = 3 AND EMPTY(repdest)
   SHOW GET okbut DISABLE
ELSE
   SHOW GET okbut ENABLE
ENDIF
IF NOT EMPTY(currwind)
    ACTIVATE WINDOW (currwind) SAME
ENDIF

*       *********************************************************
*       *
*       * _QKA0WTJEZ           repbut VALID
*       *
*       * Function Origin:
*       *
*       * From Platform:       Windows
*       * From Screen:         GETDEST,     Record Number:   10
*       * Variable:            repbut
*       * Called By:           VALID Clause
*       * Object Type:         Radio Button
*       * Snippet Number:      5
*       *
*       *********************************************************
*
FUNCTION _qka0wtjez     &&  repbut VALID
#REGION 1
IF repbut <> 3
   SHOW GET rfile DISABLE
   SHOW GET repdest DISABLE
ELSE
   SHOW GET rfile ENABLE
   SHOW GET repdest ENABLE
   _CUROBJ = 5
ENDIF
SHOW GETS

*       *********************************************************
*       *
*       * _QKA0WTJSV           canclbut VALID
*       *
*       * Function Origin:
*       *
*       * From Platform:       Windows
*       * From Screen:         GETDEST,     Record Number:   12
*       * Variable:            canclbut
*       * Called By:           VALID Clause
*       * Object Type:         Push Button
*       * Snippet Number:      6
*       *
*       *********************************************************
*
FUNCTION _qka0wtjsv     &&  canclbut VALID
#REGION 1
repdest = ''

*       *********************************************************
*       *
*       * _QKA0WTK17           Read Level Deactivate
*       *
*       * Function Origin:
*       *
*       *
*       * From Platform:       Windows
*       * From Screen:         GETDEST
*       * Called By:           READ Statement
*       * Snippet Number:      7
*       *
*       *********************************************************
*
FUNCTION _qka0wtk17     && Read Level Deactivate
*
* Deactivate Code from screen: GETDEST
*
#REGION 1
?? CHR(7)
RETURN .F.

*       *********************************************************
*       *
*       * _QKA0WTK1O           Read Level Show
*       *
*       * Function Origin:
*       *
*       *
*       * From Platform:       Windows
*       * From Screen:         GETDEST
*       * Called By:           READ Statement
*       * Snippet Number:      8
*       *
*       *********************************************************
*
FUNCTION _qka0wtk1o     && Read Level Show
PRIVATE currwind
STORE WOUTPUT() TO currwind
*
* Show Code from screen: GETDEST
*
#REGION 1
IF repbut = 3
   SHOW GET repdest ENABLE
   SHOW GET rfile   ENABLE
ELSE
   SHOW GET repdest DISABLE
   SHOW GET rfile   DISABLE
ENDIF

IF repbut = 3 AND EMPTY(repdest)
   SHOW GET okbut DISABLE
ELSE
   SHOW GET okbut ENABLE
ENDIF
IF NOT EMPTY(currwind)
    ACTIVATE WINDOW (currwind) SAME
ENDIF