<>[SM /3NIKEORD1 - ORDER ENTRY SCREEN for NIKE BY PO#3 @@4C$P$,P JITEM.tpl1PP,PJITEM Q5C$$, JCUST.tpl1,JCUST 7R$JSLOTm$m,m.tpl1mm,m <K$$, JBDEALERS.tpl1, JBDEALERS D$'CO_CODE@F1Z$1SUBFUNCd\5$b-d)$"' pagetitle Order Entry 1nE " 7$ $$,JBPLANxxJ$ 100100 100 100   A$ td class="td" < ><  nowrap>$  ($'TRHILITE
_$W^$ZV
Add New Order Form
[$fS
Review Order Form
 D$" *$ '' 8 ]  !  $  8 ]  ,$   $ 
8 "],  6  J@1$ / /20 J8 T]^  h$ " ",r8 |]( $, ۩5$ ۩ ۩ 8 ]  $$$ө 8] 1STEP2\3 , IF SUBFUNC$="STEP3" THEN GOTO 46000; REM review order, OK the expedited flags if needed 1STEP4  1DLOOKUPu0#(3DISPLAY ENTRY SCREEN $Under Construction.#(!3^1000 -------- OVERRIDE ADDRESSP!1A@3 $6@98@:7@;<@=>@?@@rA@Bs@tC@EDө@F$|
Order Complete
Mj*$
Name!$$P
Address!.$O
 !83LET TEXT$=TEXT$+"
 "+TDO$+TRO$B$W
City/State/ZipLh$> Vn$< !`$R
Country Phone:
t$^Delivery Notes (optional)
8 5$$55۩5205/$55/5/585] 3^3000 --------- DO THE UPDATES $/ $ 33validate the qtys are numeric and are not too much 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$, 8$,"8$O"8$,"8 $,"8@38000 J=$ERROR ۩(Ө AT LINE ۩(Ө" IN ۩#TE2^$
/h}$q
Order is not valid. Click and fix the problem(s).#(39000 OUTTA HERE#<'310000 "send ASN if ready''3--------- IMMEDIATE email warning send'`3---- send an email'e& jk''j&$l/u/tmp/۩ө.html't%$m$,mO_CREATE,O_TRUNCl'~ Lmp'm'Y$n/usr/local/bin/reptmail H l j -s "i"k >/dev/null 2>&1' $on'l''8N B3--------------- process the PO List, find matching items/lots/qtyN*M3--- during STEP2 just display the items/locs/qty, step3 will create the F/OsN4/$ @  3make sep just $0a$N>$ R3loop here for next poRE$ U$R2 #R3doesn't make sense, short PO#R&M  8$Duplicate PO# skipped: 

RR0$!Listing Matching Inventory for : ItemLotLocationQty DescriptionR:$RD; #F1:C(1*=09),F2:C(1*=09),F3:C(1*=09)$ Rb1PRdRl3loop to check next itemRv-1PUQ QUR ө@@RlR< @@R3SKIP THEM WHEN EMPTYR ө@@RlR ө@@RlR1QRR-1U( QU(R $@@@ RS4W$Q   ۩(@S1$Q | |۩(|S$ URURlU3scanned all itemsU y$TU$
No Matching Inventory for :


U RU RU& NIKEFOMAKE@0UW$,
Warehouse BOL#  assigned

0URY8u #(343000 input screen #1$) 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$H`$ Consignee:-,JV$ Carrier Name:-M;3GOSUB 7144; LET TEXT$=TEXT$+TR$+"test"+TDD$+TESTURLG$+TRO$\$Nike PO# | Cust PO | Item#:
please paste in the 3 columns from the spreadsheet
in the order shown above
1fq3GOSUB 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$^$) orderentryP$
 $$U3LET DOWARN$=""; IF CVS(CGI.DIV$,3)="" THEN LET DOWARN$=ERRORIMAGE$; LET REJECTORDR=13LET TEXT$=TEXT$+TR$+"Division:"+CGI.DIV$+DOWARN$+""+TRO$F$ @3SAMPLE$b -Required^3 SAMPLE@3$@3 ***NEW*** v$Consignee Code:@3 Carrier Name:@D$ Address
$J @qA 5$ Dealer Status@qb$^$ASAP  "y$Nike PO#s:۫ @ 
&!( 6$ @N 3display items/locsJ$g|P$gg:
$gg' G$gg, G$gg, J$gg/ . &$
ְB$gg2$gg!$ggF$h5
^$hOrder is not valid. Click and fix the problem(s) identified above by b$hg$t

Click for BOL Summary Screen

0#(1345000 input screen #3 ------- REVIEW SCREEN$^_$) orderentryP$
  $fг $Z$~3LET TEXT$=TEXT$+TR$+"Division:"+""+CGI.DIV$+""+TRO$j$ Consignee:@3 Consignee:@3:$Destination Address$.$|
K6$*
@x!$W
@y!$K
@z!3LET TEXT$=TEXT$+"
"+TDO$+TRO$y$K
@{p$@ , @|v$>  @}!$M
@~ Phone: :@
$i
Delivery Notes@
; R#mo:n(1*=46),da:n(1*=46),ye:n(1*=46)$R@2... @2ASAP2$/ Invalid Date$S@T@U@V.$^$\
b Invalid Date!!$A@}3 GOSUB CHECKEXPEDITEDW ]L$^__
bInvalid Req Arrv Date
\b\[)$ Req.Arrv:@2\[d3DOWARN$=""; IF CVS(CGI.MANAGER$,3)="" THEN LET DOWARN$=ERRORIMAGE$+" - Required"; LET REJECTORDER=1 Q$&Manager:  ;$ @$b - Required$^ $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$e< .><$WX$WNEWQTY۩(.00000B@5$X$XNEWITEM۩(.00000BD XWZEUFj$*WP}$,X۫@YU$eeܨWVZ*._6 e+$^$NO VALID QTY/ITEMS bdP$:
QtyItem&DescStatus
n$' xG$, zG$, J$/  $>$2 ^$Order is not valid. Click and fix the problem(s) identified above by bp$[Please review the order, if OK: $!$
8#(U3-------item status$YXAX $ 1X+$YbINVALID ITEM CODE!!^6 @H)$YYITEM IS CURRENTLY ON HOLD
F @Q9$YY-ITEM IS CURRENTLY ON QUALITY CONTROL HOLD
1PXQ $@@m W@$YYbAvailable Inventory is ۩(
$^$YYItem in Stock
8h3------------ ORDER DISPLAY $f$#$Dealer:@3)$ Carrier Name:@'$Destination Address$.$|
76$*
@G!5$
@H!)$
@I!!$
@J$ @K $  @L!/$
@M
^$)
Delivery Notes@N
P$a @`;$aNext Kit$ Req.Arrv:a¿%$ Req.Arrv:@28 ]0$Expedited Auth Flag:@c6 ].$Expedited Comment:@d$ w$A .<$WX$WNEWQTY۩(.000005$X$XNEWITEM۩(.00000 XUK$WX(۩(Ө@)۫@Y*.!$
QtyItem&DescStatus
8P3-------add some javascriptU$wZb$v d$w' $otherheadnn $wwvx$"' $otherheadwê8  $ ($  ܨ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: * $($21P3F&1PQ QPL3, LET CAT$=CAT$+TR$+JITEM.ITEM_NO$+TDD$+JITEM.DESCRIPTION$+TDD$+"[ ]"+TRO$U$@ZA$- $@d $n5  $۩A @F 3display bases with size columns?. $. . "1PQ$@,$h 3list sizesm$r@$/|6$Aө 1P؆Qؐ؆$ ؐ$(00000$ * $&*.0$
\ $ڶ|JBPLANTRTDDTROCDATETEXT1 ERRMESSAGECW1CW2CW3CW4YYY TDELEMENTTDPLAIN TDNOWRAPTDDRIDENT1TEXTTDDHBRYYCYYSYYZWFCGIWFWFPGMCGI DFORM1LOOKUPYYYVTPL JBDEALERS JBDEALERSTDTDODUMMYRKEY VIEWURLGVIEWURL VIEWURL1WFURL VIEWURL2 FORMNAMEFURL FINDURL1 FINDURLG FINDURL2IERRMSGRESULT1SUBFUNC 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 DFORMSTEP3EXPTEXTEXPEDITEWARNINGEXPEDITEDSHIPPING REJECTORDER REJECTORDER CGI.RADNEXTKITNEXTKIT ERRORIMAGE CGI.EXPEDITEAUTH CGI.EXPEDITEREASON ORDERITEMS DFORMSTEP4ITEXT DOBUTTONSUBJECTSENDTOCCLISTTFILECAAETEXT JBDEALERS.STATUS JBDEALERS.DEALER_STATEODEALER_PHONE JBDEALERS.PHONEDOFIELDJSOH 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 OTHERHEAD NEWRDATE CGI.PONCATDOCUST WFCOCODE JITEM.DESCRIPTION JITEM.ITEM_NOPITUNSIZEDBASESIZE SIZECOLS SIZECOLSBASESITEMSITEM BASEDESCJITEMSEQITEMSEQ SIZECOLS1 CGI.NIKEPOYYY1YYY2POLISTPOLIST1JSLOTJSLOTJSLOT.ON_HAND JSLOT.COMDJSLOT.ON_HOLDCILISTILIST1NCI NCI.F1 NCI.F2 NCI.F3 CGI.CARRNAMEBREMPTYD1XLCSZCGIVALRICDATE ITEMSTATUSUQSUB)RNSTEP4DOWARNYYYJCUSTJCUST JCUSTKEY SESSION.CURCUSTOMERJITEM.ON_HANDJITEM.COMITTEDAVAILWFCUSTBOL1 CGI.DEALER_PHONE CGI.CARRIERDOHEAD OTHERHEAD NEWRDATEPON CGI.PON DOCARRIERCATDOCUST WFCOCODE JITEM.DESCRIPTION JITEM.ITEM_NOPITUNSIZEDBASESIZE SIZECOLS SIZECOLSBASESITEMSITEM BASEDESCJITEMSEQITEMSEQ SIZECOLS1BREMPTYD1XLCSZCGIVALRICDATECHECKEXPEDITED ITEMSTATUSCHECKEXPEDITED1UQmEMSTATUSCHECKEXPEDITED1UQrKEXPEDITED1UQOuON JITEM.ITEM_NOPITUNSIZEDBASESIZE SIZECOLS SIZECOLSBASESITEMSITEM BASEDESCJITEMSEQITEMSEQ SIZECOLS1BREMPTYD1XLCSZCGIVALRICDATECHECKEXPEDITED ITEMSTATUSCHECKEXPEDITED1UQN CGI.PON DOCARRIERCATDOCUST WFCOCODE JITEM.DESCRIPTION JITEM.ITEM_NOPITUNSIZEDBASESIZE SIZECOLS SIZECOLSBASESITEMSITEM BASEDESCJITEMSEQITEMSEQ SIZECOLS1BREMPTYD1XLCSZCGIVALRICDATECHECKEXPEDITED ITEMSTATUSCHECKEXPEDITED1UQ,