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 / GLRLIB._XP (.txt) < prev    next >
MS Visual FoxPro App  |  1993-02-11  |  47KB  |  1,034 lines
  1. TYPE("lc_bar") = "N"
  2. syrlib
  3. LC_TASK
  4. GL_ASSERT
  5. E_ASSRT
  6. LC_STRLVL
  7. LC_STRSEG1LC_STRSEG2L_SEGLVL
  8. AGC_IDRVPRGGC_ADRVPRGGC_APPLID
  9. TYPE("lc_word") = "C"
  10. SDESC
  11. LDESC
  12. SNAME
  13. LNAME
  14. SDESC
  15. LDESC
  16. SHEAD
  17. LHEAD
  18. MCODE
  19. MDESC
  20. Assets
  21. Liabilities
  22. Owner Equity
  23. Cost of Sales
  24. Revenues
  25. Taxes on Income
  26. Other Income
  27. Operating Expenses
  28. REVYP
  29. CUCNV
  30. CUCODE
  31. CUBASE
  32. CUFORN
  33. CUDAT
  34. SUMMZD
  35. POSTP
  36. POSTY
  37. POSTYP
  38. BEGSEQ
  39. ENDSEQ
  40. SUSER
  41. SDATE
  42. STIME
  43. EUSER
  44. EDATE
  45. ETIME
  46. AUSER
  47. ADATE
  48. ATIME
  49. PUSER
  50. PDATE
  51. PTIME
  52. POST1
  53. POST2
  54. POST3
  55. POST4
  56. POST5
  57. POST6
  58. POST7
  59. POST8
  60. POSTALL
  61. LC_WORD
  62. LC_RETURN
  63. LL_CONT
  64. LL_RESULT
  65. LC_SEGBEG
  66. LN_SEGNUM
  67. LC_KEYEND
  68. LC_SEGCOD
  69. LC_SEGKEY
  70. LC_SEGCHR
  71. GL_ASSERT
  72. E_ASSRT
  73. LC_ALIAS
  74. LN_RLEN
  75. PGN_TOTSEGSGA_SEGBEG
  76. GA_SEGLEN
  77. A_RWWBLK
  78. PA_GLSEGS
  79. GLSDESC
  80. GLDESC
  81. A_GLSTRU
  82. SSEGDES
  83. LSEGDES
  84. GN_ACCTLENA_GLACNT
  85. GLSTAT
  86. A_GLTYPE
  87. GLTYPE
  88. STYPEHD
  89. LTYPEHD
  90. LC_LCODE
  91. LL_POSTED
  92. A_GLHUNP
  93. BATCHNO
  94. NEGLSEQNO
  95. A_GLHENT
  96. SUBNO
  97. GLTDES
  98. GLREFR
  99. GLDATE
  100. YEARPRD
  101. STATUS
  102. TRTYPE
  103. GLMODULE
  104. GLCOMP
  105. GLREVRS
  106. REVPER
  107. REVYEAR
  108. CUCNVT
  109. CUCODE
  110. CUBASE
  111. CUFORGN
  112. CUDATE
  113. SUMMZED
  114. A_GLBTCH
  115. BDESC
  116. POSTPRD
  117. POSTYR
  118. LOWSEQ
  119. UPPSEQ
  120. BTYPE
  121. BSTAT
  122. CTRLTOT
  123. DRTOTAL
  124. CRTOTAL
  125. STSUSER
  126. STSDATE
  127. STSTIME
  128. EDTUSER
  129. EDTDATE
  130. EDTTIME
  131. AUDUSER
  132. AUDDATE
  133. AUDTIME
  134. PSTUSER
  135. PSTDATE
  136. PSTTIME
  137. POST1
  138. POST2
  139. POST3
  140. POST4
  141. POST5
  142. POST6
  143. POST7
  144. POST8
  145. a_glsegs//
  146. segid1e
  147. a_glstru//
  148. segide
  149. a_gltype//
  150. gltypee
  151. a_glacnt//
  152. glacnte
  153. lc_blkfld1
  154. SET RELATION TO &lc_blkfld1 INTO a_glacnt ADDITIVE
  155. LC_RFLD
  156. LN_PARMCNTG_OPNFL
  157. GF_GLSEGSFGF_GLSTRUFGF_GLTYPEFGF_GLACNTFA_GLTYPE
  158. GLTYPE
  159. L_RPTVAR
  160. LC_BLKFLD1A_RWWBLK
  161. a_glhent//
  162. batchno1e
  163. lc_blkfld3
  164. transet
  165. SET RELATION TO &lc_blkfld3 INTO a_glhent ADDITIVE
  166. a_glhunp//
  167. batchno1e
  168. SET RELATION TO &lc_blkfld3 INTO a_glhunp ADDITIVE
  169. a_glbtch//
  170. batchnoe
  171. lc_batfld
  172. LEFT(
  173. SET RELATION TO &lc_batfld INTO a_glbtch ADDITIVE
  174. LC_RFLD
  175. LN_PARMCNTG_OPNFL
  176. GF_GLHENTFL_RPTVAR
  177. FLC_BLKFLD3A_RWWBLK
  178. TA_GLHENT
  179. GF_GLHUNPFA_GLHUNP
  180. GF_GLBTCHFLC_BATFLD
  181. A_GLBTCH
  182. TYPE("lc_scanamt") = "C"
  183. ACTUAL|BUDGET|POSTED|UNPOSTED
  184. GROUP
  185. lc_grpname = &lc_grpname
  186. FOR a_gldgrp->inflag 
  187. FOR a_gldgrp->inflag .AND. 
  188. WHERE
  189. WHERE
  190. WHERE
  191. WHERE
  192. WHERE
  193. WHERE
  194. WHERE
  195. WHERE
  196. WHERE
  197. WHERE
  198. WHILE 
  199. WHILE
  200. WHILE
  201. WHILE
  202. WHILE
  203. WHILE
  204. WHILE
  205. WHILE
  206. WHILE
  207. WHILE
  208. TAG$SEEK
  209. rowkey
  210. ACTUAL
  211. Accessing Balance History
  212. a_glacnt//
  213. glacnte
  214. a_gldgrp//
  215. grpcode1e
  216. a_glbals//
  217. a_glbals
  218. BUDGET
  219. Access Budget Balances
  220. a_glacnt//
  221. glacnte
  222. a_glhbud//
  223. bcode1e
  224. a_gldgrp//
  225. grpcode1e
  226. a_gldbud//
  227. a_gldbud
  228. POSTED
  229. Access Posted Transactions
  230. a_glacnt//
  231. glacnte
  232. a_glbtch//
  233. batchnoe
  234. a_glhent//
  235. batchno1e
  236. a_gldgrp//
  237. grpcode1e
  238. a_gldent//
  239. a_gldent
  240. UNPOSTED
  241. Access Unposted Transactions
  242. a_glacnt//
  243. glacnte
  244. a_glbtch//
  245. batchnoe
  246. a_glhunp//
  247. batchno1e
  248. a_gldgrp//
  249. grpcode1e
  250. a_gldunp//
  251. a_gldunp
  252. lc_seekfor = &lc_macseek
  253. SQL Query : 
  254. ACTUAL
  255. SELECT a_glbals.*  FROM a_glbals, a_glacnt  WHERE a_glbals.glacnt = a_glacnt.glacnt AND  &lc_wre1.&lc_wre2.&lc_wre3.&lc_wre4.&lc_wre5.&lc_wre6.  &lc_wre7.&lc_wre8.&lc_wre9  INTO TABLE &lc_sqltemp
  256. SELECT a_glbals.*  FROM a_glbals, a_glacnt, a_gldgrp  WHERE a_glbals.glacnt = a_glacnt.glacnt AND  lc_grpname + a_glbals.glacnt =  a_gldgrp.grpcode + a_gldgrp.glacnt AND  &lc_wre1.&lc_wre2.&lc_wre3.&lc_wre4.&lc_wre5.&lc_wre6.  &lc_wre7.&lc_wre8.&lc_wre9  INTO TABLE &lc_sqltemp
  257. BUDGET
  258. SELECT a_gldbud.*  FROM a_gldbud, a_glacnt, a_glhbud  WHERE a_gldbud.glacnt = a_glacnt.glacnt AND  a_gldbud.bcode = a_glhbud.bcode AND  &lc_wre1.&lc_wre2.&lc_wre3.&lc_wre4.&lc_wre5.&lc_wre6.  &lc_wre7.&lc_wre8.&lc_wre9  INTO TABLE &lc_sqltemp
  259. SELECT a_gldbud.*  FROM a_gldbud, a_glacnt, a_glhbud, a_gldgrp  WHERE a_gldbud.glacnt = a_glacnt.glacnt AND  a_gldbud.bcode = a_glhbud.bcode AND  lc_grpname + a_gldbud.glacnt =  a_gldgrp.grpcode + a_gldgrp.glacnt AND  &lc_wre1.&lc_wre2.&lc_wre3.&lc_wre4.&lc_wre5.&lc_wre6.  &lc_wre7.&lc_wre8.&lc_wre9  INTO TABLE &lc_sqltemp
  260. POSTED
  261. SELECT a_gldent.*  FROM a_gldent, a_glacnt, a_glhent, a_glbtch  WHERE a_gldent.glacnt = a_glacnt.glacnt AND  a_gldent.batchno = a_glbtch.batchno AND  a_gldent.batchno + a_gldent.glseqno =  a_glhent.batchno+a_glhent.glseqno AND  &lc_wre1.&lc_wre2.&lc_wre3.&lc_wre4.&lc_wre5.&lc_wre6.  &lc_wre7.&lc_wre8.&lc_wre9  INTO TABLE &lc_sqltemp
  262. SELECT a_gldent.*  FROM a_gldent, a_glacnt, a_glhent, a_glbtch, a_gldgrp  WHERE a_gldent.glacnt = a_glacnt.glacnt AND  lc_grpname + a_gldent.glacnt =  a_gldgrp.grpcode + a_gldgrp.glacnt AND  a_gldent.batchno + a_gldent.glseqno =  a_glhent.batchno + a_glhent.glseqno AND  a_gldent.batchno = a_glbtch.batchno AND  &lc_wre1.&lc_wre2.&lc_wre3.&lc_wre4.&lc_wre5.&lc_wre6.  &lc_wre7.&lc_wre8.&lc_wre9  INTO TABLE &lc_sqltemp
  263. UNPOSTED
  264. SELECT a_gldunp.*  FROM a_gldunp, a_glacnt, a_glhunp, a_glbtch  WHERE a_gldunp.glacnt = a_glacnt.glacnt AND  a_gldunp.batchno + a_gldunp.glseqno =  a_glhunp.batchno + a_glhunp.glseqno AND  a_gldunp.batchno = a_glbtch.batchno AND  &lc_wre1.&lc_wre2.&lc_wre3.&lc_wre4.&lc_wre5.&lc_wre6.  &lc_wre7.&lc_wre8.&lc_wre9  INTO TABLE &lc_sqltemp
  265. SELECT a_gldunp.*  FROM a_gldunp, a_glacnt, a_glhunp, a_glbtch, a_gldgrp  WHERE a_gldunp.glacnt = a_glacnt.glacnt AND  lc_grpname + a_gldunp.glacnt =  a_gldgrp.grpcode + a_gldgrp.glacnt AND  a_gldunp.batchno + a_gldunp.glseqno =  a_glhunp.batchno + a_glhunp.glseqno AND  a_gldunp.batchno = a_glbtch.batchno AND  &lc_wre1.&lc_wre2.&lc_wre3.&lc_wre4.&lc_wre5.&lc_wre6.  &lc_wre7.&lc_wre8.&lc_wre9  INTO TABLE &lc_sqltemp
  266. .SQLF
  267. ACTUAL
  268. SELECT &lc_sqc
  269. a_glbalse/
  270. BUDGET
  271. SELECT &lc_sqc
  272. a_gldbude/
  273. POSTED
  274. SELECT &lc_sqc
  275. a_gldente/
  276. UNPOSTED
  277. SELECT &lc_sqc
  278. a_gldunpe/
  279. Request procedural query : 
  280. SCAN &lc_for0.&lc_for1.&lc_for2.&lc_for3.&lc_for4.  &lc_for5.&lc_for6.&lc_for7.&lc_for8.&lc_for9   &lc_whl0.&lc_whl1.&lc_whl2.&lc_whl3.&lc_whl4.  &lc_whl5.&lc_whl6.&lc_whl7.&lc_whl8.&lc_whl9
  281. lc_rowtest = &lc_rowkstr
  282. lc_coltest = LEFT(lc_scanamt, 1) + &lc_colkstr
  283.  WITH 
  284. REPLACE &lc_colget0.&lc_colget1.&lc_colget2  &lc_gget01.&lc_gget02.&lc_gget03.&lc_gget04.&lc_gget05  &lc_gget06.&lc_gget07.&lc_gget08.&lc_gget09
  285. REPLACE &lc_colget0.&lc_colget1.&lc_colget2
  286. ACTUAL
  287. BUDGET
  288. POSTED
  289. UNPOSTED
  290. Load switch not known to 
  291. LC_SCANAMTLC_GRPNAMELC_TAGSEEKLC_MACTAG
  292. LC_MACSEEKLN_TAGCUT
  293. LC_AMTSTATLN_TALLY
  294. LN_MARK
  295. PFLC_ROWTESTLC_COLTESTLL_NEWROW
  296. LN_SUBNEXTLN_COLSUB
  297. LC_COLGET0LC_COLGET1LC_COLGET2GL_ASSERT
  298. E_ASSRT
  299. PA_SYRBLC
  300. TL_BLKCLS
  301. ELC_FOR1
  302. MELC_FOR2
  303. LC_FOR3
  304. LC_FOR4
  305. LC_FOR5
  306. NLC_FOR6
  307. LC_FOR7
  308. LC_FOR8
  309. LC_FOR9
  310. LC_FOR0
  311. MELC_WRE0
  312. MELC_WRE1
  313. LC_WRE2
  314. LC_WRE3
  315. LC_WRE4
  316. ELC_WRE5
  317. LC_WRE6
  318. LC_WRE7
  319. LC_WRE8
  320. LC_WRE9
  321. LC_WHL0
  322. LC_WHL1
  323. LC_WHL2
  324. LC_WHL3
  325. LC_WHL4
  326. LC_WHL5
  327. LC_WHL6
  328. LC_WHL7
  329. LC_WHL8
  330. LC_WHL9
  331. A_RWWBLK
  332. LL_ROWKYONROWKEY
  333. G_OPNFL
  334. ATGF_GLACNTFGF_GLDGRPFGF_GLBALSFLC_AMTALI
  335. GF_GLHBUDFGF_GLDBUDFGF_GLBTCHFGF_GLHENTFGF_GLDENTFGF_GLHUNPFGF_GLDUNPFLC_SEEKFORLL_SQLON
  336. G_DSPPRC
  337. PRESQL
  338. TATLN_SQI
  339. AMELC_SQC
  340. A_GLBALS
  341. TLC_SQLTEMPGLACNT
  342. A_GLACNT
  343. A_GLDGRP
  344. EA_GLDBUD
  345. TBCODE
  346. PA_GLHBUD
  347. A_GLHENT
  348. TBATCHNO
  349. A_GLBTCH
  350. A_GLDENT
  351. GLSEQNO
  352. PA_GLHUNP
  353. TA_GLDUNP
  354. LN_COLCNT
  355. LA_COLKEY
  356. LC_MARKERSLA_COLNAMELA_COLSIGNLA_COLLOADLL_RWDYGRPLC_BLKCODEw
  357. a_glacnt//
  358. glacnte
  359. o_acntgrpf
  360. a_gldgrp//
  361. grpcode1e
  362. ENTER
  363. KEYBOARD CHR(gk_ctlend) PLAIN
  364. RIGHTMOUSE
  365. KEYBOARD CHR(gk_ctlend)
  366. ESCAPE
  367. DELETEDz
  368. No records found.
  369. BROWSE FREEZE a_gldgrp->glacnt  FIELDS a_gldgrp->glacnt :h = "Account" :p = gc_acctpic,  a_glacnt->gldesc &lc_deslen. :h = "Description"  NOMENU NOEDIT NOAPPEND NODELETE  WINDOW w_msel  TITLE "Select Account"  COLOR SCHEME 10
  370. ENTER
  371. ON KEY LABEL ESCAPE &lc_esckey.
  372. GLACNT
  373. Select an account
  374. LC_ACCIS
  375. TLN_ACCREC
  376. LC_ESCKEY
  377. LC_DELSET
  378. LL_ASSERT
  379. LN_TRACE
  380. LC_LOGFILELL_HOTKEY
  381. LC_NEWVAL
  382. G_OPNFL
  383. STGF_GLACNTFO_ACNTGRP
  384. GF_GLDGRPFGRPCODE
  385. GLACNT
  386. A_GLACNT
  387. 1ENTER
  388. RIGHTMOUSEESCAPE
  389. GL_ASSERT
  390. GN_TRACE
  391. EGC_LOGFILEGL_HOTKEY
  392. G_DSPALT
  393. LN_DESLEN
  394. GN_ACCTLENLC_DESLEN
  395. LN_DESPOS
  396. W_MSEL
  397. GK_ESC
  398. ILEA_OPGRID
  399. EDETVAL
  400. MEA_GLDGRP
  401. G_LSTRC
  402. O_ACCOUNT
  403. a_glhgrp//
  404. grpcodee
  405. GLHGRP
  406. Select an Account Group
  407. LC_GRPIS
  408. TLN_GRPREC
  409. LC_ESCKEY
  410. LC_DELSET
  411. LL_ASSERT
  412. LN_TRACE
  413. LC_LOGFILELL_HOTKEY
  414. LC_NEWVAL
  415. G_OPNFL
  416. STGF_GLHGRPFG_LSTRC
  417. A_GLHGRP
  418. GRPCODE
  419. A_OPGRID
  420. DETVAL
  421. 1O_ACNTGRP
  422. syrcatg
  423. a_syrcat//
  424. itmcodee
  425. itmclas1
  426. FILTERz
  427. itmcode
  428. SET FILTER TO &lc_oldfilt
  429. No records found.
  430. syrcatg
  431. a_syrcat2/e
  432. itmclas1e
  433. ac_piklst
  434. la_classf
  435. AAAAAAAAAA
  436. ENTER
  437. KEYBOARD CHR(gk_ctlend) PLAIN
  438. RIGHTMOUSE
  439. KEYBOARD CHR(gk_ctlend)
  440. ESCAPE
  441. DELETEDz
  442. Report Category
  443. Select Report Category
  444. ENTER
  445. ON KEY LABEL ESCAPE &lc_esckey.
  446. lc_newvalf
  447. a_syrcat2
  448. ac_piklst
  449. LL_VALID
  450. TLC_RPTIS
  451. LL_CONT
  452. LC_ITMCODELC_ITMCLASLN_OPNFL
  453. LL_RETURN
  454. LC_OLDFILTLC_DELSET
  455. G_OPNFL
  456. GC_IDRVDBFLC_NEWVAL
  457. A_SYRCAT
  458. ITMCLAS1
  459. ITMCODE
  460. TRANSFR
  461. 1G_DSPALT
  462. AC_PIKLST
  463. CLASS
  464. SHOWITM
  465. GC_IDRVTMPGC_TMPF3
  466. EGC_EXTNDX
  467. LA_CLASS
  468. ITMCLAS
  469. A_SYRCAT2
  470. ENTER
  471. RIGHTMOUSELC_ESCKEY
  472. ESCAPE
  473. ILELL_ASSERT
  474. GL_ASSERT
  475. LN_TRACE
  476. GN_TRACE
  477. LC_LOGFILEGC_LOGFILELL_HOTKEY
  478. GL_HOTKEY
  479. W_MSEL
  480. GK_ESC
  481. ILEA_OPGRID
  482. DETVAL
  483. O_RPTCLAS
  484. a_glhbud//
  485. bcode1e
  486. lc_yearf
  487. byear = lc_year
  488. GLHBUD
  489. Select a Budget for Comparison
  490. &lc_field = PADR(lc_bdgis, 8)
  491. LC_FIELD
  492. TLC_YEAR
  493. LC_SETVAL
  494. LC_GETVAL
  495. LC_BDGIS
  496. SLC_BDGWAS
  497. LC_BDGKEY
  498. LN_BDGREC
  499. LC_NEWVAL
  500. G_OPNFL
  501. GF_GLHBUDFLC_BRWKEY
  502. G_LSTRC
  503. A_GLHBUD
  504. BCODE
  505. A_OPGRID
  506. 1DETVAL
  507. a_glstru//
  508. segide
  509. a_glsegs//
  510. segid1e
  511. ENTER
  512. KEYBOARD CHR(gk_ctlend) PLAIN
  513. RIGHTMOUSE
  514. KEYBOARD CHR(gk_ctlend)
  515. ESCAPE
  516. DELETEDz
  517. No records found.
  518. :FFFF
  519. BROWSE FREEZE a_glsegs->segval  FIELDS a_glsegs->segval &lc_seglen.  :h = ga_segdes[VAL(o_segid)],  a_glsegs->gldesc :h = "Description"  NOMENU NOEDIT NOAPPEND NODELETE  WINDOW w_msel  TITLE "Select " + lc_lsegdes  COLOR SCHEME 10
  520. ENTER
  521. ON KEY LABEL ESCAPE &lc_esckey.
  522. lc_segdesc
  523. LC_SEGIS
  524. TG_OPNFL
  525. GF_GLSTRUFO_SEGID
  526. LC_LSEGDESLSEGDES
  527. A_GLSTRU
  528. GF_GLSEGSFSEGID
  529. LC_NEWVAL
  530. GA_SEGLEN
  531. LC_OLDVAL
  532. ENTER
  533. RIGHTMOUSELC_ESCKEY
  534. ESCAPE
  535. 1LC_DELSET
  536. LL_ASSERT
  537. GL_ASSERT
  538. LN_TRACE
  539. GN_TRACE
  540. PLC_LOGFILEGC_LOGFILELL_HOTKEY
  541. GL_HOTKEY
  542. G_DSPALT
  543. LC_SEGLEN
  544. LN_POS
  545. W_MSEL
  546. GK_ESC
  547. ILEA_OPGRID
  548. DETVAL
  549. A_GLSEGS
  550. SEGVAL
  551. L_RPTVAR
  552. LC_SEGDESCGLSDESC
  553. O_SEGVAL
  554. Account Number
  555. l_glstr("CODLDESC")
  556. LEFT(l_glstr("SEG1LDESC"), 43) + "  " +  l_glstr("SEG2SDESC")
  557. LEFT(l_glstr("SEG1LDESC"), 43) + "  " +  l_glstr("SEG3SDESC")
  558. LEFT(l_glstr("SEG1LDESC"), 43) + "  " +  l_glstr("SEG4SDESC")
  559. LEFT(l_glstr("SEG1LDESC"), 43) + "  " +  l_glstr("SEG5SDESC")
  560. LEFT(l_glstr("SEG1LDESC"), 43) + "  " +  l_glstr("SEG6SDESC")
  561. l_glstr("SEG1LDESC")
  562. Account Type
  563. l_glstr("TYPDESC")
  564. Account Number
  565. l_glstr("CODSDESC")
  566. TRIM(l_glstr("SEG1SDESC") + "  " + l_glstr("SEG2SDESC")
  567. TRIM(l_glstr("SEG1SDESC") + "  " + l_glstr("SEG3SDESC")
  568. TRIM(l_glstr("SEG1SDESC") + "  " + l_glstr("SEG4SDESC")
  569. TRIM(l_glstr("SEG1SDESC") + "  " + l_glstr("SEG5SDESC")
  570. TRIM(l_glstr("SEG1SDESC") + "  " + l_glstr("SEG6SDESC")
  571. l_glstr("SEG1SDESC")
  572. Account Type
  573. l_glstr("TYPDESC")
  574. LC_ROWHEADLC_ROWLEVLLC_RETSTR
  575. GA_SEGDES
  576. ACCOUNT NUMBER
  577. <:SORT::CODE:>
  578. SEQUENCE NUMBER
  579. <:SORT::SEQ:>
  580. LC_SORTKEYLC_RETSTR
  581. <:LOAD::C|TYPORD + C|SEQUENCE + C|CODE:>
  582. <:LOAD::C|TYPORD + G|SEQUENCE + C|CODE:>
  583. LC_SELECT
  584. LC_GROUP
  585. LC_RETSTR
  586. Period must be between FFF
  587.  and 
  588. LN_BEGPER
  589. LN_ENDPER
  590. LL_RETURN
  591. GN_FCPRDS
  592. LC_NEWVAL
  593. G_DSPALT
  594. LC_NEWVAL
  595. a_glbtch//
  596. batchnoe
  597. BR_POSTSUM1
  598. AT(a_glbtch->bstat, "PLSY") > 0
  599. BR_UPSTSUM1
  600. AT(a_glbtch->bstat, "UHEAOCD") > 0
  601. BR_DETLREG1
  602. AT(a_glbtch->bstat, "PLSY") > 0
  603. TU_COMPPTD1
  604. AT(a_glbtch->bstat, "UA") > 0
  605. SET FILTER TO &lc_keyvar
  606. ENTER
  607. KEYBOARD CHR(gk_ctlend) PLAIN
  608. RIGHTMOUSE
  609. KEYBOARD CHR(gk_ctlend)
  610. ESCAPE
  611. DELETEDz
  612. BROWSE FOR &lc_keyvar.  FREEZE batchno  FIELDS batchno :H="Batch#" :6,  period  = SUBSTR(yearprd,5,2)+"/"+SUBSTR(yearprd,1,4)  :H="Period" :7,  stat    = IIF(bstat="U","Unposted      ",  IIF(bstat="E","Empty         ",  IIF(bstat="A","Approved      ",  IIF(bstat="H","Hold          ",  IIF(bstat="O","Out of Balance",  IIF(bstat="P","Posted        ",  IIF(bstat="C","Cancelled     ",  IIF(bstat="D","Deleted","")))))))) :14 :H="Status",  bdesc  :30 :H="Description"  WHEN l_wbchno()  NOEDIT NODELETE NOMENU NOAPPEND  WINDOW lw_msel  TITLE "Select " + a_opgrid->detdes  COLOR SCHEME 10
  613. ENTER
  614. ON KEY LABEL ESCAPE &lc_esckey.
  615. Picklist is empty or unavailable.
  616. LC_BCHIS
  617. LC_DELSET
  618. LN_BCHREC
  619. LC_KEYVAR
  620. LC_NEWVAL
  621. G_OPNFL
  622. GF_GLBTCHFLC_RWCOD
  623. FA_GLBTCH
  624. ENTER
  625. RIGHTMOUSELC_ESCKEY
  626. ESCAPE
  627. LL_ASSERT
  628. GL_ASSERT
  629. LN_TRACE
  630. 1GN_TRACE
  631. LC_LOGFILEGC_LOGFILELL_HOTKEY
  632. GL_HOTKEY
  633. LW_MSEL
  634. GK_ESC
  635. ILEBATCHNO
  636. A_OPGRID
  637. DETVAL
  638. G_DSPALT
  639. O_ACCOUNT
  640. a_glhunp//
  641. batchno1e
  642. AT(a_glhunp->status, "UOCD") > 0
  643. SET FILTER TO &lc_keyvar
  644. ENTER
  645. KEYBOARD CHR(gk_ctlend) PLAIN
  646. RIGHTMOUSE
  647. KEYBOARD CHR(gk_ctlend)
  648. ESCAPE
  649. DELETEDz
  650. BROWSE FOR &lc_keyvar.  FREEZE glseqno  FIELDS batchno :H="Batch#" :6,  glseqno :H="Trans#" :6,  period  = SUBSTR(yearprd,5,2)+"/"+SUBSTR(yearprd,1,4)  :H="Period" :7,  status  = IIF(status="U","Unposted      ",  IIF(status="O","Out of Balance",  IIF(status="P","Posted        ",  IIF(status="C","Cancelled     ",  IIF(status="D","Deleted",""))))) :14 :H="Status",  gltdes  :35 :H="Description"  WHEN l_wbchno()  NOEDIT NODELETE NOMENU NOAPPEND  WINDOW lw_msel  TITLE "Select " + a_opgrid->detdes  COLOR SCHEME 10
  651. ENTER
  652. ON KEY LABEL ESCAPE &lc_esckey.
  653. Picklist is empty or unavailable.
  654. LC_BCHIS
  655. LC_DELSET
  656. LN_BCHREC
  657. LC_KEYVAR
  658. LC_NEWVAL
  659. G_OPNFL
  660. GF_GLHUNPFGLSEQNO
  661. FA_GLHUNP
  662. ENTER
  663. RIGHTMOUSELC_ESCKEY
  664. ESCAPE
  665. LL_ASSERT
  666. GL_ASSERT
  667. LN_TRACE
  668. 1GN_TRACE
  669. LC_LOGFILEGC_LOGFILELL_HOTKEY
  670. GL_HOTKEY
  671. LW_MSEL
  672. GK_ESC
  673. ILEA_OPGRID
  674. DETVAL
  675. G_DSPALT
  676. O_ACCOUNT
  677. a_glstru//
  678. segide
  679. lc_lsegdesf
  680. lc_lsegdes
  681. a_tmpf1//
  682. a_tmpf1//
  683. segval/
  684. ESCAPE
  685. lw_brow1
  686. Press <Spacebar> to 
  687. , <Enter> to exit
  688. ENTER
  689. KEYBOARD CHR(gk_ctlend) PLAIN
  690. RIGHTMOUSE
  691. KEYBOARD CHR(gk_ctlend) PLAIN
  692. ESCAPE
  693. DELETEDz
  694. BROWSE FREEZE segpik FIELDS  segpik :h = gs_251 :1 :p = "@M  , " + gs_251 :W=l_oldseg()  :V=l_segtgl() :F,  segval &lc_seglen, gldesc :H="Description"  NOAPPEND NOCLEAR NODELETE NOMENU  TITLE "Select " + lc_lsegdes + " values for report"   IN WINDOW lw_brow1 COLOR SCHEME 1
  695. ENTER
  696. RIGHTMOUSE
  697. ON KEY LABEL ESCAPE &lc_onesc
  698. Option Grid, <ESC> for menu
  699.  Selected
  700. FILTERz
  701. lc_seg
  702. lc_segnam
  703. ln_pearn0
  704. &lc_segc    = ALLTRIM(a_tmpf1->segval)
  705. &lc_segnamc = ALLTRIM(a_tmpf1->glsdesc)
  706. &lc_segc    = "99999999"
  707. &lc_segnamc = ""
  708. lc_selcnt
  709. SET FILTER TO &lc_oldfilt
  710. FILTERz
  711. lc_selcnt
  712. SET FILTER TO &lc_oldfilt
  713. LL_VALONLYLL_CONT
  714. LL_SEGCHNGLC_ALIAS
  715. LN_SELCNT
  716. LC_SEGLEN
  717. LN_OUTKEY
  718. LC_OLDSEG
  719. LC_ONESC
  720. LC_DELSET
  721. LC_OLDFILTLC_OPREC
  722. G_OPNFL
  723. GF_GLSTRUFO_SEGID
  724. LC_LSEGDESA_GLSTRU
  725. LSEGDES
  726. LEL_RPTVAR
  727. GGC_IDRVTMPGC_TMPF1
  728. GC_EXTDBF
  729. SEGID
  730. SEGVAL
  731. GLDESC
  732. GLSDESC
  733. SEGPIK
  734. SEGNUM
  735. GA_SEGLEN
  736. GF_GLSEGSFA_TMPF1
  737. PGS_251
  738. LW_BROW1
  739. YG_DSPST
  740. GN_MSGLINEGC_APPLID
  741. GC_COMPID
  742. GC_USERID
  743. ENTER
  744. RIGHTMOUSEESCAPE
  745. LL_ASSERT
  746. GL_ASSERT
  747. LN_TRACE
  748. GN_TRACE
  749. LC_LOGFILEGC_LOGFILELL_HOTKEY
  750. GL_HOTKEY
  751. O_SEGVAL
  752. LC_NEWVAL
  753. LW_OPTGRD
  754. A_OPGRID
  755. YLN_CNT
  756. TLC_CNT
  757. ATLC_SEGC
  758. TFLC_SEGNAMCLC_PEARNC
  759. DETVAR
  760. DETVAL
  761. DFLC_SELCNT
  762. ENTER
  763. RIGHTMOUSE
  764. There are already 8 
  765. s selected.
  766. You must de-select a 
  767. before selecting any others.
  768. Select 
  769.  values for report
  770. ENTER
  771. KEYBOARD CHR(gk_ctlend) PLAIN
  772. RIGHTMOUSE
  773. KEYBOARD CHR(gk_ctlend) PLAIN
  774. LN_RETURN
  775. LN_SELCNT
  776. LC_OLDSEG
  777. GS_251
  778. SEGPIK
  779. GK_ESC
  780. ENTER
  781. RIGHTMOUSEG_DSPALT
  782. LC_LSEGDESGC_OSEOL
  783. TSEGNUM
  784. LC_OLDSEG
  785. SEGPIK
  786. a_gltyp2
  787. Assets
  788. Liabilities
  789. Equity
  790. Sales
  791. Other Income
  792. Cost of Goods Sold
  793. Expenses
  794. Taxes
  795. LC_TYPDESCA_GLTYPE
  796. GLTYPE
  797. A_GLTYP2
  798. CGLDESC
  799. lc_return = &lc_field
  800. lc_oldvalf
  801. LC_LSTMSG
  802. LC_LSTFLDSLC_FIELD
  803. LC_PREKEY
  804. LL_TRIMMEDLC_SETVAL
  805. LC_GETVAL
  806. LC_ACCKEY
  807. LN_ACCREC
  808. LC_RETURN
  809. LC_NEWVAL
  810. LC_OLDVAL
  811. L_SELRCN
  812. A_OPGRID
  813. DETVAL
  814. a_glacnt//
  815. glacnt/
  816. a_glbals//
  817. Calculating 
  818.  Net Income
  819. SCXIT
  820. SUM a_glbals->ytdcr - a_glbals->ytddr TO ln_rnetinc FOR &lc_cond
  821. SUM a_glbals->ytdcr - a_glbals->ytddr - a_glbals->yeclose  TO ln_rnetinc FOR &lc_cond
  822. SUM a_glbals->ptdcr - a_glbals->ptddr TO ln_rnetinc FOR &lc_cond
  823. LC_PERIOD
  824. LC_PTDYTD
  825. LC_COND
  826. LL_YECLOSELN_OPNACNTLN_OPNBALSLN_RNETINCLC_ALIAS
  827. G_OPNFL
  828. NTGF_GLACNTFGF_GLBALSFG_DSPPRC
  829. TA_GLBALS
  830. GLACNT
  831. A_GLACNT
  832. YEARPRD
  833. GLTYPE
  834. o_acntgrpf
  835. a_glacnt//
  836. glacnt/
  837. a_gldbud//
  838. bcode4/
  839. Calculating Budgeted Net Income for Budget: 
  840. SCXIT
  841. a_gldgrp//
  842. grpcode/
  843. LC_BCODE
  844. LC_YEAR
  845. LC_PERIOD
  846. LN_OPNACNTLN_OPNDBUDLC_ALIAS
  847. SLN_BDGINC
  848. O_ACNTGRP
  849. G_OPNFL
  850. NTGF_GLACNTFGF_GLDBUDFG_DSPPRC
  851. TA_GLDBUD
  852. GLACNT
  853. A_GLACNT
  854. GLTYPE
  855. YEARPRD
  856. GF_GLDGRPFBCODE
  857. GA_GLDGRP
  858. PBAMNT
  859. a_glacnt
  860. a_glacnt2
  861. a_gltype
  862. a_gltyp2
  863. a_sycrls2
  864. a_syrcat2
  865. a_glbals
  866. a_glsegs
  867. a_glstru
  868. a_glhunp
  869. a_gldunp
  870. a_glhent
  871. a_gldent
  872. a_glhgrp
  873. a_gldgrp
  874. a_glhbud
  875. a_gldbud
  876. a_glbtch
  877. a_glhaut
  878. a_gldaut
  879. a_tmpf1
  880. a_tmpf2
  881. a_tmpf3
  882. a_tmpf4
  883. a_tmpf5
  884. a_tmpf6
  885. a_rwwblk
  886. ac_batch
  887. a_opgrid
  888. LL_SAVEGRDA_GLACNT
  889. A_GLACNT2
  890. A_GLTYPE
  891. A_GLTYP2
  892. DA_SYCRLS2
  893. A_SYRCAT2
  894. A_GLBALS
  895. A_GLSEGS
  896. TA_GLSTRU
  897. FA_GLHUNP
  898. FA_GLDUNP
  899. TA_GLHENT
  900. A_GLDENT
  901. A_GLHGRP
  902. A_GLDGRP
  903. A_GLHBUD
  904. A_GLDBUD
  905. FA_GLBTCH
  906. GA_GLHAUT
  907. PA_GLDAUT
  908. A_TMPF1
  909. A_TMPF2
  910. A_TMPF3
  911. A_TMPF4
  912. A_TMPF5
  913. A_TMPF6
  914. A_RWWBLK
  915. AC_BATCH
  916. A_OPGRID
  917. DLC_OGDBF
  918. @M Account Number 
  919. , Account Type
  920. LL_RETVAL
  921. LC_STRSEG0LC_STRLVL
  922. GN_TOTSEGSGA_SEGDES
  923. LN_CNT
  924. LC_STRSEG1LC_STRSEG2X
  925. o_segid
  926. L_RPTVAR
  927. O_SEGID
  928. G0LC_NEWVAL
  929. GA_SEGDES
  930. Thousands
  931. Hundred Thousands
  932. Millions
  933. LN_ROUND
  934. LC_NEWVAL
  935. Depreciation and amortization
  936. Changes in accounts receivable
  937. Changes in inventory
  938. Changes in prepaid expense
  939. Changes in payables & accrued expenses
  940. Changes in interest and taxes payable
  941. Changes in deferred taxes
  942. Changes in other liabilities
  943. Proceeds from sale of faciltiies
  944. Capital Expenditures
  945. Proceeds from sale of faciltiies
  946. Purchased Investments
  947. Net borrowing / Line-of-Credit
  948. Proceeds from issue long term debt
  949. Proceeds from issue common stock
  950. Dividends paid
  951. Operating
  952. Investing
  953. Financing
  954. LL_DETAIL
  955. A_RWWBLK
  956. GLCFLO
  957. LC_CFLODSCGLDESC
  958. DSCLC_CATGDSC
  959. Account Number
  960. <:ROWKEY::C|CODE:><:LENKEY::24:>
  961. <:ROWKEY::C|SEG1+C|SEG2:><:LENKEY::24:>
  962. <:ROWKEY::C|SEG1+C|SEG3:><:LENKEY::24:>
  963. <:ROWKEY::C|SEG1+C|SEG4:><:LENKEY::24:>
  964. <:ROWKEY::C|SEG1+C|SEG5:><:LENKEY::24:>
  965. <:ROWKEY::C|SEG1+C|SEG6:><:LENKEY::24:>
  966. <:ROWKEY::C|SEG1:><:LENKEY::24:>
  967. Account Type
  968. <:ROWKEY::C|TYPE:><:LENKEY::24:>
  969. LC_ROWLVL
  970. LC_RETURN
  971. GA_SEGDES
  972. Percent
  973. (N/A)
  974. Percent
  975. lc_pcttpctf
  976. 999999999999999999.998c
  977. LN_COL1
  978. LN_COL2
  979. LN_INC1
  980. LN_INC2
  981. LC_RETURN
  982. O_VARIANC
  983. LC_PCTTPCTLN_ROUND
  984. LC_TOTPICT&
  985. EXCLUDE
  986. LN_RETURN
  987. LN_RECNO
  988. LC_GLACNT
  989. LC_SALIAS
  990. A_GLBALS
  991. A_RWWBLK
  992. TTPCTO_YEAR
  993. O_PERIOD2
  994. O_YECLOSE
  995. FYBGBAL
  996. YTDDR
  997. TYTDCR
  998. YECLOSE
  999. LC_TOTPICTL_GLSTR
  1000. L_SETCHT
  1001. L_SETTRN
  1002. L_GLBLK
  1003. L_ACCVLD
  1004. L_SELGRP
  1005. L_SELRPT
  1006. L_BDGVLD
  1007. L_SEGVAL
  1008. L_DETDSC
  1009. L_SRTORD
  1010. L_LODMAP
  1011. L_PERRNG
  1012. L_VTRAN
  1013. L_BCHVAL
  1014. L_WBCHNO
  1015. L_TRNVAL
  1016. L_SEGPIK
  1017. L_SEGTGL
  1018. L_OLDSEG
  1019. L_TYPDSC
  1020. L_VALPIK
  1021. L_NETINC
  1022. L_BDGINC
  1023. L_CLOSFL
  1024. L_SEGLVL
  1025. L_SEGCNV
  1026. L_RNDCNV
  1027. L_CFLODS
  1028. L_LVLKEY
  1029. L_DIFINC
  1030. L_ENDBAL
  1031. C:\GLDISK\
  1032. C:\GLDISK\GLRLIB.PRG
  1033. GLRLIB.FXP
  1034.