<>vkM @3MHTSS1 - POPUP INTERFACE FROM WAREHOUSE TO TRANSPORTATION +3mkeyed "/u/webpru/wf/OTMACC",[0:1:4],0,256 -3mkeyed "/u/webpru/wf/OTMREM",[0:1:11],0,10243@#V jbbC$L'!CLEAR$stdheadL'!CLEAR$stdfoot(i3LET F=UNT,F$="MHITEM",MHITEM=F; OPEN (F)F$+".tpl"; READ (F)TPL$; CLOSE (F); OPEN (F)F$; DIM MHITEM$:TPL$*R$$JBSCI,.tpl1, +f3LET F=UNT,F$="JBSCS",JBSCS=F; OPEN (F)F$+".tpl"; READ (F)TPL$; CLOSE (F); OPEN (F)F$; DIM JBSCS$:TPL$,S$$OTMACC,.tpl1, -S$$OTMREM,.tpl1, 0R$$JNMFC,.tpl1, 1R$$JITEM?,.tpl1, @2i$$JBLHDT,.tpl1, U$p$,pJBLHH3R$$JCUSTV,.tpl1, W4R$$JCONSX,.tpl1, Y5R$$JCARRZ,.tpl1, [6&$$JBLDT\,7'$$$CCNVZl,8&$$JBLDH,9#U#~ef:R$$GPLAC-,.tpl1, .<I$A/50/55/60/65/70/85/100/110/125/150/175/200/250/300/400/77.5/92.5/>$'' $otherhead?Fw$>5 Hk$cIk$c
P@R"$%400&8003for popupsZ$SUBFUNC[\5$-]A$/9_`3set formstart and formenda!$ &PGMFUNC=CALL۩#i:$" -###,###,##0$ -$#####0.00* #######0.00j+$0 $###,###.0000<###,###,##0.00k'$F###,###,###.00G ###,##0.0A$td class="td" <>< nowrap>$ 'TRHILITE 

1= G$H?V$(
2/
D$)<
X$
$
 SHOWBOLU  MAKEJBSCIU  MAKEJBSCSU  DELETEJBSCIU MAKEPROU#(P$ Reload Display of BOL8H$.    @3T=$3ERROR ۩(Ө AT LINE ۩(Ө" IN ۩#^ ERRORPAGE3-------- EMAIL ERROR MESSAGE+$4'WFDIRtmp/000_last_error.txt,O_CREATE,O_TRUNC4=$3ERROR ۩(Ө AT LINE ۩(Ө" IN ۩# L3E$54$6' error_email73(JBMAILTO6879:5;@ }$q
