<>>7D )3MHRECMS - MOET RECEIPT MANAGEMENT SCREEN .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 TimE$7$,7 PRPLAN.tpl17 7,7PRPLAN K$Y$,Y PRPLANPRO.tpl1Y Y,Y PRPLANPRO Z !A$8$,8PREL.tpl18 8,8PREL 9 "$_$,_PREL ` #R$&$$'PRST:&,&'.tpl1& &,&' ; %Y$&$$' JBSTATENUMS*&,&'.tpl1& &,&' + &[$&$$' PRPLANCONTACT<&,&'.tpl1& &,&' = (T$&$$'MHITEMl&,&'.tpl1& &,&' m +X$&$$' PRPROGRAMSo&,&'.tpl1& &,&' q <@@FE " 7$ $7$,7PRPLANnZ$s' $otherhead\\\$ss + $t' $otherheadsnJ$9 100 100 100 100   sA$td class="td" <>< nowrap>z$  6$'TRHILITE
^ 0$-'TRHILITE
$. ProgramInstanceAddressPriorityQty Split QtyCarrierRef#ReleaseShipped Reqd ArrvOrder By Order DateStatus 3$!
$!

۩' pagetitle

$Z$fSet All Orders to RAD   $/B
!
 >.$SUBFUNC RECMSDOU  RADECODEU  RADECODEDOU $Under Construction ! $ 8] ,$ $
8], 6$$$ө@@8E]T4 DROPITEM^3test if exists^#(3on step1#(5$$MSRECMSDOU7$#AөDROPITEM8#9B$Invalid element. Click X and correct the problem.1l@nm! @} $@}NLlm2PRBAL4*SKU@ruvwxyz{<$3used to run through orders 2x figuring out priority$#$", $/4$6&3IF ENDAT$=" " THEN LET ENDAT$=$FFFF$>X$|17 3LOOP HEREL17l 3DO SELECTION18@>L9 @n@rL @(L @@L#! @ $@5L7(1o@pq2 @>@?Lx$N P$N8Ship Info  $ @VA$E  `$g @hIJ$Ng:
INACTIVE$3------ handle the display of orders+ ; ;= =:@@;5 = =<@A@@=$@B@C$@D@E`$2 @@OVERRIDE< uttplcp.wbb=;$2;$)2۫@F۫@G۫@H@I, @J @K($1WRAPIT PRSTNOTES;01($1SHORTS PRSTNOTES;616$%O@L
NJi$3
@B۩@D=$33 Contact: ۩@B ۩@D
 T 3STATUSY $] h*$03
۫0
۫$rq$(0000wi$ /@A/F$>
|>$ utsub.wbb>1<>1-Immediate Release< utsub.wbb>9<>9-Low< utsub.wbb>2<>2-High<C utsub.wbbvalue="@"value="@ " SELECTED c @VSV$>$
@@?)۩(Ө@(O@A۫@U۫@Q۫@M@R۫@ST$$3IF OCOUNT>47 THEN GOTO 1900$||ܨ@(E @VA8$۩A@۩(Ө@(0000000/@A/Ll3DONEv$


 {$$ $- utsub.wbbO #C$( 7$& F$,

#(UC$ Total۩($*832200'FNPAIR@V PRPLANSTATUS1T? T Allocated@U %Y%Mz%Dz$T Backordered Z Z1Y@AZ @VS@Wk$TDrop Shipped From Vendor
$[@\ PROLISTTRACK[@Lf$TT
f @VS$T Shipped ۩@W  @VI$T Inprocess - ۩@W  @VR$T Returned - ۩@W 38 3------------- multi-box info  @k 1$]
^^^Multi-Box Info l1_@? v 3LOOP THROUGH SUBMITEMS 1_ H` @a@? H  @eS V$]]
^^^@b
^^^(۩(Ө@c) ۩@d  83------------ receipt info@$SKU: @r (۩@i) @j
 )FNPAIR@}MHITEMSHIPFLAG1~$~C utsub.wbb~value="@}"value="@} " SELECTED '$Review Status: ~
