<>2, ,3UTSHIPRP - UTILITY SHIPPING REPORT W/ COSTS@@$U$,UJIACT $v$,vJBLDH,C$I$,I JITEM.tpl1I2I,IJITEM J2-R$q$PJBLHHoq,qP.tpl1q2q,qP p2.R$q$PJCONStq,qP.tpl1q2q,qP u2/V$q$P PSDISPLAYq,qP.tpl1q2q,qP 20R$q$PUTACCq,qP.tpl1q2q,qP 2<@@FE " 7$ $$,JBPLANnnJ$ 100100100100   sA$td class="td" <>< nowrap>z$  &  0$H 'TRHILITE'
$A Acct& Acct Name&Address&City&State&Date Ord&Order No&BOL#&SKU&SKU Desc& Qty Shipped& Unit Cost& Extension&Ship Datep$:
/ BRANDFAMILY@$:

۩' pagetitle -- Company: @9

=$:

 Shipped Report - b 

$B%
۩' REPORTINTRO :5
AE$C
 A$D%
:۩' REPORTINTRO
۩' REPORTINTRO :
 =A5$E
 DF'Go$0gh4 /FROMDATEr3test if existsr #(3#(a$"de L"B  LC < L<Dn$..*ALL3" SELECT1$=CVS(FIELD(CGI$,"BRANDS",ERR=0501),3); IF SELECT1$="*ALL" THEN LET SELECT1$=""3LET BRACKET1$=SELECT1$+FILL(3)4 f,CMONTH:N(1*=46),CDAY:N(1*=46),CYEAR:N(1*=46)&$$f@g....@h@i@j0$W ө  %Yz%Mz%Dz:$$f@m....@h@i@jD$X ө  %Yz%Mz%DzX'3create sort file4$6&3IF ENDAT$=" " THEN LET ENDAT$=$FFFF$>Q$ 345671R"3---------- scan through sort fileL$_Rl1R`$na۩ ݨ``1onp, 484954n484955nL1tp@ru*$@, ,`$@, Ө,  $ @$, &$ $$xy 1vp  6$wvn1v w p n wL(=1vw`  Division: `$x` 20  Freight Code:`$y`4+ Manager:`$` dn1vp ox6$wv1v w p B wIx1vwz{|}~&$p@{1IJ+$A{ 1$$@$$}5$( $###,###.00( ###,###.00$@ @ @ ۫ @ @s @ { @۩(}    ۫ @ #$34567x!3------ END OF BOL SHOW CHARGES % 3DISPLAY OUTBOUND CHARGE SUMMARYN$  X[$ H %
