KKAA13 G 1 ;JAAR/MAAND OVERZ. KLANT/ART. ANALYSE ;KKAA13; [ 06/25/2002  10:18 AM ]
 ;
T1 ;JAN\FEB\MAA\APR\MEI\JUN\JUL\AUG\SEP\OKT\NOV\DEC\
T2 ;01\02\03\04\05\06\07\08\09\10\11\12\
T3 ;PERIODE : 
T4 ; TOT 
T6 ;   JAARTOTAAL 
T7 ;TOTAAL
T8 ;:=========================:==============:==============:==============:==============:==============:==============:==============:
T10 ;:-------------------------:--------------:--------------:--------------:--------------:--------------:--------------:--------------:
T12 ;: OVERZICHT
T14 ;BLZ:
T15 ;BELUX 
T16 ;NEDERL 
T17 ;NON AKTIEF
T18 ;AKTIEF EN NIET BENELUX
T19 ;\A\B\C\D\1\2\3\IND\HAN
T20 ;BELGIE / LUXEMBURG
T21 ;NEDERLAND
 ;
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  ;V1 26.11.84
 ;
S1 W !,$P($T(T10),U,2)
S1Z Q
 ;
S2 W !,$P($T(T8),U,2)
S2Z Q
 ;
S3 W !,": ",$P(K,D,1),?26,":" F X=1:1:7 S R=$P(K,D,X+1)_"\13\\"_FAMNTRND D:+R R3 W ?X*15+26,":"
S3Z Q
 ;
S4 S K=$P($T(T15),U,2)_$P($P($T(T19),U,2),D,I)_D
S4Z Q
 ;
S5 S K=$P($T(T16),U,2)_$P($P($T(T19),U,2),D,I-7)_D
S5Z Q
 ;
S6 F X=BLZ-1*6+1:1:BLZ*6 S K=K_$P(TOTO(I),D,$P($P(BP,D,X),".",2))_D
S6A S K=K_$P(TOTO(I),D,13)_D
S6Z Q
 ;
1 S FAMNTRND=0 ;$$MUNT^vhRtn1(,4)
 S BLZ=0,X=@("^"_Q_"KAAJ(0,1)") K TOTO F I=1:1:23 S TOTO(I)=^(I)
2 S BP="" F I=$P(HFBP,".",2):1:12 S BP=BP_$P(HFBP,".",3)_"."_$P($P($T(T2),U,2),D,I)_D
3 I $P(HFBP,".",3)'=$P(HLBP,".",3) F I=1:1:$P(HLBP,".",2) S BP=BP_$P(HLBP,".",3)_"."_$P($P($T(T2),U,2),D,I)_D
5 D HD F I=2:1:5 D S4,S6,S3
7 D S1 S I=18,K=$P($T(T15),U,2)_$P($P($T(T19),U,2),D,9)_D D S6,S3,S1 F I=6:1:8 D S4,S6,S3
9 D S1 S I=19,K=$P($T(T15),U,2)_$P($P($T(T19),U,2),D,10)_D D S6,S3,S1 S I=20,K=$P($T(T20),U,2)_D D S6,S3,S2
11 F I=9:1:12 D S5,S6,S3
13 D S1 S I=21,K=$P($T(T16),U,2)_$P($P($T(T19)_D,U,2),D,9)_D D S6,S3,S1 F I=13:1:15 D S5,S6,S3
15 D S1 S I=22,K=$P($T(T16),U,2)_$P($P($T(T19),U,2),D,10)_D D S6,S3,S1 S I=23,K=$P($T(T21),U,2)_D D S6,S3,S2
17 S I=16,K=$P($T(T17),U,2)_D D S6,S3,S2 S I=17,K=$P($T(T18),U,2)_D D S6,S3,S2
19 S I=1,K=$P($T(T7),U,2)_D D S6,S3,S1 W # G 5:BLZ=1
25 K K,TOTO X F71
 ;
YZ Q
 ;
 ;    titel drukken
HD S BLZ=BLZ+1,LN=0 W !,QN,?124,$P($T(T14),U,2),$J(BLZ,4),!,NM2,?32,@F82,$P($T(+1),U,2),@F83,$C(13),?124,DT
HD1 W !,NM3,?32,$P($T(T3),U,2),$P(HFBP,D,1),$P($T(T4),U,2),$P(HLBP,D,1)
HD2 W ?125,TD,!! D S1 W !,$P($T(T12),U,2),?26,":"
HD3 F I=BLZ-1*6+1:1:BLZ*6 W $J($P($P($T(T1),U,2),D,$P($P(BP,D,I),".",2)),10)," ",$P($P(BP,D,I),".",1)," :"
HD4 W $P($T(T6),U,2),":" D S1
HDZ Q
 ;