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 / GLPROC._XP (.txt) < prev    next >
MS Visual FoxPro App  |  1993-02-11  |  17KB  |  411 lines
  1. This program must be called by SBT.PRG
  2. .PCLS
  3. LC_PAD
  4. t tLC_POPUP
  5.  LN_BAR
  6. ateGN_TRACE
  7. nE_TRACE
  8. L_GLPCLS
  9. _GC_ADRVPRGGC_APPLID
  10. GN_TRACE
  11. tE_TRACE
  12.  LN_COUNTERLN_RETURN
  13. LN_PADCNT
  14. LC_MNUNAMEF
  15. TYPE("la_array") <> "U"
  16. lx_critf
  17. lx_critf
  18. lx_critf
  19. lx_critf
  20. LA_ARRAY
  21. tLX_CRIT
  22.  GN_TRACE
  23. RE_TRACE
  24. GL_ASSERT
  25. E_ASSRT
  26. MELN_RETVAL
  27. LN_CNTR
  28. TYPE("ln_seg")     = "N"
  29. TYPE("lc_acnt")    = "C"
  30. TYPE("lc_field")   = "C"
  31. > Other segments, 
  32. > Picks, <Enter> Saves, <Esc> Cancels
  33. No segments found.
  34. lw_segbrw
  35. ENTER
  36. KEYBOARD CHR(gk_ctlend) PLAIN
  37. RIGHTARROW
  38. DO l_setkey WITH "RIGHT"
  39. LEFTARROW
  40. DO l_setkey WITH "LEFT"
  41. Select a Segment
  42. Select a Segment
  43. BROWSE KEY ALLTRIM(STR(ln_seg,1))  FREEZE segval  FIELDS  segval  :H=ga_segdes(ln_seg) &lc_alen,  gldesc  :H="Long Description" &lc_dlen,  glsdesc :H="Shrt Dsc" :8  NOCLEAR NODELETE NOMENU NOEDIT  WHEN l_updseg(ln_seg, ALLTRIM(segval), lc_field, lc_acnt )  TITLE "Select a Segment"  IN WINDOW lw_segbrw COLOR SCHEME 10
  44. RIGHT
  45. &lc_field = lc_xacnt
  46. lc_acnt = &lc_field
  47. ENTER
  48. RIGHTARROW
  49. LEFTARROW
  50. LN_SEG
  51. tLC_ACNT
  52.  LC_FIELD
  53. RGN_TRACE
  54. E_TRACE
  55. GL_ASSERT
  56. E_ASSRT
  57. LC_XACNT
  58. LC_SEGVAL
  59. LC_OLDAREALC_VARNAM
  60. LC_VAR
  61. FC_LC_KEY
  62. LC_LN_ALEN
  63. W_LC_ALEN
  64. W_LN_DLEN
  65. C_LC_DLEN
  66. RELL_BRWCONTG_DSPST
  67. NTGN_MSGLINEGA_SEGBEG
  68. GA_SEGLEN
  69. A_GLSEGS
  70. DSEGVAL
  71. BG_DSPALT
  72. CSEGID
  73. CONTLW_SEGBRW
  74. ENTER
  75. GC_RIGHTARROWLEFTARROW
  76. LL_HOTKEY
  77. GL_HOTKEY
  78. GN_TOTSEGSGK_CTLEND
  79. GK_ESC
  80. GK_LC_STATMSGu
  81. TYPE("ln_col")   = "C"
  82. TYPE("lc_acnt")  = "C"
  83. TYPE("lc_field") = "C"
  84. ln_colf
  85. lc_acntf
  86. ON KEY LABEL F2 &lc_oldf2.
  87. LN_COL
  88. tLC_ACNT
  89.  LC_FIELD
  90. RGN_TRACE
  91. E_TRACE
  92. GL_ASSERT
  93. E_ASSRT
  94. LN_SEG
  95. LC_XACNT
  96. LC_SEGVAL
  97. LC_OLDAREALC_VARNAM
  98. LC_VAR
  99. LC_LC_KEY
  100. W_LN_ALEN
  101. W_LC_ALEN
  102. C_LN_DLEN
  103. RELC_DLEN
  104. NTLN_READKEYLC_OLDF2
  105. OLDF2
  106. L_CURSEG
  107. GK_ENTER
  108. DL_SEGBRS
  109. TYPE("lc_keyval") = "C"
  110. LC_KEYVAL
  111. GN_TRACE
  112.  E_TRACE
  113. RGL_ASSERT
  114. E_ASSRT
  115. LC_KEY
  116. GK_CTLEND
  117. &lc_field = STUFF(lc_actno, ga_segbeg(ln_seg), ga_seglen(ln_seg), lc_segval)
  118. lc_acnt = &lc_field
  119. LN_SEG
  120. LC_SEGVAL
  121. LC_FIELD
  122. RLC_ACTNO
  123. GN_TRACE
  124. E_TRACE
  125. ln_curposf
  126. LN_CURPOS
  127. GN_TRACE
  128. E_TRACE
  129. RLN_RETURN
  130. LN_COUNT
  131. LN_FSTART
  132. LN_ACNTPOSGN_ACCTLENGA_SEGBEG
  133. GN_TOTSEGS
  134. BACKTAB
  135. BACKTAB
  136. ln_colposf
  137. lc_tabmodef
  138. BACKTAB
  139. ON KEY LABEL TAB &lc_oldtab.
  140. ON KEY LABEL BACKTAB &lc_oldbtab.
  141. LN_COLPOS
  142. LC_TABMODEGN_TRACE
  143. RE_TRACE
  144. LN_CURSEG
  145. LN_NEXTSEGLN_KEYHITSLC_OLDTAB
  146. LC_OLDBTABTAB
  147. LDBTABBACKTAB
  148. GN_TOTSEGSL_CURSEG
  149. GA_SEGBEG
  150. GK_RGT
  151. &lc_field  = STRTRAN(TRANSFORM(SPACE(gn_acctlen),gc_acctpic),  " ","0")
  152. LC_FIELD
  153. a_gldetl
  154. lc_acntf
  155. lc_acntf
  156. a_gldetl
  157. Account #@
  158. Account #@8
  159. Account #
  160. lw_glsegs
  161. Segments for Acct 
  162. glsegs.spr
  163. LC_ACNT
  164. GN_TRACE
  165. EE_TRACE
  166. RLC_OLDAREALC_SEGSTR
  167. LC_SEGHDR
  168. LC_UNDERLNLC_STRING
  169. LC_COUNT
  170. BLC_ACTNO
  171. BLN_SEGLEN
  172. LN_ACTLEN
  173. A_GLDETL
  174. GLACNT
  175. GN_TOTSEGSA_GLSEGS
  176. AGA_SEGLEN
  177. GA_SEGBEG
  178. GLSDESC
  179. GA_SEGDES
  180. LW_GLSEGS
  181. GC_ADRVPRG
  182. lc_acntf
  183. Necessary parameters have not been passed 
  184. to l_autact() in GLPROC
  185. a_glbals//
  186. glacnt1
  187. a_gltype
  188. a_glacnt5
  189. a_glacnt
  190. glacnt
  191. Account F
  192.  has been added
  193. by another user.
  194. compid1
  195. a_glbals5
  196. a_glbals
  197. LC_ACNT
  198. GN_TRACE
  199. EE_TRACE
  200. RLC_MTYPE
  201. ALC_MACNT
  202. LC_MDESC
  203. LC_MACTIVELC_MSEQ
  204. LC_MCATAG
  205. LC_MDEPRECLC_MSDESC
  206. LN_COUNT
  207. LC_MRATIO
  208. LC_MFASB95LC_MSOURCELC_TYPEDESLC_AUTONO
  209. LC_CONACNTLN_CONPCT
  210. LC_POSTJE
  211. LC_LASTYR
  212. FC_MACTIVEFC_MCATAG
  213. FC_MDEPRECFL_POSTJE
  214. FC_MRATIO
  215. FC_MFASB95LL_RETURN
  216. LN_OPNFLBALC_SEGMT
  217. G_DSPALT
  218. G_OPNFL
  219. BAGF_GLBALSFA_GLSEGS
  220. GA_SEGLEN
  221. GLSDESC
  222. GLTYPE
  223. EGLSOURCE
  224. EGLSEQ
  225. APOSTJE
  226. AUTONO
  227. CONACNT
  228. TCONPCT
  229. GLSTAT
  230. EGLCATAG
  231. GLRATIO
  232. GLFASB95
  233. 5A_GLTYPE
  234. SGLDESC
  235. FRSGN_TOTSEGSGA_SEGBEG
  236. A_GLACNT
  237. G_LCKFL
  238. _GLACNT
  239. RGC_OSEOL
  240. _ADDUSER
  241. GC_USERID
  242. ADDDATE
  243. RQADDTIME
  244. C_A_SYCDFI
  245. VCOMPID
  246. _GC_COMPID
  247. COMPID1
  248. C_GC_FCYR
  249. A_GLBALS
  250. YEARPRD
  251. FYBGBAL
  252. _PTDDR
  253. LC_PTDCR
  254. LC_YTDDR
  255. LC_YTDCR
  256. L_PYECLOSE
  257. CTRL+PGDN
  258. CTRL+PGDN
  259. DO l_pgdn
  260. GN_TRACE
  261. E_TRACE
  262. ECTRL
  263. RPGDN
  264. ALN_TAMTREMLN_TRANCNTLL_CTRPGDNd
  265. a_glbtch
  266. a_glbtch//
  267. batchno
  268. a_sysdatV
  269. a_sysdat
  270. @L 999999c
  271. FILTERz
  272. a_glbtch
  273. @L 999999c
  274. SET FILTER TO &lc_xfilt.
  275. @L 999999c
  276. LC_OLDAREALN_BATSEQ
  277. LC_BATSEQ
  278. LC_OLDBSEQLN_OPNFL
  279. MLC_XFILT
  280. TLN_XRECNO
  281. A_GLBTCH
  282. G_OPNFL
  283. GF_GLBTCHFG_SETSYS
  284. GC_APPLID
  285. GC_COMPID
  286. G_LCKRC
  287. 95A_SYSDAT
  288. PEDESZ
  289. a_sysdatV
  290. a_sysdat
  291. Getting next Transaction Number
  292. @L 999999c
  293. @L 999999c
  294. GN_TRACE
  295. AE_TRACE
  296. LC_TRNSEQ
  297. LN_TRNSEQ
  298. LN_NEXTSEQLC_OLDAREAA_SYSDAT
  299. AG_SETSYS
  300. GC_APPLID
  301. GC_COMPID
  302. G_LCKRC
  303. STR10
  304. a_glhunp5
  305. a_glhunp
  306. ac_glhunp&
  307. GN_TRACE
  308. AE_TRACE
  309. LC_OLDAREAA_GLHUNP
  310. AG_LCKFL
  311. a_gldunp5
  312. a_gldunp
  313. ac_gldunp&
  314. GN_TRACE
  315. AE_TRACE
  316. LA_GLDETL
  317. LC_OLDAREAA_GLDUNP
  318. AG_LCKFL
  319. Transaction Out-of-Balance
  320. GN_TRACE
  321. AE_TRACE
  322. LC_ALIAS
  323. LN_RECNO
  324. ALC_ERRMSG
  325. LC_BATCHNOLC_GLSEQNOA_GLHUNP
  326. OBATCHNO
  327. GLSEQNO
  328. OSTATUS
  329. LN_ERRORS
  330. a_glacnt,
  331. Account not found
  332. a_glacnt'
  333. Account has been deleted
  334. Account is Inactive
  335. No posting from GL
  336. GN_TRACE
  337. AE_TRACE
  338. LC_ALIAS
  339. LN_RECNO
  340. ALC_ERRMSG
  341. LC_BATCHNOLC_GLSEQNOLC_OLDAREAA_GLACNT
  342. A_GLDUNP
  343. OGLACNT
  344. LN_ERRORS
  345. GLSTAT
  346. POSTJE
  347. TYPE("lc_yearprd") = "C"
  348. lc_yearprdf
  349. None8
  350. Fiscal period is manually locked
  351. Fiscal period is permanently locked
  352. a_sycdfi,
  353. None8
  354. Fiscal period not found in calendar
  355. LC_YEARPRDGN_TRACE
  356. E_TRACE
  357. GL_ASSERT
  358. E_ASSRT
  359. LC_OLDAREALL_CONT
  360. NOLC_ERRMSG
  361. A_SYCDFI
  362. AGC_COMPID
  363. PLOCKED
  364. DLN_ERRORS
  365. PERMLCK
  366. GC_OSEOL
  367. o_trnstatf
  368. a_editlst
  369. Include
  370. Include
  371. LL_HENT
  372. RDGN_TRACE
  373. E_TRACE
  374. LN_TRNCNT
  375. LC_OLDAREALN_RECNO
  376. ALN_BATCHNOLL_CD
  377. LC_TBNO
  378. AA_EDITLST
  379. BATCHNO
  380. DA_GLHUNP
  381. STATUS
  382. O_TRNSTAT
  383. A_GLDENT
  384. A_GLDUNP
  385. SA_GLHENT
  386. LN_ERRORS
  387. L_ENPADS
  388. ACOUNT
  389. L_SEGBRS
  390. L_STFQS
  391. L_SETKEY
  392. L_UPDSEG
  393. L_CURSEG
  394. L_TABSEG
  395. L_CTRLY
  396. L_SEGSTR
  397. L_AUTACT
  398. L_PGDN
  399. L_BATNO
  400. L_GETSQ
  401. L_SAVHED
  402. L_SAVDET
  403. L_VALDTL
  404. L_VALACT
  405. L_VALFY
  406. L_TRNCNT
  407. L_ERRORS
  408. C:\GLDISK\
  409. C:\GLDISK\GLPROC.PRG
  410. GLPROC.FXP
  411.