<>lb, 13JBPLANMOD order transfer from a list of dealers 23"changes to add drop ship pro# entry 3/25/04 rcc3E$$, JBPLAN.tpl1  ! ,JBPLAN E$$, JBITEM.tpl1 ,JBITEM!K$&$,& JBREGIONS.tpl1&(& '(,& JBREGIONS"K$)$,) JBDEALERS.tpl1)*) +*,) JBDEALERS#I$l$,l JBBRANDS.tpl1lml nm,lJBBRANDS$E$o$,o JBDIVS.tpl1opo qp,oJBDIVS%K$v$,v JBADDRESS.tpl1vwv xw,v JBADDRESS&M$$,JBADDRTEMP.tpl1 , JBADDRTEMP, <D$$, JBLDTI.tpl1,JBLDT FO$$,JBSTATENUMS.tpl1, JBSTATENUMS G H$3IH3IF POS(YYY$(1,2)=STBL("showprogram"))=0 THEN LET YYY$=YYY$(1,4)+YYY$(8)J83K]R S3 $
۩$T8U]i@@7$ $f$4 $$۩20/$//8]$5* ASUBFUNCBLSPLITX, ASUBFUNC BLSPLITDO, ASUBFUNC BLPRETURNqH. ASUBFUNC BLPRETURNDOr+ ASUBFUNCBLRETURNJ8- ASUBFUNC BLRETURNDOL- ASUBFUNC COMMENTSDOH, ASUBFUNC TSHIPINFOC0. ASUBFUNC TSHIPINFODOD' ASUBFUNCTOVR:) ASUBFUNCTOVRDO<' ASUBFUNCTRADP) ASUBFUNCTRADDO( ASUBFUNCSFRDO- ASUBFUNC TRANSFERDO * ASUBFUNCTWINDOWh, ASUBFUNC TWINDOWDO^ ASUBFUNCLOG<$O$5

Transaction Log for Order: @6

4$@6@6>5$  3LOOP HEREL$@1lV @`$&3^100 " remove all existing temp addrs1@%$ 1 @% 4$3------ handle the display of orders + +)@#+ $$55@
QTYItemDesc
Dealer: @#
@,۫@-۫@.۫@/۫@0, @1 @2
1@$w$4 Add To This Order log transfer5$| 'ULEVELa$ O$:$55 7۩(Ө@"۫@$@ 6@3DONEJ$55L O^ $55=`^3CALL "JBSELECTOPTIONS","JBDIVS","MATCHJBDIVS","DIV","RNAME","*EMPTYTOPVALUE*",0,LOOKUPREGION$c|3LET TEXT$=TEXT$+"Transfer to Division "+LOOKUPREGION$+" Qty="+$0A$h=3LET TEXT$=TEXT$+""r$T|;3-------- DETERMINE DIVISIONS TO MATCH BASED ON JBDIVS FILE$g@Fo@Fq$r@s@t @tH1o1oq @sr$gg@u3lpF$55+ X$; CALLJBPLANMOD> TRANSFERDO<Transfer/Distribute$558B3display dealers with prompts $C Return to Allocations By Division$55
C #( *3do the transfer and display it with links J E2 )@@ + 1@6 $J $@D@E@F@G@H@I $R@# $@#@@L AJBLOGW@%TDEALER CHANGED - WAS: R#@" 7$BB 7Old@N@L@MK C$BB 7New@#@D@FK 8 &$$B
INVALID DEALER CODE!
v8 /3seperate the transfer requests from distribute ]3IF STBL("ULOGIN")<>"ccalamari" THEN LET TEXT$="Transfer Function Under Construction!"; EXIT v$BTransfer Complete!
7QtyDealerOrderIDDivisionK 33validate the qtys are numeric and are not too much 1@6$Tb7$dөA TDEALERQTY۩(T00000  M ddd6$cINVALID ALLOCATION AMOUNT! (۩(d)"` $bbd $TT7 b@"'$cAllocation total too high!"`$T!3----- HANDLE DEALER DISTRIBUTION $TT$>$YYөA TDEALERQTY۩(T00000<&)7$UUA TNEWDEALER۩(T00000*+3$aaATRDATE۩(T00000,.* YYYU(3B$ ATOVERADD۩(T000004on$8&$XYUU۩ UU :$$cInvalid Reqd Arrv Date: a; aa"`=0 aa111111$a111111@>>$Өaaa?@?"`@ $a1aB3L(JBPLANDO@6UaeXVfN VOG$ff6 P7$@%۩(T000001V4R% x x$x @VT LvxV $BBf2<3TRANSFER IS COMPLETEF $55BK
Over-ride Address Accepted
P$C Return to Allocations By Region$55
CdN$55B
To avoid duplicate transfers do NOT hit 'REFRESH' on this page#(3show log info here$55

JBLOGD@6HPQ $55P#(h3--------- AHNDLE POPUP WINDOWm$^n<$_'!CLEAR$stdhead_'!CLEAR$stdfootrF$5=52

Optional Address Over-RideDealer : @w$@|$T1)A@ x)$5Invalid Address Record: @#(1@$@@#1$x $y@z@{@|@}@~@@@@$01>I$55. B$55' F$; CALLJBPLANMOD> TWINDOWDO<Submit$558#(*3----------- SAVE OVERRIDE ADDRESS TO FILEC$^_'!CLEAR$stdhead_'!CLEAR$stdfoot x x 1)A@ x@$@@@@@@@@@@@@@@@@ $ x @@* L4*$5Over-Ride Address Updated!
@H$55

