<>0S* (3TISRORP1 - SHIPPED RELEASE ORDER REPORT$^$,^JIACT $~$,~JBLDH!E$>$,> JBITEM.tpl1>6>,>JBITEM 6"I$A$,A JBBRANDS.tpl1A6A,AJBBRANDS B6$$$,JARHE&$$,JARDE'@#(4#n+$R1:C(7),R2:C(10),R3:C(1),R4:C(30),R5:C(30),R6:C(30),R7:C(30),R8:C(25),R9:C(2),R10:C(10),R11:C(6),R12:C(3),R13:C(7),R14:C(1),R15:C(30),R16:C(15),R17:C(3),R18:C(4),R19:C(20),r20:c(7),C$R$,R JITEM.tpl1R6R,RJITEM S6-R$z$YJBLHHxz,zY.tpl1z6z,zY y6.R$z$YJCONS|z,zY.tpl1z6z,zY }6<@@FE " 7$ $$,JBPLANnnJ$ 100100100100   sA$td class="td" <>< nowrap>z$  *  0$Q 'TRHILITE+
$J Item* PO Number* Trans-Date*Rec-Num*Received* Over/Short*Damage*Carrier*Consignee3"2010.12.02 SRR #4234p$C
3 BRANDFAMILY@$C

۩' pagetitle -- Company: @=

)$C

Inbound Receipts

3LET REPHEADHTML$="
"+STBL("REPORTINTRO")+""+H2BF$+"
"+COLHEADTR$$K
۩' REPORTINTRO C5
JE$L
 J$M%
C۩' REPORTINTRO
۩' REPORTINTRO C
 =J5$N
 MO'Po$4gh4 3FROMDATEr3test if existsr #(3#(a$&d#eEfH INVREPORT WJBREPORT3HI#$%&'(EFG L&K # L#L E LEMn$22*ALL3" SELECT1$=CVS(FIELD(CGI$,"BRANDS",ERR=0501),3); IF SELECT1$="*ALL" THEN LET SELECT1$=""3LET BRACKET1$=SELECT1$+FILL(3)4 o,CMONTH:N(1*=46),CDAY:N(1*=46),CYEAR:N(1*=46)&$$o@p....@q@r@s( $@p0$` ө  %Yz%Mz%Dz:$$o@v....@q@r@s< $@vD$a ө  %Yz%Mz%DzX"3GOSUB 10000; REM create sort file4$6&3IF ENDAT$=" " THEN LET ENDAT$=$FFFF$>Q$ 789:;CHl1["3---------- scan through sort fileL$h[l1[i$wj۩ ݨii1xwy1|y@{}*$@, ,`$@, Ө,  $ @$, &$ $$ 1~y  6$~n1~  y n L(=1~i  Division: i$i 20  Freight Code:i$i4+ Manager:i$i dn1~y ox6$~L1~  y LB Ix1~E$y@1RxS3"2010.01.20 SRR Added DOM$$ި@ 3" Get Tracking InfoY3LET L$=JCONS.RESERVED1$+TDD$+JCONS.CONSIGEE_NAME$+TDD$+JCONS.ADDRESS_1$+TDD$+CCITY$+TDD$+CSTATE$+TDD$+FNMDY1$(JBLHH.ENTD$)+TDD$+JBLHH.STREF$+TDD$+JBLHH.BL$+TDD$+B2$+TDD$+JITEM.DESCRIPTION$+TDDR$+STR(A2)+TDD$+FNMDY1$(JBLHH.DELD$)+TDD$+JBLHH.PO_$+JBLHH.BRK_$+TDD$+FREIGHTCODE$+TDD$+DIVISION$+TDD$+MANAGER$+TDD$+CVS(JBLHH.CNME$,3)+TDD$+TRACK$+TRO$y$" out-bound 0 0 ۩ ۩L& "$ # L#Q"! ELEQ"$PP POLEN$P#$789:;x U 3------ 1AA@? B7$"
Select Report Parameters
۩@@L& "$& # L#Q"(" POLEN$P0! ELEQ"$PPb8l3DONEv$"
{L&"$} # L#" E LE"&#E JBREPSUMMARY$)D
I#(UC$  Total۩($!! *832200,203" PROCESS IN BOUND SHIPMENTSK3CLOSE (5,ERR=2260)Z3LET SENDFLAG$="",OUTFILE$="/u/whp/tss/to_champro/champroio"; LET VAL=SCALL("> "+OUTFILE$)3OPEN (5)OUTFILE$w3PRINT (5)"ITEM,REPORT-DATE,PO-NUMBER,IN/OUT,TRANS-DATE,REC-NUM,,RECEIVED,OVER/SHORT,DAMAGE,CARRIER,CONSIGNEE,TRACKING" $ AP EXPRESS $1ĵJ1R 8 81ı ' <3  $  8 >  8 @3  $  8 L @ 8 `3IF H5$<>CDATE$ THEN GOTO 2360 t1ŵ 1ű 8(   8 $" ۩ 20-- ۩  ۩ ۩ $3IF TESTFLAG=1 THEN PRINT PRINTLINE$ L& "$  # L#Q" ! ELEQ"$PP  POLEN$P 3LET SENDFLAG$="SEND"  8 3" Get Tracking Numbers $$,JBLDH $@@ # $ 1 &1     P M***%%%$   $  3" $  8@3T=$ERROR ۩(Ө AT LINE ۩(Ө" IN ۩#^E2#( 3OUTTA HERE#2^&' 3SORT ROUTINE'$+$Y'WORKDIRCWRK۩Y'&') RY@-'+$Z't$[$,[Y'$\jk]\'1^\'(!1^*_blmng( _]]*(, _`1^_`((- _a1^_(($d_g$e( bS(()$fgceg3EXCEPT DELV IN B/L#(:L[Ade3ADD 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$$5$5ө3@O`85Oe]O O  $OO@$۩//20O8O]u03--------------- Y2K FUNCTIONSu:3 YYMMDD TO CCCCMMDDuD  uH$19uI0 'Y2KSLIDE$20uL8uM]u3yymmdd$ to julian numericu  u$19u0 'Y2KSLIDE$20u$t$tuu5$tӨu8tu]u3yymmdd (numeric) to ccccmmdd$v  tv$19۩(t000000v0 'Y2KSLIDE$20vH8vR]y  y"*$u u $uu y,)$0u3SET TO "9" OR ":"y68yr]y|  y0$ulӨ0 ܨy$(uy8y4]3above does :01030 = 20001030 or 991231=19991231y*$T reportparamD$)
 $))4pS3, CALL "JBSELECTOPTIONS","JBSTATES","MATCHSTATE","STATE","STATENAME","",0,RESULT1$z53LET TEXT$=TEXT$+TRPLAIN$+"State:"+TDD$+RESULT1$+TRO$, JBDATESETPREVMOUV* POPUPINPUTTfromdateUW* POPUPINPUTTthrudateVX5$))Q Ship Dates: W Thru XE$)) &I$)) *$))' - U$))Q 1
