<>YPM A3MHRECMSA - MOET RECEIPT MANAGEMENT SCREEN BY INSTANCE auto split .3#3051 Fix Adhoc address after order is split. 3code is at 64000 2011.01.14-cwj C3add line of code to check pack quantity before doing split per TimA33/28/2011 RCC - Instance Review Version requires PREL TPL change53per Tim, needs to sort like consolidation 2011.05.30E$4$,4 PRPLAN.tpl144,4PRPLAN  K$U$,U PRPLANPRO.tpl1UU,U PRPLANPRO V!A$5$,5PREL.tpl155,5PREL 6"$[$,[PREL \#R$#$$$PRST7#,#$.tpl1##,#$ 8%Y$#$$$ JBSTATENUMS'#,#$.tpl1##,#$ (&[$#$$$ PRPLANCONTACT9#,#$.tpl1##,#$ :(T$#$$$MHITEMh#,#$.tpl1##,#$ i+X$#$$$ PRPROGRAMSk#,#$.tpl1##,#$ m-E$$, PRPLAN.tpl1,PRPLAN <@@AE " 7$ $4$,4PRPLANnFb$ZKb$ZPc$[Uc$[Z$o' $otherhead\_Y$oo ( $' $otherheadod$!
Color ExplanationsGreen Indicates Shipped
 4Light Green Indicates
inventory available to ship
 nJ$6 100100 100 100   sA$ td class="td" < ><  nowrap>zv$   6$'TRHILITE