`R#(P3--------- AHNDLE POPUP WINDOWR1@6!S$h@iT $hhU$^V<$_'!CLEAR$stdhead_'!CLEAR$stdfootZ$5=5m

Requested Arrival Date Update tN$55 7:
Change
x3$ h111111$ checkedh}D$3 Check Here: $55X$55
Requested Date(yymmdd) or  for Next Kit
F$55+ C$; CALLJBPLANMOD>TRADDO<Submit$558r#(3----------- SAVE rad TO FILEC$^_'!CLEAR$stdhead_'!CLEAR$stdfootE Anextkiton$$h111111$@jNext Kit-$h@j h?$h?$ܨhhh? m$cDate of of range.? ݨm$cDate of of range.?1@6! $h1h$@ihL!&/$5#Requested Arrival Date Updated!
@j0t$55

`:#(?=$5Invalid Date!
c$55
k:&3----------- set as shipped from rapidC$^_'!CLEAR$stdhead_'!CLEAR$stdfoot$AORDERIDSE$| $1![ @IS@ZZ8$55Invalid change. No Update! @
0$@S@ %Y%Mz%Dz@(Ө@$@RAPD@n/a L!GJBLOGW@C SET TO SHIPPED FROM RAPID STATUS#@?$55"Shipped from Rapid Status SET!
@
 t$55

`#(p#3---------------- check for matchesz1){~P3LET NEWSEARCH$="New Search"U$55
Authorized Dealers: [g(]
$55$1)+5 @W@#)3can't transfer to self! 5/7/04 rcc5 ө@G,'JBUSERDIVISION! @WZZg8= D0 ө@G 19*91*PW*8 @Gg83--------FORMAT FOR DISPLAYV0$ $1)ZZj $TTt$557,~c$55(0$\&OSEQ=@%۩(T00000&JBD=@W`$55]P3LET TEXT$=TEXT$+""]$55%K$ @H5$-

ON HOLD

