home *** CD-ROM | disk | FTP | other *** search
/ Power CD-ROM!! 7 / POWERCD7.ISO / os2 / etelr212 / etdir.vrm < prev    next >
Text File  |  1994-09-16  |  9KB  |  355 lines
  1. /* Custom mainline for macro */
  2.  
  3.     call RXFuncAdd "VRLoadFuncs", "VROBJ", "VRLoadFuncs"
  4.     call VRLoadFuncs
  5.  
  6.     _VREVersion = SubWord( VRVersion( "VRObj" ), 1, 1 )
  7.     if( _VREVersion < 2.10 )then do
  8.         call VRMessage "", "This program requires VX-REXX version 2.1 to run.", "Error!"
  9.         return 32000
  10.     end
  11.  
  12.     signal on SYNTAX name _VRESyntax
  13.     signal _VREMain
  14.  
  15. _VRESyntax:
  16.     parse source . . _VRESourceSpec
  17.     call VRMessage "", "Syntax error in" _VRESourceSpec "line" SIGL":" ErrorText(rc), "Error!"
  18.     call VRFini
  19.     exit 32000
  20.  
  21. _VREMain:
  22. /*:VRX         Main
  23. */
  24. /*  Main
  25. */
  26. Main:
  27. /*  Process the arguments.
  28.     Get the parent window.
  29. */
  30.     parse source . calledAs .
  31.     parent = ""
  32.     argCount = arg()
  33.     argOff = 0
  34.     if( calledAs \= "COMMAND" )then do
  35.         if argCount >= 1 then do
  36.             parent = arg(1)
  37.             argCount = argCount - 1
  38.             argOff = 1
  39.         end
  40.     end
  41.     InitArgs.0 = argCount
  42.     if( argCount > 0 )then do i = 1 to argCount
  43.         InitArgs.i = arg( i + argOff )
  44.     end
  45.     drop calledAs argCount argOff
  46.  
  47. /*  Load the windows
  48. */
  49.     call VRInit
  50.     parse source . . spec
  51.     _VREPrimaryWindowPath = ,
  52.         VRParseFileName( spec, "dpn" ) || ".VRW"
  53.     _VREPrimaryWindow = ,
  54.         VRLoad( parent, _VREPrimaryWindowPath )
  55.     drop parent spec
  56.     if( _VREPrimaryWindow == "" )then do
  57.         call VRMessage "", "Cannot load window:" VRError(), ,
  58.             "Error!"
  59.         _VREReturnValue = 32000
  60.         signal _VRELeaveMain
  61.     end
  62.  
  63. /*  Process events
  64. */
  65.     call Init
  66.     signal on halt
  67.     do while( \ VRGet( _VREPrimaryWindow, "Shutdown" ) )
  68.         _VREEvent = VREvent()
  69.         interpret _VREEvent
  70.     end
  71. _VREHalt:
  72.     _VREReturnValue = Fini()
  73.     call VRDestroy _VREPrimaryWindow
  74. _VRELeaveMain:
  75.     call VRFini
  76. exit _VREReturnValue
  77.  
  78. VRLoadSecondary: procedure
  79.     name = arg( 1 )
  80.  
  81.     window = VRLoad( VRWindow(), VRWindowPath(), name )
  82.     call VRMethod window, "CenterWindow"
  83.     call VRSet window, "Visible", 1
  84.     call VRMethod window, "Activate"
  85. return window
  86.  
  87. /*:VRX         CreateDir
  88. */
  89. CreateDir:
  90. Buttons.1 = "~Create"
  91. Buttons.2 = "~Cancel"
  92. Buttons.0 = 2
  93. id = VRMessage( VRWindow(), "Account directory '"||NewDir||"' does not exist.  Create it?", "Create Directory", "Query", "Buttons.", 1, 2 )
  94. drop buttons.
  95. if id = 2 then
  96.     NewDir = WorkDir
  97. if( \VRMkDir( NewDir ) )then do
  98.     call VRMessage '', VRError(), 'Error'
  99.     NewDir = WorkDir
  100. end
  101. return
  102.  
  103. /*:VRX         Fini
  104. */
  105. Fini:
  106.     window = VRWindow()
  107.     call VRSet window, "Visible", 0
  108.     drop window
  109. return 0
  110.  
  111. /*:VRX         Halt
  112. */
  113. Halt:
  114.     signal _VREHalt
  115. return
  116.  
  117. /*:VRX         Init
  118. */
  119. Init:
  120.     call VRMethod 'Application', 'GetVar', 'args.'
  121.     INI = args.1
  122.     et = args.2
  123.     WorkDir = args.3
  124.     if et = 'ET' then do
  125.         call VRSet 'EFAcctDir', 'Enabled', 1
  126.         call VRSet 'EFIconDir', 'Enabled', 1
  127.     end
  128.     if et = 'REPORT' then
  129.         call VRSet 'EFReptDir', 'Enabled', 1
  130.     if et = 'BUDGET' then
  131.         call VRSet 'EFBudgDir', 'Enabled', 1
  132.     window = VRWindow()
  133.     call VRMethod window, "CenterWindow"
  134.     call VRSet window, "Visible", 1
  135.     call VRMethod window, "Activate"
  136.     drop window
  137. return
  138.  
  139. /*:VRX         MoveAccount
  140. */
  141. MoveAccount:
  142. rc = 'ERROR'
  143. call VRMethod 'Application', 'PutVar', 'rc'
  144. s = VRDir( OldAcct'\*.clr', 'N' )
  145. count = 1
  146. files.0 = 0
  147. do while s <> ''
  148.     files.count = OldAcct'\'s
  149.     files.0 = count
  150.     count = count + 1
  151.     s = VRDir( , 'N' )
  152. end
  153. if files.0 = 0 then do
  154.     call VRMessage "", "Could not locate account files in directory:  "OldAcct"\. ", "Information"
  155.     return
  156. end; else do
  157.     if( \VRCopyFile( OldAcct'\*.clr', AcctDir'\*.clr' ) )then do
  158.         call VRMessage "", VRError(), "Error"
  159.         return
  160.     end; else
  161.         call VRDeleteFile OldAcct'\*.clr'
  162.     if( \VRCopyFile( OldAcct"\*.ldg", AcctDir"\*.ldg" ) )then do
  163.         call VRMessage "", VRError(), "Error"
  164.         return
  165.     end; else
  166.         call VRDeleteFile OldAcct'\*.ldg'
  167.     if( \VRCopyFile( OldAcct"\*.dat", AcctDir"\*.dat" ) )then do
  168.         call VRMessage "", VRError(), "Error"
  169.         return
  170.     end; else
  171.         call VRDeleteFile OldAcct'\*.dat'
  172. end
  173. rc = 'OK'
  174. call VRMethod 'Application', 'PutVar', 'rc'
  175. return
  176.  
  177. /*:VRX         MoveBudget
  178. */
  179. MoveBudget:
  180. s = VRDir( OldBudg'\*.bgt', 'N' )
  181. count = 1
  182. files.0 = 0
  183. do while s <> ''
  184.     files.count = OldBudg'\'s
  185.     files.0 = count
  186.     count = count + 1
  187.     s = VRDir( , 'N' )
  188. end
  189. if files.0 = 0 then do
  190.     call VRMessage "", "Could not locate budget files in directory:  "OldBudg"\. ", "Information"
  191.     return
  192. end; else do
  193.     if( \VRCopyFile( OldBudg'\*.bgt', BudgDir'\*.bgt' ) )then do
  194.         call VRMessage '', VRError(), 'Error'
  195.         return
  196.     end; else
  197.         call VRDeleteFile OldBudg'\*.bgt'
  198. end
  199. return
  200.  
  201. /*:VRX         MoveIcon
  202. */
  203. MoveIcon:
  204. s = VRDir( OldIcon'\*.ico', 'N' )
  205. count = 1
  206. files.0 = 0
  207. do while s <> ''
  208.     files.count = OldIcon'\'s
  209.     files.0 = count
  210.     count = count + 1
  211.     s = VRDir( , 'N' )
  212. end
  213. if files.0 = 0 then do
  214.     call VRMessage "", "Could not locate icon files in directory:  "OldIcon"\. ", "Information"
  215.     return
  216. end; else do
  217.     if( \VRCopyFile( OldIcon'\*.ico', IconDir'\*.ico' ) )then do
  218.         call VRMessage '', VRError(), 'Error'
  219.         return
  220.     end; else
  221.         call VRDeleteFile OldIcon'\*.ico'
  222. end
  223. return
  224.  
  225. /*:VRX         MoveReport
  226. */
  227. MoveReport:
  228. s = VRDir( OldRept'\*.rpt', 'N' )
  229. count = 1
  230. files.0 = 0
  231. do while s <> ''
  232.     files.count = OldRept'\'s
  233.     files.0 = count
  234.     count = count + 1
  235.     s = VRDir( , 'N' )
  236. end
  237. if files.0 = 0 then do
  238.     call VRMessage "", "Could not locate report files in directory:  "OldRept"\. ", "Information"
  239.     return
  240. end; else do
  241.     if( \VRCopyFile( OldRept'\*.rpt', ReptDir'\*.rpt' ) )then do
  242.         call VRMessage '', VRError(), 'Error'
  243.         return
  244.     end; else
  245.         call VRDeleteFile OldRept'\*.rpt'
  246. end
  247. return
  248.  
  249. /*:VRX         PBSWDirCancel_Click
  250. */
  251. PBSWDirCancel_Click:
  252.     dir.0 = 0
  253.     call VRMethod 'Application', 'PutVar', 'dir.'
  254.     call Quit
  255. return
  256.  
  257. /*:VRX         PBSWDirSave_Click
  258. */
  259. PBSWDirSave_Click:
  260. AcctDir = Strip( VRGet( 'EFAcctDir', 'Value' ), 'T', '\' )
  261. if( \VRIsDir( AcctDir ) )then do
  262.     NewDir = AcctDir
  263.     call CreateDir
  264.     AcctDir = NewDir
  265. end
  266. BudgDir = Strip( VRGet( 'EFBudgDir', 'Value' ), 'T', '\' )
  267. if( \VRIsDir( BudgDir ) )then do
  268.     NewDir = BudgDir
  269.     call CreateDir
  270.     BudgDir = NewDir
  271. end
  272. IconDir = Strip( VRGet( 'EFIconDir', 'Value' ), 'T', '\' )
  273. if( \VRIsDir( IconDir ) )then do
  274.     NewDir = IconDir
  275.     call CreateDir
  276.     IconDir = NewDir
  277. end
  278. ReptDir = Strip( VRGet( 'EFReptDir', 'Value' ), 'T', '\' )
  279. if( \VRIsDir( ReptDir ) )then do
  280.     NewDir = ReptDir
  281.     call CreateDir
  282.     ReptDir = NewDir
  283. end
  284. if BudgDir <> OldBudg then do
  285.     call VRSetIni 'Main', 'BudgDir', BudgDir, INI
  286.     call MoveBudget
  287. end
  288. if IconDir <> OldIcon then do
  289.     call VRSetIni 'Main', 'IconDir', IconDir, INI
  290.     call MoveIcon
  291. end
  292. if ReptDir <> OldRept then do
  293.     call VRSetIni 'Main', 'ReptDir', ReptDir, INI
  294.     call MoveReport
  295. end
  296. if AcctDir <> OldAcct then do
  297.     call VRSetIni 'Main', 'AcctDir', AcctDir, INI
  298.     call MoveAccount
  299. end
  300. dir.1 = AcctDir
  301. dir.2 = BudgDir
  302. dir.3 = IconDir
  303. dir.4 = ReptDir
  304. dir.0 = 4
  305. call VRMethod 'Application', 'PutVar', 'dir.'
  306. call Quit
  307. return
  308.  
  309. /*:VRX         Quit
  310. */
  311. Quit:
  312.     window = VRWindow()
  313.     call VRSet window, "Shutdown", 1
  314.     drop window
  315. return
  316.  
  317. /*:VRX         Window1_Close
  318. */
  319. Window1_Close:
  320.     call Quit
  321. return
  322.  
  323. /*:VRX         Window1_Create
  324. */
  325. Window1_Create:
  326. WorkDir = VRGet( 'Application', 'WorkingDirectory' )
  327. AcctDir = VRGetIni( 'Main', 'AcctDir', INI, 'NoClose' )
  328. BudgDir = VRGetIni( 'Main', 'BudgDir', INI, 'NoClose' )
  329. IconDir = VRGetIni( 'Main', 'IconDir', INI, 'NoClose' )
  330. ReptDir = VRGetIni( 'Main', 'ReptDir', INI )
  331. if AcctDir = '' then
  332.     acctDir = WorkDir
  333. if BudgDir = '' then
  334.     budgDir = WorkDir
  335. if IconDir = '' then
  336.     IconDir = WorkDir||"\Icons"
  337. if ReptDir = '' then
  338.     ReptDir = WorkDir
  339. call VRSet 'EFAcctDir', 'Value', AcctDir
  340. call VRSet 'EFBudgDir', 'Value', BudgDir
  341. call VRSet 'EFIconDir', 'Value', IconDir
  342. call VRSet 'EFReptDir', 'Value', ReptDir
  343. OldAcct = AcctDir
  344. OldBudg = BudgDir
  345. OldIcon = IconDir
  346. OldRept = ReptDir
  347. return
  348.  
  349. /*:VRX         Window1_Help
  350. */
  351. Window1_Help: 
  352. address cmd 'view e-teller Directories...'
  353. return
  354.  
  355.