<>/w,N 93WACTYM -05/02/95 WHSE stock movement by bill FOR MAR001 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$n3$'CO_CODE3DEFINE VARIABLES< ƄƄ-Ƅ=Ƅ*P_&  ($ C$Y$MONTLY ACTIVITY WITH COSTS BY REGION$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(Y(N$) * 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 SORT"$B3PRINT HEADER ON FIRST RECX3JUMP RIGHT TO REPORT ROUTINE1!`L!3get the next customer to processV1<[ -<` -"< 3PRINT CUST$$@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  *$۩k  } j/ Total Region  Costm( $###,###.00LFLF$ /?  DELVkk &k2[ - , $ $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 LINE6$q1?oq($pqިoިo/ o$poިo  7X% (Y#3SUMMARY REPORT(3CHECK FOR DUPLICATE ITEM+LOTS RCC$ިo/o7oCoR( $###,###.00](Өoi( $###,###.00{(p  $# $rrܨossp$ $FP3PRINT AN 'L' OR 'M' LINEUZ (Y 3SUMMARYn 7Xx/o} $3END OF DETAILS& (N/LF$J/ 3@(72),"DELIVERED **",@(89),TQTY:M8$,@(123),TWGT:M3$; LET L=L+1($__r__s$rs8b/ Total Region  Costm( $###,###.00$"3PRINT (6)'LF',@(45),"*** TOTAL FOR STORER ***",'LF',@(75),"RECEIVED",@(88),TT[0]:"#"+M8$,@(122),TT[1]:"#"+M3$,'LF',@(75),"DELIVERED",@(88),TT[2]:"#"+M8$,@(122),TT[3]:"#"+M3$; LET L=L+4, _{8D883----------- summarize like ITEM+LOT detail lines -- RCC$yozo1g{Z { o {o{o{I $yyܨ{z{'1gz$o(ypqy' o$poy8X3PRINT HEADERS] $8/(YUITEMS_)nTO *W/(FROM # TO $UBILLS_+nTO ,/(Z//DATE TYPEOUR--#REGION4 CONSIGNEELF7ITEMDLOTT COSTEACH`QTYmTOTCOST} NET WGT/$ 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(,$;;6۩3 TYPE OF TRANS AND DATE(I$8:۩h:3PUT IN WARHOUSE REC # ORDER OR B/L# ORDER(P3IF B3$(1,1)="D" THEN LET X7$=E3$+Z8$,KEY1$=E3$; REM EXCEPT 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+\c/?  RECVl l 2mfl+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,L/t7tCtR(Өt##0Y(Өtl(Өt {p ,Q $,V $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]).& (N/LF$.5/I RECEIVED **Yr{s . $.($__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 PRINTITEMH11H22B4A4C4TTTBADTYPESX7JARHHTTTJARHEJBLHHJBLDHKEY1JARDHKKEY1JBHJRHJCU1JCUSTTJBDNETWGTWGTTQTYTWGTJRDJILOTEKJITDUMMYJBDWXJBDJBD1XJRDJRDWJRD1CCUST2IITEM2D4E4YYYYYYD9ERRORENCOUNTEREDREGION LASTREGION REGIONCOSTCOSTTOTCOST PRINTEDHEADDSENMY2KAY2K1Y2K2Y2KB@O2I2Q2B3C3 PRINTITEMH11H22B4A4C4TTTBADTYPESX7JARHHTTTJARHEJBLHHJBLDHKEY1JARDHKKEY1JBHJRHJCU1JCUSTTJBDNETWGTWGTTQTYTWGTJRDJILOTEKJITDUMMYJBDWXJBDJBD1XJRDJRDWJRD1CCUST2IITEM2D4E4YYYYYYD9ERRORENCOUNTEREDREGION LASTREGION REGIONCOSTCOSTTOTCOST PRINTEDHEADDSENMY2KAY2K1Y2K2Y2KB= DETAILS FROM THE JARDH FILE+x,xJARDH+$+1x{++1x.|+ {.|,$M,2$WILWGT",$ި,3 /Y ,V3SUMMARY,8 7X,B% ,~$,G$,3 summarize like ITEM+LOTs RCC,L/7CR(Ө##0Y(Өl(Ө { ,Q $,V $ܨ,~+,=3------ Summarize the receipt detials w/ like ITEM+LOTs --RCC,$-1x-F- F -F- $ܨ---F'1x$(-K8.|3DONE PRINT THE RECEIPT TOTALS.~3 JARDHxx,xJARDE+.3LET TWGT=NUM(JRH$[14]).& /N/LF$.5/I RECEIVED **Y{ . $.($nnnn.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=19991231CC0Z8Z6Z7Z5M6XH2XX0M1M2M3M8YYPG1X7HVLX8F1CBPROMPTOKVALUECTLVAL TESTMASK TESTMASK1JCUSTJITEMJIACTJCONSJISRTJOPINCCNVZCUST1CUST2DATE1DATE2TYPTYPITYP1ITEM1ITEM2BILL1BILL2CUSTD0HH1HH2HH3B1HH4C1HH5HH6HH7D1E1FCWRKA3B3A3C3D3E3SRTRECSSRT1SRT2KCWRKKCWRK1A2B2C2D2C2D2E2F2G2H2F2G2I2J2K2L2M2N2O2I2Q2B3C3N PRINTITEMH11H22B4A4C4TTTBADTYPESX7JARHHTTTJARHEJBLHHJBLDHKEY1JARDHKKEY1JBHJRHJCU1JCUSTTJBDNETWGTWGTTQTYTWGTJRDJILOTEKJITDUMMYJBDWXJBDJBD1XJRDJRDWJRD1ZZ_ZZCCUST2IITEM2D4E4YYYYYYDSENMY2KAY2K1Y2K2Y2KBO