<>,E$ f3JBORDER1_PREFERRED - ORDER ENTRY SCREEN - PREFERRED CARRIER FILE (TAKEN FROM TCG WITH MODIFICATIONS)3 @#1$K3CHANGED FROM 50 TO 75 PER DAVE M 4/17/12%W$z$$ JITEMSUPPz,z.tpl1zz,z (E$$, JBPLAN.tpl1,JBPLAN *U$~$,~JBEXPEDITEAUTH.tpl1~~,~JBEXPEDITEAUTH .R$z$zJILOT,z.tpl1zz,z /V$z$z COUNTRIES,z.tpl1zz,z 0R$z$zJCARR,z.tpl1zz,z 1V$z$z PREFCARR1,z.tpl1zz,z 2K$$, PSDISPLAY.tpl1, PSDISPLAY 4C$S$,S JITEM.tpl1SS,SJITEM T5C$$, JCUST.tpl1,JCUST 7T$z$zWMSBOM3,z.tpl1zz,z 86$$, LASTORDER3used to prevent duplicates<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
j$Pi$]O
Add New Order Form -
[$sS
Review Order Form -
 D$" *$ '' 8 ]  !  $  8 ]  ,$   $ 
8 "],  6  J@1$ / /20 J8 T]^  h$ " ",r8 |]( $, ۩5$ ۩ ۩ 8 ]  $$$ө 8]3IF POS(WFCUST$="ASC200 ASC300 ASC400 ASC600 ASC700") THEN LET TEXT$="Orders can not be entered for the CURRENT CUSTOMER. Please use customer ASC500."; EXIT  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
M"a$aj*$
Name"$$P
Address".$O
 "8$O
 "B$W
City/State/ZipLh$> Vn$< "`3LET TEXT$=TEXT$+"
Country Phone:
Phone
n0$ FLAGRES$CHECKEDoM$(
Residential Addresst @ZZZZ$^Delivery Notes (Required)

u @ZZZZ$^Delivery Notes (optional)
8 8$$88۩8208/$88/8/888] 3^3000 --------- DO THE UPDATES s @@g$]The CURRENT CUSTOMER has been changed on another browser window! The order cannot be updated. $2 3CREATE A NEW ALLOCATION L$۩Aө@1  @ ^$T

INVALID UPDATE, DUPLICATE REFERENCE#. DO NOT CLICK 'ACCEPT' MULTIPLE TIMES.

 3CALL "SRNCHECK",CVS(CGI.SRN$,3),JCUSTKEY$,RESULT$; IF RESULT$<>"" THEN LET TEXT$="THE ORDER NO. HAS ALREADY BEEN USED, CLICK 'BACK' AND RESOLVE THE PROBLEM"; EXIT L $ *$0
Order Create Complete!
33validate the qtys are numeric and are not too much &TIFOMAKE_PREFERRED3W$,
Warehouse BOL#  assigned

3 !f3GET LINKS<[$4

Print this page for your records, and click  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]  @ J1PAT001/J1PAT002/J1SAMPLE/$?[kits]  8 $."8@38000 J=$ERROR ۩(Ө AT LINE ۩(Ө" IN ۩#TE2^$
2h}$q
Order is not valid. Click and fix the problem(s).3-------- EMAIL ERROR MESSAGE+$ 'WFDIRtmp/000_last_error.txt,O_CREATE,O_TRUNC =$ERROR ۩(Ө AT LINE ۩(Ө" IN ۩# LE$  $w' error_emailv(JBMAILTOw v   @!p2$?PGM=&WF= &PGMFUNC=HOME!z#$ Home!8#(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']${/usr/local/bin/whp/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$u8w$Y3removed Catalog FIFO option per DMxC CAT/@/$Detail Entry FormatzP$:$' >$2E$/S$;
!$
8344000 ------ add new order<$
 P$," P$!(" R$!)" [$!"!*" $!"!"!&G$20<$&:$' - D$
N8345000 input screen #2$k$* orderentryP$
 $$Q3DOWARN$=""; 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=13 SAMPLE@6$@6 ***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^ DJBSELECTOPTIONSTIMANMANAGERMANAGERDIVװU$ Req.Arrv: _Manager:T3LET TEXT$=TEXT$+TR$+"Req.Arrv:"+""+NEWRDATE$+EXPEDITEWARNING$+""+TRO$MJBSELECTOPTIONSTIBUD BUDGET_CODE BUDGET_CODEDESC$VOrder No:
