<>g^ .3JBORDER1 - ORDER ENTRY SCREEN for Timberland A3THIS VERSION FORCES A SINGLE RECORD INTO PREFCARR IF NONE EXISTS@@(3CHECK IF NEED TO RUN JBORDER1.PREFERREDZ$z$z PREFCARR1,z.tpl1zz,z' 1ǰ&'3-----------V$@@ZZZZ@1۩@ENTER CARRIER NAME@ZZL&7JBORDER1_PREFERRED3RUN PREFERRED CARRIER VERSION'3RUN NORMAL PROGRAM(E3____________________________________________________________________)E$$, JBPLAN.tpl1,JBPLAN *U$~$,~JBEXPEDITEAUTH.tpl1~~,~JBEXPEDITEAUTH 2K$$, PSDISPLAY.tpl1, PSDISPLAY 4C$S$,S JITEM.tpl1SS,SJITEM T5C$$, JCUST.tpl1,JCUST <K$$, JBDEALERS.tpl1, JBDEALERS D$'CO_CODE@F1Z$4SUBFUNCd\5$o-d)$#' pagetitle Order Entry 4nE " 7$ $$,JBPLANxxJ$ 100100 100 100   A$ td class="td" < ><  nowrap>$  ($'TRHILITE
_$W^$]V
Add New Order Form
[$sS
Review Order Form
 D$" *$ '' 8 ]  !  $  8 ]  ,$   $ 
8 "],  6  J@1$ / /20 J8 T]^  h$ " ",r8 |]( $, ۩5$ ۩ ۩ 8 ]  $$$ө 8] 4STEP2E 4STEP343review order, OK the expedited flags if needed 4STEP4  4DLOOKUPu0#(3DISPLAY ENTRY SCREEN $Under Construction.#(!3^1000 -------- OVERRIDE ADDRESSP!1A@6  $9@<;@=:@>?@@A@BC@D@E@F@HGө@I @ : $:@ ? $?@ G&$GG Contact: ۩@$G Contact: ۩@$|
Order Complete
Mj*$
Name"$$P
Address".$O
 "8$O
 "B$W
City/State/ZipLh$> Vn$< "`$R
Country Phone:
t$^Delivery Notes (optional)
8 8$$88۩8208/$88/8/888] 3^3000 --------- DO THE UPDATES $2 3CREATE A NEW ALLOCATION ]3IF STBL("ULOGIN")<>"ccalamari" THEN LET TEXT$="Transfer Function Under Construction!"; EXIT $ *$0
Order Create Complete!
33validate the qtys are numeric and are not too much 8 @6 ***NEW*** JBDEALERMAKE  TIFOMAKE3W$,
Warehouse BOL#  assigned

3<]$Q

Print this page for your records, and click HOME above to return to menu.#(X37000bC$&'?PGM=JBB&WF=JBDEALERS&PGMFUNC=VIEW&SEQ=$&POPUP=1l#$' ViewvV$% '$) $8Z$,N?PGM=JBB&WF=PSDISPLAY&PGMFUNC=LOOKUP&DOSEARCHNUM=!PSDISPLAY1&RETURNTO=NEWITEM|#$- FindV$. '$/ $8[$,O?PGM=JBB&WF=JBDEALERS&PGMFUNC=LOOKUP&DOSEARCHNUM=_JBDEALERS1&RETURNTO=JBDEALER|V$. 88$JBDEALER$.?8$R"8 $.?[items]  $?[kits]  8 $."8@38000 J=$ERROR ۩(Ө AT LINE ۩(Ө" IN ۩#TE2^$
2h}$q
Order is not valid. Click and fix the problem(s).#(39000 OUTTA HERE#2 #<'310000 "send ASN if ready''3--------- IMMEDIATE email warning send'`3---- send an email'e& wx''j&$y/u/tmp/۩ө.html't%$z$,zO_CREATE,O_TRUNCy'~ Lz}'z'Y${/usr/local/bin/reptmail H y w -s "v"x >/dev/null 2>&1' $|{'y''8u343000 input screen #1' BUILDITEMS3SCANS FOR NEW ITEMS$* orderentryX$ # $' $otherhead<  checkall.js$#' $otherhead P$
  $ $*N3CALL "JBSELECTOPTIONS","JBDIVS","DIV","DIV","RNAME","*NOTOPVALUE*",0,RESULT1$4U3IF RESULT1$="" THEN LET TEXT$="You are not authorized for this function."; GOTO 9000>33LET TEXT$=TEXT$+TR$+"Division:"+TDD$+RESULT1$+TRO$CK$C leave empty for Ad Hoc addressH_$ Consignee:,.M;3GOSUB 7144; LET TEXT$=TEXT$+TR$+"test"+TDD$+TESTURLG$+TRO$R9 POPUPINPUT* reqarrvdate+W$s
