<>63 03WACTAC -05/02/95 WHSE ACCESSORIAL CHARGE REPORT 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$y , @JARHH$g , @JARDH$m ,CCNVZ$ , @JBLHH$j ,@JBLDH$k,@JARHE$i,@JCUST$r3$'CO_CODE3DEFINE VARIABLES< ƄƄ-Ƅ=Ƅ*P_&  ($ =$]WHSE ACCESSORIAL CHARGE REPORT$^Detail/Summary$$ Ƅ3NUMBER OF COLUMNS IN REPORT *$  31/2 THE NUMBER OF COLUMNSU$ ##,##0.00- -##0.00% #######0-#####0 ############$8,3DEFINE FUNCTIONS6>3CONVERT FROM MMDDYY TO YYMMDD@:3REMOVE SLASHESJF3CONVERT MM/DD/YY TO YYMMDDTD3CONVERT YYMMDD TO MMDDYY^7  Өݨ m8 opsx c~ #-/156e#EFGHIJKLMNOPQRSTUVWXY3 JITEM(2)#9:;<=>#`_a#o#p#s#xR21C.3hh2$,hh3$,hh4$,hh5$,hh6$,hh7$\1-$--3SETUP"$B3FIRST PAGE COUNTER$ d3$"%3DEFAULT DATE$ %&($\YES hN$%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/$^SUMMARY (N$^DETAIL13LET 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$$D73em ----------- CUSTOMER OK , GET B/L OR W/R ----------18-@$C818nE C-DLJ D$DCV CDY$DC C D83------------------ RECEIPT HANDLING -------------------J$_***NOT FOUND***1gCRCn)3if not found in jarhh then look in jarhe-1iCRCn@3 7X*%3gosub 11200; rem PRINT A DETAIL LINE@83------------------ SHIPMENT/DELIVERY HANDLING ---------$nCn$o 1jn$_ **NOT FOUND**a1Co$_|۩a|۩|۩|۩<$|| !$ 7XI o$oo o$o  $۩ t$ |6$|$ $ /C  DELVoo &o2oAoe $3PRINT B/L DETAILS"3------------- ACCESSORIAL CHARGESJ/ 0Charge Summary ---------------------------------$ $PRE5WASSCWooo* /No Charges Applied !$ $$$/* Code  ;$ $R$ܨ%- /P- @ TL 3RANGE CHECK FOR ITEM ACTIVITY $d3STARTS OF OK $e*SR* '$f:e f  + f; 3HANDLE BB DIFFERENT  (fN  & 9#9$  " >>+>,  8 3IT'S *NOT* IN RANGE &$d v83END OF CWRK FILE$F($D2L< 3REPORT DONEA/LFLFAccessorial Summary FROM # TO $LFCCharge Qty Rate AmountC. /No Charges AppliedF'Z/'(' #####0(' ###,###.00('' $###,###,###.00x*'/--------------#(>3-----------------PRINT THE DELIVERY/SHIPMENT DETAILS---------$vw1ko.1k s o/+sILMSPPP3UNKNOWN RECORD TYPE3PRINT AN ITEM LINE0$u1Csu$tuިs/ s$tsިs  7X% (Y#3SUMMARY REPORT(3CHECK FOR DUPLICATE ITEM+LOTS RCCt$ |6$|$ $d/s7sCsQ(ӨsY(t e $# $vvܨswwtFP3PRINT AN 'L' OR 'M' LINEZ (Y 3SUMMARYd s***n 7Xst$ |6$|$ $x/se} $3END OF DETAILS& (N/LF$t$ |6$|$ $ 7XL/H DELIVERED **QvYw e$ $ |6$|$ $ 7X/e$($ccvccw$vw83 CONTROL BREAK ON CUST"{/LF-*** TOTAL FOR STORER ***LFK DELIVEREDXc#zc# $, c{8D883----------- summarize like ITEM+LOT detail lines -- RCC$|s}s1k~Z ~ s ~s~s~I $||ܨ~}~'1k}$s(|tu|' s$ts|8X3PRINT HEADERSq://-20nPAGExv,/122A3E4{/55/64]U ALL ITEMS-/7FROM # TO $/ //DATE TYPEOUR--# STORER-REF-#& OTHER-REF-#2BRK#ACONSIGNOR/COMMENTSLF7ITEMDLOTQQTYZNET WGTe CONSIGNEE/$B?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$EFGHOPXIJKLMNQRSTUVWY8?$9:<=>;Z[8 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#-8CWRK۩#.#'3END ' 3SORT ROUTINE'53let F$=fid(3); let RECS=dec(F$(3,4));rem "DEAD CODE"'$+$7'WORKDIRCWRK۩7'&') R7@-'+$@'t$8,87'~!3PRINT @(0,20),'CL',"Sorting...",'$A!B"'1A'(1*( 9BB*(, 9#19#((- 9$19(() d(3get rid of some things(q$:: :::A99*99*==== ($?9$l(E :S1$:D3ORDER TYPE INTO ADJ/DELV/RECPTS(0$??:93 TYPE OF TRANS AND DATE(B$=l<3PUT IN WARHOUSE REC # ORDER OR B/L# ORDER(E :D1$>l>3EXCEPT DELV IN B/L# ($?? (<3NO UNIQUE NEEDED srt$=srt$+a3$(9,34); rem TO MAKE IT UNIQUE(3L8?l3ADD IN JIACT KEY FOR EASE IN READING(>3LET RECS=RECS+1; IF MOD(RECS,100)=0 THEN PRINT @(20,20),SRT$,((* 3END OF SORT*"$ 999999999 *18**$8*18* $* $***3DONE GETTING HIGH /LOW*.*8*3PRINT A ITEM HEADER*D$q***NOTFOUND***1rpp*q+\c/C  RECVp p 2qfp+f $+z+3PRINT DETIALS++ b3 TOTALS TABLES FOR ITEM TOTALS+8+*3PRINT RECEIPT DETAILS FROM THE JARDH FILE+m,mJARDH+$vw+1mp++1m.|+ xp.|,$zCx,93WGT=0; CALL "WILWGT",X$,KJIT$,JITEM,JRD$[2],JILOT,WGT,E$,$tuިx,3 (Y ,V3SUMMARY,8 7X,B% x,~${,G$,3 summarize like ITEM+LOTs RCC,Lb/x7xCxQ(Өxܨx Yt ,Q $,V $vvܨxwwt,~+,=3------ Summarize the receipt detials w/ like ITEM+LOTs --RCC,$xx-1m-F- F xxx-F- $ܨ---F'1m$tux(-K8.|3DONE PRINT THE RECEIPT TOTALS.~3 JARDHmm,mJARDE+.3LET TWGT=NUM(JRH$[14]).& (N/LF$.5/I RECEIVED **Yv{w . $.($ccvccw.8.3 CAPTURE BOLS#S FROM JBLHH.1j..$j0 1j. 0 . o-./"$oo/ $/ #$./%$C-DA /L8C/&.0f8u03--------------- 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 TESTMASK1JCUSTJITEMJIACTJCONSJISRTJOPINCCNVZCUST1CUST2DATE1DATE2TYPTYPITYP1ITEM1ITEM2BILL1BILL2CUSTHH1B1HH4C1HH5HH6HH7D1E1FCWRKA3B3A3C3D3E3SRTRECSSRT1SRT2KCWRKKCWRK1A2B2C2D2C2D2E2F2G2H2F2G2I2J2K2L2M2N2O2I2Q2B3C3 PRINTITEMH11H22B4A4C4TTTBADTYPESX7JARHHTTTJARHEJBLHHJBLDHKEY1JARDHKKEY1JBHJRHJCU1JCUSTTJBDNETWGTWGTTQTYTWGTJRDJILOTKJITDUMMYJBDWXJBDJBD1XJRDJRDWJRD1CCUST2IITEM2D4E4YYYYYYD9ERRORENCOUNTEREDF4CLINESCLINEPPAMOUNTCTEXTLLACCODESACCODE ACCHARGEBOL1BOL2KBOLCDATEDSENMY2KAY2K1Y2K2Y2KB3_MY2KAY2K1Y2K2Y2KBr