P.O. No:
  l$XBudget Code:
"$3LET CARRSELECT$=SELECT0$; REM CALL "JBSELECTOPTIONS","PREFCARR","CARRIER","SCAC","ACCT","*FILTERR.CUST_NO$="""+WFCUST$+"""",0,CARRSELECT$&3LET TEXT$=TEXT$+"Carrier:"+CARRSELECT$+TDD$+"Freight Charge: "+TDO$+TRO$( )#1 ۩A@*U +;$@ @$-۩@,$ ð. $ 0e Z$Carrier:۩ Service Level:"1C 8$Carrier:۩"3" GOC001/SAMPLE/U6$ @'  DETAILENTRYCatalogJ$tnT 1V9$ 1%$ style="visibility: hidden;" W$ 1$X$ 1$Y%$NEWITEM۩(100000^$tt
QtyITEM/SKUDescription (*optional)
* cM$*h]$tt*.r*1|P$tt:
$tt' G$tt, J$tt/ B$tt2E$/A$+\3LET TEXT$=TEXT$+""$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г $]$9$ Consignee:@6:$Destination Address8$ @$o -Requiredk8$ @$o -Requiredk8$ @$o -Requiredk$1$|
K0$ FLAGRES$CHECKED6$*
@"$W
@"$K
@"$K
@"3LET TEXT$=TEXT$+"
"+TDO$+TRO$}$K
@p$@ , @v$>  @"$M
@
 Phone: :@
