home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / s / sbt25gl.zip / ZIPGLC01.EXE / GLGRUP._XP (.txt) < prev    next >
MS Visual FoxPro App  |  1993-02-11  |  44KB  |  919 lines
  1. a_glsegs//
  2. segid1
  3. a_gldgrp//
  4. grpcode1
  5. a_glhgrp//
  6. grpcode
  7. a_gltype//
  8. a_glacnt//
  9. glacnt
  10. a_glacnt,
  11. Chart of Accounts has no accounts! Transaction 
  12. entry terminated.
  13. There are no Account Ranges on file. You must
  14. first set up account types and their ranges.
  15. a_gltype
  16.  All Types
  17.  All FF
  18. a_glacnt
  19. a_addonee/
  20. lw_glgrp1
  21. lw_glgrp2
  22. \<Select
  23. \<Edit
  24. \<Fwd
  25. \<Back
  26. \<Delete
  27. \<View
  28. a_gldgrp,
  29. \<Print
  30. E\<xit
  31. DO l_gmnu WITH PAD()
  32. lw_sqlbrow
  33. lw_grpbrow
  34. @*IHN 
  35. glgrp1.spr
  36. glgrp2.spr
  37. glacnt
  38. BROWSE FIELDS gltype = IIF(SEEK(a_tmpdgr->glacnt,"a_glacnt"),  a_glacnt->gltype,"")  :H="Type" :4 ,  glacnt   :H=gc_accthdr  &lc_acntlen :R ,  gldesc = IIF(SEEK(a_tmpdgr->glacnt,"a_glacnt"),  a_glacnt->gldesc,"")  :H="Acct. Description"  &lc_deslen ,  grpseq   :H="Seq" :P="@J 9999" :4,  inflag   :H="Incl" :P="Y"  :4  NOWAIT NOEDIT NOMENU NODELETE NOAPPEND TITLE "Selected Accounts"  WINDOW lw_sqlbrow COLOR SCHEME 1
  39. glgrp1.spr
  40. lp_exit
  41. lp_edit
  42. Selected
  43. LP_EDIT
  44. glgrp1.spr
  45. glgrp2.spr
  46. lp_exit
  47. GN_TRACE
  48. TE_TRACE
  49. LC_GRPCODELC_GRPDESCLC_SGRPHD
  50. LC_GLACNT
  51. LL_NEW
  52. TALLN_TYPE
  53. ALLL_GEDIT
  54. RLL_GSELECTLC_GRPPIC
  55. LC_ACCTMSKLN_CTR
  56. CHFLC_ACNTLENLC_DESLEN
  57. LN_OPNFLDGLN_OPNFLHGLN_OPNFLTYLN_OPNFLACLN_OPNFLSELN_READKEYLL_INMENU
  58. LC_STATMSGLN_TOROW
  59. LL_DUPGRUPLN_RECCNT
  60. LN_FROMROWLN_TOTGRPSLC_BRWNAMELN_ADDCNT
  61. LL_ADDONE
  62. LL_DELONE
  63. LN_DELCNT
  64. LL_CONTIN
  65. LC_PAD
  66. ELN_ESCREADGM_MAIN
  67. ALGU_MANT
  68. ALG_OPNFL
  69. SEGF_GLSEGSFGF_GLDGRPFGF_GLHGRPFGF_GLTYPEFGF_GLACNTFG_DSPALT
  70. A_GLTYPE
  71. GLTYPE
  72. FG_DSPST
  73. GN_MSGLINEGC_APPLID
  74. GC_COMPID
  75. GC_USERID
  76. GC_OSEOL
  77. A_GLHGRP
  78. GRPCODE
  79. A_GLDGRP
  80. FL_NEWSET
  81. OGLDESC
  82. LA_TYPES
  83. A_GLACNT
  84. GLACNT
  85. OGC_IDRVTMPGC_TMPF1
  86. EGC_EXTDBF
  87. A_ADDONE
  88. GC_EXTNDX
  89. LW_GLGRP1
  90. G_PNTBG
  91. GS_219
  92. OLW_GLGRP2
  93. LM_GLGRUP
  94. LP_SELECT
  95. LP_EDIT
  96. LCKSTAT
  97. ELP_FWD
  98. RPSLP_BACK
  99. PSLP_DELETE
  100. LP_REVIEW
  101. LP_PRINT
  102. SLP_EXIT
  103. PSLW_SQLBROWLW_GRPBROWLB_TYPE
  104. WLN_CNT
  105. WGS_251
  106. TGRPDESC
  107. CSGRPHD
  108. GC_ACCTPICGC_ADRVPRGA_TMPDGR
  109. GGN_ACCTLENLN_DESLEN
  110. L_GMNU
  111. DL_INITGV
  112. EL_CLRBRW
  113. GGK_ESC
  114. L_GREXIT
  115. TYPE("lc_padname") = "C"
  116. LP_SELECT
  117. LP_EDIT
  118. Account Groupe
  119. Account Group/
  120. LP_FWD
  121. glgrp1.spr
  122. glgrp2.spr
  123. End of file reached.
  124. LP_BACK
  125. glgrp1.spr
  126. glgrp2.spr
  127. Beginning of file reached.
  128. LP_REVIEW
  129. Modify Seq and Active. 
  130. <PgUp/Dn> views, <Esc> exits
  131. Account Group Headere
  132. Group Accounts for F
  133. BROWSE KEY lc_grpcode FIELDS  gltype = IIF(SEEK(a_gldgrp->glacnt,"a_glacnt"),  a_glacnt->gltype,"")  :H="Type" :4  :W=.f.,  glacnt   :H=gc_accthdr  &lc_acntlen :R :W=.f.,  gldesc = IIF(SEEK(a_gldgrp->glacnt,"a_glacnt"),  a_glacnt->gldesc,"")  :H="Acct. Description"  &lc_deslen :W=.f.,  grpseq   :H="Seq" :P="9999" :V=l_vgrpse() :F :4,  inflag   :H="Incl" :P="Y"  :4  NOAPPEND NOMENU NODELETE   TITLE (lc_brwname)  WHEN l_wrevew()  VALID :F l_vrevew()  WINDOW lw_sqlbrow  COLOR SCHEME 1
  134. Automatic Entries Header/
  135. BROWSE KEY lc_grpcode FIELDS  gltype = IIF(SEEK(a_gldgrp->glacnt,"a_glacnt"),  a_glacnt->gltype,"")  :H="Type" :4 ,  glacnt   :H=gc_accthdr  &lc_acntlen :R ,  gldesc = IIF(SEEK(a_gldgrp->glacnt,"a_glacnt"),  a_glacnt->gldesc,"")  :H="Acct. Description"  &lc_deslen ,  grpseq   :H="Seq" :P="@J 9999" :4,  inflag   :H="Incl" :P="Y"  :4  NOWAIT NODELETE   TITLE (lc_brwname)  WINDOW lw_sqlbrow  COLOR SCHEME 1
  136. LP_DELETE
  137. Delete account group F
  138. Delete
  139. Cancel
  140. Account Group Headere
  141. a_gldgrp5
  142. a_gldgrp
  143. Account Group Detail
  144. Account Group Header/
  145. glgrp1.spr
  146. glgrp2.spr
  147. LP_PRINT
  148. Print account group?
  149. Print
  150. Cancel
  151. ll_cont = g_cncjob("")
  152. glacnt
  153. Account Group 
  154. glgrp1
  155. grpcode = lc_grpcode .AND. 
  156.  .NOT. DELETED() 
  157. LP_EXIT
  158. LC_PADNAMEGN_TRACE
  159. E_TRACE
  160. DEGL_ASSERT
  161. E_ASSRT
  162. LN_RESP
  163. LC_WRKAREALM_GLGRUP
  164. L_GSELCT
  165. EG_DSPST
  166. CTGC_TASK
  167. GN_MSGLINEGC_APPLID
  168. GC_COMPID
  169. GC_USERID
  170. A_GLHGRP
  171. ELL_NEW
  172. GG_LCKOB
  173. TYGN_RETRY
  174. CL_GEDIT
  175. EG_CHKRC
  176. ELC_GRPCODEGRPCODE
  177. SGL_INITGV
  178. GC_ADRVPRGL_CLRBRW
  179. GLP_BACK
  180. OWG_DSPALT
  181. LP_FWD
  182. AMEA_GLDGRP
  183. LC_BRWNAMEG_GETDLG
  184. EG_LCKFL
  185. ELN_TOTGRPSLP_SELECT
  186. LL_PRNT
  187. ELL_CONT
  188. ALC_SELPR
  189. ALA_GLACNT
  190. EGLACNT
  191. FLC_TITLE
  192. ELC_HEAD1
  193. FLC_HEAD2
  194. ELC_HEAD3
  195. FLC_FRMFILELC_COND
  196. RGLC_FOR
  197. FG_PRNRP
  198. LL_INMENU
  199. LW_GLGRP1
  200. GN_TRACE
  201. EE_TRACE
  202. LC_GRPDESCLC_GRPCODELL_NEW
  203. A_GLHGRP
  204. GRPDESC
  205. EALC_SGRPHD
  206. SGRPHD
  207. ELC_GLACNT
  208. GC_ACCTPICLN_TYPE
  209. glgrp1.spr
  210. glgrp2.spr
  211. glgrp1.spr
  212. glgrp1.spr
  213. glgrp2.spr
  214. glgrp1.spr
  215. glgrp2.spr
  216. lp_edit
  217. GN_TRACE
  218. EE_TRACE
  219. LC_OLDAREALN_XRECNO
  220. A_GLDGRP
  221. ALC_GRPCODEA_GLHGRP
  222. AGRPCODE
  223. LC_GRPDESCGRPDESC
  224. LC_SGRPHD
  225. SGRPHD
  226. ELC_GLACNT
  227. GC_ACCTPICLN_TYPE
  228. GC_ADRVPRGL_CLRBRW
  229. GLL_GSELECTLN_READKEYLN_ESCREADLL_NEW
  230. L_NEWSET
  231. EL_INITGV
  232. EL_GEDIT
  233. GLM_GLGRUP
  234. LP_EXIT
  235. GLP_EDIT
  236. LC_PAD
  237. glgrp1.spr
  238. a_gldgrp0
  239. \<Add
  240. \<Copy
  241. \<Header
  242. E\<xit
  243. Add accounts to group
  244. Copy accounts from another group
  245. Edit group header descriptions
  246. Return to Account Group maintenance main menu
  247. glgrp1.spr
  248. APHXFFF
  249. \<Add
  250. Co\<py
  251. \<Delete
  252. \<Header
  253. \<View
  254. \<Save
  255. \<Cancel
  256. Add accounts to group
  257. Copy accounts from another group
  258. Delete accounts in group
  259. Edit group header descriptions
  260. View, resequence, and set accounts active/inactive
  261. Save account group
  262. Cancel changes to account group
  263. glgrp1.spr
  264. APDHRSXFFF
  265. glgrp1.spr
  266. glgrp2.spr
  267. CTRL+Y
  268. DO g_stfqs
  269. BACKTAB
  270. glgrp1.spr
  271. glgrp2.spr
  272. CTRL+Y
  273. DO g_stfqs
  274. BACKTAB
  275. DELETE
  276. a_glhgrpV
  277. a_glhgrp
  278. Account Group Header
  279. glgrp1.spr
  280. Modify Seq and Active. 
  281. <PgUp/Dn> views, <Esc> exits
  282. BROWSE FIELDS gltype = IIF(SEEK(a_tmpdgr->glacnt,"a_glacnt"),  a_glacnt->gltype,"")  :H="Type" :4  :W=.f.,  glacnt   :H=gc_accthdr  &lc_acntlen :R :W=.f.,  gldesc = IIF(SEEK(a_tmpdgr->glacnt,"a_glacnt"),  a_glacnt->gldesc,"")  :H="Acct. Description"  &lc_deslen :W=.f.,  grpseq   :H="Seq" :P="9999" :V=l_vgrpse() :F :4,  inflag   :H="Incl" :P="Y"  :4  NOAPPEND NOMENU NODELETE   TITLE "Selected Accounts"  WINDOW lw_sqlbrow  COLOR SCHEME 1
  283. Selected Accounts
  284. Selected Accounts
  285. BROWSE FIELDS gltype = IIF(SEEK(a_tmpdgr->glacnt,"a_glacnt"),  a_glacnt->gltype,"")  :H="Type" :4 ,  glacnt   :H=gc_accthdr  &lc_acntlen :R ,  gldesc = IIF(SEEK(a_tmpdgr->glacnt,"a_glacnt"),  a_glacnt->gldesc,"")  :H="Acct. Description"  &lc_deslen ,  grpseq   :H="Seq" :P="@J 9999" :4,  inflag   :H="Incl" :P="Y"  :4  NOWAIT NODELETE   TITLE "Selected Accounts"  WINDOW lw_sqlbrow  COLOR SCHEME 1
  286. This account group has no accounts.
  287. Cancel
  288. Saving account group header
  289. a_glhgrpV
  290. a_glhgrp
  291. Account Group Header
  292. Saving account group detail
  293. a_glhgrp5
  294. a_glhgrp
  295. Account Group Header
  296.  Group F
  297.  has been added
  298. by another user.
  299. Saving account group detail
  300. a_addone
  301. a_addone
  302. a_glhgrp,
  303. a_glhgrp
  304. glgrp1.spr
  305. glgrp2.spr
  306. GN_TRACE
  307. EE_TRACE
  308. LN_RESP
  309. EALN_PADNUMBLL_LOOP
  310. ALC_CHOICE
  311. LC_WRKAREALC_TEMP
  312. LL_FIRST
  313. CLL_PRNT
  314. LL_CONT
  315. LL_NEW
  316. ELN_RECCNT
  317. LL_GEDIT
  318. CGC_ADRVPRGL_NEWSET
  319. GA_GLDGRP
  320. GLC_GRPCODELA_GLDGRP
  321. GRPCODE
  322. ADA_TMPDGR
  323. LN_READKEYLN_ESCREADLA_PAD
  324. LA_PRMPT
  325. LW_GLGRP1
  326. G_GETCH
  327. GK_ESC
  328. LB_TYPE
  329. _BRWNAMEF2
  330. ETDLG
  331. EBACKTAB
  332. PSG_DSPST
  333. GN_MSGLINEGC_APPLID
  334. GC_COMPID
  335. GC_USERID
  336. LC_STATMSGLL_ADDONE
  337. L_SQL
  338. FL_CPYGRP
  339. LL_DELONE
  340. A_GLHGRP
  341. G_LCKRC
  342. GG_GETDLG
  343. GRPDESC
  344. DELC_GRPDESCSGRPHD
  345. LC_SGRPHD
  346. L_WRTDTL
  347. G_LCKFL
  348. LL_DUPGRUPADDUSER
  349. ADDDATE
  350. ADDTIME
  351. OLN_TOTGRPSG_DSPALT
  352. PGC_OSEOL
  353. FA_ADDONE
  354. PLN_ADDCNT
  355. L_CLRBRW
  356. EL_INITGV
  357. GN_TRACE
  358. EE_TRACE
  359. GRPSEQ
  360. a_glhgrp,
  361. a_glhgrpR8
  362.  Copy a Group 
  363. Enter a group code or press <F2> to select
  364. from a list of available groups:
  365.    Group Code
  366. (Leave blank to cancel.)
  367. !!!!!!!!
  368. lw_temp
  369. Group Entry F
  370.  not found.
  371. Reenter
  372. grpcode
  373. GLHGRP
  374. Group code
  375. Selected Accounts
  376. Selected Accounts
  377. BROWSE FIELDS gltype = IIF(SEEK(a_tmpdgr->glacnt,"a_glacnt"),  a_glacnt->gltype,"")  :H="Type" :4 ,  glacnt   :H=gc_accthdr  &lc_acntlen :R ,  gldesc = IIF(SEEK(a_tmpdgr->glacnt,"a_glacnt"),  a_glacnt->gldesc,"")  :H="Acct. Description"  &lc_deslen ,  grpseq   :H="Seq" :P="@J 9999" :4,  inflag   :H="Incl" :P="Y"  :4  NOWAIT NODELETE   TITLE "Selected Accounts"  WINDOW lw_sqlbrow  COLOR SCHEME 1
  378. a_glhgrp,
  379. glgrp1.spr
  380. glgrp2.spr
  381. Selected Accounts
  382. Selected Accounts
  383. BROWSE FIELDS gltype = IIF(SEEK(a_tmpdgr->glacnt,"a_glacnt"),  a_glacnt->gltype,"")  :H="Type" :4 ,  glacnt   :H=gc_accthdr  &lc_acntlen :R ,  gldesc = IIF(SEEK(a_tmpdgr->glacnt,"a_glacnt"),  a_glacnt->gldesc,"")  :H="Acct. Description"  &lc_deslen ,  grpseq   :H="Seq" :P="@J 9999" :4,  inflag   :H="Incl" :P="Y"  :4  NOWAIT NODELETE   TITLE "Selected Accounts"  WINDOW lw_sqlbrow  COLOR SCHEME 1
  384. GN_TRACE
  385. EE_TRACE
  386. LC_TEMP
  387. EALN_RESP
  388. MBLC_OLDAREALC_ACNT
  389. LN_XRECNO
  390. A_GLHGRP
  391. GRPCODE
  392. CLW_TEMP
  393. A_GLDGRP
  394. GLACNT
  395. EA_TMPDGR
  396. LC_GRPCODEINFLAG
  397. GLN_RECCNT
  398. G_GETDLG
  399. L_BRWGRP
  400. ELL_NEW
  401. REALC_GRPDESCGRPDESC
  402. LC_SGRPHD
  403. SGRPHD
  404. DGC_ADRVPRG
  405. a_gldgrp0
  406. grpcode
  407. a_gldgrp5
  408. a_gldgrp
  409. Account Group Detail
  410. a_tmpdgr,
  411. a_tmpdgr,
  412. a_gldgrp5
  413. a_gldgrp
  414. Account Group Detail
  415. grpcode1
  416. GN_TRACE
  417. EE_TRACE
  418. LA_GLDETL
  419. LN_OPNFL
  420. BLC_OLDAREAA_TMPDGR
  421. ALA_GLDGRP
  422. A_GLDGRP
  423. GRPCODE
  424. CLC_GRPCODEG_LCKFL
  425. GRPSEQ
  426. ODEINFLAG
  427. GRPCODE1
  428. a_tmpdgr
  429. a_tmpdgrQ
  430. a_tmpdgr
  431. a_tmpdgr
  432. GN_TRACE
  433. EE_TRACE
  434. A_TMPDGR
  435. A_GLDGRP
  436. BLA_GLDGRP
  437. GLACNT
  438. GC_ADRVNDXGC_TMPF3
  439. GC_EXTNDX
  440. a_tmpdgr
  441. a_sql
  442. temp.dbf2
  443. temp.dbf
  444. a_sql.dbf2
  445. a_sql.dbf
  446. a_addone
  447. GN_TRACE
  448. EE_TRACE
  449. LL_INMENU
  450. LM_GLGRUP
  451. LB_TYPE
  452. LW_SQLBROWLW_GLGRP1
  453. LW_GLGRP2
  454. LA_PICKS
  455. LN_OPNFLTYA_GLTYPE
  456. LN_OPNFLSEA_GLSEGS
  457. A_TMPDGR
  458. LN_OPNFLDGA_GLDGRP
  459. LN_OPNFLHGA_GLHGRP
  460. EA_SQL
  461. ATEMP
  462. DESCDBF
  463. A_ADDONE
  464. GC_IDRVTMPGC_TMPF1
  465. GGC_EXTDBF
  466. GC_EXTNDX
  467. GC_TMPF3
  468. EXTNDX
  469. Press <Spacebar> to tag or untag types, 
  470.  <Enter> to proceed
  471. CTRL+Y
  472. DO l_clrpop
  473. {ENTER}
  474. GN_TRACE
  475. EE_TRACE
  476. G_DSPST
  477. GN_MSGLINEGC_APPLID
  478. GC_COMPID
  479. GC_USERID
  480. _PICKS
  481. SPACEBAR
  482. KEYBOARD "{SHIFT+SPACEBAR}" PLAIN
  483. ENTER
  484. KEYBOARD "{TAB}" PLAIN
  485. RIGHTMOUSE
  486. KEYBOARD "{SHIFT+SPACEBAR}" PLAIN
  487. SPACEBAR
  488. ENTER
  489. RIGHTMOUSE
  490. lb_type
  491. lb_type
  492. lb_type
  493. lb_type
  494. CTRL+Y
  495. GN_TRACE
  496. EE_TRACE
  497. LN_RETURN
  498. SPACEBAR
  499. ENTER
  500. RIGHTMOUSELW_GLGRP2
  501. LB_TYPE
  502. LN_CNT
  503. USELN_COUNT
  504. YLA_PICKS
  505. LA_TYPES
  506. ELN_READKEYCTRL
  507. _OPNFLDGO
  508. Enter account selection criteria. *'s are wildcards.
  509. CTRL+Y
  510. DO l_blank WITH "lc_glacnt"
  511. DO l_gstfqs WITH COL(), lc_glacnt, "lc_glacnt"
  512. DO l_tabseg
  513. BACKTAB
  514. DO l_tabseg WITH COL(), "BACKTAB"
  515. GN_TRACE
  516. EE_TRACE
  517. LC_STATMSGG_DSPST
  518. GN_MSGLINEGC_APPLID
  519. GC_COMPID
  520. GC_USERID
  521. _COUNT
  522. PICKS
  523. EBACKTAB
  524. CTRL+Y
  525. DO g_stfqs
  526. BACKTAB
  527. GN_TRACE
  528. EE_TRACE
  529. ATMSGY
  530. DSPST
  531. MSGLINETAB
  532. PPLID
  533. BACKTAB
  534. TYPE("lc_action") = "C"
  535. la_picksf
  536. WARNING: You didn't enter an account mask or 
  537. select any account 
  538. types. This causes all accounts to be copied to the 
  539. account 
  540. group. Copy all accounts?
  541. Copy \<All
  542. Cancel
  543. WARNING: You didn't enter an account mask or 
  544. select any account 
  545. types. This causes all accounts in the group to be 
  546. deleted from
  547.  the group. Delete all?
  548. Delete All
  549. Cancel
  550. Selected Accounts
  551. Selected Accounts
  552. BROWSE FIELDS gltype = IIF(SEEK(a_tmpdgr->glacnt,"a_glacnt"),  a_glacnt->gltype,"")  :H="Type" :4 ,  glacnt   :H=gc_accthdr  &lc_acntlen :R ,  gldesc = IIF(SEEK(a_tmpdgr->glacnt,"a_glacnt"),  a_glacnt->gldesc,"")  :H="Acct. Description"  &lc_deslen ,  grpseq   :H="Seq" :P="@J 9999" :4,  inflag   :H="Incl" :P="Y"  :4  NODELETE   TITLE "Selected Accounts"  WINDOW lw_sqlbrow  COLOR SCHEME 1
  553. glacnt LIKE 
  554. lc_sqlacnt
  555. la_picksf
  556. .AND.
  557. (LEFT(gltype,1) $ [
  558. ] .OR. gltype $ [
  559. .AND. .NOT. DELETED()
  560. Searching for matching accounts...please wait
  561. SELECT glacnt  FROM a_glacnt  WHERE &lc_where  INTO CURSOR a_sql
  562. a_tmpdgr
  563. a_tmpdgr
  564.  accounts 
  565. will be added to the account group. 
  566. Add accounts?
  567. Cancel
  568.  accounts 
  569. will be deleted from the account group. 
  570. Delete accounts?
  571. Delete
  572. Cancel
  573. No accounts selected with this 
  574. account mask/account type combination.
  575. Adding accounts to group...please wait
  576. Deleteing accounts from group...please wait
  577. Selected Accounts
  578. Selected Accounts
  579. BROWSE FIELDS gltype = IIF(SEEK(a_tmpdgr->glacnt,"a_glacnt"),  a_glacnt->gltype,"")  :H="Type" :4 ,  glacnt   :H=gc_accthdr  &lc_acntlen :R ,  gldesc = IIF(SEEK(a_tmpdgr->glacnt,"a_glacnt"),  a_glacnt->gldesc,"")  :H="Acct. Description"  &lc_deslen ,  grpseq   :H="Seq" :P="@J 9999" :4,  inflag   :H="Incl" :P="Y"  :4  NOWAIT NODELETE   TITLE "Selected Accounts"  WINDOW lw_sqlbrow  COLOR SCHEME 1
  580. LC_ACTION
  581. GN_TRACE
  582. E_TRACE
  583. SGGL_ASSERT
  584. E_ASSRT
  585. NELC_SQLACNTLN_COUNTERLC_WHERE
  586. LC_CATSTR
  587. LN_RESP
  588. YLC_OLDAREALN_RESULTSLC_GENTYPELC_SUBTYPELC_GLACNT
  589. G_GETDLG
  590. GC_OSEOL
  591. GA_TMPDGR
  592. EA_GLACNT
  593. AGN_ACCTLENLA_PICKS
  594. RG_DSPST
  595. PEGN_MSGLINEGC_APPLID
  596. GC_COMPID
  597. GC_USERID
  598. GLACNT
  599. LTSG_DSPALT
  600. SA_SQL
  601. GRPCODE
  602. GLC_GRPCODEINFLAG
  603. ELC_STATMSGLW_GLGRP1
  604. grpcode
  605. GLHGRP
  606. Account Group
  607. GN_TRACE
  608. E_TRACE
  609. LN_VALID
  610. GLC_RETCODELL_GEDIT
  611. EL_BRWGRP
  612. ELC_GRPCODELN_ESCREADc
  613. TYPE("ln_type")   = "N"
  614. TYPE("lc_field")  = "C"
  615. TYPE("lc_keyvar") = "C"
  616. TYPE("lc_file")   = "C"
  617. TYPE("lc_title")  = "C"
  618.  not found: 
  619. Reenter
  620. Reenter
  621. No records found.
  622. ENTER
  623. KEYBOARD CHR(gk_ctlend) PLAIN
  624. RIGHTMOUSE
  625. KEYBOARD CHR(gk_ctlend) PLAIN
  626. Group Code
  627. Group Description
  628. Select Account Group
  629. lc_keyvar  = IIF(ln_readkey <> 12, &lc_field., lc_xkeyvar)
  630. ENTER
  631. RIGHTMOUSE
  632. LN_TYPE
  633. LC_FIELD
  634. LC_KEYVAR
  635. LC_FILE
  636. DELC_TITLE
  637. EGN_TRACE
  638. EE_TRACE
  639. DEGL_ASSERT
  640. E_ASSRT
  641. ELL_DONE
  642. YLL_HOTKEY
  643. LC_XKEYVARLW_MSEL
  644. PELC_OLDCODELC_OLDLDESLC_OLDSDESL_BRWGRP
  645. A_GLHGRP
  646. RLN_RECNO
  647. ALC_MSG
  648. LN_TOTGRPSLN_RESP
  649. PEG_GETDLG
  650. ELL_NEW
  651. G_DSPALT
  652. ENTER
  653. RIGHTMOUSELL_ASSERT
  654. LN_TRACE
  655. LC_LOGFILEGC_LOGFILEGL_HOTKEY
  656. LC_GRPCODELC_GRPDESCLC_SGRPHD
  657. GRPCODE
  658. NEGRPDESC
  659. L_REFTYP
  660. LN_READKEYLN_ESCREADSGRPHD
  661. L_CLRBRW
  662. Group Accounts for F
  663. BROWSE KEY lc_grpcode FOR .NOT. DELETED()  FIELDS  gltype = IIF(SEEK(a_gldgrp->glacnt,"a_glacnt"),a_glacnt->gltype,"")  :H="Type" :4 ,  glacnt   :H=gc_accthdr  &lc_acntlen :R ,  gldesc = IIF(SEEK(a_gldgrp->glacnt,"a_glacnt"),a_glacnt->gldesc,"")  :H="Acct. Description"  &lc_deslen ,  grpseq   :H="Seq" :P="@J 9999" :4,  inflag   :H="Incl" :P="Y"  :4  NOWAIT NODELETE   TITLE (lc_brwname)   WINDOW lw_grpbrow  COLOR SCHEME 1
  664. GN_TRACE
  665. E_TRACE
  666. LC_OLDAREAA_GLDGRP
  667. ALC_BRWNAMELC_GRPCODELL_NEW
  668. lb_type
  669. GN_TRACE
  670. E_TRACE
  671. LN_CNT
  672. REALB_TYPE
  673. TYPE("lc_field") = "C"
  674. &lc_field = STRTRAN(STRTRAN(gc_acctpic,"!","*"), "9", "*")
  675. LC_FIELD
  676. GN_TRACE
  677. E_TRACE
  678. EAGL_ASSERT
  679. E_ASSRT
  680. ln_colf
  681. Select list:
  682. Accounts
  683. Segments
  684. No records found.
  685. CTRL+Y
  686. DO g_stfqs
  687. BACKTAB
  688. ENTER
  689. KEYBOARD CHR(gk_ctlend) PLAIN
  690. RIGHTMOUSE
  691. DO l_putls
  692. SPACEBAR
  693. DO l_putls
  694. CTRL+A
  695. DO l_allbch WITH .t.
  696. CTRL+a
  697. DO l_allbch WITH .t.
  698. CTRL+U
  699. DO l_allbch WITH .f.
  700. CTRL+u
  701. DO l_allbch WITH .f.
  702. a_addone,
  703. <Spacebar> toggles one, 
  704. <Ctrl-A/U> toggles all, <Enter> saves
  705. la_picksf
  706. BROWSE FREEZE add  FIELDS glacnt &lc_actlen :P=gc_acctpic :H=gc_accthdr,  add    :3  :H="Add",  gldesc &lc_actdes :H="Description"  NOMENU NOEDIT NOAPPEND NODELETE WINDOW lw_msel  TITLE "Select Account(s) to Add to Group" COLOR SCHEME 10
  707. LEFT(gltype,1)=[FF
  708. gltype=[F
  709. BROWSE FREEZE add  FIELDS glacnt &lc_actlen :P=gc_acctpic :H=gc_accthdr,  add    :3  :H="Add",  gldesc &lc_actdes :H="Description"  FOR &lc_typestr  NOMENU NOEDIT NOAPPEND NODELETE WINDOW lw_msel  TITLE "Select Account(s) to Add to Group" COLOR SCHEME 10
  710.  accounts 
  711. will be added to the account group. 
  712. Add accounts?
  713. Cancel
  714. Adding accounts to group...please wait
  715. Selected Accounts
  716. Selected Accounts
  717. BROWSE FIELDS gltype = IIF(SEEK(a_tmpdgr->glacnt,"a_glacnt"),  a_glacnt->gltype,"")  :H="Type" :4 ,  glacnt   :H=gc_accthdr  &lc_acntlen :R ,  gldesc = IIF(SEEK(a_tmpdgr->glacnt,"a_glacnt"),  a_glacnt->gldesc,"")  :H="Acct. Description"  &lc_deslen ,  grpseq   :H="Seq" :P="@J 9999" :4,  inflag   :H="Incl" :P="Y"  :4  NOWAIT NODELETE   TITLE "Selected Accounts"  WINDOW lw_sqlbrow  COLOR SCHEME 1
  718. ENTER
  719. RIGHTMOUSE
  720. SPACEBAR
  721. CTRL+A
  722. CTRL+a
  723. CTRL+U
  724. CTRL+u
  725. CTRL+Y
  726. DO l_blank WITH "lc_glacnt"
  727. DO l_gstfqs WITH COL(), lc_acnt, "lc_acnt"
  728. DO l_tabseg
  729. BACKTAB
  730. DO l_tabseg WITH COL(), "BACKTAB"
  731. a_delone
  732. a_delone,
  733. No records found.
  734. CTRL+Y
  735. DO g_stfqs
  736. BACKTAB
  737. ENTER
  738. KEYBOARD CHR(gk_ctlend) PLAIN
  739. RIGHTMOUSE
  740. DO l_putls
  741. SPACEBAR
  742. DO l_putls
  743. CTRL+A
  744. DO l_allbch WITH .t.
  745. CTRL+a
  746. DO l_allbch WITH .t.
  747. CTRL+U
  748. DO l_allbch WITH .f.
  749. CTRL+u
  750. DO l_allbch WITH .f.
  751. <Spacebar> toggles one, 
  752. <Ctrl-A/U> toggles all, <Enter> saves
  753. la_picksf
  754. BROWSE FREEZE del  FIELDS glacnt &lc_actlen :P=gc_acctpic :H=gc_accthdr,  del    :3  :H="Del",  gldesc = IIF(SEEK(a_delone->glacnt,"a_glacnt"),  a_glacnt->gldesc,"")  &lc_actdes :H="Acct. Description"  NOMENU NOEDIT NOAPPEND NODELETE WINDOW lw_msel  TITLE "Select Account(s) to Delete from Group"  COLOR SCHEME 10
  755. LEFT(gltype,1)=[FF
  756. gltype=[F
  757. BROWSE FREEZE del  FIELDS glacnt &lc_actlen :P=gc_acctpic :H=gc_accthdr,  del    :3  :H="Del",  gldesc = IIF(SEEK(a_delone->glacnt,"a_glacnt"),  a_glacnt->gldesc,"")  &lc_actdes :H="Acct. Description"  FOR &lc_typestr  NOMENU NOEDIT NOAPPEND NODELETE WINDOW lw_msel  TITLE "Select Account(s) to Delete from Group"  COLOR SCHEME 10
  758.  accounts 
  759. will be deleted from the account group. 
  760. Delete accounts?
  761. Delete
  762. Cancel
  763. Deleting accounts from group...please wait
  764. Selected Accounts
  765. Selected Accounts
  766. BROWSE FIELDS gltype = IIF(SEEK(a_tmpdgr->glacnt,"a_glacnt"),  a_glacnt->gltype,"")  :H="Type" :4 ,  glacnt   :H=gc_accthdr  &lc_acntlen :R ,  gldesc = IIF(SEEK(a_tmpdgr->glacnt,"a_glacnt"),  a_glacnt->gldesc,"")  :H="Acct. Description"  &lc_deslen ,  grpseq   :H="Seq" :P="@J 9999" :4,  inflag   :H="Incl" :P="Y"  :4  NOWAIT NODELETE   TITLE "Selected Accounts"  WINDOW lw_sqlbrow  COLOR SCHEME 1
  767. ENTER
  768. RIGHTMOUSE
  769. SPACEBAR
  770. CTRL+A
  771. CTRL+a
  772. CTRL+U
  773. CTRL+u
  774. CTRL+Y
  775. DO l_blank WITH "lc_glacnt"
  776. DO l_gstfqs WITH COL(), lc_acnt, "lc_acnt"
  777. DO l_tabseg
  778. BACKTAB
  779. DO l_tabseg WITH COL(), "BACKTAB"
  780. a_delone
  781. lc_glacnt
  782. LN_COL
  783. LC_ACNT
  784. LC_FIELD
  785. AGN_TRACE
  786. E_TRACE
  787. MELN_SEG
  788. ELC_XACNT
  789. ELC_SEGVAL
  790. LC_OLDAREALC_VARNAM
  791. LC_VAR
  792. LC_KEY
  793. VARLC_LOOKUP
  794. LN_RESP
  795. DELC_TYPESTRLW_MSEL
  796. ESLC_ACTLEN
  797. LC_ACTDES
  798. LC_TYPELENLC_TDESLENLN_TDESLENLN_ACTDES
  799. L_CURSEG
  800. AG_GETDLG
  801. GK_ESC
  802. LC_CHOICE
  803. A_ADDONE
  804. EG_DSPALT
  805. _LOGFILEF2
  806. LOGFILETAB
  807. OTKEY
  808. BACKTAB
  809. DEENTER
  810. DESCRIGHTMOUSESPACEBAR
  811. GA_SEGLEN
  812. G_DSPST
  813. GN_MSGLINELL_ASSERT
  814. GL_ASSERT
  815. LN_TRACE
  816. LC_LOGFILEGC_LOGFILELL_HOTKEY
  817. GL_HOTKEY
  818. GN_ACCTLENLN_COUNTERLA_PICKS
  819. LN_READKEYLN_ADDCNT
  820. GC_OSEOL
  821. GC_APPLID
  822. GC_COMPID
  823. GC_USERID
  824. SA_TMPDGR
  825. PGLACNT
  826. EGRPCODE
  827. FLC_GRPCODEINFLAG
  828. PLL_ADDONE
  829. LN_ESCREADLC_STATMSGA_DELONE
  830. GLTYPE
  831. LENDEL
  832. A_GLACNT
  833. OLN_DELCNT
  834. LL_DELONE
  835. L_SEGBRS
  836. a_glhgrp,
  837. glgrp1.spr
  838. GN_TRACE
  839. E_TRACE
  840. LC_GRPCODEA_GLHGRP
  841. GRPCODE
  842. MELC_GRPDESCGRPDESC
  843. ELC_SGRPHD
  844. SGRPHD
  845. ALW_GLGRP1
  846. GC_ADRVPRG
  847. a_gldgrpV
  848. a_gldgrp
  849. Account Group Detail 
  850. GN_TRACE
  851. E_TRACE
  852. LN_RETURN
  853. G_LCKRC
  854. GN_TRACE
  855. E_TRACE
  856. A_GLDGRP
  857. RIGHTMOUSE
  858. SPACEBAR
  859. Select Account(s) to Add to Group
  860. Select Account(s) to Delete from Group
  861. RIGHTMOUSE
  862. DO l_putls
  863. SPACEBAR
  864. DO l_putls
  865. GN_TRACE
  866. E_TRACE
  867. RIGHTMOUSESPACEBAR
  868. LC_CHOICE
  869. A_ADDONE
  870. ELN_ADDCNT
  871. A_DELONE
  872. LGRP1
  873. LN_DELCNT
  874. TYPE("ll_apprv") = "L"
  875. lc_typestrf
  876. IF &lc_typestr
  877. Select Account(s) to Add to Group
  878. lc_typestrf
  879. IF &lc_typestr
  880. Select Account(s) to Delete from Group
  881. LL_APPRV
  882. GN_TRACE
  883. E_TRACE
  884. SEGL_ASSERT
  885. E_ASSRT
  886. LC_CHOICE
  887. A_ADDONE
  888. LN_ADDCNT
  889. A_DELONE
  890. LN_DELCNT
  891. L_GMNU
  892. L_INITGV
  893. L_GSELCT
  894. L_GEDIT
  895. L_VGRPSE
  896. L_CPYGRP
  897. L_WRTDTL
  898. L_NEWSET
  899. L_GREXIT
  900. L_WTYPE
  901. L_VTYPE
  902. L_WGLACN
  903. L_VGLACN
  904. L_SQL
  905. L_VGRPCO
  906. L_BRWGRP
  907. L_CLRBRW
  908. L_CLRPOP
  909. L_BLANK
  910. L_GSTFQS
  911. L_REFTYP
  912. L_WREVEW
  913. L_VREVEW
  914. L_PUTLS
  915. L_ALLBCH
  916. C:\GLDISK\
  917. C:\GLDISK\GLGRUP.PRG
  918. GLGRUP.FXP
  919.