Order is not valid. Click and fix the problem(s).#(U 39000 OUTTA HERE#<*  ccalamari$QN 93^1000 "------ handle the subtotals and grandtotals linesR#3^1000 --- javascript date handlingRV$I # R$II R&$K' $otherheadR0R0$L' $otherheadKIR:8]7U3^1000 "---------- display BOL for WMS2TMS interface]#$z@n{b۩ ݨzz]3generate needed links]$^$ $o\1T{^.U^B^.$\,\JBLDH1p{U^B"1V{@aW$@x^L1X{@cY^3^" utencode.wbbY &^ $&&'%۩'^$=X=^[$/1-Y ^.$/
PlaceID: A0
OTM Loc: A1
Lat: A2 Lon: A3 A0$//I map^y$"
Consignee Shipper:  - @y ^u ө@d_ ,@kN$@d@k ۩@d@k$$YLX{@c$^N$ @dCSZVALID !" !$#yellow^t$
@q
@r
@s
@k
۫@d#
@t/ ^$$)BOL# @u ^'$) Storer Ref# @v ^$)PO# @m ^2$)Status w 
_F$
aD$`Qty Item Description Loc Wgt Cu FT Freight
Code Class Plt
Block Full
Plts aN$|aX1\{aba3^1000 " handle detail linesb $}\m`b$ } M1\eb b1\}Ub  } { m`bp }Ibbz e***abK ADDRCATeWHSECATe!$۩e |ab$۩e \ b# RAD:e$`ebab 3-----------b1?We@b 1@bcK$_f@g@@[۩(@x۩(@](f@c-$f $(c8$.    c$ed JIM001nJBCHECK1 GETJBITEMe $@@@@g PER001xxx001PRCHECK1GETPRELe $$@@@(۩() ۩@g NAB001$=Y==g PER001$=[==g MOE001}PRCHECK1 GETMHITEMe $A-$(۩() ۩Ag MOE001$=[==g>$ _*$" style="background-color:yellow;" gW$ /۩@/*$" style="background-color:yellow;" i& $(۩() ix$ ۩(f e ۫ $AөA@ ( A$۩A@(ii*$A (ӨA _i.$A (ӨA ܨi*$A (ӨA j@L$AөAө@ ( A$۩Aө@(j@jJ*$A (ӨA _jT.$A (ӨA ܨj^*$A (ӨA k $_mVam`3meh3LET TEXT$=TEXT$+" "+TDD$+"Total"+TDDR$+STR(BLWGT:m7$)+""+TRO$mg4  1{mh$AmjmhT$A{AL3THIS SETS DEFAULT REMARKS TO MATCH ORIGINAL BOL REMARKSmjg$
BSummary by NMFC Freight Codemt[$ Freight Code Class Description Wgt Cu
FT m/ n$()n(& 1n)n\$  @ ۩@ ۩(Ө G  nmn3n8$(Summary by Classo4$Class Wgt Cu
FT oT/ p$()pE$  ۩(Ө G  p$ܨ poTt3t?$    Total ۩(G t&$t!3--- shipping container infot13 GOSUB 54000; REM --- shipping container summaryu@$#

3close containeru&#(#3------------- get totals for a BOL$E23 this section of code not used%$`]^_j1\U /$E\< E U <&$ EI1\e؉01\efi$1?W۩Ae @$]]^^f$__f@g9 i& ij$jj۩Ai3* RAD:e$`e F ADDRCATeWHSECATe$۩e |(E22<3doneF$__LcP$hj8@UJ$@ T1| 4?$ 0000LOGIT1JBSCI v$i $ $P(3----------- send tender button2$yellowFQ$ M0$$Total Weight to Items weight issue /Pc$ VALIDATEONLYU  JBTENDBLOB2 INVALID$ x $green%3---- display any validation problems$J$ Items+Plt
Weight ۩(G H$ Scale
Weight ۩(##G $
,$3this suppresses the WEIGHT SUMMARY$Aө@ $^OTM Tracking Link | S$WScanned images | E$@ )$PROD OTMGETSTATUS$? onClick="if (confirm('Tender to OTM?')) window.location.href='#?PGM=JBB&ECODEC0001=on&DOECODE0001=U &WF=JBLHD&PGMFUNC=CALLMHBOLR&SUBFUNC=PRINTFORMS&POPUP=1&JBTENDBLOB2=on&DESTPROD=DESTPROD'+document.getElementById('DESTPROD').checked+'&DESTQA=DESTQA'+document.getElementById('DESTQA').checked+'&DESTDEV=DESTDEV'+document.getElementById('DESTDEV').checked+''"3  BOL_NUMBER$3 GOTO 41900*$c
Prod
%QA
'Dev

/}  BOL_NUMBERc$ID=DESTPROD checked;ID=DESTPROD onclick="return false" onkeydown="return false"H$ . O$!
۫ /
8U3# A$ASTANDARD$@\N @?$5INVALID. PRO# LENGTH. CLICK BACK AND FIX THE PROBLEM.I1TU$@@ACQ$UULTUM1pU$@@ACQ$UULpU$"1$AAL0<3--------- REMOVE ACCESSORIALS FROM DETAIL, THEN ADD BACK IN516:/$D1  D< I:>D1e WHSECATeADDRCATe 4?$  *** CHAMP e 4@:D3----- now write em backH$I93--------- WRITE THE PRO# INTO THE COMMENTS WHEN TENDEREDJ"$A *** CHAMP @<XN+1 ANNP$A ADDRCAT: A var url = '&SUBFUNC=SHOWBOL&BL=۩ @&POPUP=1' ;window.location.href = url; window.reload(); $#(3" header level form G$
 >G3MOVED TO 41000X LET PRO$=CVS(JBLHD.CBL$,3); IF PRO$="" THEN GOTO 43100H<3MOVED TO 41000X CALL "OTMGETSTATUS",DOSYS$,PRO$,OTMSTATUS$RC  BOL_NUMBER)$TENDER EXISTS IN OTM 
N$Charge Charge Remarks Pro Sticker .-$$  8 1V AI8=0$ өA $  checkedB7$ALP$     $
$$ Q8~$=
>$2
$
(for testing enter BOL# for unique identifier)IJBSELECTOPTIONSLOCDOCKSTAGED DISPLAYSEQDESC%"$
Staged at:
%S$ ( ,;$* jE$ &l$' 4 nH$7
R$ `9$`$ $
89U3^1000 " DISPLAY THE SHIPPING CONTAINER INFO FOR A BOLDh$P 3display JBSCI (3" tender button%3" header level form PRO Stickerl3LET TEXT$=TEXT$+"
"+STEXT$+""+TTEXT$+TRO$+"
"+HTEXT$ $$S

ܶb80U3^1000 "---- display the JBSCI recs for a BOL$U 1$SS
Ship Unit Details Action Type1#1Length1Width1Height CuFT Scale Wgt Pallet Wgt1 Box Count1 Calc Class `&1  $"  7 0001 $    $=S=(3----- calc class2I$'DENSITY@@@@()$'()< $*@ި@ި@T}$SS  @ @1@1@1@ ۩(*######.0 @ @1@1' ^?$ܨ@ܨ@ܨ@ױ_h $++*`3 M$, +2DENSITY+()$,()&($SS  +$SSRTotals ۩(+######.0 ۩( ۩(1۩(1, 0$SSb $ڻv828<U3> 3LINKSA3--- FIRST REMOVE EXISTINGB!$@ @D$ E+3IF CGI.SCTYPE$="" THEN LET CGI.SCTYPE$="P"H @MMLNMn$6Invalid entry: & click BACK and fix the problemN$@1PP3$Ed1 E dZ4$@P3REMOVE (JBSCI,KEY=K$); GOTO 487200 $ @(0000?$@P@(Ө&Ө@@(Ө@@@i$ +L:C(3*=88),W:C(3*=88),H:C(3*=88),P:C(5*=88)$@XXXX5 @M@M@MM$@@@@@@ L?$ 0000LOGIT1JBSCI *!$Created ۩( @$ $^#(h)3------ THE FORM TO CREATE NEW CONTAINERSj$D: 8pt;l$makescimC$S
 oM$SSAp$SS-$+%$SSbY$Q$+5$SS3WAS RESULT1+BR+RESULT2,$+$$SS$+&$+$SS*+$+#W$SSˆS$SS ( œ;$SS* >E$SS &@$SS' 6 A:$SS) B$SSB
QtyCShip Unit DimsCScale
WeightCPallet
WeightCBoxesC 
++++F$SS
K8 !$  $+$< width="۩(">8"], 6! $ @8J]T ^,$ $
h8r]| Ć ĚĐ/$//Ě8Ĥ]Į ĸ$"",8]( $, ۩5$۩ ۩ 8] $ ($ܨ8] $$$ө8&]D  N# $MŞX( N M:N(1*=47),D:N(1*=47),Y:N(1*=47)b($N/// @O $@O@Og$P@O@Q@RŔl$M P%Y%Mz%DzŔŀŞŔ $MŞ8Mţ]Ũ< // ? #8  B3$?L3$?V$ ǜ^$ǜǰn$
SHOWING  B$Excelǰ`$f$ONCLICK ?$)"@$ө'thcolor $#FFFFFFc$