<>63/k +3PRRECV3 - RECEIVING REPORT BY RECEIPT DATE &3take out code for brands and programs <3add columns: Pruchace Order, Pack Qty, Received Packs #5258 63fix date and update column headers #5258 20110504-cwjF3#5258 fix PO code and change sort order to: Date+SKU+PO# 20110509-cwj>3#5258 per tim add void msg if transaction voided 20110517-cwj,R$)$)*JITEM,)*.tpl1)),)* .P$)$)*SKU,)*.tpl1)),)* 0R$)$|)*JIACT,)*.tpl1)),)* 28$)$)*JARDE,)* $3/$)$)*JARDH,)* 4$)$$),)JARHE5$)$$),)JARHH<@A $J1F#d@$G Receiving Report By Receipt DateH'REPTITLEGsA$ td class="td" < > <  nowrap>t0$nrz$C  J{ $&
S$/'TRHILITE
+$0*Receipt DateCCustomerC ReferenceCPO #CVendorCCarrierCVehicleCWaybillC In House DateC SH InvoiceCItemCSKUC DescriptionCReceived
QtyCDamaged
Qty  K$F 0s$k
5$4
Select Report Parameters
 356;$o
p
q
"$}
$~
R5 GO^0GO^^T33IF FIELD(CGI$,"DOPROG",ERR=0380)="" THEN GOTO 0380V43IF FIELD(CGI$,"DOBRAND",ERR=0380)="" THEN GOTO 0380\^#(3on step1|b3LET TEXT$="BRAND AND PROGRAM ARE REQUIRED.
Click "+BACKBUTTON$+" and fix the problem."; EXIT #(]$7de89RRBRD WJBREPORT39:;7<=8>?$( @yz @{u0#$t @y thru @{
U 3"2010.04.16 SRR #2535$>i$,-. !"#$p;$

