<> 43JBDAY1A -05/02/95 Daily Receipt Log REVISED FORMAT 39/16/92 RCC 8/9/2004? " 1$c :40806:40806 JIM001jABc jy@@(_     2@$yuv x  <=$z5>D$d 3OPEN FILESn,JCUST$x,@JITEM$,@JIACT$, @JARHH$O , @JARDH$R ,CCNVZ$,@JARHE$P,@JCUST$UL$e$&JBITEM,e&.tpl1efe,e& gf$J1JIT3DEFINE VARIABLES< ƄƄ-Ƅ=Ƅ*P_&  ($ F$I#Revised Daily Receipt Log Company: j$JDetail/Summaryt$yy

I\

$yyzDatevRef#
  Inv#v#Shipped From
  CarriervItemv DescriptionvStatusv Recvd
QtyvRecvd
To-DatevQtyOrdx$$ Ƅ3NUMBER OF COLUMNS IN REPORT *$  31/2 THE NUMBER OF COLUMNSU$ ##,##0.00- -##0.00% #######0-#####0 ############$',3DEFINE FUNCTIONS6>3CONVERT FROM MMDDYY TO YYMMDD@:3REMOVE SLASHESJF3CONVERT MM/DD/YY TO YYMMDDTD3CONVERT YYMMDD TO MMDDYY^7  Өݨ m8 STVZ N[\ # "#$%e#456789:;<=>?@ABCDEFGH3 JITEM(2)#()*+,-#LKM_`#S#T#V#ZR21C!3hh2$,hh3$,hh4$,hh5$,hh6$,hh7$3SETUP"$B3FIRST PAGE COUNTER3$"%3DEFAULT DATE$cc$  z$  1$] ]] $zzzzzz=$^ ^^ $^ zzzzzzzzzzzz'3DO THE SORT3JUMP RIGHT TO REPORT ROUTINE1'@$2'1'sJ 3 $3(Y$3283------------------ RECEIPT HANDLING -------------------Q$K***NOT FOUND***1O2R22 )3if not found in jarhh then look in jarhe41P2R22 @3*@3END OF CWRK FILE($yy
2$yy
%yellow indicates missing packing slipx?pink indicates qty received to date is over 103% of qty orderedx
< 3REPORT DONE#(D8@ 3error trap;$dERR:۩(Ө  at ۩(Ө" in prog ۩#E2#(3EOJ#-'CWRK۩#.#'3END ' 3SORT ROUTINE'53let F$=fid(3); let RECS=dec(F$(3,4));rem "DEAD CODE"'$+$&'WORKDIRCWRK۩&'&') R&@-'+$/'t$','&'$01'10'(1*( (11*(, (1(((- (1((( )R(($.($Q(9$.(۩A+ ( 3 CC+CUST+REF#+ITEM($s1'.(s( $ss*( L'.s((* 3END OF SORT*8*3PRINT AN ITEM LINE+1e2 ++M g gh g1eh @2 $gh+3 @k$,~3SUPPRESS PRINTING BILLING LOCS+-JBCHECK1 GETBRANDS@lmfnr+ of r$or+ @pj,~+BJBBAL4@k$7{|}~,>$ JBBALALLOC@k, $~~34/7/04 rcc,G$u ~@wLg $ PST $,$ @Q $Q,!+$ T $T SH,$$t۫vT 
  vT
  Tv@kv(۩(Ө@i)@qv@v۩(sv۩(~v۩(@wx,` $yyt,t$XXsYYW,~8u03--------------- Y2K FUNCTIONSu:3 YYMMDD TO CCCCMMDDuD auH$a19auI0 a'Y2KSLIDE$a20uL8auM]u3yymmdd$ to julian numericu au$a19au0 a'Y2KSLIDE$a20u$$auu5$Өaaau8u]u3yymmdd (numeric) to ccccmmdd$v v$a19۩(000000v0 a'Y2KSLIDE$a20vH8avR]y ay"*$ba b $bb y,)$a0b3SET TO "9" OR ":"y68ayr]y| ay0$blӨa0 ܨay$a(bay8ay4]3above does :01030 = 20001030 or 991231=19991231CC0Z8Z6Z7Z5M6XH2XX0M1M2M3M8YYPG1LF1 TESTMASK1JCUSTJITEMJIACTCCNVZCUST1CUST2DATE1DATE2ITEM1ITEM2CUSTHH1B1C1D1E1FCWRKA3B3A3C3D3E3SRTRECSSRT1SRT2KCWRKKCWRK1A2B2C2D2C2D2E2F2G2H2F2G2I2J2K2L2M2N2O2I2Q2H11H22B4A4C4TTJARHHJARHEKEY1JARDHJBHJRHJCUSTTJBDNETWGTTQTYTWGTJRDJBD1JRD1CCUST2IITEM2D4E4YYYYYYD9ERRORENCOUNTEREDJBITEMTPLJBITEMJBITEM1 JBITEM.RICPACKJBB JBITEM.RIC JBITEM.RICBRANDAABB JBBRANDS JBBRANDS.FAMILY JBITEM.RICDESCRECRQTYLTRTDDJBITEM.QTYORDTROTEXTTRA ORDERLISTOHDCMTRCVSHIADJRDATE1 LSHIPDATESHIDIVSHITER SHIORDERUSEKNUMFILTERALLOC INPROCESSTOTZZTOTSHTOTSHRAPIDSHDROPRESULT1QCHOLD JBITEM.QCSTATUS JBITEM.STATUSSHINV JBITEM1.ITEM_NO TRYELLOWTRPINKTRUDSENMY2KAY2K1Y2K2Y2KBrK2Y2KBBFAMILY JBITEM.RICDESCREC DOHEADER DOHEADERRQTYDSENMY2KAY2K1Y2K2Y2KBvBB JBBRANDS JBBRANDS.FAMILY JBITEM.RICDESCREC DOHEADER DOHEADERRQTYDSENMY2KAY2K1Y2K2Y2KBFrom2To 2 /SF8x3CLEAR THE IOLIST FOR JITEM$ABCDKLTEFGHIJMNOPQRSU8?$5689:7VW8 3OTHER THINGSlLcWWcWWGENERAL WAREHOUSE 7250-BLDG 17250 SANTA FE DRIVEHODGKINSIL60525@ 3error trap;$ERR:۩(Ө  at ۩(Ө" in prog ۩#E2"< _yesno.utlDo you want to PRINT now?Y" _cleanup.utl"E_ask.utlLine# to Jump To :#(3EOJ#-4CWRK۩#.#'3END ' 3SORT ROUTINE'53let F$=fid(3); let RECS=dec(F$(3,4));rem "DEAD CODE"'$+$3'WORKDIRCWRK۩3'&') R3@-'+$<'t$4,43'~!3PRINT @(0,20),'CL',"Sorting...",'$=!>"'1='(1*( 5>>*(, 5#15#((- 5$15(() `(3get rid of some things(q$66 666A55*55*9999 ($;5$h(E 6S1$6D3ORDER TYPE INTO ADJ/DELV/RECPTS(0$;;653 TYPE OF TRANS AND DATE(B$9h83PUT IN WARHOUSE REC # ORDER OR B/L# ORDER(E 6D1$:h:3EXCEPT DELV IN B/L# ($;; (<3NO UNIQUE NEEDED srt$=srt$+a3$(9,34); rem TO MAKE IT UNIQUE(3L4;h3ADD 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*8*3PRINT A ITEM HEADER*D$m***NOTFOUND***1nll*m+\]$LF۫?  RECVl l 2l+f$+z+3PRINT DETIALS++ ^3 TOTALS TABLES FOR ITEM TOTALS+8+*3PRINT RECEIPT DETAILS FROM THE JARDH FILE+i,iJARDH+$rs+1il++1i.|+ tl.|,$w?t,2$qWILWGTwtuqv,$pqިt,3 (Y ,V3SUMMARY,8 7X,B% t,~$x,G$,3 summarize like ITEM+LOTs RCC,H1t,I,IE 1 Ư t$,K3 @$,~3SUPPRESS PRINTING BILLING LOCS,L-JBCHECK1 GETBRANDS@,Q $,V @,~,[# /$,`R/((Ө@)@( @< (Өt,j $,t $rrܨtssp,~+,=3------ Summarize the receipt detials w/ like ITEM+LOTs --RCC,$|t}t-1i-F~- F ~t~t~t-F- $}}ܨ~|~---F'1i|$pq}t(}-K8.|3DONE PRINT THE RECEIPT TOTALS.~3 JARDHii,iJARDE+.3LET TWGT=NUM(JRH$[14]). r..& (N/LF$.'/ RECEIVED **7r. $.($__r__s.8u03--------------- Y2K FUNCTIONSu:3 YYMMDD TO CCCCMMDDuD uH$19uI0 'Y2KSLIDE$20uL8uM]u3yymmdd$ to julian numericu u$19u0 'Y2KSLIDE$20u$$uu5$Өu8u]u3yymmdd (numeric) to ccccmmdd$v v$19۩(000000v0 'Y2KSLIDE$20vH8vR]y y"*$ $ y,)$03SET TO "9" OR ":"y68yr]y| y0$lӨ0 ܨy$(y8y4]3above does :01030 = 20001030 or 991231=19991231CC0Z8Z6Z7Z5M6XH2XX0M1M2M3M8YYPG1X7LF1OKVALUECTLVAL TESTMASK1JCUSTJITEMJIACTJCONSJISRTJOPINCCNVZCUST1CUST2DATE1DATE2TYPTYPITYP1ITEM1ITEM2BILL1BILL2CUSTHH1B1C1D1E1FCWRKA3B3A3C3D3E3SRTRECSSRT1SRT2KCWRKKCWRK1A2B2C2D2C2D2E2F2G2H2F2G2I2J2K2L2M2N2O2I2Q2B3C3 PRINTITEMH11H22B4A4C4TTTBADTYPESX7JARHHTTTJARHEJBLHHJBLDHKEY1JARDHKKEY1JBHJRHJCU1JCUSTTJBDNETWGTWGTTQTYTWGTJRDJILOTEKJITDUMMYJBDWXJBDJBD1XJRDJRDWJRD1CCUST2IITEM2D4E4YYYYYYD9ERRORENCOUNTEREDJBITEMTPLJBITEMJBITEM1 JBITEM.RICPACKJBB JBITEM.RIC JBITEM.RICBRANDAABB JBBRANDS JBBRANDS.FAMILY JBITEM.RICDESCREC DOHEADER DOHEADERDSENMY2KAY2K1Y2K2Y2KBK