<> $3JBITEMEX - Expired Inventory ReportE$$, JBPLAN.tpl19,JBPLAN 9!E$B$,B JBITEM.tpl1B9B,BJBITEM 9"I$\$,\ JBBRANDS.tpl1\9\,\JBBRANDS ]9+$R1:C(7),R2:C(10),R3:C(1),R4:C(30),R5:C(30),R6:C(30),R7:C(30),R8:C(25),R9:C(2),R10:C(10),R11:C(6),R12:C(3),R13:C(7),R14:C(1),R15:C(30),R16:C(15),R17:C(3),R18:C(4),R19:C(20),r20:c(7)<@@FE " 7$ $$,JBPLANnnJ$ 100100100100   sA$td class="td" <>< nowrap>z$ ,  {k$^
6 BRANDFAMILY|;$^

۩' pagetitle -- Company: @A

0$n 'TRHILITE.
 $-^۩' REPORTINTROHo$7g
Item,Availability
Date, Description,Rcvd/Ord,Alloc,Shipped,Commd,On Hand,P/NP, Expire Date
E$77' !$  $+$< width="۩(">8] ! $ 8] ,$ $
8]   1$//20 8 ] $"",8]"/01#( 0$0, ۩0$5$/۩0 ۩1 %8&], 6$$8$8ө6@@88E]T7 6 BRANDFAMILY^h3test if exists^#(3on step1h2 6BRANDSr3test if existsr#(3on step2#(4$%$ WJBREPORT%&'()* $++-Y %Q$#?Dealer Code,Name,Add1,Add2,Add3,City,State,Zip,Region,TerritoryL%#3CALL "JBGLOBS"B$55ө6BRANDS 5*ALL$53LET BRACKET1$=SELECT1$+FILL(3)XX o#mo:n(1*=46),da:n(1*=46),ye:n(1*=46)$o@m...p@q@r@sblb?$+2invalid date selected! Go BACK and fix the problem#(l5$-All Items Expired as of: ۩ p
-4$6&3IF ENDAT$=" " THEN LET ENDAT$=$FFFF$>Q$ :;<=>1B 3LOOP HEREL1Blj&3IF K$(1,2)>ENDAT$(1,2) THEN GOTO 1900 3DO SELECTION ө@E@CL+ t#mo:n(1*=47),da:n(1*=47),ye:n(1*=47)7$t@d///ttxu@v@w@xx( upL$3------ handle the display of orders@BJBBAL4@DLMNOeP?QRSTUVh>$ JBBALALLOC@DWHfghij@|$$Y@GIP?JYP @EZU $Z@E$# @D۫R(۩(Ө@K) @F۩(P۩(H۩(P۩(X۩(b@c۫@d$++#$ L3LET L$=FNXL$(H.R2$)+FNXL$(H.R4$)+FNXL$(H.R5$)+FNXL$(H.R6$)+FNXL$(H.R7$)+FNXL$(H.R8$)+FNXL$(H.R9$)+FNXL$(H.R10$)+FNXL$(H.R2$(1,2))+FNXL$(H.R12$)3WRITE (CSVCHAN)L$#$:;<=>8 U 3------ 1\A@E ]A$# 
Select Report Parameters
Select,
@[$++#&8l3DONEtI3IF DLAST$<>"" THEN GOSUB DEALERTOTALS; LET TEXT1$=TEXT1$+"
"+TRO$v($++
&$++ Report Summary6$++ Line Count۩( 
D %<$++ CSV Format of this Report+JBREPE0+Inventory Reporta_$`}Reports Menu | _$+`
+#(UC$  Total۩($""!!*8@3T=$ERROR ۩(Ө AT LINE ۩(Ө" IN ۩#^E2#( 3OUTTA HERE#2&N N*E ө/$//N48N>]$kreparamC$++
 #$++75 POPUPINPUTkexpdatel EJBSELECTOPTIONS BRANDFAMILY BRANDFAMILY1@*!$++ Company: @4/$++nExpiration Cutoff: l>$++n E$++ &$++' - K$++3
$++~83 STEP 2 SELECT BRANDSO$+Brand Family: @A 
 #$++7JBSELECTOPTIONSJBBRANDSBRANDSCATDESC*FILTERMASK(R.FAMILY$,"@A%")*MULTIPLE*NOTOPVALUE*SELECTALL*AUTH@ $++@J$++ +E$++ &N$++ /$++' - I$++1
$++f8TPLHHJBPLANSTARTATENDATUSEKNUMJBITEMTTTQCCCQIQCOUNTTRTDDTROCDATETEXT1 ERRMESSAGECW1CW2CW3CW4YYY1YYY2YYY TDELEMENTTDPLAIN TDNOWRAPTDDRDQTYIDENT1OCOUNTDCOUNTRQTYLOUTFILECSVCHANCSVLINKCSVFILEOUTCHANOUTLINKOUTFILETEXTTDDH DFORM1HEADERBRYYCYYSYYZWFCGIWFWFPGMSELECT1CGI DFORM1LOOKUPYYYVTPLTATCTBTSTVSHIRESULT1 CGI.BRANDFAMILYJBITEM CGI.BRANDS JBITEM.RIC JBITEM.RICBRAND JBITEM.RICDESC JBITEM.QTYORDALLOCBALBO JBITEM.RICPACKD1D2 ORDERLISTOHDRCVADJRDATE1 LSHIPDATESHIDIVSHITER SHIORDERFILTERSHPQTYORD LASTBRAND JBBRANDS.DESC JBBRANDS JBBRANDSH2BFELINKSUBMENUREPOONHAND JBITEM.RICTYPE JBITEM.RICEXPIRECMT INPROCESSZZTOTSHTOTSHRAPIDSHDROP FORMNAME RESULTFROM CGI.EXPDATETRPLAINFMDYFMDYFMDY.YEFMDY.MOFMDY.DAMDYMDYMDY.YEMDY.MOMDY.DACW1BREMPTYD1 DEALERTOTALSXLCSZCGIVALDD1 BRANDHEADER