b$55@W۩@,۫@-۫@.۫@/۫@0, @1 @2@G3---!$55
Qty2Reqd Date
(yymmdd)Override
Address?CodeAddressDivision
Z8L$["V8`$]%j8t$`wv^$Vy8E$k;88^$`V8@3J8$ERROR ۩(Ө  AT ۩(Ө" IN ۩#TE2"` 3validation"jS$55

Validation Error!

c%
Click 'BACK' and fix the problem.#( 3OUTTA HERE#2&' 3lookuptag:!315000 -------- OVERRIDE ADDRESS:$T:<$_'!CLEAR$stdhead_'!CLEAR$stdfoot:7$5=5'

Over-Ride Address Update:1@:! @It$5

This shipment has been put in-process, any changes need to be made directly to warehouse ASAP.

`#(:1vA@:x::)$5Invalid Address Record: @#(:$y@z@{@|@}@~@@@@:$(T00>;`K$550 ;ed A RELOADWINDOW;f1?$553;jC$; CALLJBPLANMOD>TOVRDO<Submit$558;#(<315600<C$^_'!CLEAR$stdhead_'!CLEAR$stdfoot< x x=1vA@:x=H$@@@@@@@@@@@@@@@@@@= Lvx="*$5Over-Ride Address Updated!
@='. A RELOADWINDOW=(1 t=6=,=6$55

`=J#(>3^1000 "override table display>$55|
9?*$55
NameK>$55<
AddressK>$55;
 K>$55;
 K>$55C
City/State/Zip>p$55+ >v$55) K>$55?
Country
? $55IDelivery Notes (optional)
?>8C093^100 "--- prompt for drop ship info TSHIPINFOC1: ! ! AORDERIDSC2 $@C5C2$@61@6!C5$^C6<$_'!CLEAR$stdhead_'!CLEAR$stdfootC:r$5=5]

Shipment Info CTN$55 7:
Change
CV$55ICX$55NC\$55MC`$55UCd$55
StatusA/I/S
Ship Date(yyyymmdd)
CarrierCLG/UPS
Tracking Number
CkG$55, ClF$55+ CH$; CALLJBPLANMOD> TSHIPINFODO<Submit$558DR#(D;3^100 "----------- SAVE ship infoTO FILE TSHIPINFODODC$^_'!CLEAR$stdhead_'!CLEAR$stdfootDg @SI@@@1$5$YOU MUST ENTER DATA FOR ALL PROMPTS!#(D$AORDERIDSDD$ D1!D+$@@@@@@@@L!D!$5Shipment UPDATED!
AE DEt$55

E<JBLOGW@SSET TO SHIPPED STATUS#@E#(H)3^100 "------------ add comments on a BOLH$@H$J1۩ ݨ@@H-$5Updating comments on BOL:
H BOTCOMADDfI $55fI`$55 Click to review BOLJ.#(J8+3^100 "----------- START THE RETURN PROCESSJ=C$^_'!CLEAR$stdhead_'!CLEAR$stdfootJBJ$5START THE BOL RETURN PROCESS :@
=K0r$55fK4$55
Reason for BOL Return
K<A$55& KdX$; CALLJBPLANMOD> BLRETURNDO<Return BOL to Inventory$558KxE$559!! Only hit button once, it will take a minute to update.L#(L>3^100 "----------- PERFORM THE RETURN BOL TO INVENTORY PROCESSLg$J1۩ ݨ@@^_'!CLEAR$stdhead_'!CLEAR$stdfootL&1L! @@LLa @ST$55ORDER NOT UPDATED: @ @ @ Not in 'S' status
LL8$55Update Order: @ @ @
L!$@R@@@L$@@@L L!L=JBLOGW@RSET TO RETURNED STATUS#@L$LLLt$55G
You must now enter an inbound receipt using inbound reference# : RA@G
The website order can be transferred to a new dealer if needed.
`LR J$BOL Set as Returned ۩ Reason:@ BOTCOMADDfL#(qH33^100 "----------- START THE PARTIAL RETURN PROCESSqR$5&START THE PARTIAL BOL RETURN PROCESS :@
= 7ShippedItemDescQty
ReturnedqT$$J1۩ ݨ@@qW1 qXqf&1r! @ rqz1@q$$$q0$55 7@@@rqfr@$55u
rD$55
Reason for BOL Return
rLA$55& rtY$; CALLJBPLANMOD> BLPRETURNDO<Return BOL to Inventory$558rE$559!! Only hit button once, it will take a minute to update.r#(r>3^100 "----------- PERFORM THE RETURN BOL TO INVENTORY PROCESSr$rO$$өArqty۩(tAorderid۩(r rs$$J1۩ ݨ@@s1!sa @ST$55ORDER NOT UPDATED: @ @ @ Not in 'S' status
ss- @s3returning the full linesL$55/Return of partial line not ready yet! orderid=
rsK$55 orderid:  Update Order: @ @ @
s9$@R@@@@@@s L!s=JBLOGW@RSET TO RETURNED STATUS#@s7$@@ Returned:۩@ [۩(] s$srtT$55G
You must now enter an inbound receipt using inbound reference# : RA@
The website order can be transferred to a new dealer if needed.
Return the BOL Return StarttYV N$Item(s) Set as Returned ۩ Reason:@ BOTCOMADDft^#(X33^100 "----------- START THE PARTIAL RETURN PROCESS[$J1۩ ݨ@@\)$J1۩ ݨ99@99@]O3verify that the NEW BOL doesn't exist, or exists at same status as OLD BOL!!!!_/$@ U$٘`/$@ U$Иb$5START THE SPLIT BOL PROCESS :
= 7ShippedItemDesc BL Line / LocQty
To Moved$g1 hv&1 ! @  1@'$$,1۵@ S$۰ 1  @  I$ᘙ ө@$$$ L$ ө@$JB050022535*JB050020742*JB050020747*$̘C$557@@@@ / @ vP$55t
T$55
Reason for BOL Split
\A$55& M$; CALLJBPLANMOD> BLSPLITDO< Split the BOL$558E$559!! Only hit button once, it will take a minute to update.#(>3^100 "----------- PERFORM THE RETURN BOL TO INVENTORY PROCESS$J1۩ ݨ@@)$J1۩ ݨ99@99@ 3create NEW BOL if doesn't exist7$@ U$ٙX$@ >,$ Lӵ $$$,ؙl$$өArqty۩(Aorderid۩(Ablkey۩( $Κ1!3IF JBPLAN.STATUS$<>"S" THEN LET TEXT$=TEXT$+"ORDER NOT UPDATED: "+JBPLAN.ORDERID$+" "+JBPLAN.RIC$+" "+JBPLAN.QTY$+" Not in 'S' status
"; GOTO 39610- @3returning the full lineT$557

Split of partial line not ready yet!

orderid=
K$55 orderid:  Update Order: @ @ @
&$ 1۵ݚ%$L۵ݚ 4۵$@ܚ L!>JBLOGW@PORDER MOVED TO BOL:#@d3LET CGI.BLCOMMENTS$=CGI.BLCOMMENTS$+" Moved FromReturned:"+CVS(JBPLAN.RIC$,3)+" ["+STR(RQTY)+"] "$d$55(
Split is now complete New BOL is: 99@
The old and new BOLs can be printed if needed.
Return to the BOL Split StartiO G$!Item(s) moved to new BOL Reason:@ BOTCOMADDfn#(xT3----------- find OLD BOL in JBLFH, JBLHD, JBLHH, find NEW BOL, must be same status!y+3----------- if new doesn't exist create itz:3----------- move detail record from JBL detail to NEW BOL68@ 3----------- J=$JBLFHJBLHDJBLHHJBLFDJBLDTJBLDH^$$,hK1ӵϯm$r|$ ^8`Uj/$5Sorry, @ is an invalid BOL!#($AU$8E$88 &$88' - R >F$88+ T <H$88- $88 "8HRECJBPLANSTARTATENDATUSEKNUMKTTTQCCCQIQCOUNTTRTDDTROTDDRTDDHYYTTTWFCGI1 DFORM3HEADERDTOPJBITEM JBITEMTPL ERRMESSAGE JBITEMREC JBITEMREC.RICDESC LINKTRANSFERLINKS ADMINONLYLINKLOG JBPLANTPLJBPLAN H.QTY H.DEALER H.RIC H.ORDERID JBREGIONS JBREGIONS JBREGIONSTPL JBDEALERS JBDEALERSTPL JBDEALERS JBDEALERS.DEALER_ADD1 JBDEALERS.DEALER_ADD2 JBDEALERS.DEALER_ADD3 JBDEALERS.DEALER_ADD4 JBDEALERS.DEALER_CITY JBDEALERS.DEALER_STATE JBDEALERS.DEALER_ZIPYYYLINKADDTEXT CGI.ORDERIDTDFORMENDWFWFPGMDOFUNC SUBMITVALUE FORMSTARTSUBFUNCWFCGI CGI.NEWDEALERCGIDEALERMESSAGE LINKRETURN H.REGION JBDEALERS.REGION H.DIVISION JBDEALERS.DIVISION H.TERRITORY JBDEALERS.TERRITORYHOLDTDO HOLD.REGION HOLD.DIVISION HOLD.DEALERSHOWLOG RESULTS1ERRNUM DEALERWAS JBITEMREC.RICI NEWDEALER NEWORDERID JBDEALERS.DEALERMOVEQTY TDEALERQTY NEWSEARCH SELECTURLGOINFOCHECKBOXPOPUPLOOKUPDUMMYCLOSEG NEWRDATETTOTERRMSGTTOT1 NEWADDRESSRESULT MATCHREGIONDDATE JBPLAN.REQUESTED_DATE CGI.REQUESTEDDATEBACKG JBBRANDS JBBRANDSTPL JBBRANDSJBDIVS JBDIVSTPLJBDIVS JBREGION JBDIVS.REGION JBDIVS.DIVTYPE JBDIVS.DIV JBADDRESS JBADDRESSTPL JBADDRESS ODEALER_ADD1 ODEALER_ADD2 ODEALER_ADD3 ODEALER_ADD4 ODEALER_CITYODEALER_STATE ODEALER_ZIPODEALER_COUNTRYODEALER_NOTES JBADDRESS.DEALER_ADD1 CGI.DEALER_ADD101 JBADDRESS.DEALER_ADD2 CGI.DEALER_ADD201 JBADDRESS.DEALER_ADD3 CGI.DEALER_ADD301 JBADDRESS.DEALER_CITY CGI.DEALER_CITY01 JBADDRESS.DEALER_STATE CGI.DEALER_STATE01 JBADDRESS.DEALER_ZIP CGI.DEALER_ZIP01 JBADDRESS.DEALER_COUNTRY CGI.DEALER_COUNTRY01 JBADDRESS.ADDRNOTES CGI.ADDRNOTES01 CGI.JBADDRESSKEY JBADDRESS.DEALER_ADD4 JBADDRTEMPJBADDRTEMPTPL JBADDRTEMP ORDERIDSEQ CGI.OSEQ CGI.JBD JBSTATENUMS JBADDRESS.STATENUM JBSTATENUMS JBSTATENUMS.STATEISUFFIXTPL CGI.ORDERIDSEQ JBADDRTEMP.ORDERIDSEQ OVRCHECKED JBADDRESS.ORDERIDCIII JBPLAN.STATUS JBPLAN.DEALER JBPLAN.SHIPDATE JBPLAN.QTYSHIPPED JBPLAN.QTY JBPLAN.DROP_CARR JBPLAN.DROP_PRO JBPLAN.ORDERID JBDIVSTYPE DOORDERSPDOORDER ISCHECKEDNEXTKITPROMPTDDATE NEWRDATEBL BLCOMMENTS CGI.BLCOMMENTS CGI.BL JBPLAN.BOLKEY JBPLAN.RIC DOCOMMENTS JBPLAN.ASN CGI.DEALER_ADD401IDTLIDTLRQTYISEQRQTY ORDERIDS CGI.ORDERIDSORDERID CLOSEGNO CGI.STATUS CGI.SHIPDATE CGI.DROP_CARR CGI.DROP_PRONEWBOL TRNOTICETRTOLDBOLFINDBOLBLHEADBLHBLHBLHEADJBLHDOLDHEADNEWHEADOLDRECOLDDETBLDETNEWRECBLDET BOLKEYNEWDETBLDAJBLDTJBLDTJBLDTIBLKEY JBITEMREC.ITEM_NO JBLDTI.BLKEY JBLDTI.LOCIBLKEYONHOLD JBDEALERS.STATUSRICDATERICSFORMENDBR INVALIDBOL)