<>'-"p■ =3JBSHIPRP5 - Inventory Report -- by STATE/SHIPPED/DATE ReportE$дП╗$С,сдШя JBPLAN.tplС1сдШе3СсдШС,сдШяJBPLANС еВе3!E$д<П╗$С,сд<Шя JBITEM.tplС1сд<Ше3Ссд<ШС,сд<ШяJBITEMС еВе3"I$дSП╗$С,сдSШяJBBRANDS.tplС1сдSШе3СсдSШС,сдSШяJBBRANDSС еTВе3#E$дUП╗$С,сдUШя JBDIVS.tplС1сдUШе3СсдUШС,сдUШяJBDIVSС еVВе3+╪$еПяЄ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$д П╗сгсРф РфШРеПяС$дП╗$С,сдШяJBPLANСЖnnJ$еПя РеПя100РеПя100РеПя100РеПя100РеПя sA$еПяtd class="td" РеПя<шешя>РеПя<шешя nowrap>z┼$е ПяРеПяРе(ПяРеПя шр РеПя┌0$еXПе Ре П╘'сяTRHILITEШшяРе)Пя
▄║$еYПя Itemше(шяше(шяDescriptionше(шяAvailability
Dateше(шяShippedше(шяValueше(шяTotal Cost⌡╙$еWПе)шяш╘'ся pagetitleШшя
For Shipment Period: ш╘се0РяFROMDATE╠Ж°Шшя to: ше@~шя
Company: ше@;шя
State Code: ше@шя шр ше)═▌$еZПя%

ш╘'сяREPORTINTROШшя

шеWшя5

шеY╔E$е[Пя

шр шеYї╠$е\Пя%

шеWш╘'сяREPORTINTROШшя

ш╘'сяREPORTINTROШшя

шеWшя

шр шя=шеY╙5$е]Пя

шр ше\Рд^Пф'Рд_ПфЄo$е1ПяgЎ?$е1Пе1шя!T7 ╘се0РяBRANDFAMILY╠Ж^ШБяЩЙЖhС3test if exists^ЖїЬСЖ#(С3on step1hMЖ░С3IF FIELD(CGI$,"BRANDS",ERR=0370)<>"" THEN GOTO 0400; REM test if existsr%3GOSUB 44000; GOTO 9000; REM on step2├Ж#(░b$д$ПфdРд!ПфeРд`ПфfРеaПя INVPROGRAMСя WJBREPORT3РеaРеbРд!Ре"Ре#Рд$Ре%Ре&Рд`РеcРеdў Lсд$ШеZ╦ д!ЩЙ Lсд!Ше[Ґ д`ЩЙ Lсд`Ше\©k3IF CGI.BRANDS$="" THEN LET TEXT$="You Must Select Brands. Please Click 'BACK' and fix the problem."; EXIT N3LET BRANDS$=CGI.BRANDS$+$01$X}3LET BRANDS1=POS($01$=BRANDS$); IF BRANDS1=0 THEN GOTO 0700 ELSE LET BRANDS1$=BRANDS$(1,BRANDS1-1),BRANDS$=BRANDS$(BRANDS1+1)┼3GOSUB 0900╡ 3GOTO 0600╪3end of brandsф3LET TEXT$=TEXT$+"
"+$0A$ 3GOTO 0500 3done with divs* 3GOTO 1900>Q$еПяРеПяРеПяРеПяРдПфРд ПфРд4ПфРд5ПфРд6ПфРд7ПфРд8ПфH#$дsПфРдtПфРдuПфРдvПфРдwПф└3^100 " loop here├$еQПяРеqПя▌1сд<╣я╪ф╞Ж▐ШХ 3LOOP HEREL1Зсд<╟ЖlШеj43IF JBITEM$(1,LEN(BRANDS1$))>BRANDS1$ THEN GOTO 2900╟ 3DO SELECTIONн>3IF POS(CVS(JBITEM.RICBRAND$,3)+$01$=BRANDS$)=0 THEN GOTO 1100ь%3IF JBITEM.STATUS$="D" THEN GOTO 1100x еTВ╘ сеTШ┤ЗсдS╣╘Aсе@>РфШ╞Ж┬ШеTСЖ┼┬G$е┘Пе┘шяINVALID BRAND CODE [ше@>шя] FOR ITEM [ше@=шя]шр СЖL┼ ╘се@}РфШБ╘се@;РфШЩЙЖLэ$3------ handle the display of orders@BяJBBAL4Ре@=РеDРеEРеFРдGРдoРдHРд9РдIРеJРеKРеLРеMРеNT/3LET FILTER$="MASK(H.DIVISION$,"""+DIVS1$+""")"^m$дjПфС$еOПяDEALERSTATECODE$="ше@шя" AND H.SHIPDATE$>="ш╚─ се@─Шшя" and h.shipdate$<="ш╚─ се@~Шшя"h6я JBBALALLOCРе@=РдjРеOРдAРдpРдfРдgРдhРдnРе:r$дHПдHэдIэдnэдh|?$дPП╗се@@ШРдmПдAщдgщдfРдBПфС дHЦдAЩЙ$дBПдmРдmПф│ дAАфКдfАфКдgАфЩЙЖL┐+3IF DIVS1$<>LASTDIVS1$ THEN GOSUB DIVHEADER├73IF JBITEM.RICBRAND$<>LASTBRAND$ THEN GOSUB BRANDHEADER░<$дsПдsэдAРдtПдtэдgРдuПдuэдmРдvПдvэдBРдwПдwэдf∙$д┐ПфС$д┐П╗се@└╠Ж√Ш $д│Пдgчд┐Рд┌Пд┌эд│є─$е Пе@=шеше@rшешя(ш╘(с╗се@CШШшя) ше@?шеш╚─сеJШшеш╘(сдgШшеш╘(сд┐Вя ###,###.00Шшеш╘(сд│Вя ###,###.00ШшеўLсд$Ше ше С$дПдэфб д!ЩЙ Lсд!ШеXше Й! д`ЩЙLсд`ШеXше С$д_Пд_эфО д_Дд^ЩЙLсд`Ше]С$д_ПфТ#$д4ПфРд5ПфРд6ПфРд7ПфРд8ПфЧЖL U─ 3------ 1ЗсдS╣╘Aсе@>РфШШеT7$е Пя

Select Report Parameters
ше(шя
ш╘се@RРфШшяшеLсд$Ше ше С$дПдэф& д!ЩЙ Lсд!ШеXше (" д_Дсд^щфШЩЙLсд`Ше]С$д_Пф0! д`ЩЙLсд`ШеXше С$д_Пд_эф58: U─ 3------?1ЗсдU╣еiШеVD-$е Пяшеiшя - ш╘се@kРфШшяшеN!Lсд$Ш╚─се РфШше С$дПдэфX д!ЩЙLсд!Ш╚─сеXРфШше Z" д_Дсд^щфШЩЙLсд`Ше]С$д_Пфb) д`ЩЙ!Lсд`Ш╚─сеXРфШше С$д_Пд_эфg8l3DONEqU─v$е Пя

{Lсд$Ше С$дПдэф} д!ЩЙ Lсд!Ше ─ д`ЩЙ Lсд`Ше ┼сд$ШСсд!ШСсд`Ш·яJBREPSUMMARYа├$еeПя~Reports Menu
ц$е'Пеeшя
шеbдL ╗се┘ШДфЩЙ=$е'Пе'шя

Warnings

ше┘шя

шр фЖ#(пU─зC$еПеше шешешяTotalшешяш╘(сдШшяшеД$дПдэдРдПфРдПдэф*8 ▄,U─3--------------- PRINT THE PROGRAM TOTALS ▒L$е ПешешяTotalsшешеш╘(сдtШшешеш╘(сд┌Вя###,###,###.00Шше √Lсд$Ше ше С$дПдэф ≤ д!ЩЙ Lсд!ШеXше ! д`ЩЙLсд`ШеXше С$д_Пд_эф ° д_Дд^ЩЙLсд`Ше]С$д_Пф ═1Lсд$Шя шеС$дПдэф ╒- д!ЩЙ%Lсд!Шя ше є9 д`ЩЙ1Lсд`Шя шеС$д_Пд_эф і д_Дд^ЩЙLсд`Ше]С$д_Пф э#$дsПфРдtПфРдuПфРдvПфРдwПф Ф8T-3^100 "end of brands reached go back for moreў8@3T=$еПяERROR ш╘(с╗Шшя AT LINE ш╘(с╗"сфШШшя IN ш╘#сзфШ^EС2#(3OUTTA HERE#2сдШ&╛N ╚─сеШN!E ╗с╘сеРфШШАфЩЙ/$еПесфРфШшя/шесфРфШшя/шесфРфШN"8еN#]NХ ╚─сдРдШNЙ!$еПяС дДфЩЙ $еПяNЛ+$еПешя<шешя width="ш╘(сдШшя">NН8еNП]NР ╚─сеШNЭ! ╘сеРфШАяЩЙ$еПя O8еO]O ╚─сеШO,$еП╘сеРфШС еБяЩЙ$еПешя
O8еO#]O$ ╚─сеШO& ╘сеРфШАяЩЙЖO,O(1$еПесфРфШшя/шесфРфШшя/20шесфРфШO,8еO-]O.*╚─ сеШПесфРфШшесфРфШшесфРфШO8 ╚─сеШO:$еПя"шешя",O<8еO>]OB╚─се*Ре+Ре,ШOC( ╘се+РфШБяЩЙ$е+Пя, ш╘се+РфШOD5$еП╘се*РфШш╘се+РфШшя ш╘се,РфШшя OE8еOF]OL ╚─сеШOV$$е2ПяС$е2П╘с╘се0Ре╠Ж@ШРфШO`8е2Oe]O╟ ╚─сеРдlШOд3$еПесфР╗сеШщфШшя colspan="ш╘(сдlШшя">Oн8еOь]їЭ$еzПяreportparamїЩD$е'Пяше╘Б$е'Пе'шешя╙F8╚Ю%3 STEP 2 SELECT BRANDS and Divisions╚ЕO$е'ПяBrand Family: ше@;шр шя

шр ╚Йo$е1Пяg╚О?$е1Пе1шя3╚Т#$е'Пе'ше1шя

Select Report Parameters
Brand(s)
╛┤яJBSELECTOPTIONSРяJBBRANDSРяBRANDSРяCATРяDESCРяFILTERMASK(R.FAMILY$,"ше@;шя%")MULTIPLENOTOPVALUESELECTALLAUTHРфРе:╛$е'Пе'ше:╛0f3CALL "JBSELECTOPTIONS","JBDIVS","DIVS","DIV","RNAME","MULTIPLENOTOPVALUESELECTALL*AUTH",0,RESULT1$╛:3LET TEXT$=TEXT$+RESULT1$╛√E$е'Пе'шяшр шя&╛≈N$е'Пе'шяшр шя/╛≤м$е'Пе'шя'шр шя-шр ╛ I$е'Пе'шя1╛·$е'Пе'шешя

Select Report Parameters

Brand(s)

╛┤яJBSELECTOPTIONSРяJBBRANDSРяBRANDSРяCATРяDESCРя*FILTERMASK(R.FAMILY$,"ше@;шя%")*MULTIPLE*NOTOPVALUE*SELECTALL*AUTHРфРе:╛$е'Пе'ше:╛0f3CALL "JBSELECTOPTIONS","JBDIVS","DIVS","DIV","RNAME","*MULTIPLE*NOTOPVALUE*SELECTALL*AUTH",0,RESULT1$╛:3LET TEXT$=TEXT$+RESULT1$╛√E$е'Пе'шяшр шя&╛≈N$е'Пе'шяшр шя/╛≤м$е'Пе'шя'шр шя-шр ╛ I$е'Пе'шя1╛·$е'Пе'шешя

ґf8ЪЪTPLHHJBPLANJBITEMTTTQCCCQIQCOUNTTRTDDTROCDATETEXT1ERRMESSAGECW1CW2CW3CW4YYY1YYY2YYY TDELEMENTTDPLAIN TDNOWRAPTDDRDQTYIDENT1OCOUNTDCOUNTRQTYLCSVCHANCSVLINKCSVFILEOUTCHANOUTLINKOUTFILETEXTTDDHBRYYCYYSYYZWFCGIWFWFPGMCGI DFORM1LOOKUPYYYVTPLTATCTBTSTVSHIRESULT1 CGI.BRANDFAMILYJBITEM JBITEM.RIC JBITEM.RICBRAND JBITEM.RICDESC JBITEM.QTYORDALLOCBO JBITEM.RICPACKD1D2 ORDERLISTOHDRCVADJRDATE1 LSHIPDATESHIDIVSHITER SHIORDERFILTERQTYORD LASTBRAND JBBRANDS.DESC JBBRANDS JBBRANDSJBDIVSJBDIVSH2BFTRPLAIN COLHEADTRREPHEADHTML REPHEADXLREPHEADPDFREPBREAKPDFPDFLEN PDFCOUNTPDFCHANSDESCENDMENUPDFLINKPDFFILESUBMENUZZTOTSHTOTSHRAPIDDIVS1USEKNUM JBDIVS.RNAMEYYYCOMDSHDROPCMT INPROCESSLASTPROGRAM JBITEM.RICPROGRAMPALLOCPSHTOTPCOMDPBOPZZTOTFJULTJUL FORMNAMERESULTFROMRESULTTHRU JBBRANDS.FAMILY CGI.THRUDATE CGI.MATCHSTATE CGI.FROMDATETTLCOST GTTLCOSTMYCOST JBITEM.RICCOST WARNINGS┌CW1┌BR┌EMPTY┌D1 ─DEALERTOTALS┌XL┌CSZ┌CGIVAL┌DD1─BRANDHEADER ─DIVHEADER ┌TRCOLSPAN─PROGRAMTOTALS┌JJ(!