<>*&. $3BOMINQ3 - Inventory Inquiry -- KITS S$4$$5JCUSTQ4,45.tpl14*4,45 R*$S$4$$5JITEMS4,45.tpl14*4,45 T*&S$4$$5JILOTh4,45.tpl14*4,45 i*(U$4$$5WMSBOM3~4,45.tpl14*4,45 *<@@A$WlZ1QJ1WRnJ$ 100 100100100   sA$td class="td" <>< nowrap>z$  {$2
$2

Kit Inventory Inquiry: W - @`

2

Kit Inventory Inquiry: W

0$;'TRHILITE!
&$g$<DKit Code Description Qty/
Kit gBookg On
HandgCom'dgAvailgDamage  $mKit Code^Description^Qty/
Kit^ ^#Book^#On Hand^#Com'd^#Avail^#Damage O OTHERHEAD>Q OTHERHEAD@P$ |#9O$ |9?$ ^#(>$ ^($ ~ L$=@%$>
۫ 
 $?%
U 2
 =M<5$@
 ?AB !$  $+$< width="۩(">8] ! $ 8]  M$6
 6)$6 68] ,$ $
8]   1$//20 8 ] $"",8]""#$#( #$#, ۩#$5$"۩# ۩$ %8&]'  (F$6  6,$6
6()8*], 6$$)$)ө'@@8)E]J  OK" O$O NL$$OO۩O20OM/$OO/O/ON8OO]TO3IF FIELD(CGI$,"CUSTCODE",ERR=0350)<>"" THEN GOTO 0400; REM test if exists^#(3on step1#(%$_off$_'hmenu$$_on3force horizontal menu ON$Y_6$[on 'show0off $[offj$CdeDfE Item_List_W WFREPSTARTEFYGCHIDJK LC=  L> D LD?$&&>i$89:+,-./\3LET SHIPDATES$="Status ["+JBPLAN_STATUS$+"]
"; IF JBPLAN_STATUS$="S" THEN LET SHIPDATES$=SHIPDATES$+"For Shipment Period: "+FROMDATE$+" to: "+THRUDATE$p\$!!

Item Report by Cust: W
P

 ! z$VJ1W1~V 3LOOP HEREL1~lV Vl 3DO SELECTION! [off@\@] $a@" utencode.wbb&|${f$k    }$}3L$=ITEM$+EDITKIT$+TDD$+CVS(WMSBOM3.DESC$,3)+TDD$+CVS(SKUDESC$,3)+TDD$+" "+TDDR$+STR(KONHAND+KDAMAGED)+NB$+TDDR$+STR(KONHAND)+NB$+TDDR$+STR(KCOMITTED)+NB$+TDDR$+STR(KONHAND-KCOMITTED)+NB$+TDDR$+STR(KDAMAGED)+NB$+TRO$|$a{۩@۩p kkk۩(}kk $n$ng3LET TBOOK=TBOOK+(JITEM.ON_HAND+JITEM.DAMAGED),TONHAND=TONHAND+JITEM.ON_HAND,TCOMD=TCOMD+JITEM.COMITTEDo3LET TAVAIL=TAVAIL+JITEM.ON_HAND-JITEM.COMITTED,TDAM=TDAM+JITEM.DAMAGED,TDAMCOMD=TDAMCOMD+NUM(JITEM.DAMCOMMTD$)FxnLx&3^100 "------ handle the JILOT display}$k$qU$qq q$tSKUCODE۩(qrR۩At B$sQTY۩(q ts T T1SrT) utencode.wbbT md$a T $u   $uau۩@ (۩s)۩(@\@]k۩(@\k۩(@vk۩(@\@vk۩(@]k 83--------- figure kit qtys+$qwȘxȘyȘ}B?U$qq q6$tSKUCODE۩(qrR۩At B$sQTY۩(q ts T T1SrT $zs$w@\z $y@vz$ @]zx$x@]z$}}wy,68%3^100 "----------- DUMP LINE TO FILESLC$LL ^$^ n@jY L;۫ ^! DLD;$BB BALD@$B$^8l3DONE $LC$LL  L D LDCD WFREPSUMMARY$3
F _on #(UC$  Total۩( $*8 $3------ handle the display of orders '83 turned off, doesn't make much sense (~$2Report Totals ۩(d۩(e۩(f۩(b۩(c LC$LL *3F CSVCHAN THEN WRITE (CSVCHAN)FNNOBR$(L$)  DLD$BB  BALD@$B 8 H3^1000 "---------- dump the htm version for display with horizontal menu $ [on $[off$[on $!Y
Toggle Zeroes [
 $4$,4I 14 Z 0 $Z :  3DONE $ $ #($N"8@3T=$ ERROR ۩(Ө AT LINE ۩(Ө" IN ۩#^E2#( 3OUTTA HERE&N N*E ө/$//N48N>]$7 reportparamD$
 p$d
D3CALL "POPUPINPUT",FORMNAME$,"fromdate",JUL(0,0,0)-14,"",RESULTFROM$ B3 CALL "POPUPINPUT",FORMNAME$,"thrudate",JUL(0,0,0),"",RESULTTHRU$*i3LET TEXT$=TEXT$+TRPLAIN$+"Ship Dates
If Shipped Selected:"+TDD$+RESULTFROM$+" Thru "+RESULTTHRU$+TRO$/K3CALL "JBSELECTOPTIONS","JBPLAN_STATUS","JBPLAN_STATUS","","","",0,RESULT1$4#$;Status:0 >p$; Customer:3 ] 'hmenuon>$- F$' Q$;1$ 
Select Report Parameters
~83 STEP 2 SELECT BRANDSO$Brand Family: @1 
 #$(3CALL "JBSELECTOPTIONS","JBBRANDS","BRANDS","CAT","DESC","*FILTERMASK(R.FAMILY$,"""+CGI.BRANDFAMILY$+""")*MULTIPLE*NOTOPVALUE*SELECTALL*AUTH",0,RESULT1$ $0N$ /F$' I$1
$ f8  $6 6($66ܨ8]JBITEMTTTQCCCQIQCOUNTTRTDDTROTEXT1 ERRMESSAGECW1CW2CW3CW4YYY1YYY2YYY TDELEMENTTDPLAIN TDNOWRAPTDDRDQTYIDENT1DCOUNTRQTYLCSVCHANCSVLINKTEXTTDDH DFORM1HEADERBRYYCYYSYYZWFCGISELECT1CGI DFORM1LOOKUPYYYVTPLTATCTBTSTVRESULT1 CGI.BRANDFAMILYH2BFSUBMENUCFYYY FORMNAMETOTS0TOTS1TOTS2TRPLAIN COLHEADTR REPHEADHTML REPHEADXL REPHEADPDF REPBREAKPDFPDFLEN PDFCOUNTOUTCHANPDFCHANSDESCENDMENUCSVFILEOUTLINKOUTFILEPDFLINKPDFFILEOCOUNT COLHEADTR0 FINDURLGYY SHIPDATESJCUSTJCUSTJITEMJITEM REPORTINTRO BRACKET1CUST1WHCGIHMENUOUT1SHOW0JITEM.ON_HANDJITEM.DAMAGEDLCSV HMENUSHOW JCUST.CUSTOMER_NAMEITEMTAVAILTDAMTBOOKTONHANDTCOMDTDDRHJILOTJILOT JITEM.LOTTED_ITEMNBWFCUSTITEMENC ITEMLINEWFCGI1SKUDESCSKUSEQSKUKEYSKUQTYDOSKUNBBJITEM.COMITTEDKONHAND KDAMAGED KCOMITTEDSKUQTYEDITKIT BOMIDENC KIT_AVAILWMSBOM3WMSBOM3 WMSBOM3.BOMID WMSBOM3.DESCHEADYYY1YYY2ADDKIT JITEM.DESCRIPTIONCW1BREMPTYD1 DEALERTOTALSXLCSZCGIVALDD1OABRNOBRRICDATESUBCGIVALDD1OABRNOBRRICDATESUB