<>+& :3UPADDR1 - BILL OF LADING LOAD TO SMALL PARCEL 93use !/usr/local/bin/tss.upaddr1.deploy after any edits3 "  3RUN MODE@1R$$JITEM-,.tpl1, .2R$$JBLHDD,.tpl1, E3R$$JCUSTF,.tpl1, G4R$$JCONSH,.tpl1, I5R$$JCARRJ,.tpl1, K6&$$JBLDTL,8$h$,hJBLHH<$' $otherhead>D$}1DELETE from dbo.clgshipments WHERE BOL = '[BOL]'; INSERT INTO dbo.clgshipments (BOL,CARRIER,TSSCUST,STREF,PONUM,BRK,SHIPTOCODE,NAME,ADDRESS1,ADDRESS2,CITY,STATE,ZIP,COUNTRY,CONTACT,PHONE,EMAIL) VALUES ([VALUES]);F3for mysql SQL$="REPLACE INTO clgshipments (BOL,CARRIER,SHIPTOCODE,NAME,ADDRESS1,ADDRESS2,CITY,STATE,ZIP,COUNTRY,CONTACT,PHONE,EMAIL) VALUES ([VALUES]);"H $|,|P@a!$ &PGMFUNC=CALL۩#i:$ -###,###,##0 -$#####0.00 #######0.00j+$# $###,###.0000+###,###,##0.00k%$8###,###,###.009######0A$td class="td" <>< nowrap>$   $, G$;?V$%/D$< $ 
4$(5tmp/smallparcel۩(Өө.sh%$<$,<O_CREATE,O_TRUNC(3^1000 "------------ main logic@'J2$$,^/u/whp/webnew/clg/distrib.sqlT1VX $[Z$@
Manual Addresses from /u/whp/webnew/clg/distrib.sql

^3/L<&source /usr/local/bin/tss.upaddr1.pass@L<7tsql -S SQL.CHAMPLOG.COM -U root -P"$MYPASSWORD" << EOF4L<use Smaller_Parcel; set nocount on;[3WRITE (XLFILE)"mysql --host=jit --user=smallparcel --password=champ123 smallparcel << EOF" L< L<go L<EOF<,3 A=SCALL("sh "+XLFILE$+" >/dev/null 2>&1")/u/whp/tss/PGM/UPDSQLPROD#(@3T=$&ERROR ۩(Ө AT LINE ۩(Ө" IN ۩#^E23-------- EMAIL ERROR MESSAGE+$''WFDIRtmp/000_last_error.txt,O_CREATE,O_TRUNC'=$&ERROR ۩(Ө AT LINE ۩(Ө" IN ۩# L&E$('$)' error_email*&,WHMAILTO)y*z{(|@#(U39000 OUTTA HERE#"-DLFH# Jh&H83CALL "GPLACE0"; REM THIS PULLS THE PLACE_ID AND OTM LOC&')U 3^1000 "------------ MAIN REPORT LOGIC't\$P'P$:'
Action1Customer1BOL#1PO# /
Ship To1Carrier1Name1 Address 11 Address 21City1State1Zip1Lines1 Locations1Pieces1Weight1RAD1 BOL
Prints1Form1۫Status BOL Status($: *3loop HERE for next BOL.3/1DIE/0?$Y Committed JBLFHD$Y Future Order/l/$g@f۩g20gg2d* G G1FE@U2nG2n'$WH @UMOE001 $MH2p @UPER001 $PR2r- @UNAB001webpru" $NA2s @UJIM001 $JB2t @UMTR001 $TR2* K K1JE@V2K2+ CHAMPIONKCLGK*2* I I1HE@W*I2$II|-2 ,@X,@cb$@c/  /5$/,@c3FIX SOME C ITY STATE LINES2 ,@cx$N@X$/ N /J$aN/NN/33 FOR JIM BEAM AND OTHERS2$N@c2$aA@X2$aa,31 a$a0a3$aa3 73OS(","=DEST$) THEN LET DEST$=DEST$(1,POS(","=DEST$)+4)3,-$q@rs@tu@v36" u$u@c3# ,N$NN,??3$wN,N3/$xNӨ,NxAx:3GET DETAILS: $d@S:*$b[۩(^] ^$b`;o$bj/b PjWj?$b(b@V$ZY۩E @$7=@UZ@e@Mqsuwxa ۩(O b ۩(P ۩(QR$@S$@TY @$~|۩E @U@@e@@eqsuwxa|@?3any single quote in data is removed, then pipes replaced quote@$~~`@.$~~' ~~|'@$}[VALUES]~@,$[BOL]۩E @$ A.  webservice$73not neededA $7E*J83REPORT COMPLETEJ`$
K$

N8N 93^1000 "------ handle the subtotals and grandtotals lines#3------------- get totals for a BOL$i%$ROPQ`$j1LE /$6L< 6 E <&$ 6I1L[؉01L[\_$1-G۩A[ .$OOPP\$QQ\@]9 _& _`$``۩A_($kW _PR $kP kj $jjk3* RAD:[$R[  B/O[$i2<3doneF$QQLcP$^`8  !$ $+$< width="۩(">8"], 6! $ @8J]T ^,$ $
h8r]| Ć ĚĐ/$//Ě8Ĥ]Į ĸ$"",8]( $, ۩5$۩ ۩ 8] $ ($ܨ8] $$$ө8&]D  N# $>ŞS$./X( ? M:N(1*=47),D:N(1*=47),Y:N(1*=47)b($?/// @@ $@@@@g$A@@@B@CŔl$> A%Y%Mz%DzŔŀŞŔ $>Ş8>ţ]Ũ< // ? #8  =3$:$L3$?V$ [$
 ǜ^$ ǜǞd$> Ǟǟd$> ǟǡb$ ǡǰn$
SHOWING  B$ Excel ǰ`$ ~3LET YYY=POS("ONCLICK"=CVS(YYY$,4)); IF YYY THEN LET YYY1=POS(")"""=YYY$(YYY)),YYY$=YYY$(1,YYY-1)+YYY$(YYY+YYY1+1); GOTO 51150@$ө'thcolor $#FFFFFFc$
[$
 ǜ^$ǜǞd$>Ǟǟd$>ǟǡb$ǡǰn$
SHOWING  B$Excelǰ`$~3LET YYY=POS("ONCLICK"=CVS(YYY$,4)); IF YYY THEN LET YYY1=POS(")"""=YYY$(YYY)),YYY$=YYY$(1,YYY-1)+YYY$(YYY+YYY1+1); GOTO 51150@$ө'thcolor $#FFFFFFc$