G

 1I 3LOOP HERE@1IlJH3READ RECORD(SKU,KEY=WORK.CO$+WORK.CUST$+PAD(WORK.BNAME$,30),KNUM=0)SKU$T$`$@ @PO#: @$> @RARD@RE$ Event Return7 @RARD@$@3 @RARD@RA$Return$۫ @@@@۩@۩@۩@۩@@۩@@۩@@۩(@۩(@L7$@@  L 8 L88l3"ENDv$L7$@@  L 8 L87 88%3LET ROWFREEZE=1; CALL "WHREPSUMMARY"$'
:#(@3T=$ ERROR ۩(Ө AT LINE ۩(Ө" IN ۩#^ ERRORPAGE3-------- EMAIL ERROR MESSAGE+$T'WFDIRtmp/000_last_error.txt,O_CREATE,O_TRUNCT=$ ERROR ۩(Ө AT LINE ۩(Ө" IN ۩# L E$UT)$Vchuck@tssconnect.comW $V' error_emailW (JBMAILTOVXWYZU[@#2U &aU a=$mnoReceipt Dates: ptqraC$sReceipt Dates: ta$1%
۩' REPORTINTROG&m&
  +AFat$2
 A0b $3%
&۩' REPORTINTROG
s
۩' REPORTINTROG&m &
 =A0b L71b4 L2bH 8 L83i8u0 330000,20u<3LET TCGLIST$="CAB300/"uD 3SORT ROUTINEul/$*tmp/work۩(Өө*uuR*(u K:C(40),co:c(2),cust:c(6),item:c(12),atype:c(2),ref1:c(12),bcode:c(12),bname:c(100),edesc:c(100),rdate:c(8),rcv:N(10),dmg:n(10),ponum:c(17),comment:c(25),ihdate:c(10),waybill:c(12),vendor:c(30),carrname:c(30),shinv:c(12),vehicle:c(12)u$u$I$,I*u1|uu1|w8u$@u @@w8v (uv  zuv @Ruv3code for ponum herev %$@R@@v" $v$$3set channelv%$NA 1v( 1$//20v&v*v($NA $1v) 1$//20v*1v+v41v\Fv> v\vH2 PO# $vJ: VENDOR:$vRv4vk,$ vp1@vqY3LET K$=JIACT.COCODE$+JIACT.CUST$+PAD(JIACT.ITEM$,12)+JIACT.REF1$; REM CC+CUST+REF#+ITEMvz$@@v$@@v$@@@v$@v$@@@v$@@@@v$@@@v$@v$@A@v$@@@v% @D $@@$@@v# @1|$@v&$۩A@ ۩(##0v$@vLI@vw$v $vvw$uw8 3END OF SORTw~8F3++++++++++++++++++ Input Parameters / Form Creation +++++++++++++++++$M reportparamP$G$

 l$d
$($ODOBRANDPO($\DOCYCLE]\/ E  CHANGEYEAR YES $OP\]9 CHANGEBUYCYCLEYES$OPF3++++++++++++++++++ Fiscal Year Selection ++++++++++++++++++++++++++++ JJBSELECTOPTIONSPRYEARDOYEAR1YEARDESC*NOALL*%$JJBSELECTOPTIONSPRYEARDOYEAR2YEARDESC*NOALL*f($% % "DOYEAR1" Sp"DOYEAR1" onChange="document.reportparam.CHANGEYEAR.value='YES'; document.reportparam.GO.value='0'; submit();" S*$f f "DOYEAR2" Sp"DOYEAR2" onChange="document.reportparam.CHANGEYEAR.value='YES'; document.reportparam.GO.value='0'; submit();" S.Z NN$% %value="۩N">value="۩N " SELECTED>0Z gN$f fvalue="۩g">value="۩g " SELECTED>2$Q%>W$&
Select Parameters
Fiscal Year(s): From: Q Thru: fDF3++++++++++++++++++ Buy Cycle Selection ++++++++++++++++++++++++++++++E($^ *SELECTALL* ]$^F= Special' PRPROFILE$_ and R.BTYPE$="A"HJBSELECTOPTIONSPRBCDOCYCLEBUYCYCLEDESC^%*NOTOPVALUE*MULTIPLE*FILTERR.YEAR$>="N" and R.YEAR$<="g" _%J&$% % E SIZE=15E SIZE=5K ]$R]`]R]]R$% %value="۩`">value="۩` " SELECTED>KL$% % "DOCYCLE" St"DOCYCLE" onChange="document.reportparam.CHANGEBUYCYCLE.value='YES'; document.reportparam.GO.value='0'; submit();" SOF3++++++++++++++++++ Brand Selection ++++++++++++++++++++++++++++++++++P+ P$^3"2010.06.17 SRR #2662ReJBSELECTOPTIONSJBBRANDSDOBRANDBCODEBNAME*AUTH*NOTOPVALUE*MULTIPLE*a%T&$% % E SIZE=15E SIZE=5U P$RPSPRPPR$% %value="۩S">value="۩S " SELECTED>UVb$% % "DOBRAND" SB"DOBRAND" onChange="document.reportparam.GO.value=''; submit();" SW5$
Brand: %F3++++++++++++++++++ Program Selection ++++++++++++++++++++++++++++++++/$cFILTER(POS(CVS(R.BCODE$,3)="O"))E311/6 ------------ IF A BUYCYCLE NAME HAS A * IN IT THIS BREAKS BADLY$jJBSELECTOPTIONS PRPROGRAMS1DOPROG PYEARCODESORTKEY1*NOTOPVALUE*MULTIPLE**c%)&$% % E SIZE=15E SIZE=5.7$
Program: %/F3++++++++++++++++++ From - To Date Selection +++++++++++++++++++++++++0* POPUPINPUTMfromdateuv2* POPUPINPUTMthrudatewx4N$)
Receipt Date Range:vThru xE$ &F3++++++++++++++++++ Hidden Variables & GO Button +++++++++++++++++++++$' $[  6  $/x$
U PU DE $+D +($ +E +ܨD8 ]D  N#  $BŞX( h M:N(1*=46),D:N(1*=46),Y:N(1*=46)b'$h ...i@j@k@lŔl$B i%Y%Mz%DzŔŀŞŔ $BŞ8Bţ]Ũ 350600,20ż< / /   !  $  8 ]  4M$+
  +)$ + +4H8 \]p  Ƅ,$   $ 
