<>/.+L $3JBDAY1 -05/02/95 Daily Receipt Log 39/16/92 RCC 3SEE XLOOK1 :3--10/21/92 Summarize like ITEM+LOT detail lines RCC-TSS-3- 050295 - MTJ - fix mask overflow LINE:5410 -@@(_     d 3OPEN FILESn,JCUST$x,@JITEM$,@JIACT$,@JCONS$,@JISRT$., @JOPIN$ 3WAS ON 4 WITH JCONS, @JILOT$u , @JARHH$c , @JARDH$i ,CCNVZ$ , @JBLHH$f ,@JBLDH$g,@JARHE$e,@JCUST$nL$$3JBITEM,3.tpl1,3 H$J1JIT3 "YCOMCD",C$,C0$,10,10; IF C$="99" THEN GOTO 91003DEFINE VARIABLES< ƄƄ-Ƅ=Ƅ*P_&  ($ >$YDaily Receipt Log Company: $ZDetail/Summary$$ Ƅ3NUMBER OF COLUMNS IN REPORT *$  31/2 THE NUMBER OF COLUMNSU$ ##,##0.00- -##0.00% #######0-#####0 ############$4,3DEFINE FUNCTIONS6>3CONVERT FROM MMDDYY TO YYMMDD@:3REMOVE SLASHESJF3CONVERT MM/DD/YY TO YYMMDDTD3CONVERT YYMMDD TO MMDDYY^7  Өݨ m8 klot _{~ #-/012e#ABCDEFGHIJKLMNOPQRSTU3 JITEM(2)#56789:#\[]#k#l#o#tR21C.3hh2$,hh3$,hh4$,hh5$,hh6$,hh7$3SETUP"$B3FIRST PAGE COUNTER3$"%3DEFAULT DATE$ %&($XYES dN$%SUMMARY% DELIVERIES%RECEIPTS%OTHER$#$'$(N(N(Y$) * z$+ , z$!-"- 3GOSUB 6000_3INPUT (0,ERR=0975,SIZ=2)@(45,21),"Correct (Y/N/)?: ",X7$:("y"=0980,"Y"=0980,"N"=0900,"n"=0900)*' ('N $%'2*'3 BLANK THE DESCRIPTION IF WERE NOT DOING EM/$ZSUMMARY (N$ZDETAIL13LET N=6; CALL "XPRINT",N; IF N=99 THEN GOTO 90001$"  $"zzzzzz=$* $ zzzzzzzzzzzz'3DO THE SORT3JUMP RIGHT TO REPORT ROUTINE1!`L!3get the next customer to processV1<[ -<` -"<X$@73em ----------- CUSTOMER OK , GET B/L OR W/R ----------14-@$?414jE ?-@LJ @$@?V ?@Y$@? ? D83------------------ RECEIPT HANDLING -------------------J$[***NOT FOUND***1c?R?j)3if not found in jarhh then look in jarhe-1e?R?j@3 7X*%3gosub 11200; rem PRINT A DETAIL LINE@83------------------ SHIPMENT/DELIVERY HANDLING ---------$j?j$k 1fj7$[ **NOT FOUND**1?k 7XI k$kk k$k  $۩ /?  DELVkk &k2[ - , fk $3PRINT B/L DETAILS @ TL 3RANGE CHECK FOR ITEM ACTIVITY $`3STARTS OF OK $a*SR* '$b6a b  + b7 3HANDLE BB DIFFERENT  (bN  & 5#5$  " ::+:,  8 3IT'S *NOT* IN RANGE &$` v83END OF CWRK FILE$F($@2L< 3REPORT DONEF3GOSUB TOTALS RTNS#(>3-----------------PRINT THE DELIVERY/SHIPMENT DETAILS---------$rs1gk.1g o k/+oILMSPPP3UNKNOWN RECORD TYPE3PRINT AN ITEM LINE0$q1?oq1o7 1 Ư o$$pqިo/ o$poިo  7X% (Y#3SUMMARY REPORT(3CHECK FOR DUPLICATE ITEM+LOTS RCCP/((Ө@)o(o7(Өo $# $rrܨosspFP3PRINT AN 'L' OR 'M' LINEZ (Y 3SUMMARYn 7Xx/o} $3END OF DETAILS& (N/LF$H3PRINT (6)@(72),"DELIVERED **",@(89),TQTY:M8$,@(123),TWGT:M3$; LET L=L+1($__r__s$rs83 CONTROL BREAK ON CUST"W/LF*** TOTAL FOR STORER ***LFRECEIVED6_#, _{8D883----------- summarize like ITEM+LOT detail lines -- RCC$yozo1g{Z { o {o{o{I $yyܨ{z{'1gz$o(ypqy' o$poy8X3PRINT HEADERS//Y2/2 LFFor /Pm/DATE TYPEWhse--# STORER-REF-#& OTHER-REF-#2CARRIER8/DESC)ITEM= QTY/P$'8 3BOTTOM PROMPTS*D/CL,Enter Bill No. (or '?' to Search ) F4-DoneCL84%/CLF3-Back F4-Abort8L 3PAINT SCREEN`/CESB Customer Range  Date Range Summary Only: Deliveries: Receipts: Item Range  Bill RangeFrom2To 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 DOHEADERDSENMY2KAY2K1Y2K2Y2KBKITDUMMYJBDWXJBDJBD1XJRDJRDWJRD1CCUST2IITEM2D4E4YYYYYYD9ERRORENCOUNTEREDDSENMY2KAY2K1Y2K2Y2KB