ASAP
or deliver by
+
\%$ Req.Arrv:fq3GOSUB 7500; LET TEXT$=TEXT$+TR$+"Item:"+TDD$+""+FINDURLG$+TRO$pX3LET TEXT$=TEXT$+TR$+"Qty:"+TDD$+""+TRO$zP$:$' >$2S$;
!$
8344000 ------ add new order<$
 P$," P$!(" R$!)" [$!"!*" $!"!"!&G$20<$&:$' - D$
N8345000 input screen #2$k$* orderentryP$
 $$U3LET DOWARN$=""; IF CVS(CGI.DIV$,3)="" THEN LET DOWARN$=ERRORIMAGE$; LET REJECTORDR=13LET TEXT$=TEXT$+TR$+"Division:"+CGI.DIV$+DOWARN$+""+TRO$q$3IF CVS(CGI.JBDEALER$,3)="" AND WFCUST$<>"SAMPLE" THEN LET DOWARN$=ERRORIMAGE$+"-Required",REJECTORDER=1T3IF WFCUST$="SAMPLE" AND CVS(CGI.JBDEALER$,3)="" THEN LET CGI.JBDEALER$="***NEW*** "B$Consignee Code:@6D$ Address
$J @A 5$ Dealer Status@o$k.$ASAP$ASAP  $@5; U#mo:n(1*=46),da:n(1*=46),ye:n(1*=46)$U@5...-$2 Invalid Date$V@W@X@Y^ DJBSELECTOPTIONSTIMANMANAGERMANAGERDIVm$ Req.Arrv: _3    Manager:MJBSELECTOPTIONSTIBUD BUDGET_CODE BUDGET_CODEDESC$VOrder No:
P.O. No:
  $XBudget Code:
"3took out BUDGETSELECT$ - IDL 6/2012!D$3IF POS(WFCUST$="INL001/INL002/") THEN LET DOCARRIER$="UPS""i$BCarrier:"( 6$ @, ZUZ0013catalog order screenJW$tAT 1V9$ 1%$ style="visibility: hidden;" W$ 1$X$ 1$Y%$NEWITEM۩(1000003IF POS("NIK"=WFCUST$) THEN LET DOFIELD$="NEWITEM"+STR(I:"00000")+"||NEWQTY"+STR(I:"00000"); GOSUB 7160^$tt
QtyItem
( hU$tt*.r*1|P$tt:
$tt' G$tt, J$tt/ B$tt2$tt!$tt
F$u5
k$uOrder is not valid. Click and fix the problem(s) identified above by o$ut0#(1345000 input screen #3 ------- REVIEW SCREEN$kl$* orderentryP$
  $sг $]$~3LET TEXT$=TEXT$+TR$+"Division:"+""+CGI.DIV$+""+TRO$9$ Consignee:@6:$Destination Address8$ @$o -Requiredk8$ @$o -Requiredk8$ @$o -Requiredk$1$|
