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 / GLMULT._XP (.txt) < prev    next >
MS Visual FoxPro App  |  1993-02-11  |  51KB  |  1,155 lines
  1. TYPE("lc_auttask") = "C"
  2. lc_mltmodef
  3. DELETE
  4. GLACNT02
  5. F$FFb
  6. You do not have sufficient privileges to 
  7. delete accounts.
  8. You do not sufficient privilege to delete account
  9. at this time or date.
  10. IMPORTANT: Before deleting any accounts
  11. you should make a complete backup
  12. of your SBT accounting data files
  13. (all files ending in .DBF and .FPT).
  14. If you are not sure that a complete backup
  15. has been made, see your system administrator.
  16. Proceed with account deletion selection?
  17. Proceed
  18. Cancel
  19. Default Retained Earnings account not set up.   
  20.                                                 
  21. You must specify a Retained Earnings account in 
  22. GL Setup, then create the Retained Earnings     
  23. account using the Single Accounts option before 
  24. you can use the Add Multiple Accounts option.   
  25. a_gltype//
  26. There are no Account Ranges on file. You must
  27. first set up account types and their ranges.
  28. a_glsegs//
  29. Segment values have not been defined.
  30. Values for segment FF
  31.  have not been defined.
  32. a_gltype
  33. a_glbals
  34. a_glsegs
  35. a_glstru
  36. a_gltype//
  37. gltype
  38. a_glbals//
  39. glacnt1
  40. a_glsegs//
  41. segid1
  42. a_glstru//
  43. segid
  44. glacnt
  45. @*IHN F
  46. @*IHN 
  47. lw_glmlt1
  48. lw_glmlt2
  49. lw_glmlt3
  50. glmlt1.spr
  51. glmlt2.spr
  52. glmlt3.spr
  53. lw_glmlt1
  54. lp_mselect
  55. \<Set range
  56. E\<xit
  57. Enter range of multiple accounts
  58. Return to GL Maintenance menu
  59. RXFFF
  60. \<Set range
  61. \<Add
  62. \<Proceed
  63. \<View
  64. E\<xit
  65. Enter range of accounts to F
  66. delete8
  67. Add new accounts in range to Chart of Accounts
  68. Proceed to account validation
  69. Preview selected accounts in range
  70. Return to GL Maintenance menu
  71. SAVXFFF
  72. SPVXFFF
  73. lp_mselect
  74. a_glmult
  75. Accounts in existing range that 
  76. are set to be excluded will
  77. be reset to 'included status' if you 
  78. continue to Set-range!
  79. Continue
  80. E\<xit
  81. lp_mselect
  82. lp_mselect
  83. lp_mselect
  84. lp_madd
  85. lp_mdelete
  86. lp_mpreview
  87. LC_MLTMODEGL_ASSERT
  88. E_ASSRT
  89. RULN_OPNSE
  90. LN_OPNST
  91. RLN_SEGCNT
  92. LN_SEG
  93. KEYLC_SEGVAL
  94. LC_FROMACTLC_TOACT
  95. YLL_MEDIT
  96. YLL_MSELECTLM_GLMULT
  97. LL_ONESEG
  98. LC_SEGLEN
  99. LL_INMMENULC_MPAD
  100. ESLC_SEGFILTLC_SEGPIC
  101. LC_BRWNAMELL_NEW
  102. TERLL_ADDLOOPLC_CHOICE
  103. LC_OLDCLR
  104. LC_SEGID
  105. LC_FROMPICLC_TOPIC
  106. LC_STATMSGLL_TOEDIT
  107. LC_MTYPE
  108. LN_EXCLUDELN_RESP
  109. FLL_VALID
  110. LL_INARROWLC_REACT
  111. GLN_PRIV
  112. LN_ESCREADLN_OPNFLBALN_OPNFLSELN_OPNFLSTLN_OPNFLTYLL_CONTIN
  113. LC_PROCID
  114. U_CHKPV
  115. GC_USERID
  116. GC_COMPID
  117. G_DSPALT
  118. EGC_OSEOL
  119. G_DSPBX
  120. G_GETDLG
  121. SG_SETSYS
  122. EGC_APPLID
  123. A_SYSDAT
  124. A_GLACNT
  125. EGLACNT
  126. RG_OPNFL
  127. TYGF_GLTYPEFA_GLTYPE
  128. GLTYPE
  129. G_DSPST
  130. GN_MSGLINEGF_GLSEGSFA_GLSEGS
  131. GN_TOTSEGSSEGID
  132. LN_CNTR
  133. GM_MAIN
  134. GU_MANT
  135. GU_MANT1
  136. TGF_GLBALSFGF_GLSTRUFA_GLSTRU
  137. TA_GLBALS
  138. RGA_SEGLEN
  139. GN_ACCTLENGC_ACCTPICLC_PICTURELW_GLMLT1
  140. G_PNTBG
  141. GS_219
  142. LW_GLMLT2
  143. LW_GLMLT3
  144. GC_ADRVPRGL_MMNU
  145. LA_PAD
  146. ACTLA_PRMPT
  147. CG_DSPCH
  148. LN_MPAD
  149. G_GETCH
  150. GK_ESC
  151. DBFA_GLMULT
  152. EXCLUDE
  153. EL_MEXIT
  154. TYPE("lc_spadnam") = "C"
  155. LP_MSELECT
  156. Use <F
  157. > to select a segment for specifying a range
  158. glmlt1.spr
  159. Enter FROM account code
  160. CTRL+Y
  161. DO l_gctrly
  162. DO l_stfqs WITH COL(), lc_fromact, "lc_fromact"
  163. DO l_tabseg
  164. BACKTAB
  165. DO l_tabseg WITH COL(), "BACKTAB"
  166. glmlt2.spr
  167. CTRL+Y
  168. DO g_stfqs
  169. BACKTAB
  170. Use <F
  171. > to change 
  172. upper range, <Enter> to select
  173. glmlt3.spr
  174. UPARROW
  175. DNARROW
  176. RIGHTARROW
  177. glmlt1.spr
  178. glmlt2.spr
  179. glmlt3.spr
  180. glmlt1.spr
  181. glmlt2.spr
  182. glmlt3.spr
  183. LP_MADD
  184. Create new accounts?
  185. Create
  186. E\<xit
  187. a_glmult
  188. No new records exist in the entered range. 
  189. Add cancelled!
  190. Preparing to add new account(s)
  191. a_glbals//
  192. glacnt1
  193. BROWSE FOR a_glmult->exclude = " X "  FIELDS glacnt &lc_actlen :P=gc_acctpic :H=gc_accthdr,  gldesc &lc_actdes  :H="Description (or '" + gs_017 +  REPLICATE(gs_205,4) + "' if unsuccessful)"  NOWAIT NOMENU NOEDIT NOAPPEND NODELETE WINDOW lw_msel  TITLE "Progress in New Account Creation"  COLOR SCHEME 1
  194. Adding new account - F
  195. .....[
  196.  ACCOUNTS]
  197.  Add cancelled - 
  198. segment(s) not defined
  199. Progress in New Account Creation
  200. Add processing complete.
  201. Print or display detail list of new accounts?
  202. Print
  203. Display
  204. ll_cont = g_cncjob("")
  205. GLACNT INTO A_GLACNTF
  206. RELATIONz
  207. sycrlst
  208. a_sycrlst//
  209. compid1
  210. sycrlst
  211. a_sycrls2/e
  212. compid1
  213. "@@" + "RATIOS  " + A_GLACNT->GLRATIO INTO A_SYCRLSTF
  214. RELATIONz
  215. RATIOS  
  216. "@@" + "FASB95  " + A_GLACNT->GLFASB95 INTO A_SYCRLS2F
  217. RELATIONz
  218. FASB95  
  219. GLTYPE INTO A_GLTYPEF
  220. RELATIONz
  221. New Account Details
  222. glmlt1
  223. .t. .AND. 
  224. ALLTRIM(a_glmult->exclude) = [X] 
  225. Account Range FROM: F
  226.   TO: 
  227. (with Segment FF
  228.  as the controlling segment for the range)
  229. a_sycrlst
  230. a_sycrls2
  231. Progress in New Account Creation
  232. a_glmult
  233. glmlt1.spr
  234. glmlt2.spr
  235. glmlt3.spr
  236. LP_MDELETE
  237. a_glmult
  238. No records exist in the specified range. 
  239. Validation cancelled!
  240. Preparing accounts for review
  241. a_glbals//
  242. glacnt1
  243. BROWSE FOR AT(ALLTRIM(a_glmult->exclude), "VIX") > 0  FIELDS glacnt &lc_actlen :P=gc_acctpic :H=gc_accthdr,  gldesc &lc_actdes  :H="Acct. Description/Validation Comment"  NOWAIT NOMENU NOEDIT NOAPPEND NODELETE  WINDOW lw_msel  TITLE "Validation List"  COLOR SCHEME 1
  244. Validation List
  245. No valid accounts found! Deletion 
  246. cancelled.
  247.  \<View
  248.  \<Print
  249.  E\<xit
  250. Browse Validation List
  251. Print a detail Validation List
  252. Return to Delete Multiple Accounts menu
  253.  \<Delete
  254.  \<View
  255.  \<Print
  256.  E\<xit
  257. Delete valid accounts in Validation List
  258. Browse Validation List
  259. Print a detail Validation List
  260. Return to Delete Multiple Accounts menu
  261. BROWSE FOR AT(ALLTRIM(a_glmult->exclude), "VIX") > 0  FIELDS glacnt &lc_actlen :P=gc_acctpic  :H=gc_accthdr,  gldesc &lc_actdes  :H="Acct. Description/Validation Comment"  NOWAIT NOMENU NOEDIT NOAPPEND NODELETE  WINDOW lw_msel  TITLE "Validation List"  COLOR SCHEME 1
  262. VPEFFF
  263. DVPEFFF
  264. Proceed with deleting accounts?
  265. Proceed
  266. Cancel
  267. Deleting account - F
  268. .....[ 
  269.  ACCOUNTS ]
  270. Deleted!!!
  271. Validation List
  272. Validation List
  273. BROWSE FOR AT(ALLTRIM(a_glmult->exclude), "VIX") > 0  FIELDS glacnt &lc_actlen :P=gc_acctpic  :H=gc_accthdr,  gldesc &lc_actdes  :H="Acct. Description/Validation Comment"  NOWAIT NOMENU NOEDIT NOAPPEND NODELETE  WINDOW lw_msel  TITLE "Validation List"  COLOR SCHEME 1
  274. Multiple account deletion complete!
  275. a_glmult
  276. glmlt2.spr
  277. glmlt3.spr
  278. BROWSE FOR AT(ALLTRIM(a_glmult->exclude), "VIX") > 0  FIELDS glacnt &lc_actlen :P=gc_acctpic :H=gc_accthdr,  gldesc &lc_actdes  :H="Acct. Description/Validation Comment"  NOWAIT NOMENU NOEDIT NOAPPEND NODELETE  WINDOW lw_msel  TITLE "Validation List"  COLOR SCHEME 1
  279. Print or display detail Validation List?
  280. Print
  281. Display
  282. Cancel
  283. ll_cont = g_cncjob("")
  284. GLACNT INTO A_GLACNTF
  285. RELATIONz
  286. sycrlst
  287. a_sycrlst//
  288. compid1
  289. sycrlst
  290. a_sycrls2/e
  291. compid1
  292. "@@" + "RATIOS  " +  A_GLACNT->GLRATIO INTO A_SYCRLSTF
  293. RELATIONz
  294. RATIOS  
  295. "@@" + "FASB95  " +  A_GLACNT->GLFASB95 INTO A_SYCRLS2F
  296. RELATIONz
  297. FASB95  
  298. GLTYPE INTO A_GLTYPEF
  299. RELATIONz
  300. Detail List of Accounts Validated for Deletion
  301. glmlt2
  302. .t. .AND. 
  303. .NOT. EMPTY(a_glmult->exclude) 
  304. Account Range FROM: F
  305.   TO: 
  306. (with Segment FF
  307.  as the controlling segment for the range)
  308. a_sycrlst
  309. a_sycrls2
  310. Validation List
  311. a_glhbud
  312. a_gldbud
  313. a_glhgrp
  314. a_gldgrp
  315. glacnt
  316. LP_MPREVIEW
  317. LP_SEXIT
  318. LC_SPADNAMGN_TRACE
  319. E_TRACE
  320. RUGL_ASSERT
  321. E_ASSRT
  322. RLN_RESP
  323. LN_READKEYLC_CHOICE
  324. LC_XSEGVALLC_RETVAL
  325. LC_OLDTAG
  326. LN_SEGBEG
  327. LN_SEGLEN
  328. LC_NSEGVALLL_INPICKRLL_INFRMTOLL_FROMACTLN_RECORDSLL_CONT
  329. LL_INDMENULC_ACTLEN
  330. LN_ACTDES
  331. LC_ACTDES
  332. LL_RETVAL
  333. LL_PROCEEDLL_DELETEDLC_REACNT
  334. LC_SUSACNTLC_SHAFT
  335. LN_COUNT
  336. LC_TITLE
  337. ELC_FRMFILELC_COND
  338. LC_FOR
  339. ROWLC_HEAD1
  340. GLC_HEAD2
  341. LC_HEAD3
  342. DLL_PRNT
  343. BALL_DISP
  344. SELN_OPNFL
  345. TLN_OPNFLHULN_OPNFLDULN_OPNFLHELN_OPNFLDELN_OPNFLBALN_OPNFLHALN_OPNFLDALN_OPNFLHBLN_OPNFLDBLN_OPNFLHGLN_OPNFLDGLL_MSELECTL_INITMV
  346. LC_SEGVAL
  347. G_DSPST
  348. TOGN_MSGLINELL_MEDIT
  349. TGC_ADRVPRGGK_UP
  350. GK_LFT
  351. LN_ESCREADLN_SEG
  352. CKRLC_STATMSGCTRL
  353. GLINEY
  354. _TOTSEGSF2
  355. BACKTAB
  356. LC_TOACT
  357. ELC_FROMACTA_GLSEGS
  358. FSEGID
  359. FUPARROW
  360. RGDNARROW
  361. RRIGHTARROWLC_SEGFILTGN_ACCTLENGC_ACCTPICL_BLDCSR
  362. GL_PREBRS
  363. GC_TASK
  364. RGLN_MPAD
  365. ADG_GETDLG
  366. MA_GLMULT
  367. GEXCLUDE
  368. SGS_251
  369. ACTG_DSPALT
  370. SG_DSPPRC
  371. G_OPNFL
  372. BAGF_GLBALSFLW_MSEL
  373. GLACNT
  374. L_AUTACT
  375. GLDESC
  376. GS_017
  377. EGS_205
  378. GA_GLBALS
  379. AGC_OSEOL
  380. SC_SELPR
  381. GC_IDRVTMPGC_TMPF5
  382. EGC_EXTTXT
  383. A_GLACNT
  384. TGC_IDRVDBFGLRATIO
  385. FA_SYCRLST
  386. GLFASB95
  387. A_SYCRLS2
  388. GLTYPE
  389. A_GLTYPE
  390. G_PRNRP
  391. TG_DSPRP
  392. LL_VALID
  393. MA_SYSDAT
  394. SSYSID
  395. GC_APPLID
  396. GC_COMPID
  397. L_VALDEL
  398. LA_PAD
  399. RDSLA_PRMPT
  400. LW_GLMLT1
  401. G_DSPCH
  402. L_BRSILS
  403. G_GETCH
  404. GK_ESC
  405. NUL_OPNGFL
  406. DL_DELACT
  407. A_GLHUNP
  408. UA_GLDUNP
  409. UA_GLHENT
  410. EA_GLDENT
  411. EA_GLHAUT
  412. AA_GLDAUT
  413. AA_GLHBUD
  414. tA_GLDBUD
  415. "A_GLHGRP
  416. A_GLDGRP
  417. A_GLSTRU
  418. LL_INSMENULM_GLSEGS
  419. Press <Enter> or <Esc> to exit Validation List
  420. ENTER
  421. KEYBOARD CHR(gk_ctlend) PLAIN
  422. BROWSE FOR AT(ALLTRIM(a_glmult->exclude), "VIX") > 0  FREEZE glacnt  FIELDS glacnt &lc_actlen :P=gc_acctpic :H=gc_accthdr,  gldesc &lc_actdes  :H="Acct. Description/Validation Comment"  NOMENU NOEDIT NOAPPEND NODELETE  WINDOW lw_msel  TITLE "Validation List"  COLOR SCHEME 1
  423. ENTER
  424. GN_TRACE
  425. ME_TRACE
  426. G_DSPST
  427. RUGN_MSGLINEENTER
  428. RLL_ASSERT
  429. GL_ASSERT
  430. LN_TRACE
  431. LC_LOGFILEGC_LOGFILELL_HOTKEY
  432. GL_HOTKEY
  433. Account already exist in selected range.
  434. ENTER
  435. KEYBOARD CHR(gk_ctlend) PLAIN
  436. RIGHTMOUSE
  437. DO l_putls
  438. SPACEBAR
  439. DO l_putls
  440. CTRL+A
  441. DO l_allbch WITH .t.
  442. CTRL+a
  443. DO l_allbch WITH .t.
  444. CTRL+U
  445. DO l_allbch WITH .f.
  446. CTRL+u
  447. DO l_allbch WITH .f.
  448. <Spacebar> toggles one, 
  449. <Ctrl-A/U> toggles all, <Esc> exits
  450. BROWSE FREEZE exclude  FIELDS glacnt &lc_actlen :P=gc_acctpic :H=gc_accthdr,  exclude :3  :H="Inc",  gldesc &lc_actdes :H="Acct. Description"  NOMENU NOEDIT NOAPPEND NODELETE WINDOW lw_msel  TITLE "Preview Accounts in Range (Uncheck (" +  gs_251 + ") accounts to exclude)"  COLOR SCHEME 1
  451. ENTER
  452. RIGHTMOUSE
  453. SPACEBAR
  454. CTRL+A
  455. CTRL+a
  456. CTRL+U
  457. CTRL+u
  458. GN_TRACE
  459. ME_TRACE
  460. LC_ACTLEN
  461. LN_ACTDES
  462. LC_ACTDES
  463. A_GLMULT
  464. G_DSPALT
  465. ENTER
  466. RIGHTMOUSESPACEBAR
  467. ECTRL
  468. _HOTKEY
  469. FILEG_DSPST
  470. ALGN_MSGLINELL_ASSERT
  471. GL_ASSERT
  472. LN_TRACE
  473. SLC_LOGFILEGC_LOGFILELL_HOTKEY
  474. GL_HOTKEY
  475. GN_ACCTLENLW_MSEL
  476. LN_READKEYGC_TASK
  477. a_glmult
  478. Building preview list 
  479. a_glmult
  480. DELETE
  481.  accounts
  482. a_glsegs,
  483. accounts
  484. GN_TRACE
  485. ME_TRACE
  486. LC_FROMSEGLC_TOSEG
  487. LN_COUNT
  488. LC_NEWACT
  489. LC_NEWSEG
  490. LC_NEWDESCLL_CONT
  491. SELC_MSG
  492. ELN_COUNTERG_DSPPRC
  493. RA_GLMULT
  494. EGLACNT
  495. ALGLDESC
  496. INEEXCLUDE
  497. LA_SDESC
  498. GN_TOTSEGSA_GLSEGS
  499. ELC_FROMACTGA_SEGBEG
  500. GA_SEGLEN
  501. GLSDESC
  502. NLN_SEG
  503. LC_TOACT
  504. SEGID
  505. GA_GLACNT
  506. LC_MLTMODEGS_251
  507. SCSEGVAL
  508. GN_TRACE
  509. ME_TRACE
  510. LC_OLDAREALN_SEG
  511. REALC_SEGFILTLC_SEGVAL
  512. GA_SEGLEN
  513. LC_FROMACTGN_ACCTLENGC_ACCTPICLC_TOACT
  514. RLC_FROMPICLC_TOPIC
  515. glmlt1.spr
  516. GN_TRACE
  517. ME_TRACE
  518. LN_RETURN
  519. LC_OLDFILTLN_REC
  520. ILTLC_SEGFILTLN_SEGCNT
  521. LN_SEG
  522. ILTLL_MSELECTGC_ADRVPRGG_DSPST
  523. CTGC_TASK
  524. ICGN_MSGLINEGC_APPLID
  525. GC_COMPID
  526. GC_USERID
  527. Use <F
  528. > to move to segment, <Enter> selects range segment
  529. GN_TRACE
  530. ME_TRACE
  531. G_DSPST
  532. GN_MSGLINEGC_APPLID
  533. GC_COMPID
  534. GC_USERID
  535. LN_SEG
  536. a_glstru
  537. glmlt1.spr
  538. glmlt1.spr
  539. CTRL+Y
  540. DO l_gctrly
  541. DO l_stfqs WITH COL(), lc_fromact, "lc_fromact"
  542. DO l_tabseg
  543. BACKTAB
  544. DO l_tabseg WITH COL(), "BACKTAB"
  545. GN_TRACE
  546. ME_TRACE
  547. LL_RETURN
  548. LC_SEGFILTLL_MSELECTGC_ADRVPRGCTRL
  549. RVPRGY
  550. ILTF2
  551. MSELECTTAB
  552. DRVPRGBACKTAB
  553. Use <F
  554. > to change upper range,
  555. <Enter> to select
  556. UPARROW
  557. DO l_arrow WITH "UP"
  558. DNARROW
  559. DO l_arrow WITH "DOWN"
  560. RIGHTARROW
  561. KEYBOARD "{CTRL+ENTER}"
  562. DO l_toerr
  563. DO l_toerr
  564. DO l_toerr
  565. DO l_toerr
  566. DO l_toerr
  567. DO l_toerr
  568. DO l_toerr
  569. DO l_toerr
  570. DO l_toerr
  571. DO l_toerr
  572. GN_TRACE
  573. ME_TRACE
  574. LL_RETURN
  575. LC_SEGMT
  576. TLL_CONT
  577. CTLL_INARROWLC_SEGVAL
  578. LC_FROMACTGA_SEGBEG
  579. LN_SEG
  580. PRGGA_SEGLEN
  581. G_DSPST
  582. GN_MSGLINEGC_APPLID
  583. GC_COMPID
  584. GC_USERID
  585. LC_TOACT
  586. A_GLSEGS
  587. TLC_TOGET
  588. UPARROW
  589. CTDNARROW
  590. RIGHTARROW
  591. TYPE("lc_direct") = "C"
  592. UPARROW
  593. DNARROW
  594. RIGHTARROW
  595. End of range encountered!
  596. a_glsegs
  597. Beginning of range encountered!
  598. UPARROW
  599. DO l_arrow WITH "UP"
  600. DNARROW
  601. DO l_arrow WITH "DOWN"
  602. RIGHTARROW
  603. KEYBOARD "{CTRL+ENTER}"
  604. LC_DIRECT
  605. GN_TRACE
  606. E_TRACE
  607. GL_ASSERT
  608. E_ASSRT
  609. CTUPARROW
  610. OWDNARROW
  611. RIGHTARROWLL_INARROWA_GLSEGS
  612. LC_TOACT
  613. GA_SEGBEG
  614. LN_SEG
  615. INEGA_SEGLEN
  616. SEGVAL
  617. G_DSPALT
  618. LC_SEGVAL
  619. UPARROW
  620. DNARROW
  621. RIGHTARROW
  622. GN_TRACE
  623. E_TRACE
  624. UPARROW
  625. DNARROW
  626. RIGHTARROW
  627. Press UP arrow or DOWN arrow key to set 'To' range!
  628. DO l_toerr
  629. DO l_toerr
  630. DO l_toerr
  631. DO l_toerr
  632. DO l_toerr
  633. DO l_toerr
  634. DO l_toerr
  635. DO l_toerr
  636. DO l_toerr
  637. DO l_toerr
  638. GN_TRACE
  639. E_TRACE
  640. G_DSPALT
  641. glacnt
  642. GLACNT
  643. Account
  644. CTRL+Y
  645. DO g_stfqs
  646. BACKTAB
  647. GN_TRACE
  648. E_TRACE
  649. LN_RETURN
  650. LC_XFROM
  651. LC_SEGMT
  652. WLN_COUNT
  653. WLL_SEGDEF
  654. LL_LOOP
  655. OWLN_BADSEG
  656. LL_CONT
  657. LC_FROMACTLL_FROMACTL_CHKSEG
  658. A_GLACNT
  659. TL_BRWACT
  660. TGN_ACCTLENCTRL
  661. GHTARROWF2
  662. TOGET
  663. CTBACKTAB
  664. TYPE("lc_acnt") = "C"
  665. Segment FF
  666. , has not been defined in 
  667. Segments.
  668. LC_ACNT
  669. GN_TRACE
  670. E_TRACE
  671. GL_ASSERT
  672. E_ASSRT
  673. WLC_OLDAREALC_SEGMT
  674. LN_COUNT
  675. WLN_BDSEG
  676. A_GLSEGS
  677. ALL_SEGDEF
  678. GN_TOTSEGSGA_SEGBEG
  679. GA_SEGLEN
  680. G_DSPALT
  681. TYPE("ln_type") = "N"
  682. TYPE("lc_field") = "C"
  683. TYPE("lc_keyvar") = "C"
  684. TYPE("lc_file") = "C"
  685. TYPE("lc_title") = "C"
  686. Select list:
  687. Accounts
  688. Types
  689. Segments
  690. Reenter
  691. Select list:
  692. Accounts
  693. Types
  694. Segments
  695. Reenter
  696. gltype
  697. GLTYPE
  698. Account Type
  699. FILTERz
  700. SET FILTER TO &lc_oldfilt
  701. lc_fromact
  702. Invalid account! First character 
  703. is not a digit.
  704. Invalid account! First character 
  705. is a space.
  706. Invalid account! Account Major 
  707. is all zeros.
  708. GLACNT
  709. No records found.
  710. CTRL+Y
  711. DO g_stfqs
  712. BACKTAB
  713. ENTER
  714. KEYBOARD CHR(gk_ctlend) PLAIN
  715. RIGHTMOUSE
  716. KEYBOARD CHR(gk_ctlend) PLAIN
  717. a_glacnt,
  718. lc_keyvar = &lc_field.
  719. ENTER
  720. RIGHTMOUSE
  721. CTRL+Y
  722. DO l_gctrly
  723. DO l_stfqs WITH COL(), lc_fromact, "lc_fromact"
  724. DO l_tabseg
  725. BACKTAB
  726. DO l_tabseg WITH COL(), "BACKTAB"
  727. LN_TYPE
  728. LC_FIELD
  729. LC_KEYVAR
  730. LC_FILE
  731. LC_TITLE
  732. WGN_TRACE
  733. AE_TRACE
  734. GL_ASSERT
  735. E_ASSRT
  736. LL_DONE
  737. ALL_HOTKEY
  738. LN_READKEYLC_LOOKUP
  739. LC_OLDFILTLL_SEGDEF
  740. LN_RESP
  741. G_GETDLG
  742. TL_BRWACT
  743. A_GLTYPE
  744. LC_MTYPE
  745. TLN_ESCREADA_GLSEGS
  746. A_GLACNT
  747. GLTYPE
  748. ILTL_SEGBRS
  749. LN_BADSEG
  750. GN_ACCTLENG_DSPALT
  751. GA_SEGLEN
  752. DSPPRC
  753. FRMFILETAB
  754. BACKTAB
  755. OWENTER
  756. GRIGHTMOUSELL_ASSERT
  757. LN_TRACE
  758. LC_LOGFILEGC_LOGFILEGL_HOTKEY
  759. L_BROWSER
  760. GLACNT
  761. BROWSE FREEZE glacnt  FIELDS glacnt &lc_actlen :P=gc_acctpic :H=gc_accthdr,  gldesc &lc_actdes :H="Description"  NOMENU NOEDIT NOAPPEND NODELETE WINDOW lw_msel  TITLE "Select Account" COLOR SCHEME 10
  762. GLTYPE
  763. BROWSE FREEZE gltype  FIELDS gltype :H="Type" :4,  gldesc :H="Description" &lc_tdeslen,  gllow  :H="From" &lc_typelen,  glupp  :H="To"   &lc_typelen  NOMENU NOEDIT NOAPPEND NODELETE WINDOW lw_msel  TITLE "Select Account Type" COLOR SCHEME 10
  764. GN_TRACE
  765. E_TRACE
  766. LW_MSEL
  767. LC_ACTLEN
  768. LC_ACTDES
  769. LC_TYPELENLC_TDESLENLN_TDESLENLC_OLDAREALN_ACTDES
  770. LC_FILE
  771. EAGN_ACCTLENGA_SEGLEN
  772. a_glsegs
  773. a_glacnt
  774. a_gltype
  775. a_glbals
  776. a_glmult
  777. GN_TRACE
  778. E_TRACE
  779. LW_GLMLT1
  780. LW_GLMLT2
  781. LW_GLMLT3
  782. LA_PAD
  783. LENLA_PRMPT
  784. NLC_OLDCLR
  785. A_GLSEGS
  786. AA_GLACNT
  787. A_GLTYPE
  788. AA_GLBALS
  789. NLN_OPNFLBALN_OPNFLSELN_OPNFLSTA_GLSTRU
  790. LN_OPNFLTYA_GLMULT
  791. GM_MAIN
  792. GU_MANT
  793. CTRL+Y
  794. CTRL+Y
  795. DO l_gctrly
  796. GN_TRACE
  797. E_TRACE
  798. _GLMLT2
  799. LC_FROMACTGN_ACCTLENGC_ACCTPICf
  800. RIGHTMOUSE
  801. SPACEBAR
  802. Invalid accounts are Excluded by default 
  803. and can't be changed!
  804. Invalid accounts are Excluded by default 
  805. and can't be changed!
  806. Preview Accounts in Range (Uncheck (
  807. ) accounts to exclude)
  808. RIGHTMOUSE
  809. DO l_putls
  810. SPACEBAR
  811. DO l_putls
  812. GN_TRACE
  813. E_TRACE
  814. RIGHTMOUSESPACEBAR
  815. A_GLMULT
  816. TEXCLUDE
  817. ENG_DSPALT
  818. CGS_251
  819. TLL_VALID
  820. TYPE("ll_apprv") = "L"
  821. CTRL+A
  822. DO l_allbch WITH .t.
  823. CTRL+a
  824. DO l_allbch WITH .t.
  825. CTRL+U
  826. DO l_allbch WITH .f.
  827. CTRL+u
  828. DO l_allbch WITH .f.
  829. Preview Accounts in Range (Uncheck (
  830. ) accounts to exclude)
  831. CTRL+A
  832. DO l_allbch WITH .t.
  833. CTRL+a
  834. DO l_allbch WITH .t.
  835. CTRL+U
  836. DO l_allbch WITH .f.
  837. CTRL+u
  838. DO l_allbch WITH .f.
  839. LL_APPRV
  840. GN_TRACE
  841. E_TRACE
  842. SEGL_ASSERT
  843. E_ASSRT
  844. TCTRL
  845. DSPALT
  846. TA_GLMULT
  847. AEXCLUDE
  848. EGS_251
  849. ALL_VALID
  850. Validating account for deletion...please wait
  851. Validating account number F
  852. .....[ 
  853.  ACCOUNTS ]
  854. Default 
  855. Retained Earnings
  856. Suspense8
  857.  account!
  858. Checking Balances for current activity
  859. Balances file 
  860. contains debit/credit activity!
  861. Checking Balances for zero balance in current 
  862. glacnt1
  863. Balance exists 
  864. for current year!
  865. glacnt1
  866. Checking Balances for zero balance in next 
  867. glacnt1
  868. Balance exists 
  869. for next year!
  870. glacnt1
  871. glacnt1
  872. Checking to see that no transactions exist
  873. glacnt
  874. Posted transactions 
  875. exist for this account!
  876. Checking to see if unposted transactions exist
  877. This account found in 
  878. unposted batch(es)!
  879. Checking for Budgets with this account
  880. !!WARNING!! Account will be 
  881. deleted from Budget(s)!
  882. Checking for Automatic Entries with this account
  883. !!WARNING!! Automatic Entries 
  884. will be deleted!
  885. Checking for Account Groups with this account
  886. !!WARNING!! Account will be 
  887. deleted from Group(s)!
  888. Validation List
  889. GN_TRACE
  890. E_TRACE
  891. LL_CONT
  892. SELL_LCKOB
  893. LN_DEBITS
  894. LN_CREDITSLN_RESP
  895. CLL_BUDGET
  896. LL_AUTO
  897. ALL_GROUP
  898. ELL_CLEAR
  899. ALL_LOCK
  900. NLN_COUNT
  901. ALC_SHAFT
  902. ELL_GETOUT
  903. G_DSPST
  904. GN_MSGLINEGC_APPLID
  905. GC_COMPID
  906. GC_USERID
  907. GS_017
  908. GS_205
  909. L_OPNGFL
  910. A_GLMULT
  911. TEXCLUDE
  912. GS_251
  913. G_DSPPRC
  914. NGLACNT
  915. LN_RECORDSLC_REACNT
  916. LC_SUSACNTGLDESC
  917. EA_GLBALS
  918. PTDDR
  919. WPTDCR
  920. GGLACNT1
  921. GC_FCYR
  922. FYBGBAL
  923. YTDDR
  924. EYTDCR
  925. EA_GLDENT
  926. A_GLDUNP
  927. A_GLHUNP
  928. STATUS
  929. LDEA_GLDBUD
  930. A_GLDAUT
  931. A_GLDGRP
  932. LL_VALID
  933. a_glhaut//
  934. auttype1
  935. a_gldaut//
  936. auttype1
  937. a_glhent//
  938. a_gldent//
  939. GLTYPE INTO A_GLTYPEF
  940. RELATIONz
  941. AUTONO INTO A_GLDAUTF
  942. RELATIONz
  943. a_glhunp//
  944. batchno1
  945. a_gldunp//
  946. glacnt
  947. a_glhbud//
  948. bcode1
  949. a_gldbud//
  950. glacnt
  951. a_glhgrp//
  952. grpcode
  953. a_gldgrp//
  954. grpcode1
  955. BATCHNO + GLSEQNO INTO A_GLHUNPF
  956. RELATIONz
  957. BCODE + LEFT(YEARPRD,4) INTO A_GLHBUDF
  958. RELATIONz
  959. GRPCODE INTO A_GLHGRPF
  960. RELATIONz
  961. GN_TRACE
  962. E_TRACE
  963. LN_OPNFLHAG_OPNFL
  964. GF_GLHAUTFA_GLHAUT
  965. SAUTTYPE
  966. CAUTBASE
  967. LN_OPNFLDAGF_GLDAUTFLN_OPNFLHEGF_GLHENTFLN_OPNFLDEGF_GLDENTFA_GLACNT
  968. GLTYPE
  969. A_GLTYPE
  970. EAUTONO
  971. A_GLDAUT
  972. LN_OPNFLHUGF_GLHUNPFLN_OPNFLDUGF_GLDUNPFLN_OPNFLHBGF_GLHBUDFLN_OPNFLDBGF_GLDBUDFLN_OPNFLHGGF_GLHGRPFLN_OPNFLDGGF_GLDGRPFA_GLDUNP
  973. EBATCHNO
  974. GLSEQNO
  975. WA_GLHUNP
  976. GA_GLDBUD
  977. BCODE
  978. YEARPRD
  979. A_GLHBUD
  980. EA_GLDGRP
  981. EGRPCODE
  982. A_GLHGRP
  983. TYPE("lc_macnt") = "C"
  984. Validating account for deletion...please wait
  985. Checking Balances for current activity
  986. a_glbals5
  987. a_glbals
  988. Balances
  989. Checking Balances for zero balance in current 
  990. glacnt1
  991. glacnt1
  992. Checking Balances for zero balance in next 
  993. glacnt1
  994. glacnt1
  995. glacnt1
  996. Checking to see that no transactions exist
  997. glacnt
  998. Checking for Budgets with this account
  999. a_gldbud5
  1000. a_gldbud
  1001. Checking to see if unposted transactions exist
  1002. Checking for Automatic Entries with this account
  1003. a_gldaut5
  1004. a_gldaut
  1005. Checking for Account Groups with this account
  1006. a_gldgrp5
  1007. a_gldgrp
  1008. Deleting account #F
  1009. Deleting Accounte
  1010. a_glacnt,
  1011. a_glsegsV
  1012. a_glsegs
  1013. a_gldaut
  1014. a_glhaut
  1015. auttype1
  1016. Deleting Account/
  1017. LC_MACNT
  1018. GN_TRACE
  1019. E_TRACE
  1020. HAGL_ASSERT
  1021. E_ASSRT
  1022. TFLL_CONT
  1023. SLL_LCKOB
  1024. CLN_DEBITS
  1025. LN_CREDITSLN_RESP
  1026. TFLL_BUDGET
  1027. LL_AUTO
  1028. TFLL_GROUP
  1029. ELL_CLEAR
  1030. FLL_LOCK
  1031. LN_COUNT
  1032. LN_XREC
  1033. ELC_SYSACNTLL_RETURN
  1034. G_DSPST
  1035. HUGN_MSGLINEGC_APPLID
  1036. GC_COMPID
  1037. GC_USERID
  1038. LC_REACNT
  1039. LC_SUSACNTA_GLBALS
  1040. G_LCKFL
  1041. GPTDDR
  1042. FPTDCR
  1043. FLDGGLACNT
  1044. ITSGLACNT1
  1045. GC_FCYR
  1046. FYBGBAL
  1047. WYTDDR
  1048. GYTDCR
  1049. A_GLDENT
  1050. A_GLDBUD
  1051. A_GLDUNP
  1052. A_GLHUNP
  1053. ESTATUS
  1054. A_GLDAUT
  1055. A_GLDGRP
  1056. A_GLACNT
  1057. G_LCKOB
  1058. GN_RETRY
  1059. GA_SEGLEN
  1060. A_GLSEGS
  1061. G_LCKRC
  1062. LL_DELETEDA_GLHAUT
  1063. DISTINCT
  1064. TAUTONO
  1065. AUTTYPE
  1066. LA_AUTONOSAUTTYPE1
  1067. SAUTBASE
  1068. TYPE("lc_macnt") = "C"
  1069. DELETE PROHIBITED: This is the default 
  1070. Retained Earnings
  1071. Suspense8
  1072.  account!
  1073. DELETE PROHIBITED: Balances file contains 
  1074. debit/credit activity!
  1075. glacnt1
  1076. DELETE PROHIBITED: Balance exists in current year!
  1077. glacnt1
  1078. glacnt1
  1079. DELETE PROHIBITED: Balance exists for next year!
  1080. glacnt1
  1081. glacnt1
  1082. glacnt
  1083. DELETE PROHIBITED: Posted transactions exist for 
  1084. this account!
  1085. !!WARNING!! Account will be deleted 
  1086. from Budget Version(s): 
  1087. DELETE PROHIBITED: This account found in 
  1088. unposted batch(es)!
  1089. !!WARNING!! Automatic Entries 
  1090. will be deleted for: 
  1091. !!WARNING!! Account will be deleted from the 
  1092. following Group(s):
  1093. Approved for Deletion
  1094. LC_MACNT
  1095. GN_TRACE
  1096. E_TRACE
  1097. HAGL_ASSERT
  1098. E_ASSRT
  1099. TFLN_DEBITS
  1100. LN_CREDITSLL_BUDGET
  1101. LL_AUTO
  1102. TSLL_GROUP
  1103. FLN_RECNO
  1104. LC_STATUS
  1105. A_GLMULT
  1106. ELC_REACNT
  1107. LC_SUSACNTGC_OSEOL
  1108. A_GLBALS
  1109. PTDDR
  1110. TPTDCR
  1111. GLACNT
  1112. ITSGLACNT1
  1113. GC_FCYR
  1114. FYBGBAL
  1115. YTDDR
  1116. YTDCR
  1117. A_GLDENT
  1118. A_GLDBUD
  1119. BCODE
  1120. YEARPRD
  1121. FA_GLDUNP
  1122. A_GLHUNP
  1123. SSTATUS
  1124. A_GLDAUT
  1125. AUTONO
  1126. A_GLDGRP
  1127. GRPCODE
  1128. L_MMNU
  1129. L_BRSILS
  1130. L_PREBRS
  1131. L_BLDCSR
  1132. L_INITMV
  1133. L_VSEG
  1134. L_WSEG
  1135. L_WFROM
  1136. L_WTO
  1137. L_ARROW
  1138. L_VTO
  1139. L_TOERR
  1140. L_VFROM
  1141. L_CHKSEG
  1142. L_BRWACT
  1143. L_BROWSER
  1144. L_MEXIT
  1145. L_GCTRLY
  1146. L_PUTLS
  1147. L_ALLBCH
  1148. L_VALDEL
  1149. L_OPNGFL
  1150. L_DELACT
  1151. L_PRNDEL
  1152. C:\GLDISK\
  1153. C:\GLDISK\GLMULT.PRG
  1154. GLMULT.FXP
  1155.