home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a031 / template.exe / AS_ACTN.COD < prev    next >
Encoding:
Text File  |  1992-03-10  |  10.3 KB  |  503 lines
  1. //
  2. // Module Name: AS_ACTN.COD
  3. // Description: Menu item actions (taken out of AS_MENU.COD)
  4. //
  5. PROCEDURE ACT0{prgcnt}
  6. *{replicate("-",69)}
  7. //
  8. // display the appropriate menu type on the comment line
  9. //
  10. * Begin {Menu_Name}: \
  11. { case Menu_Type of}
  12. {popup:}POPUP \
  13. {f_pick:}FILES \
  14. {s_pick:}STRUCTURE \
  15. {v_pick:}VALUES \
  16. {bar:}BAR \
  17. {btch:}BATCH \
  18. { endcase}
  19. Menu Actions.
  20. * Includes before item, action, and after item as needed
  21. *
  22. *{replicate("-",69)}
  23. //
  24. // if the menu type is not a file, structure, value or batch
  25. // include the dBASE case structure in the code.
  26. //
  27. {LMARG(3);}
  28. PRIVATE lc_new, lc_dbf
  29. lc_new=' '
  30. lc_dbf=' '
  31. {if not AT(mtype,"3459") then}
  32. gc_scope=''
  33. DO CASE
  34. {LMARG(5);}
  35. {else}
  36. {  if Menu_Type != s_pick then}
  37. listval=PROMPT()
  38. {  endif}
  39. {  if Menu_Type == btch then}
  40. PRIVATE gl_batch
  41. gl_batch=.T.
  42. {  endif}
  43. {endif}
  44. {cnt=0;
  45.  count=1;
  46.  windowvar=1;
  47. }
  48. { foreach FLD_ELEMENT k}
  49. //
  50. // increment the choice number
  51. //
  52. {   ++cnt;}
  53. //
  54. // Initialize to multi user flags to false.
  55. //
  56. {muser=0;}
  57. {exclflg=0;}
  58. //
  59. // NOT a line of text in the menu OR NOT an action (Text no act.), skip it
  60. //
  61. {   if (not AT(mtype,"3459")) && (!Fld_Pictur || !Menu_Act) goto newact endif}
  62. //
  63. // if the menu type is not a file, structure, value or batch,
  64. // include the dBASE case statement in the code.
  65. //
  66. {     if not AT(mtype,"3459") then}
  67. {       LMARG(5);}
  68. //
  69.  
  70. *-- {Fld_Pictur}
  71. {       if Menu_Type == bar then}
  72. CASE "PAD_{cnt}" = PAD()
  73. {       else}
  74. CASE BAR() = {Row_Positn}
  75. {       endif}
  76. //
  77. // if the menu is a popup associated with a pulldown set the margin.
  78. //
  79. {       LMARG(7);}
  80. {     else}
  81. //
  82. // if the menu is a batch object comment the action number
  83. //
  84. {       if Menu_Type == btch then}
  85.  
  86. *-- Action #{cnt} {FLD_PICTUR}
  87. {         if ITEMSKIPIF then}
  88. IF .NOT. {ITEMSKIPIF}
  89. {           lmarg(5);}
  90. {         endif}
  91. {       endif}
  92. {     endif}
  93. //
  94. // item before actions (batch object)
  95. //
  96. {   if Menu_type == btch then
  97.       foreach Item_Befor m in k
  98.         if Item_Befor then
  99.           print(rtrim(Item_Befor)+CHR(10));
  100.         endif
  101.       next m;
  102.     endif
  103. }
  104. //
  105. // This section covers multi user actions
  106. //
  107. // Set the the muser variable to 1 for true.
  108. //
  109. {case Menu_Act of}
  110. {appd:}
  111. {  muser=1;}
  112. {rcopy:}
  113. {  muser=1;}
  114. {repl:}
  115. {  if Scope || While_Exp || For_Expr then}
  116. {    muser=1;}
  117. {  endif}
  118. {dele:}
  119. {  if Scope || While_Exp || For_Expr then}
  120. {    muser=1;}
  121. {  else}
  122. {    muser=2;}
  123. {  endif}
  124. {reca:}
  125. {  muser=1;}
  126. {pack:}
  127. {  exclflg=1;}
  128. {indx:}
  129. {  muser=1;}
  130. {rndx:}
  131. {  exclflg=1;}
  132. {sort:}
  133. {  muser=1;}
  134. {impt:}
  135. {  muser=1;}
  136. {expt:}
  137. {  muser=1;}
  138. {endcase}
  139. //
  140. // if the action requires exclusive use of the database
  141. //
  142. {if exclflg then}
  143. SET EXCLUSIVE ON
  144. {endif}
  145. //
  146. // Open item level view/database, if there is one.
  147. //
  148. {       if Item_View or Item_NDX or Item_Order then}
  149. //
  150. // capture the item level database/view
  151. //
  152. {if (not Item_Ovride) or (not Item_View) or (gc_view == Item_View) then
  153.    lc_view = gc_view;
  154. //
  155. // capture the menu level index(es)
  156. //
  157.    if (not Item_Ovride) or (not Item_NDX) or (gc_ndx == Item_NDX) then
  158.      lc_ndx = gc_ndx;
  159.    else
  160.      lc_ndx = Item_NDX;
  161.    endif
  162. //
  163. // capture the menu level index order(s)
  164. //
  165.    if (not Item_Ovride) or (not Item_Order) or (gc_ord == Item_Order) then
  166.      lc_ord = gc_ord;
  167.    else
  168.      lc_ord = Item_Order;
  169.    endif
  170.  else
  171.    lc_view = Item_View;
  172.    lc_ndx  = Item_NDX;
  173.    lc_ord  = Item_Order;
  174.  endif
  175. }
  176. {if Item_Ovride != 2 then}
  177. *-- Open Item level view/database and indexes
  178. CLOSE DATABASES
  179. lc_dbf='Y'
  180. {         dbfOpen(lc_view,lc_ndx,lc_ord,0);}
  181. {         itemdbf=1;}
  182. {else}
  183. {  if exclflg then}
  184. CREATE VIEW Current FROM ENVIRONMENT
  185. SET VIEW TO Current
  186. {  endif}
  187. {endif}
  188. {       else}
  189. {if Item_Ovride != 2 then}
  190. //
  191. // if the menu type is batch or exclusive use is required
  192. // reopen the menu level database.
  193. //
  194. {         if (Menu_Type == btch && itemdbf) or exclflg then}
  195. {           dbfOpen(gc_view,gc_ndx,gc_ord,0);}
  196. {           itemdbf=0;}
  197. {         endif}
  198. {else}
  199. {  if exclflg then}
  200. CREATE VIEW Current FROM ENVIRONMENT
  201. SET VIEW TO Current
  202. {  endif}
  203. {endif}
  204. {       endif}
  205. //
  206. {     if muser then}
  207. *-- Multi user file lock
  208. DO Lockit WITH "{muser}"
  209. IF gn_error <> 0
  210.   gn_error=0
  211.   RETURN
  212. ENDIF
  213. {     endif}
  214. //
  215. // if the exclusive flag is set turn exclusive usage off
  216. //
  217. {    if exclflg then}
  218. SET EXCLUSIVE OFF
  219. {    endif}
  220. //
  221. {if NDX_ORDER then}
  222. ON ERROR DO Pause WITH LTRIM(STR(ERROR()))+" "+MESSAGE()
  223. SET ORDER TO {NDX_ORDER}
  224. ON ERROR
  225. {endif}
  226. {if postn_menu then}
  227. ON KEY LABEL F1 DO Postnhlp
  228. ACTIVATE WINDOW Savescr
  229. {endif}
  230. {include "AS_TPOST.COD";}
  231. {if postn_menu then}
  232. DEACTIVATE WINDOW Savescr
  233. ON KEY LABEL F1 DO 1HELP1
  234. {endif}
  235. //
  236. // item before actions (not a batch object)
  237. //
  238. {   if Menu_type != btch then
  239.       foreach Item_Befor m in k
  240.         if Item_Befor then
  241.           print(rtrim(Item_Befor)+CHR(10));
  242.         endif
  243.       next m;
  244.     endif
  245. }
  246. //
  247. // define window if specified
  248. //
  249. {if Wndow_Name}
  250. {if Wndow_Char && Wndow_Bord != 3 then}
  251. SET BORDER TO \
  252. {case Wndow_Bord of}
  253. {1:} DOUBLE\
  254. {2:} PANEL\
  255. {4:} NONE\
  256. {endcase}
  257.  
  258. SET BORDER TO {Wndow_Char}
  259. {endif}
  260. DEFINE WINDOW {Wndow_Name} FROM {nul2zero(Wndow_X1)},{nul2zero(Wndow_Y1)} TO\
  261.  {nul2zero(Wndow_X2)},{nul2zero(Wndow_Y2)}\
  262. {case Wndow_Bord of}
  263. {1:} DOUBLE\
  264. {2:} PANEL\
  265. {3:} {Wndow_Char}\
  266. {4:} NONE\
  267. {endcase}
  268. {if Wndow_Clrs then}
  269.  COLOR {Wndow_Clrs}
  270.  
  271. {else}
  272.  
  273. {endif}
  274. {if Wndow_Char && Wndow_Bord != 3 then}
  275. SET BORDER TO
  276. {endif}
  277. ACTIVATE WINDOW {Wndow_Name}
  278. {if windowvar then}
  279. PRIVATE lc_window
  280. {  windowvar=0;
  281.  endif}
  282. lc_window="{Wndow_Name}"
  283. {else}
  284. {  if Menu_Type != btch && Menu_Act && Menu_Act != open &&
  285.    Menu_Act != retu && Menu_Act != quit then}
  286. {    if Brow_Clear != 1 then}
  287. IF .NOT. gl_batch
  288.   DO BefAct
  289. ENDIF
  290. {    else
  291.         if Menu_act == edit then}
  292. lc_win = WINDOW()
  293. IF .NOT. ISBLANK( lc_win )
  294.   DEACTIVATE WINDOW &lc_win
  295. ENDIF
  296. ACTIVATE SCREEN
  297.  
  298. {       endif}
  299. {    endif}
  300. {  endif}
  301. {endif}
  302. //
  303. // This is a comment which can be placed in
  304. // the code to reveal the the action number
  305. // of a particular action. (refer to the
  306. // enum statement in AS_MENU.COD)
  307. //
  308. //*-- ApGen Menu action number {Menu_Act}
  309. //
  310. {  if Menu_Act && Menu_Act != open &&
  311.    Menu_Act != retu && Menu_Act != quit then
  312.      if Item_Prmpt then}
  313. SET MESSAGE TO "{alltrim(Item_Prmpt)}"
  314. {    else}
  315. SET MESSAGE TO
  316. {    endif
  317.    endif}
  318. {case Menu_Act of}
  319. {case textno:}
  320. {case open:}
  321. {if Menu_Type != btch then  // not equal to batch process}
  322. lc_new='Y'
  323. {endif}
  324. DO {Open_Menu} WITH "{if !Open_Type then}B{else} {endif}0{prgcnt}"
  325. {case brow: include "ad_brow.cod";}
  326. {case edit: include "ad_edit.cod";}
  327. {case rept: include "ad_rept.cod";}
  328. {case labl: include "ad_labl.cod";}
  329. {case disp: include "ad_list.cod";}
  330. {case appd: include "ad_apnd.cod";}
  331. {case rcopy: include "ad_copy.cod";}
  332. {case repl: include "ad_repl.cod";}
  333. {case dele: include "ad_dele.cod";}
  334. {case reca: include "ad_recl.cod";}
  335. {case pack: include "ad_pack.cod";}
  336. {case indx: include "ad_ndx.cod";}
  337. {case rndx: include "ad_rndx.cod";}
  338. {case sort: include "ad_sort.cod";}
  339. {case impt: include "ad_imp.cod";}
  340. {case expt: include "ad_exp.cod";}
  341. {case fcopy: include "ad_fcopy.cod";}
  342. {case dodB: include "ad_prog.cod";}
  343. {case indB: include "ad_inln.cod";}
  344. {case xdos: include "ad_xdos.cod";}
  345. {case call: include "ad_call.cod";}
  346. {case retu:}
  347. *-- Return to caller
  348. {case quit:}
  349. *-- Quit dBASE
  350. {case batch:}
  351. *-- Batch process
  352. DO {Batch_Name} WITH " "
  353. {case plmac:}
  354. *-- Keyboard macro
  355. PLAY MACRO {Macro_Name}
  356. {otherwise:}
  357. *-- What? ({Fld_Pictur}, action = {Menu_Act})
  358. // end of menu actions
  359. //
  360. {   endcase}
  361. // end of case Menu_Act
  362. //
  363. //
  364. // if window specified deactivate and release it.
  365. //
  366. {if Wndow_Name}
  367. DEACTIVATE WINDOW {Wndow_Name}
  368. RELEASE WINDOW {Wndow_Name}
  369. {endif}
  370. {if Brow_Clear == 1 then
  371.     if Menu_act == edit then}
  372. IF .NOT. ISBLANK( lc_win )
  373.   ACTIVATE WINDOW &lc_win
  374. ENDIF
  375.  
  376. {   endif}
  377. RESTORE SCREEN FROM tmpbrow
  378. RELEASE SCREEN tmpbrow
  379. {endif}
  380. //
  381. // item after action
  382. //
  383. {   foreach Item_After m in k
  384.       if Item_After then
  385.         print(rtrim(Item_After)+CHR(10));
  386.       endif
  387.     next m;}
  388. //
  389. // if the multi user flag is set unlock the database
  390. //
  391. {   if muser then}
  392. IF NETWORK()
  393.    UNLOCK
  394. ENDIF
  395. {   endif}
  396. //
  397. {if !Wndow_Name then}
  398. {  if Menu_Type != btch && Menu_Act && Menu_Act != open &&
  399.    Menu_Act != retu && Menu_Act != quit then}
  400. {    if Brow_Clear != 1 && Edit_Clear != 1 then}
  401. IF .NOT. gl_batch
  402.   DO AftAct
  403. ENDIF
  404. {    endif}
  405. {  endif}
  406. {endif}
  407. //
  408. {case Menu_Act of}
  409. {case retu:}
  410. gc_quit='Q'
  411. {  if Menu_Type != btch then}
  412. {    if Menu_Type == popup then}
  413. IF LEFT(entryflg,1) <> "B"
  414.    \
  415. {    endif}
  416. DEACTIVATE {if Menu_Type == bar then}MENU {else}POPUP {endif}&& {mnuname}
  417. {    if Menu_Type == popup then}
  418. ELSE
  419.    DEACTIVATE MENU
  420. ENDIF
  421. {    endif}
  422. {  endif}
  423. {  if not AT(mtype,"3459") then}
  424. RETURN
  425. {  else}
  426. IF .T.
  427.   RETURN
  428. ENDIF
  429. {  endif}
  430. {case quit:}
  431. CLOSE DATABASES
  432. QUIT
  433. {   endcase}
  434. {   if Menu_Type == btch && ITEMSKIPIF then}
  435. {     lmarg(3);}
  436. ENDIF
  437. {   endif}
  438. {   newact:  // get a new action}
  439. { next k;}
  440. // end of loop field
  441. //
  442. //
  443. // if the menu is not a file, structure, value or batch,
  444. // include the dBASE ENDCASE statment and set the choice to none.
  445. //
  446. {if not AT(mtype,"3459") then}
  447. {  LMARG(3);}
  448. {  if Menu_Type == bar then}
  449.  
  450.   OTHERWISE
  451.     @ {scrn_size+3},00
  452.     @ {scrn_size+3},21 SAY "This item has no action. Press a key."
  453.     SET CONSOLE OFF
  454.     DO Wait4Key
  455.     SET CONSOLE OFF
  456.     @ {scrn_size+3},00
  457.  
  458. {  endif}
  459. ENDCASE
  460. {else}
  461. {  if Menu_Type == btch then}
  462.  
  463. gl_batch=.F.
  464. {  endif}
  465. {endif}
  466.  
  467. SET MESSAGE TO
  468. {  if Menu_Type != btch then}
  469. IF gc_quit='Q'
  470.   IF LEFT(entryflg,1) = "B"
  471.     DEACTIVATE MENU
  472.   ELSE
  473.     DEACTIVATE \
  474. {if Menu_Type == bar then}
  475. MENU \
  476. {else}
  477. POPUP \
  478. {endif}
  479. && {mnuname}
  480.   ENDIF
  481. ENDIF
  482. {  endif}
  483. //
  484. {if Menu_Type != btch then  // not equal to batch process}
  485. IF lc_new='Y'
  486.   lc_file="SET"+gc_prognum
  487.   DO &lc_file.
  488. ENDIF
  489. {  if Menu_Ovride != 2 then}
  490. {    if itemview+itemndx+itemord then}
  491. IF lc_dbf='Y' .AND. .NOT. lc_new='Y'
  492.   lc_file="DBF"+gc_prognum
  493.   DO &lc_file.
  494. ENDIF
  495. {    endif}
  496. {  endif}
  497. {endif}
  498. {LMARG(1);}
  499. RETURN
  500. *-- EOP: ACT0{prgcnt} - Menu {Menu_Name}
  501.  
  502. // EOP AS_ACTN.COD
  503.