home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / s / sbt25sm4.zip / ZIPSMC02.EXE / SYLKGL._XP (.txt) < prev    next >
MS Visual FoxPro App  |  1993-02-11  |  23KB  |  597 lines
  1. Not linked to General Ledger.  Unable to
  2. release entries.
  3. Checking and setting system flags...
  4. a_sysdat
  5. System record
  6. Another user is releasing entries to General Ledger
  7. from this application.  
  8. Unable to release to GL.
  9. Another user is currently posting to GL company 
  10. Unable to release to GL.
  11. SOURCE
  12. SCAN FOR &lc_aldist.->&gc_applid.sess <= lc_lastses  WHILE .NOT. &lc_aldist.->posted
  13. No unreleased entries found in distribution files.
  14. Ready to release entries as a F
  15. detail
  16. summary8
  17. posting to the General Ledger?
  18. Proceed
  19. Cancel
  20. SOURCE
  21. DESTINATION
  22. Clearing system flags...
  23. a_sysdat
  24. System record
  25. a_sysdat
  26. System record
  27. GN_TRACE
  28. E_TRACE
  29. LL_CONT
  30. LL_FLGSY
  31. LL_FLGGL
  32. GL_GLLINK
  33. G_DSPALT
  34. GC_OSEOL
  35. LN_RLSYS
  36. LN_GLSYS
  37. LC_SAVENV
  38. LC_GLCOMP
  39. LC_SUSPEN
  40. LC_TITLE
  41. _LC_DETAIL
  42. LC_ALCASH
  43. LC_ALYCSH
  44. LC_ALTRAN
  45. LC_ALYTRN
  46. LC_ALYDST
  47. LC_ALDIST
  48. LL_CURR
  49. C_LN_CURR
  50. W_LL_HIST
  51. C_LN_HIST
  52. C_G_DSPST
  53. C_GN_MSGLINEG_LCKFL
  54. C_G_SETSYS
  55. _GC_APPLID
  56. GC_COMPID
  57. A_SYSDAT
  58. GL_STR10
  59. GL_MULTI
  60. _NUM10
  61. C_FLGDA
  62. GN_RETRY
  63. L_OPSKGL
  64. DL_LCKKGL
  65. _LC_LASTSESG_RETACT
  66. _L_PRNKGL
  67. G_GETDLG
  68. _L_VALKGL
  69. L_PSTKGL
  70. L_MRKKGL
  71. G_LCKRC
  72. EG_SAVENV
  73. GC_IDRVTMPGC_TMPF1
  74. EGC_EXTDBF
  75. GC_EXTNDX
  76. GC_TMPF2
  77. PGC_TMPF3
  78. PGC_TASK
  79. GC_USERID
  80. SOURCE
  81. transaction file
  82. history transaction file
  83. DESTINATION
  84. a_glbtch5
  85. a_glbtch
  86. GL batch status file
  87. a_gldunp5
  88. a_gldunp
  89. GL transaction detail file
  90. a_glhunp5
  91. a_glhunp
  92. GL transaction header file
  93. LC_TASK
  94. GN_TRACE
  95. E_TRACE
  96. LL_CONT
  97. LC_ALDIST
  98. LC_ALYDST
  99. G_LCKFL
  100. GN_RETRY
  101. A_GLBTCH
  102. A_GLDUNP
  103. A_GLHUNP
  104. Marking transaction records as released...
  105. Clearing batch numbers from transaction records...
  106. LL_MARK
  107. GN_TRACE
  108. E_TRACE
  109. G_DSPST
  110. GN_MSGLINELC_ALDIST
  111. LDIST
  112. POSTED
  113. LN_CURR
  114. LC_ALYDST
  115. LN_HIST
  116. GLBATCH
  117. GLCOMP
  118. _WHILE
  119. glacnt
  120. glfyear + glper + glacnt
  121. ->dttype = "P"
  122. glfyear + glper + apsess + IIF(
  123. , "C", "P") + glacnt
  124. ->vendno + 
  125. ->invno
  126. RIGHT(
  127. ->dsttype, 1) = "C"
  128. glfyear + glper + arsess + IIF(
  129. , "C", "P") + glacnt
  130. a_ardist
  131. ctranno
  132. invno1
  133. IIF(LEFT(a_ardist->dsttype, 1) = "R", 
  134. a_arcash->custno + a_arcash->invno, 
  135. a_artran->custno + a_artran->invno)
  136. ctranno
  137. invno1
  138. IIF(LEFT(a_arydst->dsttype, 1) = "R", 
  139. a_arycsh->custno + a_arycsh->invno, 
  140. a_arytrn->custno + a_arytrn->invno)
  141. RIGHT(
  142. ->dsttype, 1) = "C"
  143. glfyear + glper + icsess + IIF(
  144. , "C", "P") + glacnt
  145. a_icdist
  146. ttranno
  147. a_ictran->applid + a_ictran->docno
  148. ttranno
  149. a_icytrn->applid + a_icytrn->docno
  150. INDEX ON &lc_ndxexp. + &lc_docexp. TO (gc_idrvtmp + gc_tmpf1)  FOR RECNO(lc_alias) <= ln_maxrec .AND. .NOT. posted COMPACT
  151. lc_yearprd = &lc_alias.->glfyear + &lc_alias.->glper
  152. Creating batch F
  153. Posting from 
  154. &lc_alias.->glfyear + &lc_alias.->glper = lc_yearprd  .AND. .NOT. EOF()
  155. lc_sess   = IIF(lc_detail = "Y", &lc_alias.->apsess, "")
  156. ld_gldate = CTOD(&lc_alias.->trandte)
  157. lc_sess   = IIF(lc_detail = "Y", &lc_alias.->arsess, "")
  158. ld_gldate = &lc_alias.->trandte
  159. lc_sess   = IIF(lc_detail = "Y", &lc_alias.->icsess, "")
  160. ld_gldate = &lc_alias.->trandte
  161. Posting from 
  162. &lc_alias.->glfyear + &lc_alias.->glper = lc_yearprd  .AND. IIF(EMPTY(lc_sess), .t., (&lc_alias.->&gc_applid.sess =  lc_sess)) .AND. .NOT. EOF()
  163. lc_glacnt = &lc_alias.->glacnt
  164. lc_dockey = &lc_docexp.
  165. Creating batch F
  166. , account 
  167.  IV# 
  168. IF .NOT. (lc_detail = "N" .OR. (lc_detail = "Y"  .AND. &lc_sumexp.))
  169. Transaction #: F
  170. IF .NOT. (lc_detail = "N" .OR. (lc_detail = "Y"  .AND. &lc_sumexp.))
  171. IF .NOT. (lc_detail = "N" .OR. (lc_detail = "Y"  .AND. &lc_sumexp.))
  172. a_icdist
  173. Ref: F
  174. Ref: F
  175. IF lc_detail = "N" .OR. (lc_detail = "Y" .AND. &lc_sumexp.)
  176. SCAN WHILE glfyear + glper = lc_yearprd .AND. glacnt = lc_glacnt  .AND. IIF(EMPTY(lc_sess), .t., (&lc_alias.->&gc_applid.sess =  lc_sess)) .AND. &lc_sumexp.
  177. SCAN WHILE glfyear + glper = lc_yearprd .AND. glacnt = lc_glacnt  .AND. IIF(EMPTY(lc_sess), .t., (&lc_alias.->&gc_applid.sess =  lc_sess)) .AND. &lc_docexp. = lc_dockey
  178. a_glacnt6
  179. a_glacnt'
  180. Batch F
  181.  is out of balance by $ 
  182. .  An
  183. offsetting amount posted to account 
  184. Suspense - Out of Balance
  185. a_syuses
  186. Session file
  187. posted
  188. LC_ALIAS
  189. LN_MAXREC
  190. GN_TRACE
  191. E_TRACE
  192. LC_DOCEXP
  193. LC_SUMEXP
  194. LC_NDXEXP
  195. LC_YEARPRDLC_BATCHNOLC_SESS
  196. LD_GLDATE
  197. LC_TRANNO
  198. LN_TDRTOT
  199. LN_TCRTOT
  200. LN_BDRTOT
  201. LN_BCRTOT
  202. LC_GLTDES
  203. LN_AMOUNT
  204. LC_GLACNT
  205. LC_DOCKEY
  206. LC_SUBDETLGLACNT
  207. C_A_GLACNT
  208. _LC_DETAIL
  209. GC_APPLID
  210. CTRANNO
  211. A_ARCASH
  212. EINVNO1
  213. _A_ARTRAN
  214. _TRANNO
  215. LINENO
  216. A_ARYCSH
  217. A_ARYTRN
  218. _TTRANNO
  219. A_ICTRAN
  220. _A_ICYTRN
  221. G_GETGLB
  222. OLC_GLCOMP
  223. G_DSPST
  224. DGN_MSGLINEA_GLBTCH
  225. SBATCHNO
  226. _BDESC
  227. CHNOGC_COMPID
  228. YEARPRD
  229. ARPRDLOWSEQ
  230. UPPSEQ
  231. EBTYPE
  232. BSTAT
  233. VTMPCTRLTOT
  234. EDRTOTAL
  235. CRTOTAL
  236. STSUSER
  237. PGC_USERID
  238. STSDATE
  239. GD_SDATE
  240. STSTIME
  241. EDTUSER
  242. EDTDATE
  243. EDTTIME
  244. AUDUSER
  245. AUDDATE
  246. AUDTIME
  247. PSTUSER
  248. PSTDATE
  249. PSTTIME
  250. POST1
  251. POST2
  252. POST3
  253. POST4
  254. POST5
  255. POST6
  256. POST7
  257. POST8
  258. ADDUSER
  259. ADDDATE
  260. ADDTIME
  261. LCKSTAT
  262. LCKUSER
  263. LCKDATE
  264. LCKTIME
  265. LC_LOWSEQ
  266. LC_UPPSEQ
  267. G_GETGLT
  268. A_GLHUNP
  269. GLSEQNO
  270. NOSUBNO
  271. GLTDES
  272. GLREFR
  273. GLDATE
  274. STATUS
  275. PRDTRTYPE
  276. GLMODULE
  277. GLCOMP
  278. GLREVRS
  279. REVPER
  280. REVYEAR
  281. VENDNO
  282. INVNO
  283. GLBATCH
  284. AMOUNT
  285. GLSTAT
  286. LC_SUSPEN
  287. A_GLDUNP
  288. GLDAMNT
  289. GLCAMNT
  290. CREDIT
  291. SUBDETL
  292. G_DSPALT
  293. GC_OSEOL
  294. A_SYUSES
  295. G_LCKRC
  296. POSTED
  297. GC_TASK
  298. Opening files for release to GL...
  299. sycdfis
  300. a_sycdfi//
  301. compid1
  302. sysdata
  303. a_sysdat//
  304. Payables Postings to General Ledger
  305. a_apydst//
  306. posted
  307. a_apydst
  308. a_apdist//
  309. posted
  310. a_apdist
  311. Receivables Postings to General Ledger
  312. a_ardist//
  313. posted
  314. a_ardist
  315. a_arcash//
  316. ctranno
  317. a_arcash
  318. a_artran//
  319. invno1
  320. a_artran
  321. a_arydst//
  322. posted
  323. a_arydst
  324. a_arycsh//
  325. ctranno
  326. a_arycsh
  327. a_arytrn//
  328. invno1
  329. a_arytrn
  330. Inventory Postings to General Ledger
  331. a_icdist//
  332. posted
  333. a_icdist
  334. a_ictran//
  335. ttranno
  336. a_ictran
  337. a_icydst//
  338. posted
  339. a_icydst
  340. a_icytrn//
  341. ttranno
  342. a_icytrn
  343. syusess
  344. a_syuses//
  345. scompid1
  346. GLACNT
  347. a_glacnt/
  348. Error on opening GLACNT
  349. .  Update cancelled.
  350. GLBTCH
  351. a_glbtch/
  352. Error on opening GLBTCH
  353. .  Update cancelled.
  354. GLDUNP
  355. a_gldunp/
  356. Error on opening GLDUNP
  357. .  Update cancelled.
  358. GLHUNP
  359. a_glhunp/
  360. Error on opening GLHUNP
  361. .  Update cancelled.
  362. GN_TRACE
  363. E_TRACE
  364. G_DSPST
  365. GN_MSGLINELC_SAVENV
  366. G_SAVENV
  367. G_OPNFL
  368. GC_IDRVDBFCOMPID
  369. HNOYEARPRD
  370. PASS2
  371. VDBFG_SETSYS
  372. LC_GLCOMP
  373. LC_SUSPEN
  374. A_SYSDAT
  375. GC_APPLID
  376. LC_TITLE
  377. LC_DETAIL
  378. GF_APYDSTFLC_ALYDST
  379. GF_APDISTFLC_ALDIST
  380. GF_ARDISTFGF_ARCASHFLC_ALCASH
  381. GF_ARTRANFLC_ALTRAN
  382. GF_ARYDSTFGF_ARYCSHFGF_ARYTRNFLC_ALYTRN
  383. GF_ICDISTFGF_ICTRANFGF_ICYDSTFGF_ICYTRNFLN_RLSYS
  384. LL_CONT
  385. BFD_OPNFL
  386. NEG_DSPALT
  387. GC_TASK
  388. GC_COMPID
  389. GC_USERID
  390. Do you want to print a Posting Register?
  391. Summary
  392. Detail
  393. Preparing to print posting register...
  394.  Summary
  395.  Detail8
  396.  Posting Register
  397. Release from 
  398.  company 
  399.  to GL company 
  400. a_glacnt//
  401. glacnt
  402. a_tmpf1e/
  403. SEEK &lc_alydst.->glfyear + &lc_alydst.->glper +  &lc_alydst.->glacnt
  404. REPLACE glacnt  WITH &lc_alydst.->glacnt,  glfyear WITH &lc_alydst.->glfyear,  glper   WITH &lc_alydst.->glper
  405. REPLACE amount  WITH a_tmpf1->amount + &lc_alydst.->amount
  406. ln_sessmin = IIF(ln_sessmin = 0, VAL(&lc_alydst.->&lc_sessfld.),  MIN(ln_sessmin, VAL(&lc_alydst.->&lc_sessfld.)))
  407. ln_sessmax = MAX(ln_sessmax, VAL(&lc_alydst.->&lc_sessfld.))
  408. SEEK &lc_aldist.->glfyear + &lc_aldist.->glper +  &lc_aldist.->glacnt
  409. REPLACE glacnt  WITH &lc_aldist.->glacnt,  glfyear WITH &lc_aldist.->glfyear,  glper   WITH &lc_aldist.->glper
  410. REPLACE amount  WITH a_tmpf1->amount + &lc_aldist.->amount
  411. ln_sessmin = IIF(ln_sessmin = 0, VAL(&lc_aldist.->&lc_sessfld.),  MIN(ln_sessmin, VAL(&lc_aldist.->&lc_sessfld.)))
  412. ln_sessmax = MAX(ln_sessmax, VAL(&lc_aldist.->&lc_sessfld.))
  413. From Session FF
  414. a_apmast//
  415. a_tmpf1e/
  416. a_apmast
  417. a_armast//
  418. invno
  419. ctranno
  420. a_armast
  421. a_tmpf1e/
  422. a_arymst//
  423. invno
  424. ctranno
  425. a_arymst
  426. ttranno
  427. a_tmpf1e/
  428. ttranno
  429. sylkgl
  430. a_tmpf1
  431. a_tmpf2
  432. a_tmpf3
  433. GN_TRACE
  434. E_TRACE
  435. LL_CONT
  436. LN_RESP
  437. NELC_HEAD1
  438. LC_HEAD2
  439. LC_SESSFLDLC_SESSLSTLN_SESSMINLN_SESSMAXLN_OPNFLC
  440. LN_OPNFLM
  441. LN_OPNFLT
  442. LN_OPNFLY
  443. LL_PRNT
  444. LC_FRMFILELN_RPTCOLSG_GETDLG
  445. G_DSPST
  446. GN_MSGLINELC_TITLE
  447. FGC_APPLID
  448. GC_COMPID
  449. LC_GLCOMP
  450. G_OPNFL
  451. FGF_GLACNTFGC_IDRVTMPGC_TMPF1
  452. FGLACNT
  453. AMOUNT
  454. STFGLFYEAR
  455. HFGLPER
  456. TRNFGC_EXTDBF
  457. GC_EXTNDX
  458. LL_HIST
  459. NFLC_ALYDST
  460. POSTED
  461. LN_HIST
  462. A_TMPF1
  463. BFLL_CURR
  464. NELC_ALDIST
  465. LN_CURR
  466. GF_APMASTFA_APDIST
  467. PINVNO
  468. VENDNO
  469. DAPSESS
  470. TRANDTE
  471. DTSTAT
  472. PDTTYPE
  473. ETRANTYPE
  474. A_APMAST
  475. CHECKNO
  476. PGC_TMPF2
  477. PA_APYDST
  478. GF_ARMASTFA_ARMAST
  479. TRANNO
  480. A_ARDIST
  481. PARSESS
  482. DSTTYPE
  483. CUSTNO
  484. REFNO
  485. PONUM
  486. ARTYPE
  487. CTRANNO
  488. A_ARCASH
  489. GF_ARYMSTFA_ARYMST
  490. GC_TMPF3
  491. PA_ARYDST
  492. A_ARYCSH
  493. TTRANNO
  494. A_ICTRAN
  495. A_ICDIST
  496. PICSESS
  497. TRANTYP
  498. APPLID
  499. DOCNO
  500. A_ICYTRN
  501. A_ICYDST
  502. PGC_ACCTPICA_GLACNT
  503. GC_IDRVPRGGC_ADRVPRGC_SELPR
  504. LSG_PRNRP
  505. LSA_TMPF2
  506. A_TMPF3
  507. GC_TASK
  508. GC_USERID
  509. glacnt
  510. compid1
  511. Checking posting to account F
  512. , period 
  513. a_glacnt6
  514. Account F
  515.  not found in Chart of Accounts.
  516. Transfer to Suspense Account (
  517. ) or cancel
  518. release to GL?
  519. Suspense
  520. Cancel
  521. a_glacnt'
  522. Account F
  523.  is deleted in Chart of Accounts.
  524. Transfer to Suspense Account (
  525. ) or cancel
  526. release to GL?
  527. Suspense
  528. Cancel
  529. Account F
  530.  is marked as Inactive in Chart of
  531.  Accounts.  Transfer to Suspense Account (
  532. or cancel release to GL?
  533. Suspense
  534. Cancel
  535. a_sycdfi6
  536. Posting period 
  537.  not found in fiscal calendar.
  538. Unable to continue with release 
  539. to GL.
  540. a_sycdfi'
  541. Posting period 
  542.  is deleted in fiscal calendar.
  543. Unable to continue with release 
  544. to GL.
  545. Posting period 
  546.  is permanantly locked in 
  547. fiscal calendar.
  548. You must 
  549. unlock the period before postings can be 
  550. released.
  551. Unable to continue 
  552. with release to GL.
  553. Posting period 
  554.  is locked in fiscal 
  555. calendar.  You
  556. must unlock 
  557. the period before postings can be released.
  558. Unable to continue with release 
  559. to GL.
  560. LC_ALIAS
  561. LN_MAXREC
  562. GN_TRACE
  563. E_TRACE
  564. NELC_GLACNT
  565. LN_RESP
  566. GLACNT
  567. FLDA_GLACNT
  568. TCOMPID1
  569. NA_SYCDFI
  570. XPOSTED
  571. LC_GLFYEARGLFYEAR
  572. LC_GLPER
  573. GLPER
  574. G_DSPST
  575. LEGN_MSGLINEG_GETDLG
  576. GC_OSEOL
  577. LC_SUSPEN
  578. GLSTAT
  579. LC_GLCOMP
  580. G_DSPALT
  581. RPERMLCK
  582. RPLOCKED
  583. RLL_CONT
  584. RGC_TASK
  585. PGC_APPLID
  586. GC_COMPID
  587. GC_USERID
  588. L_LCKKGL
  589. L_MRKKGL
  590. L_PSTKGL
  591. L_OPSKGL
  592. L_PRNKGL
  593. L_VALKGL
  594. C:\SMDISK\
  595. C:\SMDISK\SYLKGL.PRG
  596. SYLKGL.FXP
  597.