KTOT1 G BREACK1 ;AFDRUKKEN OPENSTAANDE TOELEVERINGEN ;Quit naar KTOT [ 08/06/2002  8:48 AM ]
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D,1),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A S R0=+$P(R0,".",1) F R5=3,7 S R6=$L(R0) G R3B:R6'>R5 S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q
 ;
S2 S TZ=100,TZ=$N(@Q4) G S2Z:TZ=-1 S TZ=100,USW=0
S2A S TZ=$N(^(TZ)) I TZ'=-1 S SU1=^(TZ) G S2A:'$L($P(SU1,D,25)),S2A:$$INTDATE^vhLib.DataTypes($P(SU1,D,25),"DW")]ULWT S USW=1 G S2A
S2Z K SU1 Q
 ;
S0 S (TZ,UNS,UNN)=0,TZ=$N(@Q4),SU1=^(TZ),UI=$P(SU1,D,2),UJ=$P(SU1,D,3),TZ=100,LN=LN+3 I LN>50 W # D HD
S0A W ! I LLB["B" W $P($T(T3),U,2),$C(13),?2,$J(TR,6) W:LR'=LRR ?11,LR W ?16,"**** ",UJ,?48,UI,!,$P($T(T3),U,2),$C(13) W:LR'=LRR ?11,KN W !,$P($T(T3),U,2),$C(13) W:LR'=LRR ?11,$E(KP_" "_KW,1,34)
S0B I LLB["L" W $P($T(T4),U,2),$C(13) W:LR'=LRR ?2,LR W ?7,"**** ",UJ,?39,$J(TR,6),?48,UI,!,$P($T(T4),U,2),$C(13) W:LR'=LRR ?2,KN W !,$P($T(T4),U,2),$C(13) W:LR'=LRR ?2,$E(KP_" "_KW,1,34)
S0D S TZ=$N(@Q4) G S0L:TZ=-1 S U2=^(TZ),PR=$P(U2,D,2),UR=$P(U2,D,27) S:'UR UNS=UNS+$P(U2,D,9) S:UR UNN=UNN+$P(U2,D,9) G S0D:'PR S UA=$P(U2,D,3),ULT=$P(U2,D,25) S:'UR UR="STOCK"
S0E S X=@("^"_Q_"PR(PR,0)"),PC=$P(X,D,1),PST=$P(X,D,14),PY=$P(X,D,17),X=^(2),PNR=$P(X,D,25)
S0G S LN=LN+1 I LN>50 D HD0
S0H W ! W:LLB["B" $P($T(T3),U,2),$C(13),?2,$J(UR,6),?11 W:LLB["L" $P($T(T4),U,2),$C(13),?2 I $D(KX) W KT1 W:LLB["B" ?38 W:LLB["L" ?29 W $J($S('+KX:"KONTANT",1:KX),7)
S0HH W:LLB["L" ?39,$J(UR,6) W ?48,$J($E(PNR,1,11),11),?62,PC S R=UA_"\7\89\0" D:+R R3 W ?99,ULT
S0I S R=PST_"\7\106\0" D:+R R3 S R=$P(PY,"#",2)_"\7\115\0" D:+R R3 S R=$P(PY,"#",3)_"\7\124\0" D:+R R3 K KX G S0D
S0L S LN=LN+2,UNS=UNS\1,UNN=UNN\1,UN=UNS+UNN W ! I LLB["B" W $P($T(T3),U,2),$C(13) S R=UNS_"\9\12\2" D:+R R3 S R=UNN_"\9\22\2" D:+R R3 S R=UN_"\9\32\2" D:+R R3 W:+R KV
S0M I LLB["L" W $P($T(T4),U,2),$C(13) S R=UNS_"\9\3\2" D:+R R3 S R=UNN_"\9\13\2" D:+R R3 S R=UN_"\9\23\2" D:+R R3 W:+R KV
S0N I KV'=$$FADEF^vhRtn1() S UPAR=$$MUNT^vhRtn1(KV,,11),UNS=UNS*UPAR\1,UNN=UNN*UPAR\1
S0O S TOTS=TOTS+UNS,TOTN=TOTN+UNN W ! W:LLB["B" $P($T(T1),U,2) W:LLB["L" $P($T(T2),U,2)
S0Z K SU1 Q
 ;
S1 S X=@("^"_Q_"LE(@(""^""_Q_""L1(LR)""),0)"),KN=$P(X,D,2),KP=$P(X,D,6),KW=$P(X,D,7),KL=$$LAND^vhRtn1($P(X,D,8)),KV=$P(X,D,11),KT1=$P(X,D,13),KX=$P(X,D,18)
 S:KV="" KV=$$FADEF^vhRtn1()
S1Z Q
 ;
BREACK1 B 1
 S ULWT=$$INTDATE^vhLib.DataTypes(ULW,"DW") S:'ULWT ULWT=99999
27 D HD
29 S FST=$N(@Q5) G 41:FST=-1!(LLB["L"&(FST]LST))!(LLB["B"&(FST>LST))
30 I LLB["B" S TR=FST,LR=$P(^(TR),D,1) G 29:'$D(@("^"_Q_"TO(LR,TR)")) D S2 G 29:'USW D:LR'=LRR S1 D S0 S LRR=LR G 29
31 S LR=$P(FST," ",2),TR=0 G 29:'$D(@("^"_Q_"TO(LR)"))
33 S TR=$N(@Q3) G 29:TR=-1 D S2 G 33:'USW D:LR'=LRR S1 D S0 S LRR=LR G 33
41 S TOT=TOTS+TOTN G 47:'TOT W !! W:LLB["B" ?16,"STOCK       KOM    TOTAAL" W:LLB["L" ?7,"STOCK       KOM    TOTAAL"
43 W ! I LLB["B" S R=TOTS_"\9\12\2" D:+R R3 S R=TOTN_"\9\22\2" D:+R R3 S R=TOT_"\9\32\2" D R3
45 I LLB["L" S R=TOTS_"\9\3\2" D:+R R3 S R=TOTN_"\9\13\2" D:+R R3 S R=TOT_"\9\23\2" D R3
46 W $$MUNT^vhRtn1(,1)
47 W # D CLOSE^vhPRINTER
BREACK0 B 0
 ;
YZ Q
 ;
T1 ;:--------:------------------------------------:-------------:---------------------------:--------:-------:--------:-----------------:
T2 ;:------------------------------------:--------:-------------:---------------------------:--------:-------:--------:-----------------:
T3 ;:        :                                    :             :                           :        :       :        :                 :
T4 ;:                                    :        :             :                           :        :       :        :                 :
T5 ;:    BON : LEVERANCIER - REFERENTIE - TOTALEN : DAT - ID-NR : PRODUKTNAAM               : AANTAL : LV-WK : FYS-ST : ST-TOELEVER-KOM :
T6 ;: LEVERANCIER - REFERENTIE - TOTALEN :    BON : DAT - ID-NR : PRODUKTNAAM               : AANTAL : LV-WK : FYS-ST : ST-TOELEVER-KOM :
 ;
HD0 W ! W:LLB["B" $P($T(T1),U,2) W:LLB["L" $P($T(T2),U,2) W #
HD S BLZ=BLZ+1,LN=0 W !,NM1,?125,"BLZ:",$J(BLZ,4),!,NM2,?44,@F82,$P($P($T(+1),";",2)," ",2,99) W:ULW'="99/99" "WEEK ",ULW W @F83,$C(13),?125,DT
HD1 W !,NM3,?44,"(PER ",LLB,")",?126,TD,!
HD2 W !!! W:LLB["B" $P($T(T5),U,2),!,$P($T(T1),U,2) W:LLB["L" $P($T(T6),U,2),!,$P($T(T2),U,2)
HDZ Q
 ;
 Q