+$Total Ordered: ۩(|
"0$Total Received: ۩(ux
,1$Total Available: ۩(uv
8Y3------------ manage the plist$ , sort it, then truncate it based on available inventory $uv  $$0 |$$$ |$F|3done sorting and calculating$8p:U 3^1000 -handle the updates of priority and split ordersq>$6Starting update of Receipt Managment screen...

s18A@9u1l@nmz @@}$@}@Llm$0$(0000 dN$OIDPRIORITYQTY8G$ Oid:  pri: newqty: 
 B417$Shipto: @@
 L @`$@L7j\ CO PRPLANCANCEL@A#$-------- ORDER CANCELLED
 3check for split amount E @(1$ Invalid qty for split!

Q Ө@i6$% Invalid Pack qty for split!

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

Click to View Updated MRP Screen

Detailed Feedback (dev only)
"@3T=$ ERROR ۩(Ө AT LINE ۩(Ө" IN ۩#^E2#( 3OUTTA HERE#27&.?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
/\u$' * /b0$ RADECODEDOU$

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

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

2"$A@172(2d32x175 @>52+ @(@@@VA2d29$@A RAD WAS: @M RAD IS: 
4X$$@ML74PPRLOGW@ARNEW RAD DATE:  BY: ۩'ULOGIN#@(52d53DONE6Ls$g



6~$

6N N*E ө/$//N48N>]>PRLOGW@PORDER MOVED TO BOL:#@P Z$4,1$44,
,dn $44x84ê]  $, ,($,,ܨ8]D  N# $4ŞX( M:N(1*=47),D:N(1*=47),Y:N(1*=47)b($/// @ $@@g$@@@ıŔl$4 %Y%Mz%DzŔŀŞŔ $4Ş84ţ]   $4\ <$4//  f84k]`;U3 ------ RETURN STRING OF FORM TAGS IN formstart formende$j?$
~>$6 $$    $J >$(K ?$)L @$*<$&$' R F$+ $
$8H R0$5, 5$5-R\0$5  5$5 \f0$5  5$5 fhF$5
 5)$5 5hiF$5
 5)$5 5ijH$5  5)$5 5jp$4"۩",z84]!3--------- CREATE THE SPLIT ORDER  $8 PRNEXTSEQ nextorderid$@(0000000$@# $@8( L72(LOGIT1PRPLAN@ < @OVERRIDEdF1<@A@@,=P$@@L<=d#3---------- REDUCE THE ORIGINAL QTYn $@((Ө@(ݨ L7(LOGIT1PRPLAN@A "8,&$no Prplancontact rec @AE2HSTARTATENDATUSEKNUMTRTDDTROCDATETEXT1 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.SHIPDATE 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.SKUOHEADDUMMYOHDCMTERCVSHIADJRDATE1 LSHIPDATETQTY MHITEM.SHIPFLAGMHITEMSHIPFLAGNEWQTY PRIORITYTTTQCCCQIQTATCTBTSTVOCOUNTPRI H.PRIORITYPASSPLISTTDDQTYAVAILPLIST2PLIST1PAMT NOSUBMIT SHOWCANCEL FORMNAMESUBFUNC FORMSTARTFORMEND SUBCANCEL1 SUBCANCEL2DOYEARDOCYCLE DOSOURCEWFWFPGMOIDPRI CGI.DROPITEM NEXTORDERID PRPLAN1.OID PRPLAN1.QTYPRPLAN1ROLD PRPLANCONTACT.OID PRPLAN1.PRIORITY CGI.MHITEMSHIPFLAGCTEXTSESSION PRPROGRAMS.PNAMESETPRIORITYTOC PRPLAN.OIDNEWBOL PRPLAN.QTYRADLINKWFCGI1RADALLACTION1SDATEYYY1YYY2 CGI.ECODECLOSEGNEWRAD CGI.NEWRADDOECODEMDYMDY.YJMDYMDY.MMDY.DHOLD PRPLAN1.SCODECAROLBREMPTY DEALERTOTALSCGIVALDD1WRAPITCFORMENDAUDITRECMSDOSUB RADECODE RADECODEDOMDYSAVEj