Ƙ8 Ƭ]    1$ / /20 8 ]$  8$ " ",L8 `]tLj( $, ۩ǜ5$ ۩ ۩ ǰ8 ]  F$+ +,$ +
+8 ](  <$$$ө PP8d]  E ө /$ / / 8 ,]ʼ8  40$+lӨ 0 ܨ H$ (+ \%$   p8 ˄4]3above does :01030 = 20001030 or 991231=199912313---- get PRBCBRANDS for a BC $bd\1K?1KXL3IF PRBCBRAND$(1,20)<>DOCYCLE21$ THEN GOTO 53080&- ө@e' JBUSERBRAND07 ө@e/b$bb۩@e/:]0 O$$Ob utsub.wbbO/b8TTTQCCCQIQCOUNTTRTDDTRO ERRMESSAGEYYY TDELEMENTTDPLAIN TDNOWRAPTDDRLCSVCHANCSVLINKTEXT DFORM1HEADERBRYYCYYSYYZWFCGIWFWFPGMSELECT1CGI DFORM1LOOKUPYYYVTPLTATCTBTSTVRESULT1H2BFSUBMENU BRACKET1CFYYYTOTS0TOTS1TOTS2TRPLAIN COLHEADTR REPHEADHTML REPHEADXL REPHEADPDF REPBREAKPDFPDFLEN PDFCOUNTOUTCHANPDFCHANSDESCENDMENUCSVFILEOUTLINKOUTFILEPDFLINKPDFFILEOCOUNT COLHEADTR0YYTHHYYY1YYY2COLHEADTRHTML REPTITLEDUMMYWORKTDDC PRBCBRAND PRBCBRAND FORMNAMEDOYEAR1DOBRAND DOBRANDS RESULTYEAR1P DOBRAND1 LASTERRORXLFILESENDTOSUBJECTCCTOMESSAGE SIGNATURERESULTDOCYCLE DOCYCLES SELECTALL SPECFILTER DOCYCLE1 BCFILTER CYCLEBRANDSFILTER1 DOCYCLE20 PRBCBRAND.BCODERESULT2DOYEAR2MDYJMDYMDY.YMDY.MMDY.DREPSUBHEADHTMLTDSUBDIVSPANSPANDIVENDDIV ENDTDSUB REPSUBHEADXL REPPARAMSFJUL RESULTFROMTJUL RESULTTHRU CGI.FROMDATE BRACKET2 CGI.THRUDATEJIACT SPANDIVPROG SPANDIVBRANDRECS WFCOCODEWFCUSTRDATEWFDIR JIACT.COCODE JIACT.CUSTJIACT JIACT.ADATE JIACT.ITEM JIACT.REF1 JIACT.ATYPE JIACT.QTYWORKK WORK.ITEM WORK.RCV WORK.DMG WORK.CUST WORK.REF1 WORK.CO WORK.K WORK.EDESC WORK.ATYPE WORK.RDATERETURNPONUMPACKJARDEJRD JARDE_KEYSEQ WORK.PONUM WORK.COMMENTCOMMENTJARHE WORK.IHDATEIHDATEWAYBILL WORK.WAYBILL WORK.VENDORVENDOR CARRNAMESHINV WORK.CARRNAME WORK.SHINVVEHICLE WORK.VEHICLESKUSKUJARDE1JARDHJARHH WORK.BNAMEJITEMJITEM JITEM.DESCRIPTIONSKUCODEBREMPTYD1XLCSZCGIVALDD1OABRNOBRSUBY2M OUTTAHEREMDYSAVERENDER_HEADINGSDEFINE_FUNCTIONSY2KBQY2KBY2KB?BY2M OUTTAHEREMDYSAVERENDER_HEADINGSDEFINE_FUNCTIONSY2KBPONUM WORK.COMMENTCOMMENTJARHE WORK.IHDATEIHDATEWAYBILL WORK.WAYBILL WORK.VENDORVENDOR CARRNAMESHINV WORK.CARRNAME WORK.SHINVVEHICLE WORK.VEHICLESKUSKU SKU.PACK SKU.DESCTCGLISTJARDE1JARDHJARHHBREMPTYD1XLCSZCGIVALDD1OABRNOBRSUBY2M OUTTAHEREMDYSAVERENDER_HEADINGSDEFINE_FUNCTIONSY2KB FUNCTIONSY2KBVENDORVENDOR CARRNAMESHINV WORK.CARRNAME WORK.SHINVVEHICLE WORK.VEHICLESKUSKU SKU.PACK SKU.DESCTCGLISTJARDE1JARDHJARHHBREMPTYD1XLCSZCGIVALDD1OABRNOBRSUBY2M OUTTAHEREMDYSAVERENDER_HEADINGSDEFINE_FUNCTIONSY2KBSUNCTIONSY2KBY2KBIONSY2KBiFUNCTIONSY2KB_NGSDEFINE_FUNCTIONSY2KB7INE_FUNCTIONSY2KB[WFCUSTRDATEWFDIRMHITEM MHITEM.BCODE MHITEM.DESC JIACT.COCODE JIACT.CUSTJIACT JIACT.ADATE JIACT.ITEM JIACT.REF1 JIACT.ATYPE JIACT.QTYMHITEMWORKK WORK.ITEM WORK.RCV WORK.DMG WORK.CUST WORK.REF1 WORK.CO WORK.K WORK.EDESC WORK.ATYPE WORK.BNAME WORK.BCODE WORK.RDATERETURNPONUMPACKQTYPACK MHITEM.PACKPACKJARDEJRD JARDE_KEYSEQ WORK.PONUM WORK.COMMENTCOMMENTJARHE WORK.IHDATEIHDATEWAYBILL WORK.WAYBILL WORK.VENDORVENDOR CARRNAMESHINV WORK.CARRNAME WORK.SHINVVEHICLE WORK.VEHICLEBREMPTYD1XLCSZCGIVALDD1OABRNOBRSUBY2M OUTTAHEREMDYSAVEBRAND_HEADINGRENDER_HEADINGSDEFINE_FUNCTIONSY2KBӲMDYJMDYMDY.YMDY.MMDY.D WORKBRANDSB JBBRANDS.STATUSACTIVEBRANDNOSREPSUBHEADHTMLTDSUBDIVSPANSPANDIVENDDIV ENDTDSUB REPSUBHEADXL REPPARAMSFJUL RESULTFROMTJUL RESULTTHRU CGI.FROMDATE BRACKET2 CGI.THRUDATEJIACT SPANDIVPROG SPANDIVBRANDRECS WFCOCODEWFCUSTRDATEWFDIRMHITEM MHITEM.BCODE MHITEM.DESC JIACT.COCODE JIACT.CUSTJIACT JIACT.ADATE JIACT.ITEM JIACT.REF1 JIACT.ATYPE JIACT.QTYMHITEMWORKK WORK.ITEM WORK.RCV WORK.DMG WORK.CUST WORK.REF1 WORK.CO WORK.K WORK.EDESC WORK.ATYPE WORK.BNAME WORK.BCODE WORK.RDATERETURNPONUMPACKQTYPACK MHITEM.PACKPACKJARDEJRD JARDE_KEYSEQ WORK.PONUM WORK.COMMENTCOMMENTJARHE WORK.IHDATEIHDATEWAYBILL WORK.WAYBILL WORK.VENDORVENDOR CARRNAMESHINV WORK.CARRNAME WORK.SHINVVEHICLE WORK.VEHICLEBREMPTYD1XLCSZCGIVALDD1OABRNOBRSUBY2M OUTTAHEREMDYSAVEBRAND_HEADINGRENDER_HEADINGSDEFINE_FUNCTIONSY2KBOABRNOBR DOSUMMARYRICDATESUBY2M OUTTAHEREMDYSAVEBRAND_HEADINGRENDER_HEADINGS NEXT_PRELEOFPREL NEXT_WORKEOFWORK OUTPUT_LINEDEFINE_FUNCTIONSEOJߟ:FALSEEOFPREL WORK.DMG PREL.BCODE WORK.BNAME WORK.PNAME WORK.EDESC WORK.RDATE1 WORK.EPACKEOFWORK WORK.ECODE WORK.RCV DAMAGEFORMATJIACTB3A3PALLETSA3AHREF1C3AHREF2ALINES2D3MS1S3JARHHE3 SPANDIVPROG SPANDIVBRANDBREMPTYD1XLCSZCGIVALDD1 BRANDHEADEROABRNOBR DOSUMMARYRICDATESUBY2M OUTTAHEREMDYSAVEBRAND_HEADINGRENDER_HEADINGS NEXT_PRELEOFPREL NEXT_WORKEOFWORK OUTPUT_LINEDEFINE_FUNCTIONSEOJCHECK_RECEIPTSENCY2KBBL9149 READ_JARHH3AHREF1C3AHREF2ALINES2D3MS1S3JARHHE3 SPANDIVPROG SPANDIVBRANDSTEVEBREMPTYD1XLCSZCGIVALDD1 BRANDHEADEROABRNOBR DOSUMMARYRICDATESUBY2M OUTTAHEREMDYSAVEBRAND_HEADINGRENDER_HEADINGS NEXT_PRELEOFPREL NEXT_WORKEOFWORK OUTPUT_LINEDEFINE_FUNCTIONSEOJCHECK_RECEIPTSENCY2KBBL9149 READ_JARHH3UMMARYRICDATESUBY2M OUTTAHEREMDYSAVEBRAND_HEADINGRENDER_HEADINGS NEXT_PRELEOFPREL NEXT_WORKEOFWORK OUTPUT_LINEDEFINE_FUNCTIONSEOJCHECK_RECEIPTSENCY2KBBL9149 READ_JARHHY2KBBL9149 READ_JARHHțRELEOFPREL NEXT_WORKEOFWORK OUTPUT_LINEDONEDEFINE_FUNCTIONSe~Se~EXT_WORKEOFWORK OUTPUT_LINEDONEDEFINE_FUNCTIONSôF3++++++++++++++++++ Functions ++++++++++++++++++++++++++++++++++++++++ bc $<b <($<c<ܨb8]D N# $VŞX( M:N(1*=47),D:N(1*=47),Y:N(1*=47)b'$///@@@ϱŔl$V %Y%Mz%DzŔŀŞŔ $VŞ8Vţ]Ũ 350600,20ż<// ! $ 8 ]  4M$<
 <)$< <4H8\]p Ƅ,$ $
Ƙ8Ƭ]  1$//208]$ 8$"",L8`]t"#$Lj( #$#, ۩#ǜ5$"۩# ۩$ ǰ8]  F$<  <,$<
<8]( <$$+$+ө)PP8+d]x  VȌ" V$V Ƞ$$VV۩V20Vȴ/$VV/V/V8V]83---- get PRBCBRANDS for a BC !3LET STEVE=53001; DUMP ; RELEASE $|3LET P=POS($01$=DOCYCLE20$); IF P=0 THEN GOTO 53085 ELSE LET DOCYCLE21$=PAD(DOCYCLE20$(1,P-1),20),DOCYCLE20$=DOCYCLE20$(P+1)(3IF CVS(DOCYCLE21$,3)="" THEN GOTO 53007!3LET STEVE=53009; DUMP ; RELEASE *3READ (PRBCBRAND,KEY=DOCYCLE21$,DOM=53020)1?1X3IF PRBCBRAND$(1,20)<>DOCYCLE21$ THEN GOTO 53080&- ө@' JBUSERBRAND07 ө@/$۩@/:X 3GOTO 53007]0 $$ utsub.wbb/b8STARTATENDATUSEKNUMJBITEMTTTQCCCQIQCOUNTTRTDDTROTEXT1 ERRMESSAGECW1CW2CW3CW4YYY TDELEMENTTDPLAIN TDNOWRAPTDDRDQTYIDENT1DCOUNTRQTYLCSVCHANCSVLINKTEXT DFORM1HEADERBRYYCYYSYYZWFCGIWFWFPGMSELECT1CGI DFORM1LOOKUPYYYVTPLTATCTBTSTVRESULT1 JBITEM.RICBRAND JBBRANDS.DESC JBBRANDS JBBRANDSH2BFSUBMENU BRACKET1CFYYYBLBLLISTTOTS0TOTS1TOTS2TRPLAIN COLHEADTR REPHEADHTML REPHEADXL REPHEADPDF REPBREAKPDFPDFLEN PDFCOUNTOUTCHANPDFCHANSDESCENDMENUCSVFILEOUTLINKOUTFILEPDFLINKPDFFILEOCOUNT COLHEADTR0 SUMMARYONLYYYPRBGPRBG PRPRPLANPRPLANPRELPREL PREL.DESC PREL.COST PREL.PACK PREL.ECODETHHYYY1YYY2COLHEADTRHTML REPTITLEDUMMYWORKKWORKETOT WORK.QTY1ECOSTPRPLANJBTERRJBTERRDODIVJBDIVSJBDIVSDIVLISTDDTOTDCOSTDIVCOLSTDDC CGI.DOBRAND PRPROGRAMS PRPROGRAMS PRPROGRAMS.PNAME PRPROGRAMS.BCODE PRPROGRAMS.PCODE PREL.PYEARCODE PRPROGRAMS.YEARTR1 TRPLAIN1 JBBRANDS.BNAME PRBCBRAND PRBCBRANDPRBCPRBCERCV ALLOCTOT DIFFSTYLEEDIFFOHDCMTSHIADJRDATE1 LSHIPDATE WORKFILEWFDIR FORMNAMEDOYEAR1DOBRAND DOBRANDS RESULTYEAR1P DOBRAND1 CGI.DOPROG BACKBUTTONEDIFF ROWFREEZEMTCOLS LASTERRORXLFILESENDTOSUBJECTCCTOMESSAGE SIGNATURERESULT SESSION.PRODCOMP PREL.PRODCOMPINDENT PREL.KIT PREL.MBITYPE KITALLOC PREL.CQTYDOECODE KITECODEMBITOT PREL.MBI DROPSHIPPED PRPROGRAMS.STATUS PREL.STATUSDOCYCLE DOCYCLES SELECTALL SPECFILTER DOCYCLE1 BCFILTER CYCLEBRANDSFILTER1 DOCYCLE20 PRBCBRAND.BCODE SHIPPEDXX DROPSHIPPEDTEXT1XX BUDGETXX TERRALLOCXX UNALLOCXXALLOCXX INPROCESSXXRESULT2DOYEAR2LINKELMDYJMDYMDY.YMDY.MMDY.DJITEMJITEM WFCOCODEWFCUST PREL.ITEM_NOPRINTBRANDPROG WORKBRANDSB JBBRANDS.STATUSACTIVEBRANDNOS REPBRANDS REPBRANDNOS JBBRANDS.BCODE WORKCYCLES ACTIVEBRANDS REPBRANDNOSWCEND REPCYCLESREPSUBHEADHTMLTDSUBDIVSPANSPANDIVENDDIV ENDTDSUB REPSUBHEADXLZEROSUPPRESSHOVE REPPARAMS PROGRAMSPREND REPPROGSFJUL RESULTFROMTJUL RESULTTHRU CGI.FROMDATE BRACKET2 CGI.THRUDATEFAIL1JITEM.DAMAGEDSTEVERDATETRUEFALSEEOFPREL WORK.K WORK.RCD WORK.DMG PREL.BCODE WORK.BRAND WORK.BNAME WORK.PYEARCODE WORK.PNAME WORK.EDESC WORK.RDATE1 WORK.EPACKBREMPTYD1 DEALERTOTALSXLCSZCGIVALDD1 BRANDHEADEROABRNOBR DOSUMMARYRICDATESUBY2M OUTTAHEREMDYSAVEBRAND_HEADINGRENDER_HEADINGS NEXT_PRELEOFPRELLEOFPREL5mESUBY2M OUTTAHEREMDYSAVEBRAND_HEADINGRENDER_HEADINGS NEXT_PRELEOFPRELeREPPROGSFJUL RESULTFROMTJUL RESULTTHRU CGI.FROMDATE BRACKET2 CGI.THRUDATEFAIL1JITEM.DAMAGEDSTEVERDATE WORK.K WORK.PACK WORK.DMG WORK.RCDEOFPRELTRUEFALSE PREL.BRAND PREL.PROGRAMDOPROGSBREMPTYD1 DEALERTOTALSXLCSZCGIVALDD1 BRANDHEADEROABRNOBR DOSUMMARYRICDATESUBY2M OUTTAHEREMDYSAVEBRAND_HEADINGRENDER_HEADINGS PREL_END NEXT_PRELEOFPREL7DER_HEADINGS-