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

Wrap

MS Visual FoxPro App | 1993-02-11 | 40KB | 959 lines

Preparing for Budget Maintenance a_glacnt// glacnt a_glbals// glacnt1 a_glhbud// bcode1 a_gldbud// bcode1 a_glhgrp a_gldgrp a_glacnt, Chart of Accounts has no accounts! Transaction entry terminated. GLHBUD BCODE GLHBUD BDESC GLHBUD COMMENT GLBUDG02 F$Fb/ LP_SELECT \<Select \<Forward a_glhbud, a_glhbud \<Back a_glhbud, a_glhbud \<Header a_glhbud, a_glhbud \<Detail a_glhbud, a_glhbud \<Import a_glhbud, a_glhbud Ex\<port a_glhbud, a_glhbud Dele\<te a_glhbud, a_glhbud E\<xit DO l_prmbdg WITH PAD() GLBDG1.SPR Maintain Budgets LP_EXIT LP_EXIT a_glacnt a_glacnt a_glbals a_glbals a_glhbud a_glhbud a_gldbud a_gldbud a_glhgrp a_glhgrp a_gldgrp a_gldgrp GN_TRACE TE_TRACE LL_BSELECTLL_BEDIT LL_BNEW ENLL_INMENU LC_PAD LL_PORTBDGLL_CONTIN FC_BCODE LFC_BYEAR FC_BDESC GFC_COMMENTLN_OPNACNTLN_OPNBALSLN_OPNHBUDLN_OPNDBUDLN_OPNHGRPLN_OPNDGRPGM_MAIN DGU_MANT IDG_DSPPRC G_OPNFL NTGF_GLACNTFGF_GLBALSFGF_GLHBUDFGF_GLDBUDFA_GLACNT PG_DSPALT DA_GLHBUD D_RETFD TU_CHKPV DGGC_USERID GC_COMPID LM_GLBUDG SCREEN SLP_SELECT LP_FORWARDLP_BACK LP_EDTHDR LP_EDTDET LP_IMPBDG LP_EXPBDG LP_DELETE LP_EXIT LW_GLBDG1 LW_GLBDG2 LW_CTRLS GC_ADRVPRGG_DSPST GN_MSGLINEGC_APPLID L_PRMBDG GK_ESC A_GLBALS SA_GLDBUD DA_GLHGRP PA_GLDGRP TYPE("lc_padname") = "C" LP_EXIT LP_FORWARD End of file. GLBDG1.SPR LP_BACK Beginning of file. GLBDG1.SPR LP_EXIT LP_SELECT Enter Budget Code and Year, <F2> to list, <Esc> to cancel GLBDG1.SPR GLBDG1.SPR GLBDG1.SPR LP_DELETE Are you sure you want to delete F for Delete Cancel Budget Headere a_gldbud5 a_gldbud Budget Detail Budget Header / GLBDG1.SPR LP_EDTHDR Budget Header e Budget Header / LP_EDTDET Budget Header e Budget Header / LP_IMPBDG LP_EXPBDG Maintain Budgets LC_PADNAMEGN_TRACE E_TRACE CTGL_ASSERT E_ASSRT ENLN_HRECNO LN_READKEYGK_ESC LM_GLBUDG LC_PAD LG_CHKRC MEL_INTHDR GG_DSPALT TGC_ADRVPRGLL_INMENU G_DSPST MEGN_MSGLINELL_BSELECTFC_BCODE YLL_BNEW RGL_EDTHDR DG_GETDLG EFC_BYEAR TA_GLHBUD FG_LCKOB FGN_RETRY FG_LCKFL DFA_GLDBUD PYEARPRD DBCODE L_EDTDET EL_IMPBDG EL_EXPBDG EGC_APPLID GC_COMPID GC_USERID a_gldbud GN_TRACE EE_TRACE FC_BCODE TA_GLHBUD BCODE ENFC_BYEAR BYEAR YFC_BDESC BDESC FC_COMMENTCOMMENT Cancel Save Changes Edit Changes Cancel Changes Enter budget header information or <Esc> to cancel GLBDG1.SPR SECFFF a_glhbud5 a_glhbud Budget Header User F has already added Budget for a_glhbudV a_glhbud Budget Header GLBDG1.SPR a_gldbud Add budget detail? Add detail Cancel GLBDG1.SPR GN_TRACE EE_TRACE LC_CHOICE LL_DUP LA_PAD ENLA_PRMPT LW_CTRLS YG_DSPCH G_DSPST GN_MSGLINEGC_APPLID GC_COMPID GC_USERID LL_BEDIT GGC_ADRVPRGG_GETCH GK_ESC INELW_GLBDG1 LL_BNEW G_LCKFL RGGN_RETRY DA_GLHBUD EFC_BCODE TFC_BYEAR FBCODE FBYEAR FADDUSER FADDDATE ADDTIME DG_DSPALT G_LCKRC EBDESC EFC_BDESC ECOMMENT FC_COMMENTG_GETDLG GL_ADDDET LN_HRECNO L_INTHDR No budget detail found for F for Add detail Cancel GLACNT GLACNT GLACNT GLDESC Enter Account Code, <F2> to list, <Esc> to cancel GLBDG2.SPR FBSDC bcode3 glacnt1 bcode1 FBSRDC GLBDG2.SPR Reference Cancel Save Changes Edit Changes Select Reference Cancel Changes Enter amounts, <Ctrl-F > for reference, <Ctrl-PgDn> to fill down CTRL+RIGHTARROW DO l_edtref CTRL+PGDN DO l_fildwn WITH VARREAD() GLBDG2.SPR CTRL+RIGHTARROW CTRL+PGDN Select Forward Reference Delete E\<xit Select account Skip forward to next account Skip back to previous account Edit Changes Select Reference Delete budget detail AFBERDXF Reference Cancel Save Changes Edit Changes Select Reference Cancel Changes SERCF bcode4 bcode + LEFT(yearprd, 4) = fc_bcode + fc_byear a_glacnt End of accounts for F for bcode1 bcode4 bcode + LEFT(yearprd, 4) = fc_bcode + fc_byear a_glacnt Beginning of accounts for F for bcode1 a_gldbud5 a_gldbud Budget Detail Saving Budget Detail bcode3 @L ##c @L ##c bcode1 Reference type? Budget Actual Cancel GLHBUD Select Reference Budget No budget detail found for F for Reenter Cancel bcode4 GLDBUD Select Reference Account for F bcode1 bcode3 bcode1 yearprd1 GLBALS Select Reference Account glacnt1 Actuals glacnt1 Are you sure you want to delete account F from for Delete Cancel a_gldbud Budget Detail bcode3 bcode1 bcode1 GN_TRACE EE_TRACE LL_DSELECTLL_DEDIT LL_RSELECTLL_REDIT LN_PERIOD LC_GLACNT LC_GLDESC LN_READKEYLC_CHOICE LN_RESP LN_RECNO LC_RCODE GLC_RYEAR GLC_RACNT LC_RGLDESCLL_CHANGEDLN_DEFPAD LA_BDG RGLA_ACT DLA_REF1 ELA_REF2 TA_GLDBUD FFC_BCODE FFC_BYEAR FG_GETDLG FL_ADDDET D_RETFD GN_FCPRDS G_DSPST GN_MSGLINEGC_APPLID GC_COMPID GC_USERID GC_ADRVPRGBCODE3 BCODE GLACNT YEARPRD RGBAMNT A_GLBALS GLACNT1 PTDDR PTDCR BCODE1 LA_XBDG LA_PAD PRGLA_PRMPT GLW_CTRLS G_DSPCH NECTRL RIGHTARROWPGDN GK_ESC DG_GETCH BCODE4 G_CHKRC A_GLACNT GLDESC RDG_DSPALT DG_LCKFL GN_RETRY G_DSPPRC EADDUSER ADDDATE ADDTIME A_GLHBUD G_LSTRC FBYEAR DYEARPRD1 GC_OSEOL LW_GLBDG2 <Ctrl-F > to transfer amounts, <Esc> to cancel CTRL+PGDN CTRL+RIGHTARROW CTRL+LEFTARROW KEYBOARD CHR(gk_ctlend) PLAIN GLBDG2.SPR CTRL+LEFTARROW CTRL+RIGHTARROW DO l_edtref CTRL+PGDN DO l_fildwn WITH VARREAD() Enter amounts, <Ctrl-F > for reference, <Ctrl-PgDn> to fill down GN_TRACE EE_TRACE G_DSPST CTGN_MSGLINEGC_APPLID GC_COMPID GC_USERID LL_DEDIT LL_REDIT ADKEYPGDN RIGHTARROWLEFTARROW GK_CTLEND GK_ESC GGC_ADRVPRGLN_READKEYLN_PERIOD GN_FCPRDS LA_REF2 RGLA_BDG LA_REF1 Copy detail from existing Budget, create from an account Group or for All accounts, or copy from a Spreadsheet file? Budget Group Spreadsheet Set budget amounts to actual amounts or zero? Actual yearprd1 Enter year for actual amounts or <Esc> to cancel Year for actual amounts Invalid year. Please reenter. No account balances found for Reenter Cancel glacnt1 Maintain Budgets a_glhgrp// grpcode a_gldgrp// grpcode1 No account groups on file. Include all accounts? Cancel GLHGRP Select Account Group Copy actual amounts for account group F Proceed Cancel a_gldbud Budget Detail Searching Account Balances file for selected accounts Adding budget detail to F for Adding budget detail for account F No account balances found for group F for Copy actual amounts for all accounts? Proceed Cancel a_gldbud Budget Detail Searching Account Balances file for selected accounts Adding budget detail to F for Adding budget detail for account F No account balances found for glacnt1 GLHBUD bcode + byear <> fc_bcode + fc_byear Select Reference Budget No other budgets on file. Copy from F for Proceed Cancel Adding budget detail to F for a_tmpf1e/ a_gldbud Budget Detail a_glhgrp// grpcode a_gldgrp// grpcode1 No account groups on file. Include all accounts? Cancel GLHGRP Select Account Group Set up budget using account group F Proceed Cancel a_gldbud Budget Detail Adding budget detail to F for Adding budget detail for account F @L ##c Add budget detail for all accounts? Proceed Cancel a_gldbud Budget Detail Adding budget detail to F for Adding budget detail for account F @L ##c GN_TRACE EE_TRACE LC_ALIAS TLN_SRECNO LN_RESP LN_PERIOD LN_RECNO LC_YEAR LL_FIRSTRCLC_XACNT YLN_AMTS G_GETDLG GC_OSEOL A_GLBALS YEARPRD1 GG_DSPST GGN_MSGLINEGC_APPLID GC_COMPID GC_USERID LW_YEAR FC_BYEAR GK_ESC G_DSPALT FGLACNT1 FLN_OPNHGRPG_OPNFL FGF_GLHGRPFLN_OPNDGRPGF_GLDGRPFA_GLHGRP G_LSTRC EGRPCODE G_LCKFL GN_RETRY G_DSPPRC GA_GLDGRP CGN_ACCTLENGC_ACCTPICGLACNT GYEARPRD GN_FCPRDS FC_BCODE CA_GLDBUD BCODE BAMNT PTDDR PTDCR GADDUSER GADDDATE ADDTIME NEA_GLACNT CA_GLHBUD CBYEAR GC_IDRVTMPGC_TMPF1 PA_TMPF1 GC_EXTDBF L_IMPBDG a_sydfld a_gldbud No budget detail found for F for Name Spreadsheet File, <Esc> to cancel files must have no extension. files must have the extension. Reenter Cancel sydflds a_sydfld// tablid1 is an SBT database filename. Reenter Cancel File already exists. Reenter Overwrite Cancel Not able to access file Reenter Cancel No spreadsheet file named. a_sydfld Export F for Proceed Cancel Creating Export File F Creating file FF BUDGET GLDBUD BCODE GLDBUD BCODE GLDBUD BCODE ACCOUNT GLDBUD BAMNT GLDBUD BAMNT @L ##c a_tmpf1e/ bcode3 Exporting Budget Detail to file F Exporting amounts for account F a_glacnt REPLACE &lc_fldname. WITH a_gldbud->bamnt ln_error = ERROR() EXPORT TO (lc_nfile) TYPE &lc_exptype. Not able to create file FF bcode1 Maintain Budgets GN_TRACE EE_TRACE LL_CONT TLN_RESP LC_DRIVE LC_PATH LC_XFILE LN_OPNFLDSLC_FNAME CLN_FHANDLELN_AMTLEN LN_AMTDEC LC_XACNT LC_FLDNAMELC_NFILE GLL_ONERR GLN_ERROR ELC_EXPDESCLC_EXPEXTNLC_EXPTYPELC_XEXTN LC_XNAME LC_MSG LC_BFILE FFC_BCODE SFC_BYEAR PG_DSPALT FL_SELFMT FG_DSPST PEGN_MSGLINEGC_APPLID GC_COMPID GC_USERID GC_ADRVDBFGC_OSCHR NGC_OSEOL CG_GETDLG NGC_EXTDBF G_OPNFL DSGC_IDRVDBFTABLID A_SYDFLD SG_DSPPRC CLA_TMP GN_FCPRDS D_RETFD GN_ACCTLENLN_PERIOD GC_IDRVTMPGC_TMPF1 A_GLDBUD PBCODE3 CYEARPRD CBCODE GC_ACCTPICA_TMPF1 GLACNT PBUDGET ACCOUNT A_GLACNT GLDESC GL_ONERR E_SETER BCODE1 A_GLHBUD a_sydfld Select Spreadsheet File, <Esc> to cancel files must have no extension. files must have the extension. Reenter Cancel sydflds a_sydfld// tablid1 is an SBT database filename. Reenter Cancel ln_error = ERROR() a_budget is not a database file. Reenter Cancel Converting file to database file. ln_error = ERROR() IMPORT FROM (lc_nfile) TYPE &lc_exptype. Not able to import file Reenter Cancel a_tmpf1e/ REPLACE field_name WITH a_import->&lc_fldname. a_budgete/ APPEND FROM (lc_nfile) TYPE &lc_exptype. No spreadsheet file selected. a_sydfld Maintain Budgets BUDGET ACCOUNT BUDGET ACCOUNT @L ##c Database file structure for F is not valid. a_gldbud Detail already exists for F for Replace Merge Accumulate Cancel a_gldbud6 Replace F for with Import amounts from file FF for Merge FF into for Add amounts in file FF for Proceed Cancel Importing Budget Detail to F for a_gldbud Budget Detail bcode3 a_glacnt Importing amounts for account F @L ##c @L ##c REPLACE bcode WITH fc_bcode, glacnt WITH a_budget->account, yearprd WITH fc_byear + TRANSFORM(ln_period, "@L ##"), bamnt WITH bamnt + a_budget->&lc_fldname. REPLACE bcode WITH fc_bcode, glacnt WITH a_budget->account, yearprd WITH fc_byear + TRANSFORM(ln_period, "@L ##"), bamnt WITH a_budget->&lc_fldname. bcode1 Maintain Budgets a_budget GN_TRACE EE_TRACE LL_CONT TLN_RESP LN_OPNFLDSLC_DRIVE LC_PATH LC_XFILE SLC_FNAME CLL_ONERR ELN_ERROR LN_RCOUNT LC_MSG LC_FLDNAMELC_EXPDESCLC_EXPEXTNLC_EXPTYPELC_XEXTN CLC_XNAME NLC_NFILE ELC_BFILE L_SELFMT SG_DSPST PEGN_MSGLINEGC_APPLID GC_COMPID GC_USERID GC_ADRVDBFGC_OSCHR CGC_OSEOL CG_GETDLG NGC_EXTDBF G_OPNFL DSGC_IDRVDBFTABLID NGL_ONERR CE_SETER NA_BUDGET G_DSPPRC SGC_IDRVTMPA_IMPORT PGC_TMPF1 PA_TMPF1 MEFIELD_NAMEFIELD_TYPEFIELD_DEC GC_TMPF2 PG_DSPALT A_SYDFLD SLA_TMP LN_PERIOD GN_FCPRDS FC_BCODE EFC_BYEAR A_GLDBUD CG_LCKFL GN_RETRY PBCODE YEARPRD BCODE3 ACCOUNT GC_ACCTPICGLACNT ADDUSER ADDDATE ADDTIME BCODE1 A_GLHBUD TYPE("lc_element") = "C" LA_BDG( LC_ELEMENTGN_TRACE E_TRACE TGL_ASSERT E_ASSRT DSLC_ENUM LN_ENUM LN_PERIOD GN_FCPRDS LA_BDG Invalid year. Please reenter. for not found. Reenter GLHBUD Select Budget GN_TRACE TE_TRACE LN_RETURN LN_RESP LL_CONT DSLN_RECNO LL_EDIT FC_BCODE FC_BYEAR G_DSPALT EG_GETDLG L_INTHDR LL_BSELECTG_LSTRC ELL_BNEW a_glacnt Invalid account. Please reenter. bcode4 bcode1 Account F for not found. Reenter a_glacnt bcode4 GLDBUD Select Account bcode1 a_gldbud Budget Detail @L ##c GN_TRACE TE_TRACE LN_RETURN LN_RESP LL_CONT DSLN_RECNO LL_EDIT LC_GLACNT G_DSPALT BCODE4 A_GLDBUD FC_BCODE FC_BYEAR TBCODE1 G_GETDLG LC_GLDESC A_GLACNT EGLDESC CLL_DSELECTGLACNT EG_LSTRC G_LCKFL GN_RETRY ELN_PERIOD GN_FCPRDS BCODE YEARPRD BAMNT ADDUSER CGC_USERID ADDDATE NADDTIME la_bdg la_act la_ref1 LC_ANAME TGN_TRACE E_TRACE LN_ATOTAL LN_PERIOD GN_FCPRDS LA_BDG LA_ACT LA_REF1 Select Spreadsheet File Format: Select file format or <Esc> to cancel... Format \<Database. MOD Microsoft's Multi\<plan version 4.01. WK1 \<Lotus 1-2-3 spreadsheet revision 2.x. WKS L\<otus 1-2-3 spreadsheet revision 3.x. WR1 Lo\<tus Symphony spreadsheet version 1.01. WRK Lot\<us Symphony spreadsheet version 1.10. XLS \<Excel spreadsheet version 2. DEACTIVATE POPUP Database Data Interchange Format (VisiCalc) Microsoft's Multiplan version 4.01 SYmbolic LinK interchange (Multiplan) Lotus 1-2-3 revision 2.x Lotus 1-2-3 revision 3.x Lotus Symphony version 1.01 Lotus Symphony version 1.10 Excel version 2 GN_TRACE TE_TRACE LW_SELFF LU_SELFF GC_EXTDBF LC_EXPDESCLC_EXPEXTNLC_EXPTYPEL_PRMBDG L_INTHDR L_EDTHDR L_EDTDET L_EDTREF L_ADDDET L_EXPBDG L_IMPBDG L_FILDWN L_VLDBDG L_VLDACT L_TOTAMT L_SELFMT C:\GLDISK\ C:\GLDISK\GLBDG1.PRG GLBDG1.FXP