KOMZR2 G 1 ;OMZET PER REGIO, KLANT, PERIODE ;KOMZR2; Quit naar KOMZR1 [ 08/16/2002  3:47 PM ]
 ;
T1 ;KLANTNR;KLANTNAAM;
T2 ;;NON AKTIEF;
 ;
S0 S Y=$P(B(I),D,1),J=$P(">\'<\=\<\'>\'=",D,$P(B(I),D,2)) G S0C:$L(J)
S0A S OK=1 F J=1:1:$L(Y) I $E(Y,J)'="#" S OK=$E(X,J-1+$P($P(B(I),D,3),",",1))=$E(Y,J) Q:'OK
S0B G S0Z
S0C I (X'?.N)!(Y'?.N) S OK=J_"Y" S:J="<" OK="']Y&(X'=Y)" S:J=">" OK="]Y&(X'=Y)" S:J="'>" OK="']Y!(X=Y)" S:J="'<" OK="]Y!(X=Y)" S OK="S OK=X"_OK X OK
S0D E  S OK="S OK=X"_J_"Y" X OK
S0Z Q
 ;
1 F I=2,3 S K=$P($T(T1),U,I) W K,$C(9)
3 F I=FBP:.01:LBP S:I#1=".13" I=I\1+1.01 S I=$J(I,0,2) W I W:I'=LBP $C(9)
4 W $C(13)
5 I KL'=0 S X=$D(@Q0) G 7:X
6 S KL=$N(@Q0) I KL=-1!(KL'?.N&(KL]KLX)) K A G 2
7 S K=KL S:K?.N K=^(K) S KLI=K,KC=$P(K," ",2),(BP,PR)=0,A(0)=@Q1 F I=1:1:SW3-1 S A(I)=^(I)
8 S I=100
9 S I=$N(B(I)) G 11:I=-1 S X=$P(A(I\100-1),D,I#100) D S0 G 6:'OK,9
11 S PR=0,BP=$N(@Q4),BP=$J(FBP-.01,0,2)_" " K OMZ F I=FBP:.01:LBP S:I#1=".13" I=I\1+1.01 S I=$J(I,0,2) S OMZ(I_" ")=0
13 S BP=$N(^(BP)) G 15:BP=-1,15:BP]LBP S OMZ(BP)=$P(^(BP),D,3) G 13
15 I $P(A(2),D,10) D  G 6
 .S BP=-1
 .F  S BP=$N(OMZ(BP)) Q:BP=-1  S:'$D(NAK(BP)) NAK(BP)=0 S NAK(BP)=NAK(BP)+OMZ(BP)
16 W $P(A(0),D,1),$C(9),$P(A(0),D,2),$C(9) S BP=-1
17 S BP=$N(OMZ(BP)) I BP'=-1 W $TR(OMZ(BP),".",",") W:$N(OMZ(BP))'=-1 $C(9) G 17
19 W $C(13) G 6
 ;
2 G YZ:'$D(NAK) S BP=-1
 F I=2,3 S K=$P($T(T2),U,I) W K,$C(9)
21 S BP=$N(NAK(BP)) I BP'=-1 W $TR(NAK(BP),".",",") W:$N(NAK(BP))'=-1 $C(9) G 21
 W $C(13)
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 02.10.90 - 11 u 29