Z 0$*'TRHILITE
$+ ProgramInstanceAddressPriorityQty Split QtyCarrierRef#ReleaseShipped Reqd ArrvOrder By Order DateStatus $3,LET SETPRIORITYTOC$=""$, r(click column heading to sort)+$SUBFUNC RECMSDOU  RADECODEU  RADECODEDOU  SETREVIEWDOU$Under Construction  !  $  8 ]  ,$   $ 
8 ],  6$$$ө @@8E]J#$AөSKULT1 ECODE^3test if exists^#(3on step1#(m aSKUINFO $ INVALID SKU$1564$AөECODE56C$Invalid INSTANCE. Click T and correct the problem.1h@ji! @ $@NL565$$MSRECMSDOU2PRBAL4*SKU@npqrstuv<$3used to run through orders 2x figuring out priority)$3headings and instance list$ $,$,4$3SEE 4000->X$wz{|}~p z$$03sort all instances14$ 3LOOP HERE l$$$3read prplan by oid from sorted listL14  3DO SELECTION15@;6 @j@n @% @=(1k@m2 @;@<x$K M$K8Ship Info  $ @RA$E  l$c @dO/T/D/J$Kc:
INACTIVEd$ @RF$K'$3------ handle the display of orders+ 8 8: :7@=85 : :9@>@=:$@?@@$@A@B`$/ @=OVERRIDE< uttplcp.wbb:8$/;$&/۫@C۫@D۫@E@F, @G @Hu @Ah$&&&
Ship-To: [@ ] is status: @
53Warehouse orders must show on RecMS per SN 11/2/2011{3 IF (POS("NORTHLAKE"=CVS(PRST.CITY$,4)) OR POS("NORTH LAKE"=CVS(PRST.CITY$,4))) AND POS("KIT"=PRST.ADD1$)=0 THEN GOTO 1000($.WRAPIT PRSTNOTES8-.($.SHORTS PRSTNOTES83.6$"L@I
KJi$0
@?۩@A=$00 Contact: ۩@? ۩@A
 T 3STATUSY $Y h*$-0
۫-
۫!rq$(0000xw{$3IF POS("/"+H.OID$+"/"=PLIST$) THEN LET TDDQTY$="
"x53IF POS("/"+H.OID$+"/"=PLIST$)=0 THEN DUMP ; RELEASE |>$y utsub.wbby>1<>1-Immediate Release< utsub.wbby>9<>9-Low< utsub.wbby>2<>2-High<C utsub.wbbyvalue="@"value="@ " SELECTED ` /@>/F$>6$(Ө/@>/###0(Өh @RSIV$yx>N3" -------------- this section makes the javascript to set the cancel dropdown $@< $U$!document.getElementById('PRIORITY').selectedIndex = 9; $
@۩@<&y۩(Ө@%xL@>۫@Q۫@۫@J@N۫@OP$$3IF OCOUNT>47 THEN GOTO 1900$wwܨ@%l3DONEq!3IF LEN(PRELLIST$) THEN GOTO 0900v$
 {($

$  3GOSUB 5000$=3"------------- HANDLE THE CANCEL BUTTONS see 1682 and 4000-$S} utsub.wbb$TO C$( N POPUP17$& F$,

#(UC$ Total۩($*832200'FNPAIR@R PRPLANSTATUS1P? P Allocated@Q %Y%Mz%Dz$P Backordered V V1U@>V @RS@Sk$PDrop Shipped From Vendor
$W@X PROLISTTRACKW@Ib$PP
b @RS$P Shipped ۩@S  @RI$P Inprocess - ۩@S  @RR$P Returned - ۩@S 38 -3sort all instances of sku with all in olist$ %$3this holds the work records $$3this holds all "A" records c [K:C(32),STATUS:C(1),PRIORITY:C(1),RAD:C(8),OID:C(7),QTY:C(7),MOID:C(7),ODATE:C(8),eol:c(1*) $ 2$ 3new for ecode only loop D3------ looping changed 7/3/2012 rcc READ (PRPLAN,KEY="",DOM=2551) 14 @; 63 IF POS(PAD(H.ECODE$,20)=PRELLIST0$)=0 THEN GOTO 2560  @=  @% (# @J$@J99999999 215@; 6 <1h@ji F$@f P% @ 123456789 $@5 Z$@@R@@J@> d$@@J n$@@R x$@@ $@@O $@@> $@(Ө@%0000000 $@@ $ I @RA<$۩A@@J/@>/۩(Ө@%0000000  ?3if there is another ECODE, loop back and get those PRPLAN recs   T $ 14 T3------- done with looping !143reset to original knum 8 3------------- multi-box info  @g 1$Y
ZZZMulti-Box Info l1[@< v 3LOOP THROUGH SUBMITEMS 1[ H\ @]@< H  @aS V$YY
ZZZ@^
ZZZ(۩(Ө@_) ۩@`  83------------ receipt infoa$ "+$0A$$9location='/wf/wfenter.cgi?PGM=JBB&WF=PRUSERS&PGMFUNC=CALL۩#H&POPUP=1&SUBFUNC=SETREVIEWDO&ECODE=' + eee + '&DOREVIEW=' + doval + ' '; }  $ZZP$K
Order Management Screen
SKU: @n (۩@e) @fTotal Received: ۩(ps Total Available: ۩(p
 h@3---------- list each program/instance with review status for it{$B SKUINFO@n$ "156$1k@lm6$]    Set All Orders to RAD   6PRALLOC@< $I&C utsub.wbbvalue="@"value="@ " SELECTED +$$M/wf/wfenter.cgi?WF=PREL&PGM=JBB&PGMFUNC=CALLPROMOMH&SUBFUNC=SCHEDULE&DOBRAND=۩@&DOPROG=۩@l&REVIEWSTATUS=A&DOSTATUS=ALL&SHOWDATE=F&fromdate=01%2F01%2F2000&thrudate=01%2F01%2F2030&HIDECOLUMNS=Y&GO=1&CHANGEYEAR=0&CHANGEBUYCYCLE=0&SUBMITREC=Go&HIGHLIGHTECODE=@<,7$ @0$ $
Buy CycleProgramInstanceOpen OrdersStatusChange RADCancel Orders
۩@@<۩(

 8Y3------------ manage the plist$ , sort it, then truncate it based on available inventory $pq  $$0 |$$$ $F3check for partial shipment |$ $$(0000000"$۩(0000000$|3done sorting and calculating$8p:U 3^1000 -handle the updates of priority and split ordersq>$6Starting update of Receipt Managment screen...

s15A@6u1h@ji$0$(0000 dN$OIDPRIORITYxQTY8G$ Oid:  pri: newqty: x
 B414$Shipto: @=
 L @`$@L4j\ CO PRPLANCANCEL@>#$-------- ORDER CANCELLED
 3check for split amount xE x@%1$ Invalid qty for split!

Q Өx@e6$% Invalid Pack qty for split!

3do the splitZd3done with ocount loopn$  ccalamari$p $UPDATE COMPLETE!
x$

Click to View Updated Receipt Mgmt Screen

Detailed Feedback (dev only)
"X0U3^1000 "SET THE REVIEW STATUS FOR AM INSTANCEb$l$AөECODEv0$Updating instance: 
 156$6$@@L56 &LOGIT1PREL@<6 6p6$.......... Flag Set to : @
 uS$G



yJ3refresh the screenz@3T=$ERROR ۩(Ө AT LINE ۩(Ө" IN ۩#^E2#( 3OUTTA HERE#24&.?U 3^1000 " prompt for date to apply to all orders for an ecode/$@/X$ name="" name="form1"?Set Requested Arrival Date for all un-shipped orders Instance: @9
/\@$ * /b0$ RADECODEDOU$

/v $/o$   I   1.2&U 3^1000 " update orders for an ecode2 $@ 22 @$ @22V C$

Invalid Date. Click T and fix the problem.2C$+Update all Un-Shipped Orders for Instance: @

2"$A@142(2d32x145 @;52+ @%@=@RA2d29$@> RAD WAS: @J RAD IS: 
4X$$@JL44PPRLOGW@>RNEW RAD DATE:  BY: ۩'ULOGIN#@%52d53DONE6Ls$g



6~$

6N  N*E ө /$ / / N48 N>]>PRLOGW@PORDER MOVED TO BOL:#@3ENTER PARAMETERS4$
 03TEXT$=TEXT$+DFORM1LOOKUP$+"" CJBSELECTOPTIONSMHITEMDROPITEMSKUDESC%;$3Enter SKU to Report:
*$
,$E$ &$' - K$3
~8P  Z$1) 1$11 )
)dn $11 x81ê]  $) )($ ) )ܨ8 ]D  N#  $1ŞX( M:N(1*=47),D:N(1*=47),Y:N(1*=47)b($ /// @ $@@g$@@@Ŕl$1 %Y%Mz%DzŔŀŞŔ $1Ş81ţ]     $1\ C$1 / /  f81k]p z2$ $20000101Ƅ1$Ǝ8 Ƙ]`;U3 ------ RETURN STRING OF FORM TAGS IN formstart formende$j?$
~>$6 $$    $=$'K ?$)L @$*<$&$' R F$+ $
$8H  R0$2, 2$ 2-R\0$2 2$ 2 \f0$2 2$ 2 fhF$2
2)$ 2 2hiF$2
2)$ 2 2ijH$2  2)$ 2 2jp$1"۩ ",z81]!3--------- CREATE THE SPLIT ORDER  $8 PRNEXTSEQ nextorderid$@(0000000$@x# $@8( L42(LOGIT1PRPLAN@ < @OVERRIDEdF19@>@=,:P$@@L9:d#3---------- REDUCE THE ORIGINAL QTYn $@%(Ө@%ݨx L4(LOGIT1PRPLAN@> "8,&$no Prplancontact rec @>E2HTRTDDTROCDATETEXT1 ERRMESSAGECW1CW2CW3CW4YYY TDELEMENTTDPLAIN TDNOWRAPTDDRDQTYIDENT1OCOUNTDCOUNTRQTYLTEXTTDDHBRWFCGISELECT1CGIYYYVTPLH2BF BRACKET1 DROPITEM DEALERNOTES JBPICKUPPROCF H.QTY DADDRESS JBSTATENUMS JBSTATENUMSYYYTRPLAIN COLHEADTR REPHEADHTML SHIPNOTESOTHER1 OVERRIDE DCONTACTYYYYSHORTSPRPLANPRELPRELPRSTPRSTPRPLANCONTACTPRPLANCONTACT H.ECODE PREL.ECODE H.SCODE H.OID PRST.CONTACT PRPLANCONTACT.CONTACT PRST.PHONE PRPLANCONTACT.PHONE PRST.ADD1 PRST.ADD2 PRST.ADD3 PRST.CITY PRST.STATE PRST.ZIP H.CARR H.RAD SHIPINFOLINK DROPCARRISADMIN H.ORDERBY H.ODATE PRPLANSTATUS PREL.RELEASE H.STATUS H.BOLKEY BACKBUTTON PRPLANPRO PRPLANPROPROLIST PRPLANPRO.PROLISTMBIINFONBPREL2PREL2 PREL2.MBI PREL2.ECODE PREL2.PACK PREL2.DESC PREL2.MBITYPE PROLIST1ESTATUS MHITEM.STATUS MHITEM.PACK MHITEM.DESC MHITEM.MBIMHITEMMHITEM PREL.SKU PRPROGRAMS PREL.PYEARCODE PRPROGRAMS MHITEM.SKUOHEADOHDCMTERCVSHIADJRDATE1 LSHIPDATETQTYNEWQTY PRIORITYTTTQCCCQIQTATCTBTSTVOCOUNTPRI H.PRIORITYPASSPLISTTDDQTYAVAILPLIST2PLIST1PAMT NOSUBMIT SHOWCANCEL FORMNAMESUBFUNC FORMSTARTFORMEND SUBCANCEL1 SUBCANCEL2DOCYCLE DOSOURCEWFWFPGMOIDPRI NEXTORDERID PRPLAN1.OID PRPLAN1.QTYPRPLAN1ROLD PRPLANCONTACT.OID PRPLAN1.PRIORITYCTEXTSESSION PRPROGRAMS.PNAMESETPRIORITYTOC PRPLAN.OIDNEWBOL PRPLAN.QTYRADLINKWFCGI1ACTION1SDATEYYY1YYY2 CGI.ECODECLOSEGNEWRAD CGI.NEWRADDOECODEMDYMDY.YJMDYMDY.MMDY.DHOLD PRPLAN1.SCODECAROLECODE PREL.REVIEWFLAG REVIEWSELECT PRELLISTBUDGETUSECOST TERRALLOCUNALLOCALLOC INPROCESSSHIPPEDTEXTXX SCREENTOP PRELLIST0KKKPREL1 CGI.DOREVIEW TDDYELLOWTDDGRN TDDLTGRNLEGEND TDDORANGEOLISTWORKWORKTPLWORKLENPRPLAN2ELDESC WORK.K WORK.RAD WORK.STATUS WORK.PRIORITY WORK.ODATE WORK.OID WORK.QTY WORK.MOID H.MOID HOLDLISTRLISTEREVIEWSHIPAMT PARTIALAMTPLIST5YESLEDOSKURESULT1DUMMY EREVIEW1PRELP PRELCANCEL PRPROGRAMS.BUYCYCLELINKMRPPPURL MHITEM.BCODEPPLINK WWECODELIST WWECODE1 PRST.STATUS PRST.SCODE H.SHIPDATEZZZZZZZTDZZ2 H.PYEARCODEBREMPTY DEALERTOTALSCGIVALDD1WRAPITCFORMENDAUDITRECMSDOSUB RADECODE RADECODEDOMDYSAVE SETREVIEWDO SORTDATE!ATEV