home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a106 / 2.ddi / GETDEST.PR_ / GETDEST.bin
Encoding:
Text File  |  1994-04-28  |  9.0 KB  |  265 lines
  1. *       ╓─────────────────────────────────────────────────────────╖
  2. *       ║                                                         ║
  3. *       ║ 12/18/92             GETDEST.SPR               10:27:24 ║
  4. *       ║                                                         ║
  5. *       ╟─────────────────────────────────────────────────────────╢
  6. *       ║                                                         ║
  7. *       ║ Walter J. Kennamer                                      ║
  8. *       ║                                                         ║
  9. *       ║ Copyright (c) 1992 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.  
  19. #REGION 0
  20. REGIONAL m.currarea, m.talkstat, m.compstat
  21.  
  22. IF SET("TALK") = "ON"
  23.     SET TALK OFF
  24.     m.talkstat = "ON"
  25. ELSE
  26.     m.talkstat = "OFF"
  27. ENDIF
  28. m.compstat = SET("COMPATIBLE")
  29. SET COMPATIBLE FOXPLUS
  30.  
  31. m.rborder = SET("READBORDER")
  32. SET READBORDER ON
  33.  
  34. *       ╓─────────────────────────────────────────────────────────╖
  35. *       ║                                                         ║
  36. *       ║               Windows Window definitions                ║
  37. *       ║                                                         ║
  38. *       ╙─────────────────────────────────────────────────────────╜
  39. *
  40.  
  41. IF NOT WEXIST("_qbp0meur0")
  42.     DEFINE WINDOW _qbp0meur0 ;
  43.         AT  0.000, 0.000  ;
  44.         SIZE 5.692,42.000 ;
  45.         TITLE "Report Destination" ;
  46.         FONT "MS Sans Serif", 8 ;
  47.         STYLE "B" ;
  48.         FLOAT ;
  49.         NOCLOSE ;
  50.         SHADOW ;
  51.         NOMINIMIZE ;
  52.         DOUBLE
  53.     MOVE WINDOW _qbp0meur0 CENTER
  54. ENDIF
  55.  
  56.  
  57. *       ╓─────────────────────────────────────────────────────────╖
  58. *       ║                                                         ║
  59. *       ║         GETDEST/Windows Setup Code - SECTION 2          ║
  60. *       ║                                                         ║
  61. *       ╙─────────────────────────────────────────────────────────╜
  62. *
  63.  
  64. #REGION 1
  65. skipvar = .T.
  66. repbut = 1   && default button choice
  67. repdest = SPACE(40)
  68. okbut = 0
  69.  
  70. * Disable the file options if 'file' isn't the default destination
  71. IF repbut = 3
  72.    SHOW GET repdest ENABLE
  73.    SHOW GET rfile   ENABLE
  74. ELSE
  75.    SHOW GET repdest DISABLE
  76.    SHOW GET rfile   DISABLE
  77. ENDIF
  78.  
  79.  
  80. *       ╓─────────────────────────────────────────────────────────╖
  81. *       ║                                                         ║
  82. *       ║              GETDEST/Windows Screen Layout              ║
  83. *       ║                                                         ║
  84. *       ╙─────────────────────────────────────────────────────────╜
  85. *
  86.  
  87. #REGION 1
  88. IF WVISIBLE("_qbp0meur0")
  89.     ACTIVATE WINDOW _qbp0meur0 SAME
  90. ELSE
  91.     ACTIVATE WINDOW _qbp0meur0 NOSHOW
  92. ENDIF
  93. @ 0.692,2.000 SAY "Report Destination:" ;
  94.     SIZE 1.000,18.500, 0.000 ;
  95.     FONT "MS Sans Serif", 8 ;
  96.     STYLE "B"
  97. @ 1.846,4.000 GET repbut ;
  98.     PICTURE "@*RVN \<Screen;\<Printer" ;
  99.     SIZE 1.308,11.167,0.000 ;
  100.     DEFAULT 1 ;
  101.     FONT "MS Sans Serif", 8 ;
  102.     STYLE "B" ;
  103.     VALID _qbp0mevnu()
  104. @ 0.769,29.833 GET okbut ;
  105.     PICTURE "@*VT \!OK" ;
  106.     SIZE 1.769,10.000,1.000 ;
  107.     DEFAULT 1 ;
  108.     FONT "MS Sans Serif", 8 ;
  109.     STYLE "B"
  110. @ 2.846,29.833 GET canclbut ;
  111.     PICTURE "@*HT \?Cancel" ;
  112.     SIZE 1.769,10.000,1.000 ;
  113.     DEFAULT 1 ;
  114.     FONT "MS Sans Serif", 8 ;
  115.     STYLE "B" ;
  116.     VALID _qbp0mevxs()
  117.  
  118. IF NOT WVISIBLE("_qbp0meur0")
  119.     ACTIVATE WINDOW _qbp0meur0
  120. ENDIF
  121.  
  122.  
  123. *       ╓─────────────────────────────────────────────────────────╖
  124. *       ║                                                         ║
  125. *       ║    WindowsREAD contains clauses from SCREEN getdest     ║
  126. *       ║                                                         ║
  127. *       ╙─────────────────────────────────────────────────────────╜
  128. *
  129.  
  130. READ CYCLE ;
  131.     DEACTIVATE _qbp0mew4r() ;
  132.     SHOW _qbp0mew4y() ;
  133.     MODAL
  134.  
  135. RELEASE WINDOW _qbp0meur0
  136.  
  137. #REGION 0
  138.  
  139. SET READBORDER &rborder
  140.  
  141. IF m.talkstat = "ON"
  142.     SET TALK ON
  143. ENDIF
  144. IF m.compstat = "ON"
  145.     SET COMPATIBLE ON
  146. ENDIF
  147.  
  148.  
  149. *       ╓─────────────────────────────────────────────────────────╖
  150. *       ║                                                         ║
  151. *       ║              GETDEST/Windows Cleanup Code               ║
  152. *       ║                                                         ║
  153. *       ╙─────────────────────────────────────────────────────────╜
  154. *
  155.  
  156. #REGION 1
  157. skipvar = .F.
  158.  
  159.  
  160. *       ╓─────────────────────────────────────────────────────────╖
  161. *       ║                                                         ║
  162. *       ║ _QBP0MEVNU           repbut VALID                       ║
  163. *       ║                                                         ║
  164. *       ║ Function Origin:                                        ║
  165. *       ║                                                         ║
  166. *       ║ From Platform:       Windows                            ║
  167. *       ║ From Screen:         GETDEST,     Record Number:    3   ║
  168. *       ║ Variable:            repbut                             ║
  169. *       ║ Called By:           VALID Clause                       ║
  170. *       ║ Snippet Number:      1                                  ║
  171. *       ║                                                         ║
  172. *       ╙─────────────────────────────────────────────────────────╜
  173. *
  174. FUNCTION _qbp0mevnu     &&  repbut VALID
  175. #REGION 1
  176. IF repbut <> 3
  177.    SHOW GET rfile DISABLE
  178.    SHOW GET repdest DISABLE
  179. ELSE
  180.    SHOW GET rfile ENABLE
  181.    SHOW GET repdest ENABLE
  182.    _CUROBJ = 5
  183. ENDIF
  184. SHOW GETS
  185.  
  186.  
  187. *       ╓─────────────────────────────────────────────────────────╖
  188. *       ║                                                         ║
  189. *       ║ _QBP0MEVXS           canclbut VALID                     ║
  190. *       ║                                                         ║
  191. *       ║ Function Origin:                                        ║
  192. *       ║                                                         ║
  193. *       ║ From Platform:       Windows                            ║
  194. *       ║ From Screen:         GETDEST,     Record Number:    5   ║
  195. *       ║ Variable:            canclbut                           ║
  196. *       ║ Called By:           VALID Clause                       ║
  197. *       ║ Snippet Number:      2                                  ║
  198. *       ║                                                         ║
  199. *       ╙─────────────────────────────────────────────────────────╜
  200. *
  201. FUNCTION _qbp0mevxs     &&  canclbut VALID
  202. #REGION 1
  203. repdest = ''
  204.  
  205. *       ╓─────────────────────────────────────────────────────────╖
  206. *       ║                                                         ║
  207. *       ║ _QBP0MEW4R           Read Level Deactivate              ║
  208. *       ║                                                         ║
  209. *       ║ Function Origin:                                        ║
  210. *       ║                                                         ║
  211. *       ║                                                         ║
  212. *       ║ From Platform:       Windows                            ║
  213. *       ║ From Screen:         GETDEST                            ║
  214. *       ║ Called By:           READ Statement                     ║
  215. *       ║ Snippet Number:      3                                  ║
  216. *       ║                                                         ║
  217. *       ╙─────────────────────────────────────────────────────────╜
  218. *
  219. FUNCTION _qbp0mew4r     && Read Level Deactivate
  220. *
  221. * Deactivate Code from screen: GETDEST
  222. *
  223. #REGION 1
  224. ?? CHR(7)
  225. RETURN .F.
  226.  
  227.  
  228. *       ╓─────────────────────────────────────────────────────────╖
  229. *       ║                                                         ║
  230. *       ║ _QBP0MEW4Y           Read Level Show                    ║
  231. *       ║                                                         ║
  232. *       ║ Function Origin:                                        ║
  233. *       ║                                                         ║
  234. *       ║                                                         ║
  235. *       ║ From Platform:       Windows                            ║
  236. *       ║ From Screen:         GETDEST                            ║
  237. *       ║ Called By:           READ Statement                     ║
  238. *       ║ Snippet Number:      4                                  ║
  239. *       ║                                                         ║
  240. *       ╙─────────────────────────────────────────────────────────╜
  241. *
  242. FUNCTION _qbp0mew4y     && Read Level Show
  243. PRIVATE currwind
  244. STORE WOUTPUT() TO currwind
  245. *
  246. * Show Code from screen: GETDEST
  247. *
  248. #REGION 1
  249. IF repbut = 3
  250.    SHOW GET repdest ENABLE
  251.    SHOW GET rfile   ENABLE
  252. ELSE
  253.    SHOW GET repdest DISABLE
  254.    SHOW GET rfile   DISABLE
  255. ENDIF
  256.  
  257. IF repbut = 3 AND EMPTY(repdest)
  258.    SHOW GET okbut DISABLE
  259. ELSE
  260.    SHOW GET okbut ENABLE
  261. ENDIF
  262.  
  263. IF NOT EMPTY(currwind)
  264.     ACTIVATE WINDOW (currwind) SAME
  265. ENDIF