<>Ґ_k 33WJBPLAN0 WEB INQUIRY INTO JITEM BALANCES W/ LINKS43 WJBPLAN0FORMAT SHOULD BE SET PRIOR TO CALLING THIS$дDПдEС дDАфЩЙ$дDПф33DFORM=1 IS item/desc/ctn dform=2 is full inventr53set searchfor$ also if you want to select some items@Жб#3\\CALL "JBUSERBRANDLIST"(.$дП╗$С,сдШяJITEMС$д<П╗$С,сд<ШяJBITEM2E$д П╗$С,сд Шя JBITEM.tplС1сд Ше7Ссд ШС,сд ШяJBITEMС еВе74<$дVП╗$С,сдVШя JBPLAN.tplС1сдVШеXСсдVШС,сдVШяJBPLAN9 е8Ве7<:$дZПфС ╘се:РяSELECTJBITEM╠Ж>ШБяЩЙ$дZПфРд[ПфF ╚─сеIШH$еJПеIIH3IF POS(YYY$(1,2)=STBL("showprogram"))=0 THEN LET YYY$=YYY$(1,4)+YYY$(8)J8еJK]P*$д)ПфС$д*П╗сяD=Ае(ШС д*АфЩЙЖxZ;$е+Пе(сд*эфШС ╗ся Ае+ШЩЙ$е+Пе+сфР╗ся Ае+ШШd=$е+П╘се+РфШС ╗ся,Ае+ШЩЙ$е+Пе+сфР╗ся,Ае+ШщфШn$д)П╗се+╠ЖxШx│$еAП╘'сяTRHILITEШРеПяРеHПяРе!ПяРеПя шр zA$еBП╘'сяTR2ШРеПеAРеCПяС$е Пе шяшр {┐$еTПяAll AuthorizedРеUПяС$еTП╘се:РяJBDIVS╠Ж|ШС$еUПеTС ╗ся*AUАеTШЛ╘сеTРфШАяЩЙ$еTПяAll AuthorizedРеUПя|v$еPПяAll AuthorizedРе9ПяС$еPП╘се:РяJBBRANDS╠Ж}ШС$е9ПеPС ╗ся*AUАеPШЩЙ$еPПяAll AuthorizedРе9Пя}s дDАфЩЙhЖїЬС3LET TEXT$=TEXT$+"Brands Selected: "+SELECTEDBRANDS$+" | Selected Region: "+SELECTEDREGIONS$+"
"~ дDФфЩЙ$е Пя
┌╣ дDАфЩЙ╙$е Пе шя0┐ дDАфЩЙЪ$е Пе шя

ITEMшеHшяDescriptionшеHшяQty/ CTNшеHшяStatusшеHшяCommentшя

└≤ дDАфЩЙ█$е Пе шя

ItemшеHшяDescriptionшеHшяQty/ CTNшеHшяCostшеHш╚─сяBookШшеHш╚─сяOnHandШшеHш╚─сяCom'dШшеHш╚─сяAvailШшеHш╚─сяHoldШшеHш╚─сяHoldШшя Com'dшя

▄ ╚─се,Ш√B ╗се,ШЦф ЩЙ3$е1Пе,Сд0ПфЧф щ╗се1ШС$е,Пя ше,С*д0═8е,╙]Є ╚─се,ШЎ@$е,П╘се,РфШС ╗ся Ае,ШЩЙ$е,с╗ся Ае,ШРфШПя+СЖЎхE$д.П╗ся#Ае,ШС д.ЩЙ+$е,Пе,сфРд.щфШшя%23ше,сд.эфШСЖхр8е,э]Ф$еПе4ше5РеПеРдПфХ1сд<╪ф╣я╞ЖИШМ$$е>П╘с╘се:Ря SEARCHFOR╠ЖНШРфШП#3READ (JITEM,KEY=STARTAT$,DOM=0250)З 3LOOP HEREЭ0$е=П╘сд<╟Ж░ШС1Зсд<Ше8С$еПяJ1JIM001ше@\Щ е>АяЩЙЖЧ" ╗с╘се@?РфШР╘се>РфШШЩЙЖЪ" ╗с╘се@@РфШР╘се>РфШШЩЙЖЖЗn1сд╣е╞Ж╠ЖШе РеРеРе РдРдРдРдРдРдРеРеРдРдРеРдРдРдРдРдРеРдСЖPя JBJITEMCREATEРе8Ре^РяС$е@\П╘Aсе^РфШРеПесфРфШше@\С1сд╣еШСЖ2$еOПяActive/HoldС$еOП╘се:Ря SEARCHTYPE╠ЖШI еOАяAllЩЙЖТ еOАяAQ (Active/QC Hold)Ке@LАяAКе@gАяQЩЙЖ # еOАяActiveК╗се@LАяAШЩЙЖ * еOАяActive/HoldК╗се@LАя AHШЩЙЖ! еOАяHoldК╗се@LАяHШЩЙЖ$ еOАяDeletedК╗се@LАяDШЩЙЖ ЖЗC$еdПеUшя,С еUАяЩЙ)ЖС3tESTREGIONS$=STBL("JBUSERDIVISION")# ╗сеdШЦфЩЙЖЗС3NO MATCH FOUNDJ$дeП╗ся,АеdШРеYПеdсфРдeщфШш╘сфШРеYПеYсфРфШРеdПеdсдeэфШ1сдV╣е@?шеY╪ф╞ЖШ,$еWП╘сдV╟ЖШС еWсфРфШБе@?шеYЩЙЖ!ЖС3FOUND A PLAN IN THIS REGION# е9БяЩЙ е9Б╘се@;РфШЩЙЖЗ"] ╗ся*ALLА╘'сяJBUSERBRANDШШАфЩЙ7 ╗ся,ш╘се@;РфШшя,А╘'сяJBUSERBRANDШШАфЩЙЖЗ' е АяЩЙ$е П╘сфШ,█$е-Пя .q$еKПя 6t$е2Пя @q$е3Пя BC$еSПяС ╘се:РяSUBFUNC╠ЖCШАяSHOWALLЩЙ$еKПяРеSПяC$еFПя РеGПя E: ╘се@QРфШБяЩЙ'$еGПяше@QшяM$еfПе@gС еfБяQЩЙ$еfПяNг3IF CVS(SESSION.ULOCATION$,3)<>"CLG" AND POS(CVS(SESSION.LOGIN$,3)="jswanson*lescamil*abuoscio*bpuentes*nmatheny*kpowell*cgiaconelli*")=0 AND (POS(JBITEM1.RIC$(1,2)="LV*AB*DG*DZ*AA*")) THEN GOTO 0250To дDАфЩЙd$е Пе шешя

