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 / GLCPYA._XP (.txt) < prev    next >
MS Visual FoxPro App  |  1993-02-11  |  30KB  |  758 lines
  1. TYPE("lc_cpytyp") = "C"
  2. Accounts
  3. Account Groups
  4. Auto Distributions
  5. Standard Entries
  6. Allocation Entries
  7. Recurring Entries
  8. Budgets
  9. Account Types
  10. @*IHN 
  11. syccomp
  12. a_syccom//
  13. compid
  14. sycdata
  15. a_sycdat//
  16. compid1
  17. sycdfis
  18. a_sycdfis//
  19. compid1
  20. syhhelp
  21. a_syhhel//
  22. a_glsegs//
  23. segid1
  24. a_gltype//
  25. a_gltype5
  26. a_gltype
  27. Account Types
  28. Account types and ranges must be defined 
  29. before copying accounts.
  30. a_glacnt//
  31. glacnt
  32. lw_sqlbrow
  33. lw_smbrow
  34. lw_cpybrow
  35. lw_glcpa1
  36. Copy 
  37. Copy 
  38. Select Company to Copy From
  39. Setting up company 
  40.  file names
  41. sycpath
  42. a_sycpat//
  43. compid1
  44. sydindx
  45. a_sydind//
  46. tablid2
  47. sydtabl
  48. a_sydtab//
  49. tablid
  50. sydtapp
  51. a_sydtap//
  52. applid1
  53. GLSTRU
  54. GLSEGS
  55. GLTYPE
  56. GLHGRP
  57. GLDGRP
  58. GLHAUT
  59. GLDAUT
  60. GLHBUD
  61. GLDBUD
  62. GLACNT
  63. a_frstru//
  64. Company 
  65.  has a different account code
  66. structure than Company 
  67. .  Select another Company?
  68. Select
  69. Cancel
  70. Company 
  71. 's calendar has 
  72.  fiscal periods.
  73. Company 
  74.  has 
  75.  fiscal periods.  Proceed or cancel?
  76. Proceed
  77. Cancel
  78. a_syccom
  79. a_sycdat
  80. a_frsegs//
  81. segid1
  82. a_frtype//
  83. a_frtype//
  84. gltype
  85. a_frhgrp//
  86. grpcode
  87. a_frdgrp//
  88. grpcode
  89. a_glhgrp//
  90. grpcode
  91. a_gldgrp//
  92. grpcode
  93. a_frhaut//
  94. auttype1
  95. a_frdaut//
  96. auttype1
  97. a_glhaut//
  98. auttype1
  99. a_gldaut//
  100. auttype1
  101. a_frhbud//
  102. bcode1
  103. a_frdbud//
  104. bcode1
  105. a_glhbud//
  106. bcode1
  107. a_gldbud//
  108. bcode1
  109. a_fracnt//
  110. glacnt
  111. a_fracnt
  112. a_glacnt
  113. a_acliste/
  114. Company 
  115.  does not contain any 
  116. that are not already in Company 
  117. Select another company?
  118. Select
  119. Cancel
  120. a_aclist
  121. a_aclist
  122. gltype
  123. Company 
  124.  does not contain any 
  125. that are not already in Company 
  126. Select another company?
  127. Select
  128. Cancel
  129. a_frsegs
  130. a_frtype
  131. a_fracnt
  132. a_aclist
  133. a_frhgrp
  134. a_glhgrp
  135. a_acliste/
  136. Company 
  137.  does not contain any 
  138. that are not already in Company 
  139. Select another company?
  140. Select
  141. Cancel
  142. a_aclist
  143. a_frhaut
  144. a_glhaut
  145. a_acliste/
  146. Company 
  147.  does not contain any 
  148. that are not already in Company 
  149. Select another company?
  150. Select
  151. Cancel
  152. a_aclist
  153. a_frhbud
  154. a_glhbud
  155. a_acliste/
  156. Company 
  157.  does not contain any 
  158. that are not already in Company 
  159. Select another company?
  160. Select
  161. Cancel
  162. a_aclist
  163. a_gltype
  164. GLOPNF
  165. LC_CPYTYP
  166. GN_TRACE
  167. FE_TRACE
  168. TGL_ASSERT
  169. E_ASSRT
  170. TLC_ACCTMSKLC_GLACNT
  171. LC_ACNTLENLN_DESLEN
  172. LC_DESLEN
  173. LC_TITLE
  174. LL_SEGOK
  175. LL_CONT
  176. LC_XFNAME
  177. LL_NOSAVE
  178. LN_TOTSEGSLC_FRSTRUFLC_FRSEGSFLC_FRTYPEFLC_FRHGRPFLC_FRDGRPFLC_FRHAUTFLC_FRDAUTFLC_FRHBUDFLC_FRDBUDFLC_FRACNTFGN_ACCTLENLN_TYPE
  179. LC_GRPPIC
  180. GC_ACCTPICG_OPNFL
  181. SKGC_IDRVDBFGF_GLSEGSFGF_GLTYPEFA_GLTYPE
  182. GLTYPE
  183. G_LCKFL
  184. GN_RETRY
  185. FG_DSPALT
  186. GF_GLACNTFA_SYCCOM
  187. TGC_COMPID
  188. LW_SQLBROWLW_SMBROW
  189. LW_CPYBROWGM_MAIN
  190. OWGU_MANT
  191. GU_MANT3
  192. PLW_GLCPA1
  193. G_PNTBG
  194. L_DSPCO
  195. ELC_FRCOMP
  196. L_SELCO
  197. GK_ESC
  198. G_DSPPRC
  199. CGF_GLSTRUFD_SETFL
  200. GF_GLHGRPFGF_GLDGRPFGF_GLHAUTFGF_GLDAUTFGF_GLHBUDFGF_GLDBUDFA_SYCPAT
  201. A_SYDIND
  202. A_SYDTAB
  203. A_SYDTAP
  204. A_FRSTRU
  205. SLOCKED
  206. GN_TOTSEGSGA_SEGLEN
  207. SEGID
  208. SEGLEN
  209. LGA_SEGBEG
  210. SEGSTRT
  211. GGA_SEGMSK
  212. SEGMASK
  213. EG_GETDLG
  214. GC_OSEOL
  215. FYPERDS
  216. GN_FCPRDS
  217. A_SYCDAT
  218. SEGVAL
  219. GSFGLLOW
  220. PEFGRPCODE
  221. PFAUTTYPE
  222. BCODE
  223. BUDFBYEAR
  224. YEARPRD
  225. DFGLACNT
  226. NTFA_FRACNT
  227. GLDESC
  228. WHYNOT
  229. KEYGC_IDRVTMPGC_TMPF1
  230. GC_EXTDBF
  231. A_ACLIST
  232. GC_EXTNDX
  233. A_FRSEGS
  234. A_FRTYPE
  235. TL_BRWENT
  236. GC_ACCTHDRL_CPYAC
  237. SKLL_ADDTYPELC_GLTYPE
  238. LC_GLLOW
  239. LC_GLUPP
  240. CLTYPEHD
  241. ESTYPEHD
  242. GLUPP
  243. L_CPYGR
  244. A_FRHGRP
  245. GROUP
  246. OGRPDESC
  247. CNDESCRIPT
  248. TA_FRDGRP
  249. A_FRHAUT
  250. AUTONO
  251. GGLTDES
  252. A_FRDAUT
  253. A_FRHBUD
  254. BDESC
  255. A_FRDBUD
  256. GC_ADRVPRGGC_TMPF2
  257. a_gltype
  258.  ALL FF
  259. \<Add
  260. \<Tag
  261. \<Save
  262. E\<xit
  263. DO l_cpyacb WITH PAD()
  264. GN_TRACE
  265. E_TRACE
  266. FLN_ADDCNT
  267. LN_CNT
  268. A_GLTYPE
  269. GLTYPE
  270. KGLDESC
  271. LA_TYPES
  272. NLN_CTR
  273. LN_FROMROWLN_TOROW
  274. LB_TYPE
  275. LL_NOSAVE
  276. LM_GLCOPY
  277. LW_GLCPA1
  278. LP_SELECT
  279. LP_TAG
  280. LP_SAVE
  281. LP_EXIT
  282. LW_SQLBROW
  283. TYPE("lc_pad") = "C"
  284. LP_SELECT
  285. Enter account number or press <F2> 
  286. to tag accounts
  287. a_glacnt
  288. Account F
  289.  already exists in company 
  290. Account F
  291.  not found in company 
  292. Tag Accounts
  293. Reenter
  294. Select Action from Menu 
  295. LP_TAG
  296. LP_SAVE
  297. LP_EXIT
  298. Select Action from Menu 
  299. LC_PAD
  300. GN_TRACE
  301. FE_TRACE
  302. GL_ASSERT
  303. E_ASSRT
  304. LC_PADNAMELC_MSG
  305. G_DSPST
  306. MEGN_MSGLINELW_GLCPA1
  307. LC_GLACNT
  308. GN_ACCTLENLC_ACCTMSKGK_ESC
  309. MSKL_CPYACC
  310. A_ACLIST
  311. GLACNT
  312. GS_251
  313. LN_ADDCNT
  314. L_BRWENT
  315. GC_COMPID
  316. LC_FRCOMP
  317. G_GETDLG
  318. FLL_SAVED
  319. ELL_NOSAVE
  320. GC_APPLID
  321. GC_USERID
  322. L_CPYACD
  323. LM_GLCOPY
  324. ENTER
  325. KEYBOARD CHR(gk_ctlend) PLAIN
  326. RIGHTMOUSE
  327. DO l_putls  WITH .f.
  328. SPACEBAR
  329. DO l_putls  WITH .t.
  330. CTRL+A
  331. DO l_allact WITH .t.
  332. CTRL+a
  333. DO l_allact WITH .t.
  334. CTRL+U
  335. DO l_allact WITH .f.
  336. CTRL+u
  337. DO l_allact WITH .f.
  338. <Spacebar> toggles one, 
  339. <Ctrl-A/U> toggles all, <Enter> saves
  340. BROWSE FIELDS glacnt :H = gc_accthdr &lc_acntlen. :R,  add,  gldesc :H = "Acct. Description" &lc_deslen.  NOAPPEND  NODELETE  NOEDIT  NOMENU  TITLE "Available " + lc_title  WINDOW lw_sqlbrow  COLOR SCHEME 10  FREEZE add
  341. ENTER
  342. RIGHTMOUSE
  343. SPACEBAR
  344. CTRL+A
  345. CTRL+a
  346. CTRL+U
  347. CTRL+u
  348. GN_TRACE
  349. E_TRACE
  350. FENTER
  351. RIGHTMOUSESPACEBAR
  352. DNAMEA
  353. MEG_DSPST
  354. NEGN_MSGLINELL_HOTKEY
  355. GL_HOTKEY
  356. A_ACLIST
  357. Transfer FF
  358. @R 99,999cD
  359. Transfer
  360. Cancel
  361.  have been chosen for transfer.
  362. Validating Account Types
  363. a_gltype,
  364. Account Range Doesn't Exist (1)
  365. Account Is Different Type
  366.  Account Range Doesn't Exist (2)
  367. All of the selected accounts have 
  368. non-matching
  369. GL types and will not be copied.
  370.  of the 
  371.  selected accounts have 
  372. non-matching
  373. GL types and will not be copied.
  374. Proceed
  375. Cancel
  376.  accounts 
  377. have Auto Distribution codes.
  378. Copy codes or leave blank?
  379. Leave Blank
  380. Be sure to copy Auto Distributions
  381. from Company 
  382. Adding 
  383. Copying 
  384. a_glbals//
  385. compid1
  386. a_tmpf3e/
  387. a_glsegs5
  388. a_glsegs
  389. a_glacnt5
  390. a_glacnt
  391. a_glbals5
  392. a_glbals
  393. Validating account segment values
  394. Creating account FF
  395. a_tmpf3R
  396. GN_TRACE
  397. E_TRACE
  398. FLL_TRANSFRLN_N
  399. MOUSELN_PERIODSLN_DLG
  400. AMELN_NOMATCHLC_TMPACNTLN_RESP
  401. NELN_AUTONO
  402. LN_ACLIST
  403. LN_CNTR
  404. LN_ADDCNT
  405. G_GETDLG
  406. RLC_TITLE
  407. G_DSPALT
  408. GK_ESC
  409. SFRG_DSPPRC
  410. A_ACLIST
  411. GS_251
  412. GLACNT
  413. TGA_SEGLEN
  414. A_GLTYPE
  415. FGLLOW
  416. ACNTGLUPP
  417. ACNTWHYNOT
  418. TGLTYPE
  419. HA_FRACNT
  420. HAUTONO
  421. GC_OSEOL
  422. LC_FRCOMP
  423. G_DSPST
  424. SFGC_COMPANYGN_MSGLINEG_OPNFL
  425. GF_GLBALSFA_SYCDFIS
  426. COMPID1
  427. GC_COMPID
  428. GC_FCYR
  429. TCOMPID
  430. LA_PERIODSYEARPRD
  431. A_GLBALS
  432. SLA_GLBALS
  433. GC_IDRVTMPGC_TMPF3
  434. PGC_EXTDBF
  435. G_LCKFL
  436. DSGN_TOTSEGSGA_SEGBEG
  437. GC_TMPF2
  438. PA_GLSEGS
  439. A_FRSEGS
  440. ADDUSER
  441. GC_USERID
  442. ADDDATE
  443. PFADDTIME
  444. PFGF_GLSEGSFGF_GLACNTFA_TMPF3
  445. DFALL
  446. DFA_GLACNT
  447. LL_SAVED
  448. \<Tag
  449. \<Save
  450. E\<xit
  451. DO l_cpygrb WITH PAD()
  452. GN_TRACE
  453. E_TRACE
  454. FLN_ADDCNT
  455. LN_CNT
  456. USELL_NOSAVE
  457. LM_GLCOPY
  458. LW_GLCPA1
  459. LP_TAG
  460. CNTLP_SAVE
  461. LP_EXIT
  462. LW_SQLBROW
  463. TYPE("lc_pad") = "C"
  464. LP_TAG
  465. LP_SAVE
  466. Transfer FF
  467. @R 99,999cD
  468. Transfer
  469. Cancel
  470. Adding 
  471.  have been chosen for transfer.
  472. LP_EXIT
  473. Select Action from Menu 
  474. LC_PAD
  475. GN_TRACE
  476. FE_TRACE
  477. GL_ASSERT
  478. E_ASSRT
  479. LC_PADNAMEL_CPYGRC
  480. ELL_SAVED
  481. ELN_ADDCNT
  482. G_GETDLG
  483. LC_TITLE
  484. G_DSPST
  485. GC_COMPANYGN_MSGLINEL_CPYGRD
  486. LM_GLCOPY
  487. LP_EXIT
  488. FRG_DSPALT
  489. A_ACLIST
  490. EL_BRWENT
  491. ENTER
  492. KEYBOARD CHR(gk_ctlend) PLAIN
  493. RIGHTMOUSE
  494. DO l_putls  WITH .f.
  495. SPACEBAR
  496. DO l_putls  WITH .t.
  497. CTRL+A
  498. DO l_allact WITH .t.
  499. CTRL+a
  500. DO l_allact WITH .t.
  501. CTRL+U
  502. DO l_allact WITH .f.
  503. CTRL+u
  504. DO l_allact WITH .f.
  505. <Spacebar> toggles one, 
  506. <Ctrl-A/U> toggles all, <Enter> saves
  507. Type Description
  508. Available 
  509. Group
  510. Group Description
  511. Available 
  512. ENTER
  513. RIGHTMOUSE
  514. SPACEBAR
  515. CTRL+A
  516. CTRL+a
  517. CTRL+U
  518. CTRL+u
  519. GN_TRACE
  520. E_TRACE
  521. FENTER
  522. RIGHTMOUSESPACEBAR
  523. DNAMEA
  524. CPYGRC
  525. EG_DSPST
  526. GN_MSGLINELL_HOTKEY
  527. GL_HOTKEY
  528. A_ACLIST
  529. LC_CPYTYP
  530. GLTYPE
  531. LCOPY
  532. GLDESC
  533. FRLC_TITLE
  534. LW_SMBROW
  535. GROUP
  536. DESCRIPT
  537. ac_error
  538. ac_error
  539. grpcode = a_aclist->group
  540. grpcode = a_aclist->group
  541. a_frhgrp
  542. a_frdgrp
  543. a_glhgrp
  544. a_gldgrp
  545. auttype + autono = lc_cpytyp + a_aclist->group
  546. auttype + autono = lc_cpytyp + a_aclist->group
  547. a_frhaut
  548. a_frdaut
  549. a_glhaut
  550. a_gldaut
  551. bcode + byear = a_aclist->group
  552. bcode + LEFT(yearprd, 4) = a_aclist->group
  553. a_frhbud
  554. a_frdbud
  555. a_glhbud
  556. a_gldbud
  557. Validating Accounts and Account Types
  558. Group Code
  559. Standard Code
  560. Allocation Code
  561. Recurring Code
  562. Budget Code
  563. 88888
  564. Duplicate 
  565.  in TO Company
  566. &lc_hcond.
  567. &lc_dcond.
  568. Account doesn't exist 
  569. in TO Company
  570.  GROUP F
  571. Account Type Mismatch 
  572. FROM = 
  573.  TO = 
  574. ac_errorQ
  575. Copying 
  576. APPEND FROM DBF(lc_fhead) FOR &lc_hcond.
  577. APPEND FROM DBF(lc_fdetail) FOR &lc_dcond.
  578. Validation errors have occured.
  579. Display a report of the errors?
  580. Display
  581. Print
  582. Copy 
  583.  - Validation Error Report
  584.  .t. .AND. 
  585.  .t. 
  586. glcpya
  587. ll_cont = g_cncjob("")
  588. ac_error
  589. GN_TRACE
  590. E_TRACE
  591. FLL_RETURN
  592. LC_HCOND
  593. ELC_DCOND
  594. LC_FHEAD
  595. ELC_FDETAILLC_THEAD
  596. ELC_TDETAILLC_MSGACT
  597. LN_ECOUNT
  598. LL_PRNT
  599. LL_CONT
  600. LN_RPTCOL
  601. LC_XTITLE
  602. LC_FRMFILELC_CPYTYP
  603. AC_ERROR
  604. GLTYPE
  605. REASON
  606. DESCRIPT
  607. GLACNT
  608. EGN_ACCTLENG_DSPPRC
  609. A_ACLIST
  610. TGS_251
  611. TGROUP
  612. LC_ACCOUNTA_GLACNT
  613. A_FRACNT
  614. TGLDESC
  615. LC_TITLE
  616. A_GLTYPE
  617. LTYPEHD
  618. ESTYPEHD
  619. GLLOW
  620. FGLUPP
  621. ADDDATE
  622. ADDTIME
  623. ADDUSER
  624. TGC_USERID
  625. G_LCKFL
  626. GN_RETRY
  627. LM_GLCOPY
  628. LL_NOSAVE
  629. LN_ADDCNT
  630. LN_RESP
  631. G_GETDLG
  632. GC_OSEOL
  633. SGC_IDRVTMPGC_TMPF5
  634. GC_EXTTXT
  635. C_SELPR
  636. LC_HEAD1
  637. LC_HEAD2
  638. LC_COND
  639. LC_FOR
  640. PFGC_ADRVPRGG_PRNRP
  641. FG_DSPRP
  642. TYPE("lc_def")    = "C"
  643. TYPE("lc_msg")    = "C"
  644. TYPE("lc_applid") = "C"
  645. syccomp
  646. a_syccom//
  647. compid
  648. sycdata
  649. a_sycdat//
  650. compid1
  651. a_sycdat
  652. ENTER
  653. KEYBOARD CHR(gk_ctlend) PLAIN
  654. RIGHTMOUSE
  655. KEYBOARD CHR(gk_ctlend) PLAIN
  656. Number
  657. Company Name
  658. ENTER
  659. RIGHTMOUSE
  660. LC_DEF
  661. LC_MSG
  662. FLC_APPLID
  663. GN_TRACE
  664. EE_TRACE
  665. GL_ASSERT
  666. E_ASSRT
  667. ILLC_RETURN
  668. LL_HOTKEY
  669. LC_TEXT
  670. LC_SALIAS
  671. LL_RESULT
  672. GL_HOTKEY
  673. G_OPNFL
  674. GC_IDRVDBFA_SYCCOM
  675. FCOMPID
  676. GC_COMPID
  677. LW_SELCO
  678. ENTER
  679. RIGHTMOUSECOMPANY
  680. EL_DSPCO
  681. ENGK_ESC
  682. TYPE("ll_space") = "L"
  683. RIGHTMOUSE
  684. SPACEBAR
  685. Available
  686. RIGHTMOUSE
  687. DO l_putls  WITH .f.
  688. SPACEBAR
  689. DO l_putls  WITH .t.
  690. LL_SPACE
  691. GN_TRACE
  692. FE_TRACE
  693. GL_ASSERT
  694. E_ASSRT
  695. RIGHTMOUSESPACEBAR
  696. LLN_RECNO
  697. GS_251
  698. LN_ADDCNT
  699. LL_NOSAVE
  700. TYPE("ll_apprv") = "L"
  701. Available
  702. LL_APPRV
  703. GN_TRACE
  704. FE_TRACE
  705. GL_ASSERT
  706. E_ASSRT
  707. LN_RECNO
  708. LLN_ADDCNT
  709. LL_NOSAVE
  710. GS_251
  711. TYPE("lc_wcomp") = "C"
  712. LC_WCOMP
  713. GN_TRACE
  714. FE_TRACE
  715. GL_ASSERT
  716. E_ASSRT
  717. GC_COMPID
  718. A_SYCCOM
  719. LCOMPANY
  720. ADDRSS1
  721. STATE
  722. COMPID
  723. TYPE("ll_wait") = "L"
  724. NOWAIT8
  725. ENTER
  726. KEYBOARD CHR(gk_ctlend) PLAIN
  727. BROWSE FIELDS glacnt :H= gc_accthdr &lc_acntlen. :R :W = .f.,  add    :H= "Add" :W = .f. ,  gldesc :H= "Description" :W = .f. &lc_deslen.  NOAPPEND  NOMENU  NODELETE  FOR .NOT. EMPTY(add)  TITLE lc_title + " Marked for Copying"  WINDOW lw_cpybrow  COLOR SCHEME 1  &lc_wait.
  728. BROWSE FIELDS gltype :H= "Type" :4 :R :W = .f.,  add    :H= "Add"  :3    :W = .f. ,  gldesc :H= "Description" :W = .f. :67  NOAPPEND  NOMENU  NODELETE  FOR .NOT. EMPTY(add)  TITLE lc_title + " Marked for Copying"  WINDOW lw_cpybrow  COLOR SCHEME 1  &lc_wait.
  729. GTARBD
  730. BROWSE FIELDS group    :H= "Group" :W = .f.,  add      :H= "Add" :W = .f. ,  descript :H= "Description" :W = .f. &lc_deslen.   NOAPPEND  NOMENU  NODELETE  NOEDIT  FOR .NOT. EMPTY(add)  TITLE lc_title + " Marked for Copying"  WINDOW lw_sqlbrow  COLOR SCHEME 1  &lc_wait.
  731. ENTER
  732. LL_WAIT
  733. GN_TRACE
  734. FE_TRACE
  735. GL_ASSERT
  736. E_ASSRT
  737. LC_WAIT
  738. ENTER
  739. LLL_HOTKEY
  740. GL_HOTKEY
  741. LC_CPYTYP
  742. L_CPYAC
  743. L_CPYACB
  744. L_CPYACC
  745. L_CPYACD
  746. L_CPYGR
  747. L_CPYGRB
  748. L_CPYGRC
  749. L_CPYGRD
  750. L_SELCO
  751. L_PUTLS
  752. L_ALLACT
  753. L_DSPCO
  754. L_BRWENT
  755. C:\GLDISK\
  756. C:\GLDISK\GLCPYA.PRG
  757. GLCPYA.FXP
  758.