The World of Computer Software

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 / GLACNT._XP (.txt) < prev next >

Wrap

MS Visual FoxPro App | 1993-02-11 | 66KB | 1,553 lines

Checking parameters lc_taskf MAINTAIN lc_accountf Necessary parameters have not been passed to GLACNT.PRG. a_glacnt a_glhunp a_gldunp a_glhent a_gldent a_glbals a_glhaut a_gldaut a_glsegs a_glstru a_gltype a_glhbud a_gldbud a_glhgrp a_gldgrp Default Retained Earnings account not set up. Because 'Departmentalize Earnings' is turned on in GL Setup, a default Retained Earnings account must be entered in GL Setup before you are allowed to enter accounts. You'll be returned to the main menu. a_gltype// gltype There are no Account Ranges on file. You must first set up account types and their ranges. Opening files Initializing variables Preparing for account maintenance8 Active Current GLINQU01 F$Fb/ Account Maintenance Account Maintenance Defining popups, windows and menus sycrlst a_sycrls// compid3 a_sycrls FASB95 a_sycrls RATIOS CTRL+F2 DO l_segstr WITH lc_macnt lw_glacnt glacnt.spr a_sycins a_sycdat a_sycprn CTRL+Y DO l_gctrly DO l_stfqs WITH COL(), lc_macnt, "lc_macnt" DO l_tabseg BACKTAB DO l_tabseg WITH COL(), "BACKTAB" glacnt.spr CTRL+Y DO g_stfqs BACKTAB BLANKS STUFF glacnt.spr STUFF glacnt.spr E\<xit \<Select Return to main menu Select an account SXFFF E\<xit \<Inquiry \<Back \<Fwd \<Delete \<Edit \<Select Return to main menu Inquiry submenu: Balances, Details, Source Entries Backup to prior account Forward to next account Delete this account Edit this account Select an account SEDFBIXF SELECT CTRL+Y DO g_stfqs BACKTAB \<Cancel \<Edit \<Save Cancel changes to this account Edit this account Save changes to this account Chart of Accountse STUFF Chart of Accounts/ Account was locked by CTRL+Y DO g_stfqs BACKTAB INQUIRY CTRL+Y DO g_stfqs BACKTAB STUFF glacnt.spr User F does not have access to account Inquiry. DELETE CTRL+Y DO g_stfqs BACKTAB LC_TASK NOLC_ACCOUNTGN_TRACE E_TRACE EALC_MTYPE ALC_MACNT OMCALLDIR ALC_MDESC LC_MACTIVELC_MSEQ LC_MCATAG LC_MDEPRECLC_MSDESC LC_MRATIO LC_MFASB95LC_MSOURCELC_TYPEDESLC_AUTONO LC_CONACNTLN_CONPCT LC_POSTJE LL_NOREACTLN_MSEQ BBFC_MACTIVEFC_MCATAG FC_MDEPRECFL_POSTJE FC_MRATIO FC_MFASB95LA_FASB95 LA_RATIOS LC_ACTION LL_NOREC TLL_MEDIT LC_SEGMSK LN_MRECNO LL_MSELECTLN_LASTOBJLL_CONT GLN_TYPES LN_READKEYLC_STATMSGLC_XSTAT LC_PAD LL_GLNEW CLC_REACNT LC_SUSACNTLC_ADVICE LL_FRSTFLDLC_OLDCLR LC_SRCJRNLLL_CONTIN LL_GLINQU LN_OPNFL OLN_OPNFLHULN_OPNFLDULN_OPNFLHELN_OPNFLDELN_OPNFLBALN_OPNFLHALN_OPNFLDALN_OPNFLSELN_OPNFLSTLN_OPNFLTYLN_OPNFLHBLN_OPNFLDBLN_OPNFLHGLN_OPNFLDGGL_DUTIL G_DSPPRC TG_DSPALT TG_SETSYS GC_APPLID GC_COMPID A_SYSDAT NGGL_USEDEP G_DSPBX A_GLACNT GLACNT G_OPNFL TYGF_GLTYPEFA_GLTYPE GLTYPE DG_DSPST OGN_MSGLINEGC_USERID GC_OSEOL LM_GLENTR GM_MAIN GU_MANT GU_MANT1 L_OPNGFL GN_ACCTLENGC_ACCTPICGLDESC GLSDESC GLSEQ EAUTONO GLSOURCE ECONACNT TGLSTAT EGLRATIO GLFASB95 5U_CHKPV GC_TITLE GC_IDRVDBFDESCRIP CHRVL TA_SYCRLS COMPID RULEID RULESEQ LN_INDEX LW_GLACNT G_PNTBG GC_ADRVPRGA_SYCINS A_SYCDAT A_SYCPRN L_ADDACT RBACKTAB L_INITVR YLC_XREC GLA_PAD GLA_PRMPT G_GETCH GK_ESC G_DSPCH L_PRMGLA G_LCKOB GN_RETRY OLCKUSER LCKTIME LCKDATE L_MVACNT G_CHKRC L_GLEXIT BACKTAB CTRL+F2 DO g_stfqs CTRL+Y a_glacnt a_glhaut a_glsegs a_gldunp a_gldbud a_entry a_detail a_bals a_sycrls LW_GLACNT CCOUNTBACKTAB MTYPE OLA_PICKS ALC_OLDCLR A_GLACNT EA_GLHAUT A_GLSEGS A_GLDUNP CA_GLDBUD LN_OPNFL LN_OPNFLHUA_GLHUNP ELN_OPNFLDULN_OPNFLHEA_GLHENT TLN_OPNFLDEA_GLDENT LN_OPNFLBAA_GLBALS BLN_OPNFLHALN_OPNFLDAA_GLDAUT CLN_OPNFLSELN_OPNFLSTA_GLSTRU 5LN_OPNFLTYA_GLTYPE LN_OPNFLHBA_GLHBUD TLN_OPNFLDBLN_OPNFLHGA_GLHGRP LN_OPNFLDGA_GLDGRP JA_ENTRY GA_DETAIL A_BALS YA_SYCRLS GLC_TASK GM_MAIN GU_MANT TYPE("lc_omode") = "C" lc_omodef DELETE a_glacnt// glacnt a_glbals// glacnt1 a_glhaut// auttype1 a_gldaut// auttype1 a_glhent// a_gldent// a_glsegs// segid1 a_glstru// segid a_gltype// gltype a_glhunp// batchno1 a_gldunp// glacnt a_glhbud// bcode1 a_gldbud// glacnt a_glhgrp// grpcode a_gldgrp// grpcode1 LC_OMODE GN_TRACE TE_TRACE GL_ASSERT E_ASSRT ALN_OPNFL OG_OPNFL AGF_GLACNTFLN_OPNFLBAGF_GLBALSFLC_TASK LN_OPNFLHAGF_GLHAUTFA_GLHAUT AUTTYPE UAUTBASE EAUTTYPE1 ULN_OPNFLDAGF_GLDAUTFLN_OPNFLHEGF_GLHENTFLN_OPNFLDEGF_GLDENTFLN_OPNFLSEGF_GLSEGSFLN_OPNFLSTGF_GLSTRUFLN_OPNFLTYGF_GLTYPEFGLTYPE LTYA_GLACNT GLACNT BA_GLBALS TA_GLTYPE BAUTONO GA_GLDAUT A_GLSEGS GSEGID JA_GLSTRU GLN_OPNFLHUGF_GLHUNPFLN_OPNFLDUGF_GLDUNPFLN_OPNFLHBGF_GLHBUDFLN_OPNFLDBGF_GLDBUDFLN_OPNFLHGGF_GLHGRPFLN_OPNFLDGGF_GLDGRPFA_GLDUNP BATCHNO GLSEQNO OA_GLHUNP UA_GLDBUD UBCODE EYEARPRD DEA_GLHBUD AA_GLDGRP AGRPCODE AA_GLHGRP Validating account for deletion...please wait Chart of Accountse DELETE You may not delete the default FF Retained Earnings Suspense8 account! Delete cancelled. Checking Balances for current activity Balances file contains debit/credit activity for this account. Purge/summarize activity before deleting! Delete cancelled. Checking Balances for zero balance in current glacnt1 Balance exists for current year! This account's balance must be 0.00. Delete cancelled. glacnt1 Checking Balances for zero balance in next glacnt1 Balance exists for next year! This account's balance must be 0.00. Delete cancelled. glacnt1 glacnt1 Checking to see that no transactions exist glacnt Posted transactions exist for this account. Purge/summarize transactions before deleting! Delete cancelled. Checking for Budgets with this account This account is in one or more Budgets! Delete this Account from Budget(s) cancel account deletion? Delete Cancel Delete Cancelled. Checking to see if unposted transactions exist There are one or more unposted batches with this account! Void batch(es) before attempting to delete. Delete cancelled! Checking for Automatic Entries with this account This account is in one or more Automatic Entries! Delete Automatic Entry(s) with this account or cancel account deletion? Delete Cancel Delete Cancelled. Checking for Account Groups with this account This account is in one or more Account Groups! Delete this account from Account Group(s) or cancel account deletion? Delete Cancel Delete Cancelled. Deleting account...please wait FILTERz a_glacnt, a_glsegsV a_glsegs Segment Values a_gldbud5 a_gldbud Budget Detail a_gldaut a_glhaut5 a_glhaut Automatic Entries Header a_gldaut5 a_gldaut Automatic Entries Detail a_gldgrp5 a_gldgrp Account Groups Detail a_glbals5 a_glbals Account Balances SET FILTER TO &lc_oldfilt Deleting Account/ GN_TRACE E_TRACE TLL_CONT LL_LCKOB LN_DEBITS LN_CREDITSLN_RESP ALL_BUDGET LL_AUTO BALL_GROUP FLL_CLEAR LL_LOCK HALN_COUNT FLN_XREC LL_CLROB ULN_PRIV ELC_OLDFILTG_DSPST DAGN_MSGLINEGC_APPLID GC_COMPID GC_USERID A_GLACNT G_LCKOB EGN_RETRY FL_OPNGFL TLC_MACNT FLC_REACNT LC_SUSACNTG_DSPALT YGC_OSEOL A_GLBALS PTDDR TPTDCR BGLACNT ITSGLACNT1 GC_FCYR GFYBGBAL JYTDDR GYTDCR UA_GLDENT A_GLDBUD G_GETDLG A_GLDUNP A_GLHUNP FSTATUS LDBA_GLDAUT A_GLDGRP LL_DELETEDGA_SEGLEN A_GLSEGS G_LCKRC G_LCKFL A_GLHAUT ODISTINCT UAUTONO UAUTTYPE ELA_AUTONOSAUTBASE SLN_OPNFLHULN_OPNFLDULN_OPNFLHBA_GLHBUD TLN_OPNFLDBLN_OPNFLHGA_GLHGRP BLN_OPNFLDGGC_TASK TYPE("ln_skipnum") = "N" STUFF glinqu.spr BALANCES STANDARD glacnt.spr LN_SKIPNUMGN_TRACE TE_TRACE GL_ASSERT E_ASSRT LC_OLDAREAA_GLACNT AG_MOVRC L_INITVR MLC_ACTION GC_ADRVPRGL_SETSQL ALC_YEAR FLC_PERIOD LC_MTYPE TYPE("lc_inmode") = "C" lc_inmodef BLANKS BLANKS Current Current Active Inactive Active8 Current Long Term Non-Cash Depreciation Amortization 8888 RATIOS FASB95 LC_INMODE GN_TRACE TE_TRACE GL_ASSERT E_ASSRT LC_OLDAREALL_GLNEW LC_MACNT GN_ACCTLENGC_ACCTPICA_GLTYPE GGA_SEGLEN GLLOW FGLUPP LC_MTYPE UGLTYPE ALC_TYPEDESGLDESC ALC_MDEPRECFC_MDEPRECLC_MCATAG FC_MCATAG A_GLSEGS LC_MDESC CA_GLACNT FLC_MSDESC GLSDESC FLC_MACTIVELN_MSEQ NTLC_MSEQ YGLSEQ LC_MRATIO LC_MFASB95LC_POSTJE LC_AUTONO AUTONO LC_MSOURCEGLSOURCE JLC_CONACNTCONACNT ULN_CONPCT FC_MACTIVEFC_MRATIO GLRATIO FC_MFASB95GLFASB95 BFL_POSTJE GLACNT POSTJE CONPCT GLSTAT EGLCATAG L_RULDSC Cancel Save changes to this account Edit this account Cancel changes to this account CTRL+Y DO l_gctrly DO l_stfqs WITH COL(), lc_macnt, "lc_macnt" DO l_tabseg BACKTAB DO l_tabseg WITH COL(), "BACKTAB" glacnt.spr CTRL+Y DO g_stfqs BACKTAB SECFF a_glacnt Chart of Accounts glseq a_glacnt STUFF glacnt.spr GN_TRACE E_TRACE TLC_CHOICE LC_XMACNT LN_READKEYA_GLACNT LA_PAD LA_PRMPT LW_GLACNT G_DSPCH ICCTRL _SEGLEN BACKTAB ULL_MEDIT ALL_FRSTFLDGC_ADRVPRGG_GETCH GK_ESC KEYG_LCKRC GN_RETRY GLDESC LC_MDESC CGLSDESC FLC_MSDESC GLSTAT FFC_MACTIVEGLTYPE NTLC_MTYPE YGLCATAG FC_MCATAG FC_MDEPRECGLSOURCE CLC_MSOURCEGLSEQ LN_MSEQ CEGLRATIO JFC_MRATIO GLFASB95 UFC_MFASB95POSTJE IVEFL_POSTJE AUTONO LC_AUTONO CONACNT BLC_CONACNTCONPCT LN_CONPCT L_INITVR TYPE("lc_choice") = "C" SELECT CTRL+Y DO g_stfqs BACKTAB STUFF glinqu.spr glacnt.spr INQUIRY DELETE GLACNT02 F$FFb You do not have sufficient privileges to delete accounts. You do not sufficient privilege to delete account at this time or date. Delete this account? Delete Cancel Account Deleted STUFF glacnt.spr LC_CHOICE GN_TRACE TE_TRACE GL_ASSERT E_ASSRT EYLC_XACNT LL_DELETEDLL_PROCEEDLL_IEDIT LC_MACNT L_SELREC GCTRL UBACKTAB AA_GLACNT DLL_NOREC GL_INITVR LC_ACTION LC_YEAR GC_FCYR LC_PERIOD GC_FCPRD CGC_ADRVPRGL_INQURY L_EDTACT LN_PRIV U_CHKPV NTGC_USERID GC_COMPID G_DSPALT GC_OSEOL CLN_RESP EDG_GETDLG EL_DELACT Initializing variables Preparing for account inquiry Accounts Payable Accounts Receivable General Ledger Inventory Control Payroll 88888 @*IHN Defining popups, windows and menus lw_glinqu lw_inqbrow lw_inqbrow BALANCES STANDARD glinqu.spr E\<xit P\<rint \<Prior-Year \<Next-Year \<Back \<Fwd \<Details \<Select Return to Account Maintenance menu Print these balances Prior year's account balances Next year's account balances Back to previous account Forward to next account Display detail transactions for this account Select an account SDFBNPRXF SELECT BALANCES STANDARD lw_gldetl Enter Criteria for Selecting Detail \<View \<Edit \<Cancel View detail based on entered criteria Edit criteria for selecting detail Cancel display of detail gldetl.spr CTRL+Y DETAILS STANDARD BALANCES STANDARD BALANCES STANDARD Print selected balances for account F Print Cancel ll_cont = g_cncjob("") Account Balances for Account Number F Long Description : F Acount Type : For Year: glabal .t. .AND. .t. GN_TRACE E_TRACE TLC_YEAR LC_PERIOD LC_BATCHNOLC_GLSEQNOLN_OPNFLDALL_IEDIT DLN_COUNT LC_IACTIONLN_FROMROWLN_TOROW LN_CNT FLC_DACTIONLC_XYEAR ULN_VALYEARLC_GLTYP DLL_CONT GLN_RESP LL_PRNT LC_SALIAS LW_GLACNT GL_DUTIL G_DSPPRC CG_SETSYS GGC_APPLID GC_COMPID LA_APPS A_SYSDAT TSYSID PASS2 LB_SRC ROWLC_SRCJRNLLC_SRCPIC LW_GLINQU G_PNTBG GS_219 JLW_INQBROWA_GLBALS WGC_FCYR 5GC_FCPRD LC_MTYPE OL_SETSQL GC_ADRVPRGLC_PAD BLA_PAD TLA_PRMPT GK_ESC G_GETCH ONL_PRMGLA NLW_GLDETL G_DSPCH STINCT ULA_PICKS NA_GLACNT L_MVACNT SG_CHKRC SL_VYEAR ARG_GETDLG NLC_MACNT BC_SELPR TA_BALS LC_TITLE GLC_HEAD1 BGLDESC GLC_HEAD2 GA_GLTYPE GLTYPE TLC_HEAD3 TLC_FRMFILELC_COND RGLC_FOR G_PRNRP lb_src LN_CNT LB_SRC lb_src <Spacebar> selects/unselects, <Ctrl-Y> clears, blank for all CTRL+Y DO l_clrpop {ENTER} LL_RETURN G_DSPST GN_MSGLINEGC_APPLID GC_COMPID GC_USERID NFLDAY _IEDIT SPACEBAR KEYBOARD "{SHIFT+SPACEBAR}" PLAIN ENTER KEYBOARD "{TAB}" PLAIN RIGHTMOUSE KEYBOARD "{SHIFT+SPACEBAR}" PLAIN SPACEBAR ENTER RIGHTMOUSE lb_src lb_src Enter detail year and period, <Esc> to cancel CTRL+Y LN_RETURN LN_CNT LN_COUNT ESPACEBAR ENTER RIGHTMOUSELW_GLDETL LB_SRC DLA_PICKS ELA_APPS NLN_READKEYG_DSPST EYGN_MSGLINEGC_APPLID GC_COMPID GC_USERID _CONT Enter detail year and period, <Esc> to cancel GN_TRACE E_TRACE LW_GLDETL LB_SRC G_DSPST GN_MSGLINEGC_APPLID GC_COMPID GC_USERID compid1 Year not found in Fiscal Calendar! GN_TRACE E_TRACE LN_RETURN LC_OLDAREALL_FRSTFLDA_SYCDFI ECOMPID1 COMPID GC_COMPID LC_YEAR G_DSPAL Posting period must be between 01 and FF GN_TRACE E_TRACE LL_RETURN LL_FRSTFLDLC_PERIOD GN_FCPRDS G_DSPAL FC_POSTPRDGC_FCPRD TYPE("lc_sql") = "C" TYPE("lc_view") = "C" TYPE("lc_year") = "C" TYPE("lc_period") = "C" TYPE("lc_batchno") = "C" TYPE("lc_glseqno") = "C" TYPE("lc_type") = "C" TYPE("lc_gltyp") = "C" lc_gltypf BALANCES a_glbals a_bals STANDARD Balances and Activity for Balances and Activity for @( ############.##c Beginning Balance @( ############.##c Debits @( ############.##c Credits @( ############.##c SCITX YTD Balance Ending Balance8 Balances and Activity for DETAILS a_gldent.batchno+a_gldent.glseqno=a_glhent.batchno+ a_glhent.glseqno.AND. a_gldent.glacnt = lc_macnt.AND. a_gldent.yearprd = lc_year + lc_period la_picksf a_glhent.glmodule=[F .AND. SELECT a_glhent.gldate AS trandate, a_glhent.glmodule AS jr, a_glhent.trtype AS typ, a_gldent.batchno AS batch, a_gldent.glseqno AS seqno, a_gldent.gltdes AS descript, IIF(a_gldent.credit, (a_gldent.glamnt * -1), a_gldent.glamnt) AS amount FROM a_glhent, a_gldent WHERE &lc_where ORDER BY trandate INTO CURSOR a_detail STANDARD Press <Enter> to view source entry, <Esc> to exit ENTER DO l_setsql WITH "ENTRY", "STANDARD", "", "", a_detail->batch, a_detail->seqno, a_detail->typ a_detailQ Batch# Trans# Transaction Description @( ############.##c Dr/Cr() Detail Transactions for Period No details found for year/period/journal! ENTER Enter deatil year and period, <Esc> to cancel ENTRY a_gldent a_entry STANDARD a_glacnt, a_glacntR8 lw_entry Press <Esc> to exit ENTER SHIFT+F2 lc_typef Manual Standard Reclassified Recurring Summarized Allocation Reversing Conversion Manual88888888 Manual BROWSE FIELDS account &lc_acctlen :H=gc_accthdr :P=gc_acctpic, acntdesc =IIF(SEEK(a_entry->account,"a_glacnt"), a_glacnt->gldesc, " ") :H="Acct. Description" &lc_acctdes, debit :H=" Debit" :15 :P="############.##", credit :H=" Credit" :15 :P="############.##" FREEZE account NOEDIT NOMENU NOAPPEND NODELETE TITLE "Source Entry for Batch #" + lc_batchno + " Trans. #" + lc_glseqno + " - a " + lc_ftype + " Entry" IN WINDOW lw_entry COLOR SCHEME 1 ENTER DO l_setsql WITH "ENTRY", "STANDARD", "", "", a_detail->batch, a_detail->seqno Press <Enter> to view source entry, <Esc> to exit LC_SQL LC_VIEW LC_YEAR LC_PERIOD LC_BATCHNOLC_GLSEQNOLC_TYPE LC_GLTYP DGN_TRACE E_TRACE GL_ASSERT E_ASSRT LC_ACCTLENLN_ACCTDESLC_ACCTDESLN_COUNTERLC_CATSTR LC_WHERE GLN_RECNO YEARPRD PERIOD FYBGBAL YTDDR YTDCR CPTDDR GPTDCR BEGINNING DEBITS CREDITS TENDING A_GLBALS GLACNT LC_MACNT WA_BALS NLLW_INQBROWBEG CREDS OWLA_PICKS RG_DSPST GN_MSGLINEGC_APPLID GC_COMPID GC_USERID ENTER BLL_HOTKEY GL_HOTKEY DESCRIPT WBATCH ONSEQNO GLDETL TRANDATE GAMOUNT UG_DSPALT WA_GLDENT ACCOUNT SCREDIT SGLAMNT RDEBIT NBATCHNO BGLSEQNO TA_ENTRY NOLW_ENTRY GSHIFT GLC_FTYPE GGN_ACCTLENA_GLACNT BLANKS glinqu.spr glacnt.spr Enter Account Number, F2 to list CTRL+Y DO l_gctrly DO l_stfqs WITH COL(), lc_macnt, "lc_macnt" DO l_tabseg BACKTAB DO l_tabseg WITH COL(), "BACKTAB" glinqu.spr glacnt.spr CTRL+Y DO g_stfqs BACKTAB STUFF glinqu.spr glacnt.spr STUFF glacnt.spr GN_TRACE E_TRACE LC_ACTPCT LL_CONT LN_READKEYLC_XMACNT LL_NOREC L_INITVR DLC_ACTION GC_ADRVPRGG_DSPST RGGN_MSGLINECTRL CTLENY _ACCTDESF2 ACCTDESTAB OUNTERBACKTAB LL_MSELECTLC_MACNT YGN_ACCTLENGC_ACCTPICA_GLACNT LL_GLNEW GL_ADDACT LC_XREC NOTICE: New Account Major defaults will be created if you save this new account! Proceed Cancel BLANKS Inactive Active8 Current Long Term Non-Cash Depreciation Amortization 8888 RATIOS FASB95 a_gltype glacnt.spr is not defined in Segment Values. Define new segment now or cancel new account entry? Define Segment Cancel glsegs New account entry cancelled because new segment was not defined! a_glsegs, glacnt.spr Copy new account attributes from another account or enter attributes manually? Manual Entry F2 to list, <Esc> to enter manually lw_glacn1 Enter Account Code glacn1.spr CTRL+Y BACKTAB No Account Range exists for new Account Major Inactive Active8 Current Long Term Non-Cash Depreciation Amortization 8888 RATIOS FASB95 glacnt.spr glacnt.spr Cancel Edit this new account Cancel this new account Cancel Save this new account Edit this new account Cancel this new account SECFF T|S|X|C|O Departmental Retained Earnings account, , will be created for department a_glacnt Chart of Accounts Account F has been added by another user. glseq a_glacnt glseq a_glacnt a_glsegs Segment Values glseq a_glsegs compid1 a_glbals5 a_glbals Account Balances GN_TRACE E_TRACE LN_READKEYLN_COUNT LL_NEWMJR LC_SEGMT LN_RESP LL_SAVEOK LC_CHOICE LC_NEWRE GLL_NEWRE GLC_XMACNT LC_SEG2DESLL_EDITNEWLL_INCOPY LC_COPYACTLL_DUPRE LL_ADDOK TLL_DUPACT GN_ACCTLENGC_ACCTPICA_GLACNT SA_GLSEGS GN_TOTSEGSLC_MACNT GGA_SEGLEN G_GETDLG GC_OSEOL L_INITVR TLC_TASK LL_TRADDOKLC_MSDESC GLSDESC WLC_MTYPE LGLTYPE WLC_MSOURCEGLSOURCE LC_MSEQ JGLSEQ WFL_POSTJE POSTJE LC_POSTJE LC_AUTONO AUTONO LC_CONACNTCONACNT BLN_CONPCT CONPCT FC_MACTIVEGLSTAT NLC_MACTIVEFC_MCATAG GLCATAG LC_MCATAG FC_MDEPRECLC_MDEPRECFC_MRATIO GLRATIO SLC_MRATIO L_RULDSC RFC_MFASB95GLFASB95 BLC_MFASB95LC_TYPEDESA_GLTYPE GGLDESC GC_ADRVPRGGA_SEGBEG A_GLSTRU LSEGDES LW_GLACNT G_DSPALT GSEGID GL_USEDEP LC_MDESC G_DSPST GN_MSGLINEGC_APPLID GC_COMPID GC_USERID LW_GLACN1 RVPRGY GLTYPE OBACKTAB NEGLLOW GLUPP LL_MEDIT WLL_FRSTFLDLA_PAD LA_PRMPT G_GETCH GK_ESC KEYLC_REACNT G_LCKFL GLACNT DOKLN_MSEQ CEADDUSER ADDDATE ADDTIME TLC_RACNT LC_RDESC LC_RSDESC FC_RACTIVELC_RTYPE FC_RCATAG FC_RDEPRECLC_RSOURCELC_RSEQ FC_RRATIO FC_RFASB95FL_RPOSTJELC_RAUTONOLC_RCONACNLN_RCONPCTSEGVAL A_SYCDFI COMPID GCOMPID1 LC_LASTYR GC_FCYR A_GLBALS YEARPRD FYBGBAL RPTDDR PTDCR YYTDDR GYTDCR GYECLOSE TYPE("ln_type") = "N" TYPE("lc_field") = "C" TYPE("lc_keyvar") = "C" TYPE("lc_file") = "C" TYPE("lc_title") = "C" Select list: Accounts Types Segments No accounts found. gltype GLTYPE Account Type FILTERz SET FILTER TO &lc_oldfilt lc_macnt not found: No Account Range exists for Account Major Reenter Accounts Types Reenter A\<ccounts Types Reenter gltype GLTYPE Account Type FILTERz SET FILTER TO &lc_oldfilt SCXIT Default Retained Earnings account not found. You may not create new Income Statement accounts in GL until you first create a default Retained Earnings account in the Chart of Accounts. Please enter the default Retained Earnings account now, which is account code: No records found. CTRL+Y DO g_stfqs BACKTAB ENTER KEYBOARD CHR(gk_ctlend) PLAIN RIGHTMOUSE KEYBOARD CHR(gk_ctlend) PLAIN a_glacnt, lc_keyvar = &lc_field. ENTER RIGHTMOUSE CTRL+Y DO l_gctrly DO l_stfqs WITH COL(), lc_macnt, "lc_macnt" DO l_tabseg BACKTAB DO l_tabseg WITH COL(), "BACKTAB" LN_TYPE LC_FIELD LC_KEYVAR LC_FILE LC_TITLE GN_TRACE E_TRACE GL_ASSERT E_ASSRT LL_DONE GLL_HOTKEY LN_READKEYLC_LOOKUP LC_OLDFILTLL_NORANGELC_ZTYPE TLN_RESP G_GETDLG TG_DSPALT L_BRWACT A_GLTYPE LC_MTYPE SA_GLACNT YGLTYPE ILTL_SEGBRS LN_RECNO LC_MSG GA_SEGLEN GLLOW GLUPP LC_ACTION GN_ACCTLENLL_NOREACTLC_REACNT G_DSPBX WLL_GLNEW _MSEQ OSTJE BACKTAB ENTER RIGHTMOUSELL_ASSERT LN_TRACE LC_LOGFILEGC_LOGFILEGL_HOTKEY L_BROWSER GLACNT 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 GLTYPE 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 LW_MSEL LC_ACTLEN LC_ACTDES LC_TYPELENLC_TDESLENLN_TDESLENLC_OLDAREALN_ACTDES LC_FILE EAGN_ACCTLENGA_SEGLEN TYPE("lc_field") = "C" CTRL+Y DO g_stfqs BACKTAB lc_mdesc Enter long report description. Entry required. <Esc> cancels lc_msdesc Enter short report description. Entry required. <Esc> cancels ATTRIBUTE Edit account attributes, <F1> for help... LC_FIELD GN_TRACE E_TRACE GL_ASSERT E_ASSRT ENCTRL ESLENY _OLDAREAF2 ACTDES EABACKTAB ENLC_MSG LC_ADVICE G_DSPST GN_MSGLINEGC_APPLID GC_COMPID GC_USERID Entry required for use in reports and screens! <Esc> cancels. GN_TRACE E_TRACE LN_RETURN LC_MDESC G_DSPALT NLL_FRSTFLD Entry required for use in reports and screens! <Esc> cancels. GN_TRACE E_TRACE LN_RETURN LC_MSDESC G_DSPALT NLL_FRSTFLD auttype1 Automatic Distribution Code F not found. Reenter GLHAUT Select Automatic Distribution is not a valid Auto Distribution. GN_TRACE E_TRACE LN_RETURN LL_CONT LC_OLDAREALL_BADCODELN_RESP LN_RECNO LC_XAUTONOLC_AUTONO A_GLHAUT AUTTYPE1 AUTTYPE AUTBASE EG_GETDLG G_LSTRC EAUTONO G_DSPALT EGK_LFT EAGK_UP LN_LASTOBJGL_EDATTR G_DSPST GN_MSGLINEGC_APPLID GC_COMPID GC_USERID Press F2 to list valid Automatic Distribution codes GN_TRACE E_TRACE G_DSPST GN_MSGLINEGC_APPLID GC_COMPID GC_USERID Unposted entries exist for this account! Active GN_TRACE E_TRACE LL_RETURN FC_MACTIVEA_GLDUNP GLACNT LC_MACNT G_DSPALT LC_MACTIVEX CTRL+Y DO l_gctrly lc_choicef DO l_stfqs WITH COL(), lc_macnt, "lc_macnt" INQUIRY DO l_stfqs WITH COL(), lc_macnt, "lc_macnt" DO l_tabseg BACKTAB DO l_tabseg WITH COL(), "BACKTAB" GN_TRACE E_TRACE _MACTIVEF2 LDUNP LC_CHOICE BACKTAB glacnt GLACNT Account GN_TRACE E_TRACE LN_RETURN LC_XMACNT LL_CONT LC_MACNT LL_NOREC A_GLACNT LL_GLNEW L_BRWACT GN_ACCTLEN CTRL+Y DO l_gctrly WITH "COPY" DO l_stfqs WITH COL(), lc_copyact, "lc_copyact" DO l_tabseg BACKTAB DO l_tabseg WITH COL(), "BACKTAB" GN_TRACE E_TRACE _XMACNT BACKTAB Select list: Accounts Types Reenter glacnt GLACNT Account gltype gltype GLTYPE Account Type FILTERz glacnt GLACNT Account SET FILTER TO &lc_oldfilt CTRL+Y BACKTAB GN_TRACE E_TRACE LN_RETURN LC_XMACNT LC_MTYPE LC_OLDFILTLL_CONT LC_COPYACTLL_EDITNEWA_GLACNT LN_RESP CTG_GETDLG L_BRWACT TA_GLTYPE TGLTYPE LN_READKEYGN_ACCTLENCTRL ASTOBJBACKTAB lc_ymodef MAINTAIN LC_MACNT LC_YMODE LC_COPYACTGN_ACCTLENGC_ACCTPICLC_MACNT TYPE("lc_reffld") = "C" TYPE("lc_nxtfld") = "C" ln_thsobj = OBJNUM(&lc_thsvar) _CUROBJ=OBJNUM(&lc_reffld.) _CUROBJ=OBJNUM(&lc_nxtfld.) LC_REFFLD LC_NXTFLD GN_TRACE NE_TRACE ICGL_ASSERT E_ASSRT CLL_RETURN LL_MEDIT TLL_FRSTFLDLC_THSVAR LA_GETPOS LN_THSOBJ TYPE("lc_lkval") = "C" TYPE("lc_ruleid") = "C" sycrlst a_sycrls// compid1 LC_LKVAL LC_RULEID GN_TRACE NE_TRACE ICGL_ASSERT E_ASSRT CLC_ALIAS LC_RETURN G_OPNFL DGC_IDRVDBFA_SYCRLS DESCRIP GC_COMPID RULEID L_GLEXIT L_OPNGFL L_DELACT L_MVACNT L_INITVR L_EDTACT L_PRMGLA L_INQURY L_CLRPOP L_WSRC L_VSRC L_WYEAR L_VYEAR L_VPRD L_SETSQL L_SELREC L_ADDACT L_BRWACT L_BROWSER L_WHNACT L_VMDESC L_VMSDES L_VAUTO L_WAUTO L_VMACTI L_WMACNT L_VMACNT L_WCOPY L_VCOPY L_GCTRLY L_WHNINV L_RULDSC C:\GLDISK\ C:\GLDISK\GLACNT.PRG GLACNT.FXP