$))83 STEP 2 SELECT BRANDSO$)Brand Family: @= 
 #$))4JBSELECTOPTIONSJBBRANDSBRANDSCATDESC*FILTERMASK(R.FAMILY$,"@=%")*MULTIPLE*NOTOPVALUE*SELECTALL*AUTH< $))<E$)) &N$)) /$))' - I$))1
$))f8TPLHJBPLANSTARTATENDATUSEKNUMJBITEMTTTQCCCQIQCOUNTTRTDDTROCDATETEXT1 ERRMESSAGECW1CW2CW3CW4YYY1YYY2YYY TDELEMENTTDPLAIN TDNOWRAPTDDRDQTYIDENT1OCOUNTDCOUNTRQTYLCSVCHANCSVLINKCSVFILEOUTCHANOUTLINKOUTFILETEXTTDDHBRYYCYYSYYZWFCGIWFWFPGMSELECT1CGI DFORM1LOOKUPYYYVTPLTATCTBTSTVRESULT1 CGI.BRANDFAMILYJBITEM JBITEM.RICBRAND JBBRANDS.DESC JBBRANDS JBBRANDSH2BFSUBMENUPDFCHANPDFLINKPDFFILESDESCENDMENU COLHEADTR REPHEADHTML REPHEADXL REPHEADPDF REPBREAKPDFPDFLEN PDFCOUNTTRPLAINJITEMJITEM FORMNAMEFJULTJUL RESULTFROM RESULTTHRUFRECSCWRKSRT1SRT2JIACTA3DATE1DATE2B3Z8SRTKEY1X7E3KD WFCOCODEWFCUSTA3C3D3CDATE CGI.FROMDATE CDATE.CYEAR CDATE.CMONTH CDATE.CDAYYYYY CGI.THRUDATEBOLKEYJBLHHJBLHHC JBLHH.CONSJCONSJCONSJBLDHKDH DIVISION FREIGHTCODEA2B2C2A2D2E2F2G2KJITEM JBLHH.CUST JBLHH.BL JCONS.ZIP_CODECCITYCSTATEPEXTYYMANAGERTRACKTRAC JBLHH.COCDJBLDH10BB1BB2BB3BB4BB5BB6BB7BB8AA1L1L2L3L5L4L7A8CONSIGH1H2H3H4H5H6H7H8H9H10H11H12H13H14H15H16D1D4D5D6D7D8D9D10D11D12D13JARHEJARDE CGI.WFCUSTNEWH5 FROMRANGE THRURANGECW1BREMPTYD1 DEALERTOTALSXLCSZCGIVALDD1 BRANDHEADERY2K1Y2K2Y2KAY2KBMDY1 YYYYMMDDP