K6$*
@"$W
@"$K
@"$K
@"3LET TEXT$=TEXT$+"
"+TDO$+TRO$}$K
@̳p$@ , @v$>  @"$M
@ Phone: :@
$i
Delivery Notes@
; U#mo:n(1*=46),da:n(1*=46),ye:n(1*=46)$U@5... @5ASAP2$2 Invalid Date$V@W@X@Y.$k$_
o Invalid Date!!$D@3 GOSUB CHECKEXPEDITEDW cL$kll
oInvalid Req Arrv Date
_o_^)$ Req.Arrv:@5_^d3DOWARN$=""; IF CVS(CGI.MANAGER$,3)="" THEN LET DOWARN$=ERRORIMAGE$+" - Required"; LET REJECTORDER=1 Q$&Manager:  ;$ @$o - Required$k $Order No:
P.O. No: 
;$@ $ BUDGET_CODE`$3IF CVS(BUDGETCODE$,3)="" THEN LET DOWARN$=ERRORIMAGE$+" - Required"; LET REJECTORDER=1U$*Budget Code: r$BCarrier:"$ 2w$A7$r< 1><$Z[$ZNEWQTY۩(100000B@5$[$[NEWITEM۩(100000BD [ZZEUFj$*ZK<$ @ $SKU: ۩@
P$,[۫ @\U$rrܨZVZ*1_6 r+$k$NO VALID QTY/ITEMS odP$:
QtyItem&DescStatus
n$' xG$, J$/  $>$2 k$Order is not valid. Click and fix the problem(s) identified above by op$[Please review the order, if OK: $!$
8#( U3-------expedited order check$^U  c`$^X
Please check this box to authorize expedited shipping. <$^^0
G$^^;
Authorization Comment (optional)Y$^^3
8U .$`GETRSDaDb V%Y%Mz%Dz$_cd8 JBTRANSITGET`abefghij3N f %Y%Mz%Dz3$_$ Special Whse Handling Required.
dR e %Y%Mz%Dz7$__$ Expedited Shipping will be requiredcP b %Y%Mz%Dz5$_&Sorry, invalid Requested Arrival Date.c= _1$_
_8U3-------item status$A[$\[A[ ' 1[1ϼ(1 @ $[@+$\oINVALID ITEM CODE!!k6 @H)$\\ITEM IS CURRENTLY ON HOLD
F @Q9$\\-ITEM IS CURRENTLY ON QUALITY CONTROL HOLD
1S[T $@@ Zƻ1$k$QTY MUST BE A NUMBERom Z@$\\oAvailable Inventory is ۩(
$k$\\Item in Stock
8h3------------ ORDER DISPLAY $s$#$Dealer:@6'$Destination Address$1$|
76$*
@J"5$
@K")$
@L"!$
@M$ @N $  @O"/$
@P
^$)
Delivery Notes@Q
P$n @m;$nNext Kit$ Req.Arrv:n¿%$ Req.Arrv:@58 c0$Expedited Auth Flag:@p6 c.$Expedited Comment:@q$ w$A 1<$Z[$ZNEWQTY۩(1000005$[$[NEWITEM۩(100000 [UK$Z[(۩(Ө@)۫ @\*1!$
QtyItem&DescStatus
8P3-------add some javascriptU$Zb$ d$' $otherheadnn $x$#' $otherheadê8,3-------------- CREATE CATALOG PAGE OF ITEMS93--- INITIAL FOR ZUZ001 SHOW SIZED ITEMS IN TABLE FORMAT@3LET CAT$="
Item Code"+TDD$+"Desc"+TDD$+"Qty"+TRO$5$5/6/7/8/9/10/11/3set for diff accountN$5
$@$/$Size: * $($21S3F&1ST TPL3, LET CAT$=CAT$+TR$+JITEM.ITEM_NO$+TDD$+JITEM.DESCRIPTION$+TDD$+"[ ]"+TRO$U$@ZA$- $@d $n5  $۩A @F 3display bases with size columns?1 $1 1 "1ST$@,$h 3list sizesm$r@$/|6$Aө 1S؆Tؐ؆$ ؐ$(00000$ * $&*10$
\ $ڶ|JBPLANTRTDDTROCDATETEXT1 ERRMESSAGECW1CW2CW3CW4YYY TDELEMENTTDPLAIN TDNOWRAPTDDRIDENT1TEXTTDDHBRYYCYYSYYZWFCGIWFWFPGMCGI DFORM1LOOKUPYYYVTPLJBPLAN JBDEALERS JBDEALERSTDTDODUMMYRKEY VIEWURLGVIEWURL VIEWURL1WFURL VIEWURL2 FORMNAME RESULTFROMFURL FINDURL1 FINDURLG FINDURL2DEALERMESSAGEIERRMSGRESULT1SUBFUNC CGI.REQARRVDATE CGI.JBDEALER LOOKUPDEALERYY ODEALER_ADD1 ODEALER_ADD3 ODEALER_ADD2 JBDEALERS.DEALER_ADD1 JBDEALERS.DEALER_ADD2 JBDEALERS.DEALER_ADD3 ODEALER_ADD4 JBDEALERS.DEALER_ADD4 ODEALER_CITY JBDEALERS.DEALER_CITYODEALER_STATE ODEALER_ZIP JBDEALERS.DEALER_ZIPODEALER_COUNTRYODEALER_NOTES JBDEALERS.DEALER_COUNTRY JBDEALERS.ADDRNOTES CGI.DEALER_ADD101 CGI.DEALER_ADD201 CGI.DEALER_ADD301 CGI.DEALER_CITY01 CGI.DEALER_STATE01 CGI.DEALER_ZIP01 CGI.DEALER_COUNTRY01 CGI.ADDRNOTES01 TESTURLGJITEMJITEM NEWRDATE1 NEWRDATE NEWRDATE1.YE NEWRDATE1.MO NEWRDATE1.DAQVALQITEM ITEMSTATUS DFORMSTEP3EXPTEXTEXPEDITEWARNINGDOFUNCZIP1RADEXPEDITEDSHIPPINGSPECIALHANDLINGRSDRIDCARRIER PRIORITY TOTALDAYS TRANSITDAYS REJECTORDER REJECTORDER CGI.RADNEXTKITNEXTKIT ERRORIMAGE CGI.EXPEDITEAUTH CGI.EXPEDITEREASON ORDERITEMS DFORMSTEP4ITEXT DOBUTTONSUBJECTSENDTOCCLISTTFILECAAETEXTJBEXPEDITEAUTHJBEXPEDITEAUTH JBDEALERS.STATUS JBDEALERS.DEALER_STATESRNMANAGERSELECT BUDGETSELECTODEALER_PHONE JBDEALERS.PHONEDOFIELDTRSTYLEJSOH ADDBUTTON CGI.DEALER_ADD1 CGI.DEALER_ADD2 CGI.DEALER_ADD3 CGI.DEALER_CITY CGI.DEALER_STATE CGI.DEALER_ZIP CGI.DEALER_COUNTRY CGI.ADDRNOTES PSDISPLAY PSDISPLAY PSDISPLAY.DISPDESC PSDISPLAY.STATUS PSDISPLAY.QCSTATUS PSDISPLAY.RICPACK CGI.MANAGER BUDGETCODE CGI.BUDGET1 CGI.SRNSTEP4DOWARNYYYJCUSTJCUST JCUSTKEY SESSION.CURCUSTOMERJITEM.ON_HANDJITEM.COMITTEDAVAILWFCUSTBOL1 CGI.DEALER_PHONE CGI.CARRIERDOHEAD OTHERHEADASAP NEWRDATEPON CGI.PON DOCARRIERCATDOCUST WFCOCODE JITEM.DESCRIPTION JITEM.ITEM_NOPITUNSIZEDBASESIZE SIZECOLS SIZECOLSBASESITEMSITEM BASEDESCJITEMSEQITEMSEQ SIZECOLS1 PREFCARRFAMESSDOWARN1DOWARN2DOWARNC CGI.DEALER_ADD4 JBDEALERS.CONTACTQSKU PSDISPLAY.SKU PSDISPLAY.DISPLAYSHOWSKU FINDURLGKIT PREFCARR.CUST_NO PREFCARR.SCAC PREFCARR.ACCT PREFCARR PREFCARR.CARR_NAME PREFCARR.CARR_CODEBREMPTYD1XLCSZCGIVALRICDATECHECKEXPEDITED ITEMSTATUSCHECKEXPEDITED1UQ}UQ6