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
/
GLAUTO._XP
(
.txt
)
< prev
next >
Wrap
MS Visual FoxPro App
|
1993-02-11
|
64KB
|
1,352 lines
TYPE("lc_auttask") = "C"
Initializing variables
a_gltype//
gltype
a_glhaut//
auttype1
a_gldaut//
auttype1
a_glsegs//
segid1
a_gltype//
gltype
a_glacnt//
glacnt
a_glacnt,
Chart of Accounts has no accounts.
STANDARD
Standard
ALLOCATION
Allocation
Automatic Distribution
RECURRING
Recurring
Entry maintenance terminated.
TEMPLATE
Standard Entries Maintenance
RECURRING
Recurring Entries Maintenance
ALLOCATION
Allocation Entries Maintenance
Auto Distribution Entries Maintenance
TEMPLATE
Standard
RECURRING
Recurring
ALLOCATION
Allocation
Distribution
Setting up entry files
Initializing entry totals
Defining menus
lp_aselect
\<Select
\<Edit
a_glhaut,
a_glhaut
\<Delete
a_glhaut,
a_glhaut
\<Forward
a_glhaut,
a_glhaut
\<Back
a_glhaut,
a_glhaut
E\<xit
DO l_amnu WITH PAD()
Defining windows
lw_glaut5
TEMPLATE
lw_glaut1
RECURRING
lw_glaut2
ALLOCATION
lw_glaut3
lw_glaut4
TEMPLATE
RECURRING
ALLOCATION
TEMPLATE
ALLOCATION
Dollar
Percent
Dollar
ALLOCATION
Period(s)
lw_brow1
lw_totals
glaut1.spr
glaut2.spr
glaut5.spr
glaut3.spr
lw_glaut1
lw_glaut2
lw_glaut5
lw_glaut3
glaut
ACTIVATE WINDOW &lc_hwinobj
lw_glaut4
Standard Transaction Entries
Recurring Transaction Entries
Distribution Entries
Allocation Transaction Entries
ALLOCATION
BROWSE KEY fc_auttype + lc_autono FOR .NOT. DELETED() FREEZE glacnt FIELDS glacnt :P=gc_acctpic :H=gc_accthdr &lc_acctlen, acntdesc =IIF(SEEK(glacnt,"a_glacnt"), a_glacnt->gldesc,"") :H="Acct. Description" &lc_acctdes, gldamnt = IIF(credit, 0.00, ABS(glamnt)) :15 :P="############.##" :H=IIF(lc_auttask="DIST", "% to Distribute", "% to Allocate") NOWAIT NOCLEAR NODELETE NOMENU TITLE (lc_brtitle) IN WINDOW lw_brow1 COLOR SCHEME 1
BROWSE KEY fc_auttype + lc_autono FOR .NOT. DELETED() FREEZE glacnt FIELDS glacnt :P=gc_acctpic :H=gc_accthdr &lc_acctlen, acntdesc =IIF(SEEK(glacnt,"a_glacnt"), a_glacnt->gldesc,"") :H="Acct. Description" &lc_acctdes, gldamnt = IIF(credit, 0.00, ABS(glamnt)) :15 :P="############.##" :H=" Debit", glcamnt = IIF(credit, ABS(glamnt), 0.00) :15 :P="############.##" :H=" Credit" NOWAIT NOCLEAR NODELETE NOMENU TITLE (lc_brtitle) IN WINDOW lw_brow1 COLOR SCHEME 1
ACTIVATE WINDOW &lc_hwinobj
LP_AEXIT
LC_AUTTASKGN_TRACE
E_TRACE
GL_ASSERT
E_ASSRT
LC_AUTONO
LC_AUTBASELC_GLREFR
LC_GLTDES
LN_FREQ
LC_FRQUNITLD_NEXTDTELD_TERMDTELD_LASTDTELC_ALCACNTLC_GLACNT
LC_STATMSGLN_TCRTOT
LN_TRANCNTLN_TAMTREMLN_TDRTOT
LC_GLDESC
LN_GLDAMNTLN_GLCAMNTLC_ALCDESCLC_FRSTDTELC_REVERSELC_OLDBASELC_TERMDTELL_AEDIT
LL_ASELECTLL_CTRPGDNLL_TEDIT
LL_ANEW
LL_ADELETELL_EDITTRNLL_NEWTRN
LL_FIRSTEDLN_LASTOBJLN_CUROBJ
LN_ADDOBJ
LC_HSCROBJLC_HWINOBJLC_ACCTLENLN_ACCTDESLC_ACCTDESLC_BRTITLELL_INMENU
LC_ATASK
LL_OOB
LC_BTYPE
LC_XSTAT
LL_HEDIT
LL_FRSTFLDLL_CONTIN
LC_OBNO
LC_HANDLE
LC_EDMODE
LL_DUPAUTOLL_ESAVED
LL_OOBMSG
FC_AUTTYPEFC_FRQUNITFC_AUTBASELN_OPNFLHALN_OPNFLDALN_OPNFL
LN_OPNFLSELN_OPNFLTYGM_MAIN
GU_MANT
GU_MANT2
G_DSPPRC
G_OPNFL
TYGF_GLTYPEFGLTYPE
GF_GLHAUTFAUTTYPE
GF_GLDAUTFAUTONO
ASKA_GLHAUT
A_GLDAUT
GF_GLSEGSFGF_GLACNTFG_DSPALT
GC_OSEOL
L_AEXIT
SKG_DSPST
GN_MSGLINEGC_APPLID
GC_COMPID
GC_USERID
GLACNT
MA_GLACNT
LC_PAD
LM_GLAUTO
SCREEN
LP_ASELECTLP_AEDIT
LP_ADEL
LP_AFWD
LP_ABACK
LP_AEXIT
LW_GLAUT5
G_PNTBG
GS_219
LW_GLAUT1
LW_GLAUT2
LW_GLAUT3
LW_GLAUT4
GLREFR
GLTDES
LD_FRSTDTEGN_ACCTLENGC_ACCTPICGLDESC
CLW_BROW1
ELW_TOTALS
GC_ADRVPRGL_AMNU
SGK_ESC
TYPE("lc_padname") = "C"
LP_AEXIT
LP_AFWD
End of F
entries reached.
STUFF
ALLOCATION
glaut
LP_ABACK
Beginning of F
entries reached.
STUFF
ALLOCATION
glaut
LP_AEXIT
LP_ASELECT
Enter
Entry Code,
<F2> to list, <Esc> to cancel
BLANKS
ALLOCATION
glaut
STUFF
BLANKS
ALLOCATION
glaut
ALLOCATION
STUFF
BLANKS
ALLOCATION
glaut
STUFF
ALLOCATION
glaut
LP_ADEL
Do you really want to delete F
entry
Delete
Cancel
Automatic Entries Headere
a_gldaut5
a_gldaut
Automatic Entries Detail
Automatic Entries Header/
STUFF
BLANKS
glaut
LP_AEDIT
ACTIVATE WINDOW &lc_hwinobj TOP
LC_PADNAMEGN_TRACE
E_TRACE
GL_ASSERT
E_ASSRT
LN_RETVAL
LN_RESP
SELC_OLDTSEQLL_ADD
LC_DESCLENLN_DESCLENLL_ADDONE
LL_EDITONELC_EPAD
TELN_REC
CNTLN_READKEYLL_SAVED
GLL_CONT
GK_ESC
ELC_PAD
REMLM_GLAUTO
A_GLHAUT
EG_CHKRC
TLC_AUTONO
AUTONO
CLP_ABACK
EG_DSPALT
LC_ATASK
ELP_AFWD
TEA_GLDAUT
LN_TRANCNTL_INITAVR
LC_AUTTASKL_CHKOBJ
GC_ADRVPRGLC_HSCROBJLC_BRTITLEL_CLRBRW
DLC_OBNO
RGLL_INMENU
L_AEXIT
AUTTYPE
EFC_AUTTYPEG_DSPST
ENGN_MSGLINELL_ASELECTLL_ANEW
RGL_CRETMP
L_ADDREC
L_ADDNEW
KLP_ASELECTLP_AEDIT
LC_STATMSGGC_APPLID
GC_COMPID
GC_USERID
G_GETDLG
EG_LCKOB
GN_RETRY
OG_LCKFL
L_EDTMNU
GN_TRACE
EE_TRACE
A_GLHEAD
AUTTYPE
FC_AUTTYPEAUTONO
LC_AUTONO
ADDUSER
EQGC_USERID
ADDDATE
ENADDTIME
BLANKS
ALLOCATION
glaut
ACTIVATE WINDOW &lc_hwinobj
Enter F
entry header
information. <Esc> to cancel
CTRL+PGDN
BACKTAB
CTRL+Y
DO g_stfqs
Cancel entry?
Cancel
Proceed
a_gldetl
a_glhead
CTRL+PGDN
BACKTAB
CTRL+Y
DO g_stfqs
entry
will be
cancelled
because it has no
entries! Reenter or cancel?
Reenter
Cancel
Credit
Debit8
percentage(s) must total 100.00%.
Edit or cancel?
Cancel
Equal debits and credits not allowed.
Edit or cancel?
Cancel
Percentage(s) must total 100.00%.
Edit or cancel?
Cancel
\<Edit
\<Cancel
Edit F
entry
Cancel F
entry
ACTIVATE WINDOW &lc_hwinobj.
ECFFF
\<Save
\<Edit
\<Cancel
Save F
entry
Edit F
entry
Cancel F
entry
ACTIVATE WINDOW &lc_hwinobj.
SECFFF
Saving F
entry
STUFF
glaut
a_gldetl
a_glhead
Do you really want to Cancel this F
entry?
Cancel
Resume
Cancelling/Deleting F
Standard
Recurring
Allocation 88
a_gldetl
a_glhead
GN_TRACE
EE_TRACE
LL_LOOP
LN_RESP
LN_RESP2
ELL_MNULOOPLN_RETVAL
LN_READKEYLL_CANCELDLN_PADNO
NLL_EDITHDRLL_EDITDTLLC_CHOICE
LL_RETURN
L_INITAVR
LC_AUTTASKL_CHKOBJ
GGC_ADRVPRGLC_HSCROBJL_CLRBRW
MLC_OBNO
RGLN_CUROBJ
G_DSPST
TLC_ATASK
GN_MSGLINEGC_APPLID
GC_COMPID
GC_USERID
L_NEWHDR
ECTRL
ANCNTTAB
ITAVR
BACKTAB
ADRVPRGG_GETDLG
YA_GLDETL
EA_GLHEAD
DAUTONO
LC_AUTONO
GLREFR
LC_GLREFR
GLTDES
YPELC_GLTDES
AUTTYPE
NEFC_AUTTYPEAUTBASE
RGFC_AUTBASEFRSTDTE
LD_NEXTDTENEXTDTE
CTLASTDTE
TELD_LASTDTETERMDTE
LD_TERMDTEFREQ
LN_FREQ
EFRQUNIT
FC_FRQUNITREVERSE
LC_REVERSEUSED
ALCACNT
ITLC_ALCACNTL_NEWDTL
LGLAMNT
ELN_TRANCNTGC_OSEOL
LN_TCRTOT
LN_TDRTOT
L_EDTMNU
LL_ESAVED
LL_OOB
YPELA_PAD
OOPLA_PRMPT
FG_GETCH
GK_ESC
UTFL_WRTHED
LL_DUPAUTOL_WRTDET
KLM_GLAUTO
LP_ASELECT
TYPE("ln_curobj") = "N"
ln_curobjf
LN_CUROBJ
GN_TRACE
E_TRACE
GL_ASSERT
E_ASSRT
ELN_OBJECT
A_GLHEAD
LL_AEDIT
YLL_FRSTFLDGC_ADRVPRGLC_HSCROBJp
Press <Esc> to exit
glaut
ALLOCATION
ALLOCATION
% to distribute
Both Debit and Credit amounts8
may not be 0.00!
Cancel this detail line or reenter?
Reenter
Cancel
Credit
Debit8
percentages may not total more than 100%.
Reenter or cancel?
Reenter
Cancel
ALLOCATION
BROWSE KEY fc_auttype + lc_autono FOR .NOT. DELETED() FREEZE glacnt FIELDS glacnt :P=gc_acctpic :H=gc_accthdr &lc_acctlen, acntdesc =IIF(SEEK(glacnt,"a_glacnt"), a_glacnt->gldesc,"") :H="Acct. Description" &lc_acctdes, gldamnt = IIF(credit, 0.00, ABS(glamnt)) :15 :P="############.##" :H=IIF(lc_auttask="DIST", "% to Distribute", "% to Allocate") NOWAIT NOCLEAR NODELETE NOMENU TITLE (lc_brtitle) IN WINDOW lw_brow1 COLOR SCHEME 1
BROWSE KEY fc_auttype + lc_autono FOR .NOT. DELETED() FREEZE glacnt FIELDS glacnt :P=gc_acctpic :H=gc_accthdr &lc_acctlen, acntdesc =IIF(SEEK(glacnt,"a_glacnt"), a_glacnt->gldesc,"") :H="Acct. Description" &lc_acctdes, gldamnt = IIF(credit, 0.00, ABS(glamnt)) :15 :P="############.##" :H=" Debit", glcamnt = IIF(credit, ABS(glamnt), 0.00) :15 :P="############.##" :H=" Credit" NOWAIT NOCLEAR NODELETE NOMENU TITLE (lc_brtitle) IN WINDOW lw_brow1 COLOR SCHEME 1
GN_TRACE
E_TRACE
LN_RESP
LL_INFORM
LN_READKEYLN_RETVAL
LL_OOBLOOPLN_ADRTOT
LN_ACRTOT
LL_FRSTADDLN_ADDOBJ
A_GLDETL
LLC_GLACNT
GN_ACCTLENGC_ACCTPICLN_GLDAMNTLN_GLCAMNTLN_OLDDAMTLN_OLDCAMTLL_OOBMSG
G_DSPST
RGGN_MSGLINEGC_APPLID
GC_COMPID
GC_USERID
LW_GLAUT4
LL_TEDIT
GC_ADRVPRGLC_OBNO
ELN_TRANCNTGK_ESC
KEYLL_CTRPGDNLN_TAMTREMLC_AUTTASKFC_AUTBASEFC_AUTTYPEG_GETDLG
YGC_OSEOL
KLN_TDRTOT
LN_TCRTOT
L_OOBTST
ELC_BTYPE
TA_GLACNT
EGLTYPE
A_GLHEAD
EBTYPE
EAUTONO
CNTLC_AUTONO
AUTTYPE
GLACNT
YPEGLAMNT
CREDIT
MNTADDUSER
NTADDDATE
ADDTIME
TEL_SUMDC
LL_OOB
ELC_BRTITLELW_BROW1
TLW_TOTALS
LC_HANDLE
LC_EDMODE
Transaction is out of balance by $FFF
Transaction is out of balance by FFFF
GN_TRACE
E_TRACE
LN_TAMTREMLC_AUTTASKLN_TDRTOT
LN_TCRTOT
LN_TRANCNTLL_OOB
FC_AUTTYPEFC_AUTBASELL_OOBMSG
G_DSPAL
TYPE("lc_inmode") = "C"
lc_inmodef
BLANKS
BLANKS
Dollar
Percent
Percent
Dollar
Period(s)
a_gldetl
a_glhead
Dollar
Percent
Percent
Dollar
Dollar
Percent
Period(s)
Period(s)
Day(s)
Dollar
Percent
Percent
Dollar
Dollar
Percent
Period(s)
Period(s)
Day(s)
LC_INMODE
GN_TRACE
E_TRACE
EMGL_ASSERT
E_ASSRT
LC_OLDAREAA_GLHAUT
LL_ANEW
LC_AUTONO
AUTONO
EFC_AUTTYPELC_AUTBASEFC_AUTBASELC_GLREFR
GLREFR
CLC_GLTDES
GLTDES
TLN_FREQ
MTFC_FRQUNITLC_FRQUNITLC_REVERSELD_NEXTDTELD_TERMDTELC_TERMDTELD_LASTDTELC_ALCACNTGN_ACCTLENGC_ACCTPICLC_GLACNT
LN_GLDAMNTLN_GLCAMNTLN_TDRTOT
LN_TCRTOT
LN_TAMTREMA_GLHEAD
EAUTBASE
EFREQ
FRQUNIT
TREVERSE
ENEXTDTE
ELD_FRSTDTEFRSTDTE
TTERMDTE
ELASTDTE
EALCACNT
CA_GLDETL
EGLACNT
CCREDIT
TGLAMNT
A_GLDAUT
CL_SUMDC
EMLC_AUTTASK$
a_glhead
a_gldetl
GN_TRACE
E_TRACE
LA_GLHEAD
LA_GLDETL
A_GLHAUT
A_GLHEAD
AUTTYPE
AUTONO
GC_IDRVTMPGC_TMPF1
EGC_EXTNDX
A_GLDAUT
EA_GLDETL
GC_TMPF2
CTRL+PGDN
BACKTAB
CTRL+Y
CTRL+F2
DO g_stfqs
a_glhaut
a_gldaut
a_glhead
a_gldetl
GN_TRACE
E_TRACE
LW_GLAUT1
LW_GLAUT2
LW_GLAUT3
LW_GLAUT4
LW_GLAUT5
LW_BROW1
LW_TOTALS
LC_BRTITLELM_GLAUTO
G_PNTBG
BACKTAB
MTA_GLHAUT
TA_GLDAUT
TLN_OPNFL
EA_GLACNT
ELN_OPNFLSEA_GLSEGS
ELN_OPNFLTYA_GLTYPE
TA_GLHEAD
NA_GLDETL
CGC_IDRVTMPGC_TMPF1
TGC_EXTNDX
GC_TMPF2
PGM_MAIN
GU_MANT
TYPE("lc_drorcr") = "C"
lc_drorcrf
a_gldetl
A_GLDETL
A_GLDAUT
glaut
ALLOCATION
gltots2.spr
gltots.spr
LC_DRORCR
GN_TRACE
E_TRACE
GL_ASSERT
E_ASSRT
LN_RECNO
A_GLDETL
A_GLDAUT
GLAMNT
LN_TDRTOT
CREDIT
LN_TCRTOT
LN_TAMTREMLC_AUTTASKGC_ADRVPRGLC_OBNO
FC_AUTBASELW_TOTALS
a_gldetl
ALLOCATION
gltots2.spr
gltots.spr
ALLOCATION
BROWSE KEY fc_auttype + lc_autono FOR .NOT. DELETED() FREEZE glacnt FIELDS glacnt :P=gc_acctpic :H=gc_accthdr &lc_acctlen, acntdesc =IIF(SEEK(glacnt,"a_glacnt"), a_glacnt->gldesc,"") :H="Acct. Description" &lc_acctdes, gldamnt = IIF(credit, 0.00, ABS(glamnt)) :15 :P="############.##" :H=IIF(lc_auttask="DIST", "% to Distribute", "% to Allocate") NOWAIT NOCLEAR NODELETE NOMENU TITLE (lc_brtitle) IN WINDOW lw_brow1 COLOR SCHEME 1
BROWSE KEY fc_auttype + lc_autono FOR .NOT. DELETED() FREEZE glacnt FIELDS glacnt :P=gc_acctpic :H=gc_accthdr &lc_acctlen, acntdesc =IIF(SEEK(glacnt,"a_glacnt"), a_glacnt->gldesc,"") :H="Acct. Description" &lc_acctdes, gldamnt = IIF(credit, 0.00, ABS(glamnt)) :15 :P="############.##" :H=" Debit", glcamnt = IIF(credit, ABS(glamnt), 0.00) :15 :P="############.##" :H=" Credit" NOWAIT NOCLEAR NODELETE NOMENU TITLE (lc_brtitle) IN WINDOW lw_brow1 COLOR SCHEME 1
ALLOCATION
gltots2.spr
gltots.spr
LL_NEWBROWGN_TRACE
E_TRACE
A_GLDETL
A_GLDAUT
LW_BROW1
LC_BRTITLELC_AUTTASKFC_AUTBASEGC_ADRVPRGLW_TOTALS
LN_ACCTDESGN_ACCTLENLC_ACCTDES<
Entry Code
not found.
Reenter
GLHAUT
Select
Entry
GN_TRACE
WE_TRACE
LN_RETURN
LC_OLDAREALN_RESP
LL_CONT
LN_RECNO
ELC_XAUTONOLC_AUTONO
A_GLHAUT
FC_AUTTYPEG_GETDLG
LC_ATASK
NG_LSTRC
AUTONO
LL_ANEW
CTRL+PGDN
BACKTAB
CTRL+Y
CTRL+F2
DO l_segstr
DO g_stfqs
GN_TRACE
WE_TRACE
LL_RETURN
LL_FRSTFLDLC_OLDBASEFC_AUTBASEFC_AUTTYPECTRL
UTONOPGDN
BACKTAB
GN_TRACE
WE_TRACE
LL_FRSTFLDLN_LASTOBJLC_GLREFR
DO l_tabseg
BACKTAB
DO l_tabseg WITH COL(), "BACKTAB"
CTRL+Y
DO l_ctrly WITH "lc_alcacnt"
CTRL+F2
DO l_segstr WITH lc_alcacnt
DO l_stfqs WITH COL(), lc_alcacnt, "LC_ALCACNT"
GN_TRACE
WE_TRACE
LL_FRSTFLDTAB
ASTOBJBACKTAB
TBASEY
_AUTTYPEF2
UTONOJ
TYPE("lc_source") = "C"
TYPE("lc_account") = "C"
Required entry! Press <Esc> to cancel
entry or <F2> to list accounts.
glacnt
glacnt
GLACNT
Account
lc_alcacnt
a_glacnt'
Account F
is deleted.
Account #F
is marked as
Inactive in Account File.
Account #F
is marked in
Account File
to only allow
entries/postings from subsidiary ledgers.
LC_SOURCE
LC_ACCOUNTGN_TRACE
DE_TRACE
BJGL_ASSERT
E_ASSRT
SELN_RETURN
LC_OLDWORKLN_RESP
LN_RECNO
LC_MSG
PELL_TRADDOKLL_DOAUTO
LL_REENTERLN_LASTKEYLL_FRSTFLDG_DSPALT
TA_GLACNT
GLSTAT
TGLACNT
TL_BRWACT
TLC_ALCACNTLC_ALCDESCGLDESC
EPOSTJE
GC_OSEOL
TG_DSPAL
GN_ACCTLENGC_ACCTPICGK_UP
TKEYGK_LFT
GN_TRACE
E_TRACE
NTLL_FRSTFLDT
GN_TRACE
E_TRACE
NTLL_RETURN
LL_FRSTFLDX
GN_TRACE
E_TRACE
NTLL_RETURN
LN_READKEYLL_FRSTFLD_
Invalid date.
Last date must be greater than or equal
to the First date,
or, enter blanks for no termination date.
GN_TRACE
E_TRACE
NTLN_RETURN
LD_TERMDTELC_TERMDTELL_FRSTFLDLD_NEXTDTEG_DSPALT
KGC_OSEOL
CTRL+PGDN
DO l_pgdn
DO l_tabseg
BACKTAB
DO l_tabseg WITH COL(), "BACKTAB"
CTRL+Y
DO l_ctrly WITH "lc_glacnt"
CTRL+F2
DO l_segstr WITH lc_glacnt
DO l_stfqs WITH COL(), lc_glacnt, "LC_GLACNT"
GN_TRACE
E_TRACE
NTCTRL
RMDTETAB
ERMDTEBACKTAB
XTDTEF2
TYPE("lc_source") = "C"
TYPE("lc_account") = "C"
glacnt
glacnt
GLACNT
Account
Please reenter a Statistical account. The
account you entered is not a Statiscal
account type.
Please reenter a Standard account. The
account you entered is a Statiscal
account type.
a_glacnt'
Account F
is deleted.
Account #F
is marked as
Inactive in Account File.
Account #F
is marked in
Account File
to only allow
entries/postings from subsidiary ledgers.
LC_SOURCE
LC_ACCOUNTGN_TRACE
E_TRACE
TEGL_ASSERT
E_ASSRT
LDLN_RETURN
LC_OLDWORKLN_RESP
LN_RECNO
LC_MSG
PELL_TRADDOKLL_DOAUTO
LL_REENTERA_GLACNT
LC_BTYPE
TGLSTAT
TGLTYPE
GLACNT
TL_BRWACT
TLC_GLACNT
LC_GLDESC
GLDESC
CLN_TRANCNTGC_OSEOL
POSTJE
G_DSPAL
GC_ACCTPIC
TYPE("ln_type") = "N"
TYPE("lc_field") = "C"
TYPE("lc_keyvar") = "C"
TYPE("lc_file") = "C"
TYPE("lc_title") = "C"
lc_varnamef
lc_glacnt
FILTERz
Select list:
Accounts
Types
Segments
SET FILTER TO &lc_oldfilt
gltype
GLTYPE
Account Type
SET FILTER TO &lc_oldfilt
not found:
No Account Range exists
for Account Major
Accounts
Types
Reenter
Reenter
A\<ccounts
Types
Reenter
FILTERz
SET FILTER TO &lc_oldfilt
gltype
GLTYPE
Account Type
FILTERz
SET FILTER TO &lc_oldfilt
GLACNT
a_glacnt,
No records found.
ENTER
KEYBOARD CHR(gk_ctlend) PLAIN
lc_keyvar = &lc_field
ENTER
LN_TYPE
LC_FIELD
TLC_KEYVAR
LC_FILE
TELC_TITLE
LC_VARNAMEGN_TRACE
E_TRACE
RKGL_ASSERT
E_ASSRT
LL_DONE
PELL_HOTKEY
LN_TOCOL
LC_DESCLENLC_RANGELNLN_DESCLENLC_XKEYVARLC_LOOKUP
LL_NORANGELN_READKEYLL_REENTERLL_RESP
LN_RESP
A_GLACNT
TLC_OLDFILTLC_BTYPE
GLTYPE
GLSTAT
PICPOSTJE
G_GETDLG
YL_BRWACT
A_GLTYPE
LC_MTYPE
L_SEGBRS
LN_RECNO
RLC_MSG
GA_SEGLEN
GLLOW
GLUPP
EG_DSPALT
EENTER
NTERLL_ASSERT
LN_TRACE
LC_LOGFILEGC_LOGFILEGL_HOTKEY
L_BROWSER
W_MSEL
GLACNT
BROWSE FREEZE glacnt FIELDS glacnt &lc_actlen :P=gc_acctpic :H=gc_accthdr, gldesc &lc_actdes :H="Acct. 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_ACCTLENLN_ACTLEN
GA_SEGLEN
a_gldetl
GN_TRACE
E_TRACE
LL_FRSTFLDLC_GLACNT
LC_GLDESC
A_GLACNT
NGLDESC
REAA_GLDETL
GN_TRACE
E_TRACE
LC_OLDAREALL_FRSTFLDLC_ALCACNTA_GLACNT
NLC_ALCDESCGLDESC
BACKTAB
CTRL+Y
DO g_stfqs
GN_TRACE
E_TRACE
LDAREABACKTAB
LDCTRL
CACNTY
GLACNT
ALCDESCLN_OLDDAMTLN_GLDAMNT
GN_TRACE
E_TRACE
LN_RETURN
LN_READKEYLN_RECNO
TLN_GLDAMNTLN_GLCAMNTLN_TCRTOT
LN_TAMTREMLC_AUTTASKLN_TDRTOT
GK_LFT
GN_TRACE
E_TRACE
LN_OLDCAMTLN_GLCAMNT
GN_TRACE
E_TRACE
LL_RETURN
LN_READKEYLN_RECNO
TLN_GLCAMNTLN_GLDAMNTLN_TDRTOT
LN_TAMTREMLC_AUTTASKLN_TCRTOT
a_glhaut5
a_glhaut
Automatic Entries Header
entry
has been added
by user
LC_MODE
GN_TRACE
E_TRACE
LC_OLDAREAG_LCKFL
EAA_GLHAUT
TFC_AUTTYPELC_AUTONO
G_DSPALT
MLC_ATASK
KGC_OSEOL
ADDUSER
TLL_DUPAUTOAUTONO
UTOA_GLHEAD
NGLREFR
LENGLTDES
RAUTTYPE
AUTBASE
EFRSTDTE
YNEXTDTE
RLASTDTE
TERMDTE
TFRQUNIT
TREVERSE
ALCACNT
CBTYPE
ADDDATE
YADDTIME
FILTERz
auttype1
a_gldaut
Automatic Entries Detail
a_gldetl,
a_gldetl,
a_gldaut
a_gldaut
Automatic Entries Detail
a_gldaut
SET FILTER TO &lc_oldfilt
GN_TRACE
E_TRACE
LA_GLDETL
LC_OLDAREALC_OLDFILTA_GLDETL
AA_GLDAUT
EAUTTYPE1
TFC_AUTTYPELC_AUTONO
G_LCKFL
AUTTYPE
TAUTONO
UTOGLACNT
YPEGLAMNT
NCREDIT
NADDUSER
RADDDATE
ADDTIME
TYPE("lc_handle") = "C"
\<Add
\<Edit
\<Save
\<Header
\<Delete
\<Cancel
DO l_edit WITH PAD(), lc_handle
Automatic Entries Headere
lp_eheader
Edit F
entry
ACTIVATE WINDOW &lc_hwinobj
LP_ESAVE
LM_GLEDIT
ACTIVATE WINDOW &lc_hwinobj
Automatic Entry Header /
a_glhead
a_gldetl
ACTIVATE WINDOW &lc_hwinobj
Cancelling/Deleting F
Standard
Recurring
Allocation 88
a_gldetl
a_glhead
LC_MODE
GN_TRACE
E_TRACE
GL_ASSERT
E_ASSRT
LTLL_UPDETL
LL_UPHEAD
LL_EDCONT
LC_HANDLE
LM_GLAUTO
LM_GLEDIT
SCREEN
TLP_EADD
TOLC_AUTTASKLN_TDRTOT
LP_EDETAILLN_TRANCNTLP_ESAVE
LL_OOB
LP_EHEADERLP_EDELETELP_ECANCELA_GLHAUT
G_LCKOB
TGN_RETRY
TL_CRETMP
L_LODTMP
LN_TCRTOT
LN_OLDDAMTLN_OLDCAMTA_GLDETL
GLAMNT
ACREDIT
LN_TAMTREMLL_EDITTRNLC_EPAD
LL_EDITONELC_XSTAT
LC_STATMSGLC_ATASK
GG_DSPST
NEGN_MSGLINEGC_APPLID
GC_COMPID
GC_USERID
GK_ESC
A_GLHEAD
LL_ESAVED
FC_AUTTYPELC_AUTONO
LP_ASELECTLL_RETURN
L_SUMDC
TLC_EDMODE
TYPE("lc_padhndl") = "C"
TYPE("lc_handle") = "C"
LP_ECANCEL
LP_EHEADER
HEADER
Enter F
header information. <Esc> to cancel
LP_EDETAIL
DETAIL
CTRL+PGDN
BACKTAB
CTRL+Y
CTRL+F2
DO l_segstr
DO g_stfqs
a_gldetl,
glaut
LP_EADD
CTRL+PGDN
BACKTAB
CTRL+Y
CTRL+F2
DO l_segstr
DO g_stfqs
STUFF
glaut
LP_EDELETE
DELETE
DELETE
Delete detail line for F
entry
Delete
Cancel
LP_ESAVE
LP_ECANCEL
LP_ESAVE
entry
will be
cancelled
because it has no
entries! Edit or Cancel changes?
Cancel
Credit
Debit8
percentage(s) must total 100.00%.
Edit or cancel changes?
Cancel
Equal debits and credits not allowed.
Edit or cancel changes?
Cancel
Percentage(s) must total 100.00%.
Edit or Cancel changes?
Cancel
Warning: This Allocation has equal
debit and credit
percentage amounts and will not
be generated!
a_glhead
a_gldetl
LC_PADHNDLLC_HANDLE
GN_TRACE
E_TRACE
GL_ASSERT
E_ASSRT
LN_RESP
LN_PADNO
LN_READKEYLL_DONE
LL_ECONT
LN_OLDTCNTGK_ESC
OLC_EPAD
SKLM_GLEDIT
LC_EDMODE
G_DSPST
NTLC_ATASK
GN_MSGLINEGC_APPLID
GC_COMPID
GC_USERID
LL_INHEAD
LL_HEDIT
L_NEWHDR
TLN_CUROBJ
A_GLHEAD
AUTONO
LC_AUTONO
GLREFR
AMTLC_GLREFR
GLTDES
ALC_GLTDES
AUTTYPE
EMFC_AUTTYPEAUTBASE
FC_AUTBASEFRSTDTE
LD_NEXTDTENEXTDTE
GLASTDTE
TELD_LASTDTETERMDTE
LD_TERMDTEFREQ
LN_FREQ
FRQUNIT
FC_FRQUNITREVERSE
PELC_REVERSEALCACNT
CTLC_ALCACNTGC_ADRVPRGLC_HSCROBJLL_UPHEAD
FC_FRSTDTELC_TERMDTELC_STATMSGLC_BRTITLEL_PICKLN
ELC_GLACNT
A_GLDETL
GLACNT
LN_GLDAMNTCREDIT
LGLAMNT
ELN_GLCAMNTLN_OLDDAMTLN_OLDCAMTL_EDTLN
YPEBACKTAB
LL_UPDETL
L_SUMDC
LL_OOBMSG
L_OOBTST
KLL_OOB
LN_TDRTOT
LN_TCRTOT
L_CLRBRW
TLC_OBNO
RGLN_TRANCNTL_NEWDTL
KL_INITAVR
G_GETDLG
L_AUTDEL
LC_BTYPE
GC_OSEOL
LL_EDITONELL_ESAVED
G_DSPALT
L_WRTHED
LL_DUPAUTOL_WRTDET
a_gldetl
FILTERz
SET FILTER TO &lc_oldfilt
GN_TRACE
LE_TRACE
LC_OLDFILTA_GLHEAD
AUTONO
A_GLHAUT
GLREFR
GLTDES
AUTTYPE
YAUTBASE
FRSTDTE
NEXTDTE
TLASTDTE
OTERMDTE
KFREQ
FRQUNIT
REVERSE
TUSED
ALCACNT
EBTYPE
ADDUSER
ADDDATE
ADDTIME
A_GLDAUT
FC_AUTTYPELC_AUTONO
A_GLDETL
GLACNT
GLAMNT
CREDIT
AMTGC_USERID
A_GLACNT
ALC_BTYPE
TGLTYPE
MLN_TRANCNTu
TYPE("lc_edtmode") = "C"
ENTER
KEYBOARD CHR(gk_ctlend) PLAIN
RIGHTMOUSE
KEYBOARD CHR(gk_ctlend)
Select a detail line to F
<Esc> to cancel
ALLOCATION
BROWSE KEY fc_auttype + lc_autono FOR .NOT. DELETED() FREEZE glacnt FIELDS glacnt :P=gc_acctpic :H=gc_accthdr :W=l_wrefdt() &lc_acctlen, acntdesc =IIF(SEEK(glacnt,"a_glacnt"), a_glacnt->gldesc,"") :H="Acct. Description" &lc_acctdes, gldamnt = IIF(credit, 0.00, ABS(glamnt)) :15 :P="############.##" :H=IIF(lc_auttask="DIST", "% to Distribute", "% to Allocate") NOCLEAR NODELETE NOMENU NOEDIT TITLE (lc_brtitle) IN WINDOW lw_brow1 COLOR SCHEME 1
BROWSE KEY fc_auttype + lc_autono FOR .NOT. DELETED() FREEZE glacnt FIELDS glacnt :P=gc_acctpic :H=gc_accthdr :W=l_wrefdt() &lc_acctlen, acntdesc =IIF(SEEK(glacnt,"a_glacnt"), a_glacnt->gldesc,"") :H="Acct. Description" &lc_acctdes, gldamnt = IIF(credit, 0.00, ABS(glamnt)) :15 :P="############.##" :H=" Debit", glcamnt = IIF(credit, ABS(glamnt), 0.00) :15 :P="############.##" :H=" Credit" NOCLEAR NODELETE NOMENU NOEDIT TITLE (lc_brtitle) IN WINDOW lw_brow1 COLOR SCHEME 1
ENTER
a_gldetl,
a_gldetl
LC_EDTMODEGN_TRACE
E_TRACE
LTGL_ASSERT
E_ASSRT
LN_RESP
LC_OLDAREALN_RETURN
LN_OLDREC
A_GLDETL
AENTER
RIGHTMOUSEG_DSPST
OGN_MSGLINEGC_APPLID
GC_COMPID
GC_USERID
LL_HOTKEY
GL_HOTKEY
LW_BROW1
LC_AUTTASKFC_AUTBASELW_TOTALS
GK_ESC
a_glacnt
glaut
GN_TRACE
EE_TRACE
LL_OLDTEDTLC_CURWINDLL_AEDIT
TLC_GLACNT
A_GLDETL
AGLACNT
LN_GLDAMNTCREDIT
AGLAMNT
LN_GLCAMNTLC_GLDESC
A_GLACNT
EGLDESC
GC_ADRVPRGLC_OBNO
Edit selected detail line. <Esc> to cancel
ACTIVATE WINDOW &lc_hwinobj
glaut
CTRL+PGDN
BACKTAB
CTRL+Y
CTRL+F2
DO l_segstr
DO g_stfqs
GN_TRACE
EE_TRACE
G_DSPST
DTGN_MSGLINEGC_APPLID
GC_COMPID
GC_USERID
LL_TEDIT
GC_ADRVPRGLC_OBNO
ACTRL
CAMNTTAB
LDESC
BACKTAB
RVPRG
A_GLDETL
GN_TRACE
EE_TRACE
LN_CNTR
DTA_GLDETL
ELN_OLDDAMTCREDIT
GLAMNT
LN_OLDCAMTLN_TRANCNTL_SUMDC
NTL_CLRBRW
FC_AUTBASELC_OBNO
LW_TOTALS
LW_GLAUT4
L_AMNU
L_ADDREC
L_ADDNEW
L_NEWHDR
L_NEWDTL
L_OOBTST
L_INITAVR
L_CRETMP
L_AEXIT
L_SUMDC
L_CLRBRW
L_VAUTO
L_WBASE
L_VGLREF
L_WALCAC
L_VALCAC
L_VFREQ
L_WFRQUN
L_VNEXTD
L_VTERMD
L_WGLAC
L_VGLAC
L_BRWACT
L_BROWSER
L_WGLDES
L_WALCDE
L_WGLDAM
L_VGLDAM
L_WGLCAM
L_VGLCAM
L_WRTHED
L_WRTDET
L_EDTMNU
L_EDIT
L_LODTMP
L_PICKLN
L_WREFDT
L_EDTLN
L_AUTDEL
L_CHKOBJ
C:\GLDISK\
C:\GLDISK\GLAUTO.PRG
GLAUTO.FXP