<>  > >3JBITEMMBI - Allocations By Division / SHOW ITEM DETAIL SCREEN *3"w/ multi-box-item updates 9/14/2004 rcc "3CALLED VERSION TO GET MBI DETAILS$23456789:@@(M$$, JBPLAN.tpl1 ,JBPLAN2U$$, JBITEM.tpl1 ;,JBITEM<f3LET C=UNT,JBDIVS=C; OPEN (C)"JBDIVS.tpl"; READ (C)TPL$; CLOSE (C); DIM JBDIVS$:TPL$; OPEN (C)"JBDIVS">f3LET C=UNT,JBTERR=C; OPEN (C)"JBTERR.tpl"; READ (C)TPL$; CLOSE (C); DIM JBTERR$:TPL$; OPEN (C)"JBTERR"Fr3LET C=UNT,JBDEALERS=C; OPEN (C)"JBDEALERS.tpl"; READ (C)TPL$; CLOSE (C); DIM JBDEALERS$:TPL$; OPEN (C)"JBDEALERS"P Z$dH3IF POS(YYY$(1,2)=STBL("showprogram"))=0 THEN LET YYY$=YYY$(1,4)+YYY$(8)n8x]P$  +$ 'TRHILITE  $A21 $3@145613;$13.L3loop for each subricV1  @13 `$44@ j$66View ALL Activity for Item: @%
#3^100 "rem get the item recv totalsBJBBAL4@&>$' JBBALALLOC@'(*/+,-.) $-.34/7/04 rcc%3^100 "create top summary totals box$#3 GTTLPREV$$# 0$55 @ @ ۩(# ۩($3+"
rcv="+STR(RCV)+"
gttlavail="+STR(GTTLALLOC-GTTLCOMD-GTTLSHIPPED)+TRO$ L 3DONE#(@ 38000 "errorJE$ An error ۩(Ө at line ۩(Ө" in prog ۩#TE2#(39000 "OUTTA HERE#2'310000 "'  '$B  3$! " ݨ!$   *"'.8 ERRORATITEM JBITEM.RICJBITEMJBITEMCUST1YYYYYJBPLANJBPLANTDDH GTTLCOMDTRTDDR GTTLSHIPPEDD1D2 ORDERLISTOHDRCVSHIADJRDATE1 LSHIPDATESHIDIVSHITER SHIORDERCTPLTDD JBITEM.QTYORDTROZZZZRCVSHOW TOTALSTOCK JBITEM.ITEM_NOCMTUSEKNUMFILTERRESULT1ALLOCZZTOTSHTOTSHRAPIDSHDROP INPROCESSTOTGTTLSHOULDBECOMD JBITEM.MBIRIC MASTERRICSUBRICSSUMMBOX ACTLINKS LOWTOTSTOCKOTHER1OTHER2OTHER3 MASTERJBITEMRICSS TEMRICSSN&ICSS#RICSSAL4@ 789:];<=>?@AB>$^ JBBALALLOC@ ^_cidefgb $;;=fg34/7/04 rcc?3IF JBITEM.QTYRAPID>0 THEN LET RCV=JBITEM.QTYRAPID,USINGRAPID=1$#8
 $.3^1000 "scan thru divs, show plans for a divD S<1QR$&@T(&)@U &71 $&@G(&)@D &*$*+,2.VG SP5 ө@G,'JBUSERDIVISION $^S: JBBALALLOC&^_*h.2`ab $+*2.,43>z$' )H P$')RA$, ;c;&$,++3 DEPENDS ON RECEIPTSS* + h$+h,,hT S*z\y$/0 f $/p0$44*--+55,662u $WWVz3^100 "done with divs%3^100 "create top summary totals box$J%
$Allocated%Com'd%Back
Ordered%Shipped%Avail
'1۩(* 1۩(+1۩(,1۩(21۩(*+,2
$X;3 GTTLPREV$YX6-j$JJ0
۫Ordered%۫Received%۫ Total Stock
@K1۩(X1۩(YL3+"
rcv="+STR(RCV)+"
gttlavail="+STR(GTTLALLOC-GTTLCOMD-GTTLSHIPPED)+TRO$"$JJ
 )3---------- HANDLE MULTI-BOX-ITEM DISPLAY  @n $JJ%
J"$JJ
Multi-Box Item Info
۫ Item Code%۫Ordered%۫Received%۫ Total Stock
 3^1000  'ULEVELa$ $ 3^1000 "BOTTOM OF PAGE|$3Total1۩(41۩(-1۩(51۩(61۩(4-56 C$IJ#3##3WFPASS0#SET6$
View All Divisions
 S$
View Territory Detailq Si$
Allocations By Division$ #(#(@ 38000 "errorJE$ An error ۩(Ө at line ۩(Ө" in prog ۩#TE2#(39000 "OUTTA HERE#2'310000 "' M'$B M 3$NMO ݨN$M M*O'.8MERRORATITEMCGIITEM1CC9ITEXTTEXTALINK JBITEM.RICJBITEMJBITEMJITEMK JBITEM.RICDESCCUST1AALINKYYYYY ITEMDLINKWFCGI1 JBITEM.RICPACK ITEMPREV ITEMNEXT ITEMNEXT1 PAGETITLEDUMMY FORMSTARTWFWFPGMJBPLANJBPLANJBDIVSJBDIVS JBDEALERS JBDEALERS TOTSUMMARYLISTOFTDDHDIVTTLTTTTTTSHOW TTLALLOCTTLCOMDTTLBO GTTLCOMD TTLAVAILSS2TRTDDR TTLSHIPPEDBOTTOM GTTLALLOCGTTLBO GTTLSHIPPEDD1D2 ORDERLISTOHDRCVSHIADJRDATE1 LSHIPDATESHIDIVSHITER SHIORDERTERDIV JBDIVS.RNAMECTPL JBDIVS.DIVTDDTEXT0TEXT1 JBITEM.QTYORDTROZZZZSHOWALLJBTERRJBTERRDOTERR JBTERR.TERR JBTERR.TERRNAMETTLPREV GTTLPREVRCVSHOW TOTALSTOCK JBITEM.ITEM_NO EDITRICLINK CGI.SEARCHFORCMTUSEKNUMFILTER TTLRAPIDTTLDROPRESULT1ALLOCZZTOTSHTOTSHRAPIDSHDROPTTLIP INPROCESSTOTGTTLSHOULDBECOMD JBITEM.STATUSQCHOLD JBITEM.QCSTATUS JBITEM.MBIRICSSI