ш╚─сяOrderedШшеHш╚─сяReceivedШшеHш╚─сяTotal StockШшя
шеKш╚─се@?ШшеSшеше@@шешя(ш╘(с╗се@MШШшя)шеше@Lшеfшя	шеGUс дDАфЩЙх$е Пе шешя	ш╚─се@?Шшеше@@шешя(ш╘(с╗се@MШШшя)ше!ш╘с╘(с╗се@NШчйLВя$###,###.00ШРфШше!ш╘(сдэдэдШше!ш╘(сдШше!ш╘(сдШше!ш╘(сдщдШше!ш╘(сдШше!ш╘(с╗сесфРфШШШV; дDАфЩЙ0$е Пе шешя	ше@]ше!ш╘(сдШше!ш╘(сдШh$е Пе шеr<$д#Пд#эдРд$Пд$эдРд%Пд%эдРд&Пд&эдРд'Пд'эд"\|ЖЗ├$3------ handle the display of orders░3DONE <3LET TEXT$=TEXT$+TRP$+TRO$+TRP$+TDD$+"Totals"+TDD$+TDD$+TDD$єl3LET TEXT$=TEXT$+TDDR$+STR(TK2+TL2+TM2)+TDDR$+STR(TK2)+TDDR$+STR(TN2)+TDDR$+STR(TK2-TN2)+TDDR$+STR(TL2)+TDD$ў3LET TEXT$=TEXT$+TRO$Ё"$е Пе шя

шр ╦ЖЮб38000 ERRORл8$е/ПяERROR ш╘(с╗Шшя AT ш╘(с╗"сфШШшя IN ш╘#сзфШжEС2Ю39000 OUTTA HEREЙ' 1Зсд Ше8'$е@RПя '$ LЗсд Ше8'./е8сфРф(Ш'8Ж'їЬ3----------- show form╗$е Пеb╗7$еcПяС е9БяЩЙ"$еcПя /SELECTED=ш╘се9РфШшя/╗MяJBSELECTOPTIONSРяJBBRANDSРяJBBRANDSРяCATРяDESCРяAUTHшеcРфРе_╗*$е Пе ше_╗4E$е Пе шяшр шя&╗>H$е Пе шя< Item Num/Desc: ╗Hт$е Пе шяц Status:шр ╗M7$еcПяС еUБяЩЙ"$еcПя /SELECTED=ш╘сеUРфШшя/╗RJяJBSELECTOPTIONSРяJBDIVSРяJBDIVSРяDIVРяRNAMEРяAUTHшеcРфРе_╗\$е Пе ше_╗fм$е Пе шя'шр шя-шр ╗pZ$е Пе шя1
шр ╗І8ЪЪSTARTATENDATUSEKNUMKJBITEMTRTDDTROJITEMJBITEMA2B2C2D2C2D2E2F2G2H2F2G2I2J2H2K2L2M2N2O2I2Q2TEXTTDDRPLANNEDTK2TL2TM2TN2 TPLANNEDWEBODAYSACTDAYSPOSDAYSACTZACTLINKZZERRMESSAGEZZZ PLANLINKT PLANLINKC WFCOCODEWFCUSTWFCGI1 JBITEMTPLJBITEM1DOBRANDCGI JBITEM1.RICBRANDJBITEM1KJB SEARCHFOR JBITEM1.RIC JBITEM1.RICDESCTR1TR2TRPDFORMWJBPLAN0FORMAT JBSTATUS JBCOMMENTTDDHYYYYY ITEMDLINK JBITEM1.STATUS JBITEM1.RICPACK JBITEM1.RICCOSTSEARCHTYPESELECTEDBRANDS JBITEM1.COMMENT JBITEM1.WEIGHTITEMDLINK2SELECTEDREGIONS DOREGIONJBPLANKJBPLAN JBPLANTPL DOREGION1 SELECTJBITEMLOOKUP JBITEM1.ITEM_NO JBITEM1.QTYORDITEM_NORESULT1WFWFPGM FORMSTART DEFAULT1TESTREGIONSPQC JBITEM1.QCSTATUS┌WMASK┌S┌RICSWJ