Select Report Parameters
H $ HbLl3DONEv$
{L"$}  L < L<"< JBREPSUMMARY$%;
@#(L" $  LH! <L<H$GG GFL<E$G*8 #3^100 "----------- OUTBOUND CHARGES $ 3GET FREIGHT CHARGE ,WASSCWp@p 1 3 THIS SKIPS SHOWING THE ACTUAL WHSE CHARGES A utsub.wbb   $53$ ! $11$ & $FD$ 0 $CI$ : $C3$ D $06$ N $WW$ $( $###,###.00 L$ 7$  $Track Transportation Charges Outbound Whse Charges Total ->    $  $  $  $  $  $  $8%3^100 get charge format charge line,$  1$@: 53/11/C3/CI/FD/$$> WW0$WW$ $)$( $###,###.00.$( ###,###.00 $0$@۩(  $823^100 "--extract qty/rate/amount from charge table$1$ $ D$ `$ ~ 8#3^100 "----- GET THE GREIGHT CHARGE$$@ - / GETCLGCHARGEp $( $###,###.003D$\ *$ -   UPS FREIGHT$UPS FREIGHT - Aө  9http://ltl.upsfreight.com/tracking/ShipTrack.aspx?ProNbr=۩ @UPUPS$http://wwwapps.ups.com/etracking/tracking.cgi?tracknums_displayed=5&TypeOfInquiryNumber=T&HTMLVersion=4.0&sort_by=status&InquiryNumber1=U&InquiryNumber2=&InquiryNumber3=&InquiryNumber4=&InquiryNumber5=&track.x=36&track.y=7p @CTCHAMPQ$Ehttp://tracing.champlog.com/wtenter.cgi?PGM=WTLOOKM&CTrack=Multi&CBL= @FEFEDx$lhttp://www.fedex.com/Tracking?ascend_header=1&clienttype=dotcom&cntry_code=us&language=english&tracknumbers=8@3T=$ERROR ۩(Ө AT LINE ۩(Ө" IN ۩#^E2#( 3OUTTA HERE#2U&' 3SORT ROUTINE'$+$P'WORKDIRCWRK۩P'&') RP@-'+$Q't$R$,RP'$SabTS'1US'(!1U*VYcde^( VTT*(, VW1UVW((- VX1UV(($[V^$\( YS(()$]^Z\^3EXCEPT DELV IN B/L#(:LRA[\3ADD IN JIACT KEY FOR EASE IN READING(>3LET RECS=RECS+1; IF MOD(RECS,100)=0 THEN PRINT @(20,20),SRT$,((* 3END OF SORT*H3IF RECS=0 THEN PRINT "No Records Selected....",'RB',; WAIT 2; GOTO 9000*8N N*E ө/$//N48N>]N N!$  $N+$< width="۩(">N8N]N N! $ O8O]O O,$ $
O8O#]O$ O& O,O(1$//20O,8O-]O8 O:$"",O<8O>]OB()*OC( )$), ۩)OD5$(۩) ۩* OE8OF]OL OV$$1$1ө/@O`81Oe]O  O  $OO@$۩//20O8O]O  O$lO@$$$ $ OO@$$, $ OP$lPP8lP ]u03--------------- Y2K FUNCTIONSu:3 YYMMDD TO CCCCMMDDuD uH$19uI0 'Y2KSLIDE$20uL8uM]u3yymmdd$ to julian numericu  u$19u0 'Y2KSLIDE$20u$k$kuu5$kӨu8ku]u3yymmdd (numeric) to ccccmmdd$v  kv$19۩(k000000v0 'Y2KSLIDE$20vH8vR]y  y"*$l l $ll y,)$0l3SET TO "9" OR ":"y68yr]y|  y0$llӨ0 ܨy$(ly8y4]3above does :01030 = 20001030 or 991231=19991231$K reportparamD$%
 $%%0pS3, CALL "JBSELECTOPTIONS","JBSTATES","MATCHSTATE","STATE","STATENAME","",0,RESULT1$z53LET TEXT$=TEXT$+TRPLAIN$+"State:"+TDD$+RESULT1$+TRO$, JBDATESETPREVMOLM* POPUPINPUTKfromdateLN* POPUPINPUTKthrudateMO5$%%H Ship Dates: N Thru O E$%% &$%%' - U$%%H 1
$%% 83 STEP 2 SELECT BRANDSO$%Brand Family: @9 
 #$%%0JBSELECTOPTIONSJBBRANDSBRANDSCATDESC*FILTERMASK(R.FAMILY$,"@9%")*MULTIPLE*NOTOPVALUE*SELECTALL*AUTH8 $%%8E$%% &N$%% /$%%' - I$%%1
$%% f8JBPLANSTARTATENDATUSEKNUMJBITEMTTTQCCCQIQCOUNTTRTDDTROCDATETEXT1 ERRMESSAGECW1CW2CW3CW4YYY1YYY2YYY TDELEMENTTDPLAIN TDNOWRAPTDDRIDENT1OCOUNTLCSVCHANCSVLINKCSVFILEOUTCHANOUTLINKOUTFILETEXTTDDHBRYYCYYSYYZWFCGIWFWFPGMSELECT1CGI DFORM1LOOKUPYYYVTPLTATCTBTSTVRESULT1 CGI.BRANDFAMILYH2BFSUBMENUPDFCHANPDFLINKPDFFILESDESCENDMENU COLHEADTR REPHEADHTML REPHEADXL REPHEADPDF REPBREAKPDFPDFLEN PDFCOUNTTRPLAINJITEMJITEM FORMNAMEFJULTJUL RESULTFROM RESULTTHRUFRECSCWRKSRT1SRT2JIACTA3DATE1DATE2B3Z8SRTKEY1X7E3KD WFCOCODEWFCUSTA3C3D3CDATE CGI.FROMDATE CDATE.CYEAR CDATE.CMONTH CDATE.CDAYYYYY CGI.THRUDATEBOLKEYJBLHHJBLHHC JBLHH.CONS JBLHH.STREFJCONSJCONSJBLDHKDH DIVISION FREIGHTCODEA2B2C2A2D2E2F2G2KJITEM JITEM.DESCRIPTION JBLHH.CUST JCONS.RESERVED1 JCONS.CONSIGEE_NAME JCONS.ADDRESS_1 JBLHH.ENTD JBLHH.BL JBLHH.DELD JCONS.ZIP_CODECCITYCSTATEPYYMANAGERTRSAVE TRPLAINSAVE UNITCOSTA2EXTA2EXT UNITCOST PSDISPLAY PSDISPLAYPSKPSDISPLAY.COSTACL53LFDLCILC3L06CARRIERTRACKFCHARGE TTCHARGEL0UTACCUTACCACCRATE UTACC.RATEACCEXT UTACC.DESC TTCHARGEAMOUNTCTEXTACQTYAC1ACQTY1ACCEXTACAMT1ACCRATEACRATE1YYLWWL11TOTWGTTOTPCS TOTLINESFCHARGE JBLHH.CNME JBLHH.CARR TRACKINGURL TRACKSHOWCW1BREMPTYD1XLCSZCGIVALDD1Y2K1Y2K2Y2KAY2KBMDY1N1 h1N1D