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

Wrap

MS Visual FoxPro App | 1993-02-11 | 39KB | 972 lines

TYPE("lc_trnmode") = "C" CREATE Edit unposted batch Create journal batch8 a_glacnt// glacnt a_glhunp// batchno1 a_gldunp// batchno1 a_glbtch// batchno UHOEA sychfis a_sychfi// compid1 sycdfis a_sycdfi// compid1 @M Normal ,Statistical ,Beginning Balance @M Normal ,Statistical lw_batch GLPOST02 F$Fb/ GLVOID01 F$Fb/ \<Select \<Edit a_glbtch, a_glbtch \<Forward \<Back \<Void a_glbtch, a_glbtch E\<ntries a_glbtch, a_glbtch \<Review a_glbtch, a_glbtch \<Print a_glbtch, a_glbtch E\<xit DO l_mnu WITH PAD() \<Add \<Edit a_glbtch, \<Void a_glbtch, E\<ntries a_glbtch, a_glbtch \<Review a_glbtch, a_glbtch \<Print a_glbtch, P\<ost a_glbtch, E\<xit DO l_mnu WITH PAD() lp_trans lp_trans UNPOSTED EMPTY APPROVED HOLD OUT OF BALANCE POSTED CANCELLED DELETED RECLASSIFIED 888888888 Beginning Balance Normal Comparative Year Statistical Subledger Conversion 888888 lw_batch lp_exit LC_TRNMODEGN_TRACE E_TRACE NTGL_ASSERT E_ASSRT ELN_OPNFLHFLC_BATCHNOLC_BTYPE LL_INMENU LN_OPNFLB LN_SRECNO LN_OPNFLDFLC_HEAD LC_BSTAT LN_BATSEQ LC_FOOTER LN_LASTOBJLN_PROCESSLC_PAD OLC_BATSEQ LD_BDATE LL_ENDBTCHLL_EDIT RGLD_EDATE LL_SELECT LL_EDITBATLW_BATCH HLC_HOLD LN_CURBOBJLN_OPNFLHULN_OPNFLDULL_NEWBAT LC_STATMSGLL_BEGBAL LL_FRSTFLDLC_TYPESTRLN_OPNFLACLM_GLBTCH LL_GLPOST LL_GLVOID FC_BATCHNOFC_BDESC TFC_POSTPRDFC_POSTYR FC_BREF EFC_LOWSEQ FC_UPPSEQ FC_BTYPE SFC_BSTAT FN_CTRLTOTFN_DRTOTALFC_STSUSERFD_STSDATEFC_STSTIMEFC_ADDUSERFN_CRTOTALFD_ADDDATEFC_ADDTIMELL_BCANCL GM_MAIN GU_TRAN NOLA_LASTNEWG_DSPST GC_TASK GN_MSGLINEG_OPNFL ACGF_GLACNTFGF_GLHUNPFGF_GLDUNPFGF_GLBTCHFA_GLBTCH TBSTAT EBATCHNO NOGC_IDRVDBFA_SYCHFI HCOMPID SSGC_COMPID A_SYCDFI FG_SETSYS GC_APPLID A_SYSDAT GLINEG_PNTBG RGS_219 PRGU_CHKPV GC_USERID LP_SELECT LP_EDIT BTYPE OLCKSTAT GLP_FWD LP_BACK LP_DELETE LP_TRANS LP_REVIEW LP_PRINT OLP_EXIT OLP_ADD LP_POST WYEARPRD DBDESC TLOWSEQ UPPSEQ ADDUSER RL_BATCH ATGK_ESC L_BEXIT a_glbtch, Batch control total does not equal total debits/credits! UNPOSTED EMPTY APPROVED HOLD OUT OF BALANCE POSTED CANCELLED DELETED RECLASSIFIED 888888888 Beginning Balance Normal Comparative Year Statistical Subledger Conversion 888888 GN_TRACE EE_TRACE A_GLBTCH TFC_BATCHNOLL_EDITBATBATCHNO FFC_POSTPRDYEARPRD TFC_POSTYR FC_BDESC TBDESC TFC_BREF FBREF TFC_LOWSEQ LOWSEQ TFC_UPPSEQ UPPSEQ TFC_BTYPE SBTYPE TFC_BSTAT BSTAT TFN_CTRLTOTCTRLTOT TFN_DRTOTALDRTOTAL TFN_CRTOTALCRTOTAL TFD_ADDDATEADDDATE TFC_ADDUSERADDUSER TFC_ADDTIMEADDTIME TGL_REQCTOTLC_FOOTER LC_HOLD LC_BSTAT CLC_BTYPE Entered by Batch control total does not equal total debits/credits! UNPOSTED EMPTY APPROVED HOLD OUT OF BALANCE POSTED CANCELLED DELETED RECLASSIFIED 888888888 Beginning Balance Normal Comparative Year Statistical Subledger Conversion 888888 glbtch.spr Do you want to Cancel this batch? lp_trans GN_TRACE EE_TRACE LN_RESP TLL_GETLOOPA_GLBTCH TFC_BATCHNOBATCHNO DFC_POSTPRDLL_EDITBATLL_NEWBAT YEARPRD TGC_FCPRD FFC_POSTYR GC_FCYR FC_BREF TBREF FC_LOWSEQ LOWSEQ SFC_UPPSEQ UPPSEQ FC_BTYPE TBTYPE FC_BSTAT TBSTAT FN_CTRLTOTCTRLTOT LFN_DRTOTALDRTOTAL EFN_CRTOTALCRTOTAL RFD_ADDDATEADDDATE FC_ADDUSERADDUSER GC_USERID FC_ADDTIMEFC_BDESC BDESC EGL_REQCTOTLC_FOOTER LC_HOLD LC_BSTAT PLC_BTYPE DLL_EDIT LL_FRSTFLDGC_ADRVPRGL_BSAVE GK_ESC SG_GETDLG L_VBREAD TL_BCANCL LLC_PAD BATLM_GLBTCH LP_TRANS TYPE("lc_padname") = "C" LP_EXIT LP_FWD glbtch.spr End of file reached. LP_BACK glbtch.spr Beginning of file reached. LP_SELECT LP_REVIEW a_glbtchV a_glbtch Batch A user at another station has voided this batch. <PgUp/PgDn> to review entries, or <Esc> return to menu lw_brow1 ENTER KEYBOARD CHR(gk_ctlend) PLAIN BROWSE FREEZE glseqno FIELDS glseqno :H="Tran #" :6, glacnt :P=gc_acctpic :H=gc_accthdr &lc_acctlen, acntdesc=IIF(SEEK(a_gldunp->glacnt,"a_glacnt"), IIF(credit," ","")+a_glacnt->gldesc,"") :H=SPACE((79 - gn_acctlen - 42)/2) + "Description" &lc_desclen, amnt =IIF(credit, (glcamnt * -1), gldamnt) :15 :H=" Dr(+) Cr(-) " NOCLEAR NOEDIT NODELETE NOMENU TITLE "Review Journal Transactions in Batch #" + fc_batchno IN WINDOW lw_brow1 COLOR SCHEME 1 ENTER LP_DELETE a_glbtchV a_glbtch Batch A user at another station has voided this batch. Void Batch # Cancel Batch e FILTERz Releasing batch record / SET FILTER TO &lc_filt. CREATE CREATE CREATE glbtch.spr lp_select lp_add LP_TRANS a_glbtchV a_glbtch Batch A user at another station has voided this batch. a_sycdfi Posting period not found in SYCDFIS.DBF. Transaction entry prohibited! Batch e gltran Releasing batch record / Unable to release object lock on Batch Batch was locked by Batch control total does not equal total debits/credits! ECDPAR glbtch.spr lp_add glbtch.spr lp_trans LP_ADD LP_EDIT a_glbtchV a_glbtch Batch A user at another station has voided this batch. Batch e Releasing batch record / Batch control total does not equal total debits/credits! glbtch.spr glbtch.spr lp_trans LP_PRINT a_glbtchV a_glbtch Batch A user at another station has voided this batch. Print or display Edit List for Batch #F Print Display Cancel ll_cont2 = g_cncjob("") GLACNT INTO A_GLACNTF RELATIONz BATCHNO + GLSEQNO INTO A_GLHUNPF RELATIONz BATCHNO INTO A_GLBTCHF RELATIONz Unposted General Ledger Transaction Edit List gledit a_gldunp->batchno = fc_batchno .AND. .NOT. DELETED() a_glbtchV a_glbtch Batch Status LP_POST a_glbtchV a_glbtch Batch A user at another station has voided this batch. Post this batch? E\<xit glpost BATCH glbtch.spr LC_PADNAMEGN_TRACE E_TRACE TGL_ASSERT E_ASSRT TLN_RESP NOLN_DESCLENLC_DESCLENLC_ACCTLENLL_OLDEDITLN_ERRORS LC_OLDAREALN_TRNCNT LC_FILT LC_SALIAS LC_BTHSTATLL_CONT LL_CONT2 SLM_GLBTCH LW_BATCH LL_INMENU L_BEXIT A_GLBTCH EG_CHKRC L_INITBV TGC_ADRVPRGLP_BACK ALLP_FWD G_DSPALT L_BATCH MELP_TRANS G_LCKRC MEGN_RETRY RBSTAT TGC_OSEOL TL_RESET MEG_DSPST GN_MSGLINELW_BROW1 TA_GLDUNP BATCHNO FC_BATCHNOGN_ACCTLENENTER CLENLL_HOTKEY GL_HOTKEY LC_STATMSGG_GETDLG TG_LCKOB L_BDELDT TL_BWRTHD LL_BWRTBC TLC_TRNMODELA_LASTNEWFC_POSTPRDGC_FCPRD LFC_POSTYR GC_FCYR MEFC_BREF FC_LOWSEQ LOWSEQ WFC_UPPSEQ UPPSEQ FC_BTYPE EFC_BSTAT CFN_CTRLTOTFN_DRTOTALFN_CRTOTALFC_BDESC FBDESC TLC_FOOTER LC_HOLD NOLL_EDITBATLC_PAD BATLP_SELECT LP_ADD GC_COMPID G_DSPAL RDA_SYCDFI LD_BDATE BDATE ELD_EDATE REDATE GLCKUSER OLCKTIME LCKDATE GL_REQCTOTCTRLTOT ODRTOTAL GCRTOTAL L_GETBCH LL_BCANCL LN_RECNO LL_PRNT LL_DISP OC_SELPR OGC_IDRVTMPGC_TMPF5 WGC_EXTTXT GLACNT HNOA_GLACNT TGLSEQNO A_GLHUNP STATUS HNOLC_TITLE OLC_FRMFILELC_COND RGLC_FOR TG_PRNRP G_DSPRP ALGK_ESC LL_LOCK NOEDTUSER GC_USERID EDTTIME EDTDATE GC_TASK LP_EXIT Releasing batch record / CREATE CREATE CREATE glbtch.spr GN_TRACE EE_TRACE A_GLBTCH TG_LCKOB GN_RETRY TBSTAT NOLOWSEQ LENUPPSEQ LENBTYPE TLENSTSUSER ITGC_USERID STSTIME EASTSDATE CTRLTOT LL_BCANCL LC_TRNMODELA_LASTNEWFC_BATCHNOBATCHNO OFC_POSTPRDGC_FCPRD FC_POSTYR GC_FCYR EFC_BREF TFC_LOWSEQ FC_UPPSEQ FC_BTYPE FC_BSTAT FN_CTRLTOTFN_DRTOTALFN_CRTOTALFC_BDESC RBDESC TLC_FOOTER LC_HOLD MELL_EDITBATL_INITBV TGC_ADRVPRG a_glbtchV a_glbtch Batch Status GN_TRACE EE_TRACE A_GLBTCH TLL_LOCK G_LCKRC TBSTAT NOFC_BSTAT NYEARPRD ENFC_POSTYR FC_POSTPRDBDESC FC_BDESC ABREF FC_BREF LOWSEQ FC_LOWSEQ UPPSEQ NEWFC_UPPSEQ BTYPE OFC_BTYPE DSTSUSER GC_USERID STSTIME ESTSDATE CTRLTOT TFN_CTRLTOT Posting period must be between 01 and FF Caution: Not current period. Proceed Reenter GN_TRACE EE_TRACE LL_RETURN LN_RESP LL_FRSTFLDFC_POSTPRDGN_FCPRDS G_DSPAL ENGC_FCPRD DG_GETDLG Normal Beginning Balance Normal Comparative Year Statistical Subledger Conversion 888888 GN_TRACE EE_TRACE LL_RETURN LN_READKEYLL_FRSTFLDFC_BTYPE DLC_BTYPE GN_TRACE EE_TRACE LN_READKEYLL_RETURN LL_FRSTFLDGK_LFT KEYGK_UP LN_LASTOBJ{ HOLD EMPTY UNPOSTED EMPTY APPROVED HOLD OUT OF BALANCE POSTED CANCELLED DELETED RECLASSIFIED 888888888 EMPTY GN_TRACE EE_TRACE LL_FRSTFLDLC_HOLD FC_BSTAT DLC_BSTAT YLL_EDITBATA_GLBTCH JBSTAT Control total required! GN_TRACE EE_TRACE LL_RETURN LL_FRSTFLDGL_REQCTOTFN_CTRLTOTG_DSPAL ATLN_LASTOBJ a_sycdfi Invalid period and year! Posting prohibited! Period is locked. Post to FF previous future8 year? Proceed Reenter The year must be FF , or GN_TRACE EE_TRACE LL_RETURN LN_RESP LDLL_FRSTFLDFC_POSTYR GC_FCYR GC_COMPID FC_POSTPRDG_DSPAL DA_SYCDFI DPLOCKED APERMLCK G_GETDLG A_GLBTCH a_glbtch GN_TRACE EE_TRACE LL_EDITBATLL_INMENU LL_GETLOOPLM_GLBTCH LW_BATCH LA_BTYPE A_GLBTCH DLN_OPNFLHFA_SYCHFI DLN_OPNFLDFA_SYCDFI LN_OPNFLB LN_OPNFLACA_GLACNT LN_OPNFLHUA_GLHUNP LN_OPNFLDUA_GLDUNP DGM_MAIN TYPE("lc_chore") = "C" LP_BEXIT @L 999999c FILTERz a_glbtch a_sysdatV a_sysdat System Data a_glbtch5 a_glbtch Batch Status a_glbtch @L 999999c @L 999999c SET FILTER TO &lc_xfilt. glbtch.spr Create Batch # Proceed E\<xit a_sysdatV a_sysdat System Data @L 999999c @L 999999c Batch No. is taken. New Batch No. assigned: a_glbtch5 a_glbtch GL Batch Status Batch e Releasing batch record / lp_trans glbtch.spr lp_exit Enter Batch Number, <F2> to list, or blank to cancel glbtch.spr Batch e Batch control total does not equal total debits/credits! Releasing batch record / This batch is not allowed to be edited because its status is Approved for Posting! Cancelled! Deleted! glbtch.spr Edit unposted batches LC_CHORE EGN_TRACE E_TRACE ATGL_ASSERT E_ASSRT OPLN_RETVAL LC_OLDBSEQLN_BTCHRECLL_CONT DLL_FWDBACKLC_NBATSEQLC_XFILT FLL_NEWBNUMGK_ESC ACKLC_PAD LACLM_GLBTCH A_SYSDAT ULN_BATSEQ ULC_BATSEQ A_GLBTCH G_LCKRC G_LCKFL EGC_ADRVPRGG_GETDLG G_DSPAL UMGN_RETRY BATCHNO BSTAT STSUSER OTGC_USERID STSDATE ALSTSTIME RADDUSER TADDDATE ADDTIME MEFC_BATCHNOFC_BDESC BDESC GLA_LASTNEWG_LCKOB NOLL_NEWBAT LL_EDITBATL_GETBCH NLP_TRANS LL_INMENU L_INITBV TLP_EXIT LN_CURBOBJG_DSPST ECGN_MSGLINEFC_POSTPRDGC_FCPRD EFC_POSTYR GC_FCYR RDFC_BREF LBREF FC_LOWSEQ LOWSEQ FC_UPPSEQ UPPSEQ FC_BTYPE WFC_BSTAT FN_CTRLTOTFN_DRTOTALFN_CRTOTALLC_FOOTER LC_HOLD ALLL_SELECT GL_REQCTOTCTRLTOT TDRTOTAL LP_BACK LP_FWD G_DSPALT OGC_OSEOL GC_APPLID GC_COMPID a_sycdfi Invalid period and year! Cancel Batch Reenter Batch Posting prohibited! Period is locked. Cancel Batch Reenter Batch Posting prohibited! Period is locked. Cancel Batch Proceed Invalid year! Cancel Batch Reenter Batch Invalid year! Cancel Batch Proceed Control total required! Cancel Batch Reenter Batch The posting year and period must be F , which is the date of the initial Beginning Balance batch! Cancel Batch Reenter Batch FILTERz The posting year and period must be F , which is the date of the initial Beginning Balance batch! Cancel Batch Reenter Batch SET FILTER TO &lc_oldfilt GN_TRACE EE_TRACE LN_RESP ATLC_OLDAREALN_RECNO PLC_OLDFILTLC_BBYRPRDFC_POSTYR GC_FCYR GC_COMPID FC_POSTPRDG_GETDLG FGC_FCPRD DA_SYCDFI DPLOCKED CPERMLCK A_GLBTCH UBSTAT LN_CURBOBJGL_REQCTOTFN_CTRLTOTLL_EDITBATFC_BTYPE JA_SYSDAT GSYSID GC_APPLID DGC_OSEOL DBTYPE TBATCHNO TFC_BATCHNOYEARPRD GN_TRACE EE_TRACE LL_FRSTFLDFC_POSTPRDGC_FCPRD DFC_BSTAT TLC_BTYPE GN_TRACE EE_TRACE LL_FRSTFLDFC_POSTYR GC_FCYR FC_BSTAT GN_TRACE EE_TRACE LL_FRSTFLDFC_BSTAT LC_HOLD GN_TRACE EE_TRACE LN_VALID DLL_EDIT FC_BATCHNOLN_BTCHRECL_SELBNO Batch # not found. Reenter GLBTCH AT(a_glbtch->bstat,"UHOEA") > 0 Select Batch to Edit LC_FIELD EGN_TRACE E_TRACE DLN_RECNO LN_XRECNO LN_OLDAREALN_RESP LL_XSELECTLL_SELECT A_GLBTCH FC_BATCHNOG_GETDLG FG_LSTRC LN_BTCHREC a_glbtch, UNPOSTED EMPTY APPROVED HOLD OUT OF BALANCE POSTED CANCELLED DELETED RECLASSIFIED 888888888 Beginning Balance Normal Comparative Year Statistical Subledger Conversion 888888 GN_TRACE EE_TRACE FC_BATCHNOA_GLBTCH BATCHNO FC_POSTPRDYEARPRD FC_POSTYR FC_BREF FC_LOWSEQ LOWSEQ FFC_UPPSEQ UPPSEQ CFN_CTRLTOTCTRLTOT FN_DRTOTALDRTOTAL FN_CRTOTALCRTOTAL TFD_ADDDATEADDDATE TFC_ADDUSERADDUSER GFC_LCKUSERLCKUSER FC_BDESC DBDESC DBSTAT TLC_HOLD TLC_BSTAT OLC_BTYPE DBTYPE a_gldunp// batchno1 a_gldunp5 a_gldunp Unposted Detail GN_TRACE EE_TRACE LC_OLDAREALN_OPNFLDUG_OPNFL GF_GLDUNPFG_LCKFL FC_BATCHNOBATCHNO A_GLDUNP GN_TRACE EE_TRACE LC_OLDAREAA_GLBTCH ABSTAT STSUSER PFGC_USERID STSDATE NOSTSTIME a_glhunp// batchno1 a_glhunpV a_glhunp Unposted Entry Header GN_TRACE EE_TRACE LC_OLDAREALN_OPNFLHUG_OPNFL GF_GLHUNPFFC_BATCHNOBATCHNO NOG_LCKRC NOSTATUS REAGLREVRS EAREVPER FREVYEAR A_GLHUNP CREATE CREATE CREATE glbtch.spr lp_select lp_add GN_TRACE EE_TRACE LC_TRNMODELA_LASTNEWFC_BATCHNOA_GLBTCH WBATCHNO OFC_POSTPRDGC_FCPRD OFC_POSTYR GC_FCYR EAFC_BREF FBREF FC_LOWSEQ LOWSEQ AFC_UPPSEQ UPPSEQ LFC_BTYPE FC_BSTAT LBSTAT TFN_CTRLTOTFN_DRTOTALFN_CRTOTALFC_BDESC GBDESC RLC_FOOTER LC_HOLD DLL_EDITBATL_INITBV TGC_ADRVPRGLC_PAD BATLM_GLBTCH LP_SELECT LP_ADD L_INITBV L_GETBCH L_MNU L_BCANCL L_BSAVE L_VPSTPR L_WBTYPE L_VBREF L_VHOLD L_VCTOT L_VPSTYR L_BEXIT L_BATCH L_VBREAD L_WPOSTP L_WPOSTY L_WHOLD L_VBATCH L_SELBNO L_WBCHNO L_BDELDT L_BWRTBC L_BWRTHD L_RESET C:\GLDISK\ C:\GLDISK\GLBTCH.PRG GLBTCH.FXP