+tG3QGjQGQuse &m0sysdr.mascdata -=xpINxiJxilJxilJxil Jl5 T Jx il Jx il s t_x 2(xxG E_I_xOi_xNi#_Inventory Control"_ Main MenuK_x ix  $ix ix  %ix i _  '_  M_  _ $ '_  A. Reports  M_ * _  1. Inventory File% '_  U. Utilities M_ + _  2. Purchase Orders '_  M_ " _ 3. Labels' '_x ix %i M_ 0_  4. Special Transactions'_ M_ _ 1'_  Q. Return to System MenuM_ _ '_ M_ K_x ix  $ix ix  %ix i2_Enter Choice Number x i%x iYG/R T sQ1234AU Q TQ4AT@!9B G/Q_ Please wait  1(J Inventory File l A 2'(J Purchase Orders l A 3r(J Labels l A 4(J Special Transactions lA A(J Reports l -A US(J Utilities l -A Q(J Return To System Menu l-AB Jl"%AxiN  Jl"%UxiN   Jl % S USE &m0passf _x 2(xxG E_I_xOi_xNi (xxnG _9_Please Enter Your Password x  i&_x [#i5 &_#your password will not be displayed s; %_ G(QlG(RJxxxnx c ipl%x c? x" J l  # _Invalid password.=_'Press any key to return to Main Menu...A9 Jl!8 -= Jl%AY  Jl%UY  Jl% x5  Jl Jl %+ x"6 _$Invalid password. Please try again.5 !Q %P . ^  Qx T  1 '%x INVMNT.prg<x INVMNT.fox<  4 G~lINVMNT INVMNT !RProcedure file not found... 2 %%x INVPO.prg<x INVPO.fox< d set printer to &mxprep INVPOGWl RMenu not found... 3-set printer to &mxplab y! _Label GeneratorN _<1. Small Labels 15/16" x 1" x 8 across J _82. Std.Labels 15/16" x 3 1/2" x <1,2,4> acrossD _23. Bar Coded Labels 15/16" x 3 1/2" x 1 acrossJx ix   ilJx ilJx ix  ilJx ilJ  lJx ix   ilJx ilJx ix  ilJx ilJ  lJ  l9J x c   xc   xc l J    l!J!!!!!l! _ _ " 7_Item Description_ <_Price_ 2_!_ _ __Part #,_Part # Price_Price"_Item Description2_!<_Part #<  J l">_ Enter label type or (Q) to quit x i%A"T!9%MACxxp5 C_1*** MAC USERS *** Barcode will be available soon.s"12Q 2 JQl" x"%A"T!9s"123Q  JQl" x"%A"T!9y  "Q. "1DJ: Small Labels 15/16" x 1" x 8 across l# A# "2DJ: Std.Labels 15/16" x 3 1/2" x <1,2,4> across l# A# "3DJ: Bar Coded Labels 15/16" x 3 1/2" x 1 across l# A#B 7$% J"l$ Jl% J l&%"1 J8l%y?_!(S)tandard or (C)ondensed print? x i3A&T!9s&SC  x"3A&T!9%"2O J l'y>_ Number of labels across <1,2,4> x i3A'T#9s'124  x"3A'T#9  '1J 1 Across l# '2J 2 Across l# '4*J 4 Across l# A#B J'l% 4_"*** Setting Up Temporary Files ***use &m0inv2f mmflockncopy to &m0tmpf1 stru copy to &m0tmpf2 stru copy to &m0tmpf3 stru Zy J l(G_5Labels from (R)eceiving file or (S)ingle entry? s(RS  JSl(8A(T!9y%(S J l)use &m0tmpf1 exclusive   J l*yI_7Items for specific vendors items recieved today? s*YN  JNl*9A*T!9%*Y~yJ l+ s(_Enter vendor number ->A+T!!!-###9y7_%***** Checking Vendor Entered *****use &m0inv3f index &m0inv3f Jl,E+ %x5 y4_Getting items recieved from - Jl,%, J l x"y+_Invalid Vendor Entered...=_!Press any other key to reenter...AT!9By.%,! JNl)Fuse &m0tmpf1 exclusive Fuse &m0tmpf3 exclusive iappend from &m0inv2f for recdate = m0date .and. substr(masc,1,1) = 'R' .and. vendno = mxmfr1 b JNl)y:_(*** Getting all items received today ***Fuse &m0tmpf1 exclusive Fuse &m0tmpf3 exclusive Happend from &m0inv2f for recdate = m0date .and. substr(masc,1,1) = 'R' #m sx5  J.l/s/F >0t0J/l/FHif file('&m0tmpf3..dbf') delete file &m0tmpf3..dbf s)N J l1s1YJYl1)J - l2 Jl/0 _Enter part number x i %A2T99-999990 _Enter # of labels x i %A/T999y0_ Entry OK (Y/N) x i%A1T!9s1YN  x"%A1T!9s/ >0t2J/l/y@_"Enter more items for labels x i5A)T!9s)YN y x"5A)T!9yy J l3%$1&S  ?_!Print coded date on labels x iN ?_!Print coded cost on labels x is3YN  x" JYl34A3T!9%3YD# JYl4y J l5?_!Prior dated labels needed? x is5YN S! x" JNl53A5T!9%5YA#y?_!Enter month (ie. 01 for January) x i Jl6 Jl7 s6 R" J01l8&A8T##9J,8,l90%9",01,02,03,04,05,06,07,08,09,10,12,O" Jl6y;_Enter year (ie. 98 for 1998) x i s7 ># J90l:"A:T##9J,:,l;E%;7,92,93,94,95,96,97,98,99,00,01,02,03,04,05,06,07,08,09,;# Jl7W# JNl4y J l<A_#Print retail price on labels x is<YN # x" JYl<5A<T!9%<Y$y J l=@_"Print price 'B' or 'C' on labels? x is=BC $ x" JBl=3A=T!9y3_!Preparing file for printing......Fuse &m0tmpf1 exclusive Fuse &m0inv1f index &m0inv1f F#m sx5 !& J0l>F find &mpnx %x5x %F&F%<Y%>?t?%%=B%>?t@%>?tA>BtBCtCHF%3Yy& invccode1-use &m0tmpf1 exclusive #m sx5 +-%,C%-%xCi,F'>Ct xCi%xCi,'#>CtxCi xCi%xCi,'#>CtxCi xCi%xCi,(#>CtxCi xCi%xCi,B(#>CtxCi xCi%xCi,(#>CtxCi xCi%xCi,(#>CtxCi xCi%xCi,(#>CtxCi xC i%xC i,>)#>CtxCi xC i%xC i,})#>CtxC i xC i%xC i,)#>CtxC i xC i%xC i,)#>CtxC i xC  i%xC i,:*#>CtxC i xC i%xCi,y*#>CtxC i xC i%xCi,*#>CtxCi xC i%xCi,*#>CtxCi xC i%xCi,6+#>CtxCi xCi%xCi,u+#>CtxCi xCi%xCi,+#>CtxCi xCi%xCi,+#>CtxCi xCi%xCi,2,#>CtxCi xCi%xCi,q,#>CtxCi xCi%xCi,,#>CtxCi xCi%xCi,,#>CtxCi xCi%xCi,"->CtxCi H invxbarif file('&m0tmpf1..dbf')-delete file &m0tmpf1..dbf if file('&m0tmpf2..dbf')-dele file &m0tmpf2..dbf  <$%GWl 4e.+%x INVTRANS.prg<x INVTRANS.fox< 5.set printer to &mxprep INVTRANSGWlb. RMenu not found... A.+%x IREPORTS.prg<x IREPORTS.fox< .set printer to &mxprep IREPORTSGWl. RMenu not found... UtJx il _x 2(xxG E_I_xOi_xNi%_Inventory Utilities._1. Re-Index Inventory Files' _2. Monthly Close-out( _3. Year-End Close-Out( _4. Clean-up P.O. File( _5. Inventory Defaults, _6. Mass Cost/Price Change,_7. Reset B/C Price Levels0_8. Inventory Code Maintenance_Q. Quit._Enter Selection x i J lPsP 12345678Q 1 JQlP,APT!9%PQ1. JlQ%MULTIxxp=3y JNl; _) *** SCO UNIX USERS ***M _; Do not use utilities with other users on the system!!!J  _8 Physically check for other users before continuing.: _ Do you wish to continue? AT!9%Y+3 JlQy sQt U3 P834G~licodemnt icodemnt4 JlQ P10:y*_Re-Index Inventory Files"_ Inventory" _ Purchase Orders" _ PO Transactions" _ Vendors" _ MTD/YTD Qty" _ Inventory Codes.&_x iIndexing %MULTIxxp5use &m0inv1f exclusive 3)5use &m0inv1f INDEX on pn TO &m0inv1f .&_x iCompleted . &_x iIndexing %MULTIxxp5use &m0inv4f exclusive 35use &m0inv4f INDEX on purno TO &m0inv4f . &_x iCompleted . &_x iIndexing %MULTIxxp6use &m0inv5f exclusive 36use &m0inv5f INDEX on pn TO &m0inv5f . &_x iCompleted . &_x iIndexing %MULTIxxph7use &m0inv3f exclusive 3~7use &m0inv3f INDEX on vendno TO &m0inv3f . &_x iCompleted * &_x i Calculating %MULTIxxp:8'use &m0inv1f index &m0inv1f exclusive _8use &m0inv1f index &m0inv1f  mmflockn#m sx5 87>RtSTUVWXYZ[\]^>RtR_HZ, &_x iCompleted . &_x iIndexing %MULTIxxp_9use &m0inv9f exclusive u9use &m0inv9f INDEX on categ TO &m0inv9f , &_x iCompleted y BR< Re-Indexing complete... Press any key... JlQ P2E Jl`%xiY: J13laJMonthly Close-Outlb mascpval %` : JlQ.yJxilcyD_2Please enter the following for monthly closeout... J ld J leL_/Enter the Year of the Transaction File (ie:90) AdT##O_1Enter the Month of the Transaction File (ie:DEC) AeTAAA@_.Press Key to confirm each entryF_4Entering blanks in either field will return to menu.P_>*** December close must be with the current calendar year! ***G'R9 JxepleG'Q;store '&m0dbfdr'+'I'+'&mhis'+'&mmonth'+'&myear' to mfname %d  e  D= JlQ.J e lfJ d lg@%f1 JAN FEB MAR APR MAY JUN JUL AUG SEP OCT NOV DEC  >  2R,Month entered not acceptable...Press any key  JlQJ xxx*2i lh%gh >  1R+Year entered not acceptable...Press any key  JlQ @ >it#mstore '&mmonth'+'sls' to xmm sx5 wA%099-99999YA$replace &mmonth with mtdqty replace &xmm with mtdsls 7>jtklmnopqrstuv7>RtSTUVWXYZ[\]^%i w VA >it >_t >wtH 'C' delete file &m0inv5f..dbf delete file &m0inv5f..ndx use &m0tmpf1 exclusive copy to &m0inv5f use &m0inv5f exclusive index on pn to &m0inv5f index on purno to &m0tmpf1 set index to &m0tmpf1 Fuse &m0inv4f exclusive #m sx5 C JylzFfind &mpurno %x CF >{t*CFH.use &m0inv4f exclusive /copy to &m0tmpf2 for current <> '*' delete file &m0inv4f..dbf delete file &m0inv4f..ndx use &m0tmpf2 exclusive copy to &m0inv4f use &m0inv4f exclusive index on purno to &m0inv4f delete file &m0tmpf1..dbf delete file &m0tmpf2..dbf delete file &m0tmpf1..ndx  JlQ P3Ty Jl`%xiYE J9la"JYear-End Inventory Resetlb mascpval %` E JlQ. JNl|yC_1Y E A R - E N D C L O S E O U T R O U T I N EW_(This routine will zero all Year-to-Date and Monthly sales figures.P_4Do you want to do a Year-End Closeout NOW? A|TA9 Jx|pl|%|YF JlQ. JNl|yX_&If you have not printed your Year End reports you should exit NOW!.N _&Print your reports then return to this close-out routine.Q_5Do you want to continue with the Close-Out? A|TA9 Jx|pl|%|Y0H JlQ.yJCLOSEl}J l~K_+Please enter the password for Close-Out... A~T!!!!!9%~}H JlQ.y$_Reset Customer YTD0(_x i Working Pt#1 of 2use &m0cus1f index &m0cus1f mmflockn#m sx5 I>tH0(_x i Working Pt#2 of 2 >t0(_x i Done use &m0inv1f index &m0inv1f mmflockn$ _Reset YTD$ _Reset MTD$ _Reset January$ _Reset February$ _Reset March$_Reset April$_Reset May$_Reset June$_Reset July$_Reset August$_Reset September$_Reset October$_Reset November$_Reset December& (_x i Working >Rt >jt >t >t& (_x i Done & (_x i Working >_t >wt& (_x i Done & (_x i Working#m sx5 iM >tS >tkH >St >kt& (_x i Done & (_x i Working#m sx5 N >tT >tlH >Tt >lt& (_x i Done & (_x i Working#m sx5 N >tU >tmH >Ut >mt& (_x i Done &(_x i Working#m sx5 .O >tV >tnH >Vt >nt&(_x i Done &(_x i Working#m sx5 O >tW >toH >Wt >ot&(_x i Done &(_x i Working#m sx5 \P >tX >tpH >Xt >pt&(_x i Done &(_x i Working#m sx5 P >tY >tqH >Yt >qt&(_x i Done &(_x i Working#m sx5 Q >tZ >trH >Zt >rt&(_x i Done &(_x i Working#m sx5 !R >t[ >tsH >[t >st&(_x i Done &(_x i Working#m sx5 R >t\ >ttH >\t >tt&(_x i Done &(_x i Working#m sx5 OS >t] >tuH >]t >ut&(_x i Done &(_x i Working#m sx5 S >t^ >tvH >^t >vt&(_x i Done Z  O.R(Year-End-Close complete... Press any key JlQ P4Xy Jl`%xiYT J9laJClean-Up P.O. Filelb mascpval %` U JlQ.y  /_*** Cleaning-Up P.O. File ***'use &m0inv5f index &m0inv5f exclusive .copy to &m0tmpf1 for substr(masc,8,1) <> 'C' delete file &m0inv5f..dbf delete file &m0inv5f..ndx use &m0tmpf1 exclusive copy to &m0inv5f delete file &m0tmpf1..dbf use &m0inv5f exclusive index on pn to &m0inv5f index on purno to &m0tmpf1 set index to &m0tmpf1 Fuse &m0inv4f exclusive #m sx5 DW JylzFfind &mpurno %x .WF >{t*;WFH.delete file &m0tmpf1..ndx use &m0inv4f exclusive /copy to &m0tmpf2 for current <> '*' delete file &m0inv4f..dbf delete file &m0inv4f..ndx use &m0tmpf2 exclusive copy to &m0inv4f delete file &m0tmpf2..dbf use &m0inv4f exclusive index on purno to &m0inv4f  JlQ P5ry Jl`%xiYX J9laJInventory Defaultslb mascpval %` Y JlQ.y$ _Inventory Defaults%xiYYJxilJxilJxilJx"il JYlY JNl%Y]f,_GL Company No x i6_GL Data Drive\Directory x i__ Jl, Jxnl%\7[%xGZ%xiZ)JxixxGil%%xGxxGi 4[JxxGilu[%xxGir[JxxGil [ xr xr  [%Jxnglacnt0xxrgl xr [$Jxnglacntxxrgl2\Jxnglacnt00l$IF .NOT. FILE('&mglfile..dbf')P\ JlQ.Fuse &m0sysdr.mascdata  yH _Accounts for INVENTORY Linkingx [ix [i6 _Inventory (Asset) x i6 _Inventory Cost (Cost ) x i6 _Inv.Transfer (Asset) x i-=PSxi%xi ]J - l^Jx ilJx ilJx il s@cF"USE &mglfile INDEX &mglfile..ndx E%x5 A r^ *_ E%x5 A ^ *_ E%x5 A ^ *_  AT #####-### AT #####-### AT #####-###9 <_****** Checking Ledger Account File *****F Jl,E %x5 7`%A_ *_ 4`1 *_x i Inactive Account  Jl,`7 *_x i Invalid Account Number  Jl,E %x5  a%A` *_  a1 *_x i Inactive Account  Jl,Xa7 *_x i Invalid Account Number  Jl,E %x5 a%Aa *_ a1 *_x i Inactive Account  Jl,.b7 *_x i Invalid Account Number  Jl,y%,'c J l x"8_&Invalid or Inactive Account Numbers...L_0Press 'Q' to quit or any other key to reenter...AT!9By%Q!c JNl!.%,=c!FQF-=PSxi mmflockn#%YN , e J l x"e_)WARNING: You must have Inventory Default 'Codes established before inventory can ]_(be linked to Ledger. Link is cancelled. Press any key to continue...A9yB JNl JDEFl[>=xixitxi xie>_,***** Updating Ledger Link Code File *****R>=xixitxi   xiZ%xr eJ0xxrgl-=PSxiy;_)***** Updating System Memory File *****JxilyT_BThe label generator has the ability to produce labels with a codedO_=received date and coded cost on them, printed at your option.P _>The receive date will be coded with the last two digits of theR _@year and the month between, the month being a letter from A thru7 _%L representing January thru December.= _+ (ie. February 1990 would be 9B0)R_@The cost information will be coded with ten(10) letters exactly,S_Arepresenting 0 thru 9. It is suggested that a word of ten lettersN_t Jl JlQ P6sy Jl`%xiYSs J9la JMass Cost/Price Changelb mascpval %` ps JlQ.yset printer to &mxprep invchg JlQ P7ty Jl`%xiY2t J9la JReset B/C Price Changelb mascpval %` Ot JlQ.yset printer to &mxprep invreset JlQ <  4GWlBUSYSIDM0COMPSTR6MXPREPMXPINVSTR7MXPLABSTR13MXLCOSTEXITEDM0BORDERMEDGEMCEDGEM0DATEM0SYSTEMM0COMPANYCHOICEMCHOICEMPASSM0PASSMPWORDMANSMNOTPASSPASSWORDACCESS11ACCESS13MTOP1MTOP2MTOPMBOT1MBOT2MBOTMVERTME1M1LTYPEM1CHOICEM0LTYPEM0NACROSSM1CONDM1ACROSSMPICKM1GOMXMFRMXMFR1MERRCOMPANYQTYM1QTYPNM1OKM1PNXM1XCOSTM0XCOSTM1XDTXMONTH1XYEAR1XMONTHYMONTHXYEARYYEARM1XSTDPRM2XSTDPRMPNXPRICEPRICE2PRICE3COSTDESCRMXDXCOSTM0M1M2M3M4M5M6M7M8M9M1UTILMMGOYTDQTYJANFEBMARAPRMAYJUNJULAUGSEPOCTNOVDECMTDQTYM0RETMPASSNUMMDESCRIPMHISMYEARMMONTHXMMONTHXMYEARYRCHECKONHANDYTDSLSJANSLSFEBSLSMARSLSAPRSLSMAYSLSJUNSLSJULSLSAUGSLSSEPSLSOCTSLSNOVSLSDECSLSMTDSLSXMMPURNOMPURNOCURRENTANSC_PASSX_PASSXYTDSPENTYTDSPENTRECAMTYTDRECVXJANXJANSLSXFEBXFEBSLSXMARXMARSLSXAPRXAPRSLSXMAYXMAYSLSXJUNXJUNSLSXJULXJULSLSXAUGXAUGSLSXSEPXSEPSLSXOCTXOCTSLSXNOVXNOVSLSXDECXDECSLSM0LINKMGLLINKMGLCOMPMGLDRMDEFLINKGLLKONM0SWITCHARMGLFILELINKMINVENMICOSTMITRANGLSTATGLDESCFORMXLNEWCODEOK