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

Wrap

MS Visual FoxPro App | 1993-02-11 | 29KB | 556 lines

GLRANG01 F$Fb/ a_gltype FILTERz MAINTAIN a_gltype// gllow gllow lw_gltype gltype.spr Enter Account Type, <F2> to list, or <Esc> to Quit a_gltype, gltype.spr a_gltype, gltype.spr gltype.spr Enter data for Account Type gltype.spr Account Typese Edit data for Account Type gltype.spr Account Types/ New account is outside range. Do you want to edit or cancel? Cancel \<Edit \<Cancel Edit this type Cancel changes to this type Lower limit must be less than upper limit. Lower limit can't be less than 1.8 ECFFF \<Edit \<Cancel Edit this type Cancel changes to this type Limits overlap type ECFFF gltype.spr \<Save \<Edit \<Cancel Save changes to this type Edit this type Cancel changes to this type VECFFF \<Select \<Edit \<Fwd \<Back \<Delete E\<xit Select another type Edit this type Move to Next type Move to Prior type Delete this type Return to GL menu SEFBDXFFF \<Save \<Edit \<Cancel Save changes to this type Edit this type Cancel changes to this type VECFFF \<Select \<Edit \<Fwd \<Back \<Delete E\<xit Select another type Edit this type Move to Next type Move to Prior type Delete this type Return to GL menu SERFBDXFFF \<Select \<Edit \<Ranges \<Fwd \<Back \<Delete E\<xit Select another type Edit this type Edit and adjust ranges Move to Next type Move to Prior type Delete this type Return to GL menu SERFBDXFFF \<Save \<Edit \<Cancel Save changes to this type Edit this type Cancel changes to this type VECFFF Accounts exist with this account type. Delete this account type? Delete Delete Cancelled Account Typese Account Types/ a_gltype, a_gltype, Account Type Deleted gltype.spr a_gltype, gltype.spr FILTERz a_gltype5 a_gltype Account Types gllow SET FILTER TO &lc_oldfilt a_gltype, a_gltype, End of File. Beginning of File. Accounts with this Account Type lie outside these limits. Update cancelled. a_gltype, Updating Account Type File a_gltype5 a_gltype Account Type F has been added by another user. a_gltypeV a_gltype a_gltype, a_gltype, lw_gltype SET FILTER TO &lc_oldfilt LL_LOOKUP LC_TASK GN_TRACE TE_TRACE LC_TYPE LC_DESC LC_LTYPE LC_STYPE ELL_CONT LL_FIRST FLL_NEW LL_SELECT LL_EDIT LC_XTYPE LL_PICKED LN_REC NTFLN_PADNUMBLN_OPNFLTYLC_OLDFILTLL_NEWED FLN_READKEYLN_XPADNO LL_RANGNEWLC_TYPMSK LC_CHOICE LC_SEGMSK LC_OLDLOW LC_OLDUPP LC_OLDCLR LL_DUPTYPELN_ESCREADLL_GLRANG GM_MAIN TGA_SEGMSK U_CHKPV GC_USERID GC_COMPID A_GLTYPE TGU_MANT LTG_OPNFL TYGF_GLTYPEFGLLOW LW_GLTYPE G_PNTBG GS_219 GLTYPE GLDESC TLTYPEHD STYPEHD LC_UPP TERGA_SEGLEN LC_LOW NTGC_ADRVPRGG_DSPST GN_MSGLINEGLUPP DG_LCKOB GN_RETRY MACCOUNT LN_RESP G_GETDLG GC_OSEOL FLA_PAD LA_PRMPT FG_DSPCH GK_ESC NTFLC_MSG G_DSPALT FG_GETCH GC_TASK LC_ERRMSG A_GLACNT G_LCKFL TL_GLRANG GLACNT LL_LOCK ADDUSER EADDDATE ADDTIME LN_RECNO OOKUP G_LCKRC TYPE("ln_type") = "N" TYPE("lc_field") = "C" TYPE("lc_keyvar") = "C" TYPE("lc_file") = "C" TYPE("lc_title") = "C" a_gltype, not found: a_gltype, Reenter Reenter Reenter gltype gllow a_gltype, a_gltype, No records found. ENTER KEYBOARD CHR(gk_ctlend) PLAIN RIGHTMOUSE KEYBOARD CHR(gk_ctlend) PLAIN lc_keyvar = IIF(ln_readkey <> 12, &lc_field., "") ENTER RIGHTMOUSE LN_TYPE LC_FIELD LC_KEYVAR LC_FILE LC_TITLE GN_TRACE E_TRACE GL_ASSERT E_ASSRT LL_DONE FLL_HOTKEY LC_XKEYVARL_BRWTYP LN_RECNO RA_GLTYPE GLTYPE NTFLC_MSG LN_RESP G_GETDLG TGLLOW LC_OLDLOW GA_SEGLEN LC_OLDUPP LL_NEW G_DSPALT ENTER YVARRIGHTMOUSELL_ASSERT LN_TRACE LC_LOGFILEGC_LOGFILEGL_HOTKEY L_BROWSER LN_READKEYW_MSEL GLTYPE BROWSE FREEZE gltype FIELDS gltype :4 :H="Type", gldesc &lc_desclen :H="Description", gllow &lc_acctlen :H="From", glupp &lc_acctlen :H="To" WHEN l_reftyp() NOMENU NOEDIT NOAPPEND NODELETE WINDOW w_msel TITLE "Select Account Type" COLOR SCHEME 10 LC_ACCTLENLC_DESCLENLN_DESCLENGA_SEGLEN LC_FILE ENW_MSEL ALECSTIXY? 1234567890 1234567890 You entered an invalid Account Type! Valid Account Type Code format: First Character: A - Asset L - Liability E - Equity S - Sales C - Cost of Sales X - Expenses I - Other Income T - Taxes Y - Statistical Second Character: 0 - 9 Third Character: 0 - 9 already exists. Reenter a new type! gltype gllow ALESCXITY gltype gllow gltype GLTYPE Account Type gltype gllow Account type exists. GN_TRACE NE_TRACE ENLL_RETURN LC_CHAR2 LC_CHAR3 NLL_CONT LN_ESCREADLC_TYPE G_DSPBX LL_RANGNEWGLTYPE G_DSPALT RA_GLTYPE GLLOW RLL_LOOKUP LL_PICKED LC_XTYPE L_BRWTYP LL_NEW LC_DESC GLDESC LC_LTYPE LTYPEHD LC_STYPE STYPEHD LC_UPP VARGLUPP ELC_LOW GA_SEGLEN LC_SEGMSK GN_TRACE NE_TRACE ENLC_TYPE A_GLTYPE GLTYPE NLC_DESC GLDESC DLC_LTYPE LTYPEHD LC_STYPE WSTYPEHD LC_UPP RGLUPP LC_LOW RGLLOW GN_TRACE NE_TRACE ENLC_TYPE LC_LOW GA_SEGLEN LC_UPP GLRANGE Setting up Temporary File a_gltype a_gltype// There are no Account Ranges on file. a_gltype Account Ranges Edit Ranges, <F10> add type, <Ctrl-End> saves, <Esc> cancels DO l_addnew BROWSE FIELDS gltype :P="!99" :R :4 :H="Type" :w=.f., category = IIF(LEFT(a_tmpf3->gltype,1)="A", "Asset ", IIF(LEFT(a_tmpf3->gltype,1)="E", "Equity ", IIF(LEFT(a_tmpf3->gltype,1)="C", "Cost of Sales", IIF(LEFT(a_tmpf3->gltype,1)="I", "Other Income ", IIF(LEFT(a_tmpf3->gltype,1)="Y", "Statistical ", IIF(LEFT(a_tmpf3->gltype,1)="L", "Liability ", IIF(LEFT(a_tmpf3->gltype,1)="S", "Sales ", IIF(LEFT(a_tmpf3->gltype,1)="X", "Expenses ", IIF(LEFT(a_tmpf3->gltype,1)="T", "Taxes ", ""))))))))) :13 :W=.f., gldesc &lc_desclen :H="Description" :w=.f. :R, gllow &lc_acctlen :P=lc_segmsk :W=IIF(RIGHT(gltype,2)="00",.f.,.t.) :E="Reenter lower end of Range" :H="Lower", glupp &lc_acctlen :P=lc_segmsk :W=IIF(RIGHT(gltype,2)="00",.f.,.t.) :E="Reenter upper end of Range" :H="Upper" VALID l_valrng() TITLE "Modify Account Ranges" NODELETE NOMENU NOAPPEND WINDOW lw_brwrng DO g_stfqs Checking Account File against modified Types... Please wait... NEARz Account F not found in modified Types which would cause this account to be without an Account Type. Resume checking for errors, edit, or cancel changes? Resume Cancel Asset Equity Cost of Sales Other Income Statistical Liability Sales Expenses Taxes 888888888 Asset Equity Cost of Sales Other Income Statistical Liability Sales Expenses Taxes 888888888 Attempt to change Account F from is not allowed. Resume checking for errors, edit, or cancel changes? Resume Cancel Changes in Ranges require an update of Accounts in the Chart of Accounts file. Proceed with Update? Proceed Cancel Updating Account Type File gltype a_gltype0 Updating Account File NEARz a_glacntV a_glacnt Accounts exist outside selected ranges. No changes will be saved. a_glacnt// glacnt a_tmpf3 GN_TRACE NE_TRACE ENLN_ERROR LA_TYPE LC_UPTYPE LN_COUNT LC_ACCTLENLC_DESCLENLN_DESCLENLC_SEGMSK LC_OLDTYPELC_NEWTYPELC_HELPID LL_RNGCONTLL_LOOP G_DSPCH LW_GLTYPE GC_HELPID LL_RANGNEWGA_SEGMSK G_DSPST GN_MSGLINEA_GLACNT G_OPNFL GF_GLTYPEFA_GLTYPE RGLTYPE EGC_APPLID GC_COMPID GC_USERID G_DSPALT GC_ADRVDBFGC_TMPF3 A_TMPF3 FGLUPP USEGC_ADRVNDXGC_EXTNDX MACTFIX TLN_TOPROW GA_SEGLEN LW_BRWRNG MSGLINEF10 LTYPE LL_ASSERT GL_ASSERT LN_TRACE LC_LOGFILEGC_LOGFILELL_HOTKEY GL_HOTKEY LN_READKEYLN_ESCREADLC_NEAR NEMACNT GLACNT EMTYPE DGLLOW LC_MSG GC_OSEOL LN_RESP G_GETDLG GCONTGC_TASK G_LCKRC GF_GLACNTFGC_EXTDBF FFFFF Lower limit must be less than upper limit on Account Type Lower Upper8 limit can't be less than 1 on Account Type FFFFF Upper limit may not be greater than FFFF Ranges for Type intersect with Type Ranges for Type intersect with Type GN_TRACE NE_TRACE ENLL_RETURN LC_MSG LN_LOW LN_UPP LC_TYPE ENLN_LASTUPPLN_NEXTLOWLC_LASTTYPLC_NEXTTYPLL_EOF YPELL_BOF A_TMPF3 GLLOW GLUPP GLTYPE GA_SEGLEN GK_ESC TYPGA_SEGMSK G_DSPALT @! A99 Enter New Account Type, or blank to return to range edit gltype.spr Lower limit must be less than upper limit. Lower limit can't be less than 1.8 Reenter lower range! Special Type 00 has no range. Reenter a type with a range! The range you entered overlaps with type . Reenter range! \<Save \<Edit \<Cancel Save changes to this type Edit this type Cancel changes to this type VECFFF Modify Account Ranges Edit Ranges, <F10> add type, <Ctrl-End> saves, <Esc> cancels GN_TRACE NE_TRACE ENLN_READKEYLC_SEL LN_XREC LC_XTYPMSKLC_TYPE ENA_GLTYPE PGLTYPE LOWLC_DESC YPGLDESC PLC_LTYPE ELTYPEHD LC_STYPE STYPEHD LC_UPP GA_SEGLEN LC_LOW LC_TYPMSK G_DSPST GN_MSGLINELW_GLTYPE LL_SELECT LL_NEWED GC_ADRVPRGLN_ESCREADLC_MSG EG_DSPALT GLLOW GLUPP LA_PAD LA_PRMPT FLN_XPADNO GK_ESC FG_GETCH SEADDUSER GC_USERID ADDDATE TADDTIME L_BRWTYP L_BROWSER L_VTYPE L_REFTYP L_WLOW L_GLRANG L_VALRNG L_ADDNEW C:\GLDISK\ C:\GLDISK\GLTYPE.PRG GLTYPE.FXP