Y M$(
Residential AddressF$ @ZZZZ@$o -Required$k$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=1Q$&Manager:  3LET DOWARN$=""; CALL "SRNCHECK",CVS(CGI.SRN$,3),JCUSTKEY$,RESULT$; IF RESULT$<>"" THEN LET DOWARN$=ERRORIMAGE$+" Duplicate ORDER NO."; LET REJECTORDER=1 ;$ @$o - Required$k $Order No:
P.O. No: 
;$@ $ BUDGET_CODE`$3IF CVS(BUDGETCODE$,3)="" THEN LET DOWARN$=ERRORIMAGE$+" - Required"; LET REJECTORDER=1U$*Budget Code: )$۩A@1,$ 3LET TEXT$=TEXT$+"Carrier:"+PREFCARR.CARR_NAME$+TDD$+"Freight Charge: "+TDO$+TRO$ @$DCarrier:۩@-۩@ 3+TDO$+TRO$ @$DCarrier:۩@ 3+TDO$+TRO$6 +3NO SERVICE LEVEL REQUIRED FOR CARRIER4$1ŵ@ͯ$@$o - Required$kI$. .$ Service Level: $" RPDATE$IReturn Pickup:۫RPDATE",$ 2$A7$r<13ITEMLINES><$Z[$ZNEWQTY۩(100000B@5$[$[NEWITEM۩(100000BD [ZZEUFj$*ZHl3IF POS("/"+CVS(QITEM$,3)+"/"=QITEMLIST$)=0 THEN LET QITEMLIST$=QITEMLIST$+"/"+CVS(QITEM$,3)+"/"; GOTO 46160J3LET ITEMSTATUS$=ITEMSTATUS$+"Possible ORDER PROBLEM. Same Item on multiple lines
",REJECTORDER=1K<$ @ $SKU: ۩@
M$ NEWLOT۩(100000k$N<$NEWLOT۩(100000 UP$,[۫ @۫NEWLOT۩(100000\U$rrܨZVZ*1_6 r+$k$NO VALID QTY/ITEMS odP$:
QtyItem2DescLotStatus
n$' xG$, J$/  $>$2E$/ 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[ 3DIM SKU$:FATTR(SKU$) [+t' 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
8t3---------- verify kit items~H $A[&1$@AĽ/$\oINVALID KIT ITEM CODE!!kν&BOMINV3&3l Z@$\\oAvailable Inventory is ۩(
$k$\\Kit 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  $ ($  ܨ8 ]83CARRIER SELECTION9$=|$CARRIER3CALL "JBSELECTOPTIONS","PREFCARR","CARRIER","SCAC","ACCT","*FILTERR.CUST_NO$="""+WFCUST$+"""",0,CARRSELECT$B_$ ǒ$Ǘ1$Carrier:"ǘ Ǜ8,U 6$^# @1$Prepaid-Storer_! @2$ Prepaid-Whse` @3$Collecta @4$Pickupb $ Third Partyɏ8ɐUɤ( POPUPINPUT*RPDATE+ɮ9$)Return Pickup:+ $8 3FIND SERVICE LEVELS IF ANY!$%$ SERVICELEV*g _$ ˘ $83NO CARRIER SELECTEDH$@You Selected an Invalid Carrier. Click BACK to fix the problem.354000 R SELECTION$$DEALER_COUNTRY3CALL "JBSELECTOPTIONS","PREFCARR","CARRIER","SCAC","ACCT","*FILTERR.CUST_NO$="""+WFCUST$+"""",0,CARRSELECT$_$ |$ӆ0$Country"Ӛ8&U3---- validate LOT QTY is available$T۩A 1ז Z @@<G$\\oAvailable Lot Inventory is ۩(@@
$k<3okז813-------------- CREATE CATALOG PAGE OF ITEMS/LOTS9 OTHERHEAD7 E R : $"+THH$+THH$+THH$+TRO$$$1S.&1S|T T|=$@B$@@ .LG$ 1ֵA@ N$SKUNj'$ @Y$ Ship FIFOo: @Y FIFOᫀ DETAILENTRYt @Y.y( FIFOᫀ DETAILENTRY.~1Tۈۈ-1ܴ Tܴۦ$@@ ۈ $@Fۈܴ 3end of lots. 3add new row" $(0000069$۩@۩۩@;W$ B$@ $۩(^$3 IF POS("ccalamari"=SESSION$) THEN LET INPUTWARN$="validation disabled",AVAIL=999999h$ r8$
Item CodeCustomer
SKUs$<
DescLot AvailableQty3LET CAT$=CAT$+"
$۫\\  $۫\\ D $ޞ|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_STATE 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.DISPDESC PSDISPLAY.RICPACK BUDGETCODE CGI.BUDGET1 CGI.SRNSTEP4DOWARNYYYJCUSTJCUST JCUSTKEY SESSION.CURCUSTOMERJITEM.ON_HANDJITEM.COMITTEDAVAILWFCUSTBOL1 CGI.DEALER_PHONE CGI.CARRIER ITEMLINESDOHEAD OTHERHEADASAP NEWRDATEFKITEM FINDURLGKIT CARRSELECT DESCFIELDCARRKEY PREFCARR PREFCARR PREFCARR.CARR_NAMEAMESSDOWARN1DOWARN2DOWARNCFLAGRES ISCHECKED CGI.CURCUSTOMERSNAMESELECT0 MULTIPLE TOPVALUETOPDESC PREFCARR.SCAC PREFCARR.ACCT PREFCARR.FREIGHT_CHARGEFREIGHT_CHARGE_DESC CARRIER_DESCJCARRJCARR JCARR_COUNTTYPE JCARR.CARRIER_TYPE PREFCARR.CARR_CODE JCARR.CARRIER_CODE JCARR.CARRIER_NAME CGI.SERVICELEV SERVICELEV LEVEL_INPUT SERVICE_DESCCOUNTRYCOUNTRYCOUNTRYSELECT COUNTRY.CNAME CSELECTED PSDISPLAYMANAGERSELECT CGI.MANAGER CGI.PON PSDISPLAY.STATUS PSDISPLAY.QCSTATUSSRNPON JBDEALERS.CONTACT CGI.DEALER_ADD4QSKU PSDISPLAY.SKU PSDISPLAY.DISPLAYSHOWSKUCATDOCUST WFCOCODEITEMSEQIT JITEM.ITEM_NOITEMSEQTHH JITEM.DESCRIPTIONLOTCOLJILOTJILOTJILOT.CASES_ON_HAND JILOT.LOT_NUMBER JITEM.LOTTED_ITEMJILOT.CASES_COMITTED JITEMSUPP JITEMSUPPCUSTSKU DETAILSELECT LOTINPUT HOMEURL1HOMEURLQLOTYYY1YYY2 SESSION.WOPTIONSWMSBOM3WMSBOM3 WMSBOM3.DESC ITEM_USED KIT_USEDRROW CGI.RPDATE INPUTWARN CHECKLOTKLOT LASTERRORXLFILECCTOMESSAGE SIGNATURERESULT LASTORDERLASTKEY LASTORDERBREMPTYD1XLCSZCGIVALRICDATECHECKEXPEDITED ITEMSTATUSCHECKEXPEDITED1UQ PREFCARR_ENDFREIGHT_CHARGE_DESC JCARR_END COUNTRY_ENDSUBRETURNDATEPROMPT CHECKLOTi