KKAA10 G 1 ;OVERZ. KLANT/ART. ANALYSE ;KKAA10; Quit naar KKAA8 [ 06/25/2002  10:17 AM ]
 ;
T1 ;BEGIN
T2 ;EINDE
T3 ;PERIODE : 
T4 ; TOT 
T7 ;TOTAAL
T8 ;:==================================:========:==============:======:======:======:
T9 ;==============:======:======:======:======:
T10 ;:----------------------------------:--------:--------------:------:------:------:
T11 ;--------------:------:------:------:------:
T12 ;: OVERZICHT                        : LIJNEN :   KUM. OMZET :    % :    % : % TO :
T13 ;   KUM. MARGE :    % :    % : % TM : MA % :
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) W:PWD $P($T(T11),U,2)
S1Z Q
 ;
S2 W !,$P($T(T8),U,2) W:PWD $P($T(T9),U,2)
S2Z Q
 ;
S3 W !,": ",$P(K,D,1),?35,":" S R=$P(K,D,2)_"\7\36\0" D:+R R3 W ?44,":"
S3A S R=$P(K,D,3)_"\13\45\"_FAMNTRND D:+R R3 W ?59,":" S R=$P(K,D,4)_"\5\60\1" D:+R R3 W ?66,":"
S3B S R=$P(K,D,5)_"\5\67\1" D:+R R3 W ?73,":" S R=$P(K,D,6)_"\5\74\1" D:+R R3 W ?80,":"
S3C G S3Z:'PWD S R=$P(K,D,7)_"\13\81\"_FAMNTRND D:+R R3 W ?95,":" S R=$P(K,D,8)_"\5\96\1" D:+R R3 W ?102,":"
S3D S R=$P(K,D,9)_"\5\103\1" D:+R R3 W ?109,":" S R=$P(K,D,10)_"\5\110\1" D:+R R3 W ?116,":"
S3E S R=$P(K,D,11)_"\5\117\1" D:+R R3 W ?123,":"
S3Z Q
 ;
S4 S K=$P($T(T15),U,2)_$P($P($T(T19),U,2),D,I)_D_TOTL(I)_D_TOTO(I)_D S:TOTO(18+(I>5)) K=K_(TOTO(I)/TOTO(18+(I>5))*100) S K=K_D
S4A S:TOTO(20) K=K_(TOTO(I)/TOTO(20)*100) S K=K_D S:TOTO(1) K=K_(TOTO(I)/TOTO(1)*100) S K=K_D G S4Z:'PWD
S4B S K=K_TOTM(I)_D S:TOTM(18+(I>5)) K=K_(TOTM(I)/TOTM(18+(I>5))*100) S K=K_D S:TOTM(20) K=K_(TOTM(I)/TOTM(20)*100) S K=K_D
S4C S:TOTM(1) K=K_(TOTM(I)/TOTM(1)*100) S K=K_D S:TOTO(I) K=K_(TOTM(I)/TOTO(I)*100) S K=K_D
S4Z Q
 ;
S5 S K=K_TOTL(I)_D_TOTO(I)_D_100_D S:TOTO(20+((I>19)*3)) K=K_(TOTO(I)/TOTO(20+((I>19)*3))*100) S K=K_D
S5A S:TOTO(1) K=K_(TOTO(I)/TOTO(1)*100) S K=K_D G S5Z:'PWD S K=K_TOTM(I)_D_100_D S:TOTM(20+((I>19)*3)) K=K_(TOTM(I)/TOTM(20+((I>19)*3))*100) S K=K_D
S5B S:TOTM(1) K=K_(TOTM(I)/TOTM(1)*100) S K=K_D S:TOTO(I) K=K_(TOTM(I)/TOTO(I)*100) S K=K_D
S5Z Q
 ;
S6 S K=K_TOTL(I)_D_TOTO(I)_D_D_100_D S:TOTO(1) K=K_(TOTO(I)/TOTO(1)*100) S K=K_D
S6A G S6Z:'PWD S K=K_TOTM(I)_D_D_100_D S:TOTM(1) K=K_(TOTM(I)/TOTM(1)*100) S K=K_D
S6B S:TOTO(I) K=K_(TOTM(I)/TOTO(I)*100) S K=K_D
S6Z Q
 ;
S7 S K=$P($T(T16),U,2)_$P($P($T(T19),U,2),D,I-7)_D_TOTL(I)_D_TOTO(I)_D S:TOTO(21+(I>12)) K=K_(TOTO(I)/TOTO(21+(I>12))*100) S K=K_D
S7A S:TOTO(23) K=K_(TOTO(I)/TOTO(23)*100) S K=K_D S:TOTO(1) K=K_(TOTO(I)/TOTO(1)*100) S K=K_D G S7Z:'PWD
S7B S K=K_TOTM(I)_D S:TOTM(21+(I>12)) K=K_(TOTM(I)/TOTM(21+(I>12))*100) S K=K_D S:TOTM(23) K=K_(TOTM(I)/TOTM(23)*100) S K=K_D
S7C S:TOTM(1) K=K_(TOTM(I)/TOTM(1)*100) S K=K_D S:TOTO(I) K=K_(TOTM(I)/TOTO(I)*100) S K=K_D
S7Z Q
 ;
1 ; drukken info
3 S FAMNTRND=0 ;$$MUNT^vhRtn1(,4)
 S X=^KKAA(0,1) K TOTO,TOTM,TOTL F I=1:1:23 S X=^(I),TOTO(I)=$P(X,D,1),TOTM(I)=$P(X,D,2),TOTL(I)=$P(X,D,3)
5 S:PWD PWD=43 S BLZ=0 D HD F I=2:1:5 D S4,S3
7 D S1 S I=18,K=$P($T(T15),U,2)_$P($P($T(T19),U,2),D,9)_D D S5,S3,S1 F I=6:1:8 D S4,S3
9 D S1 S I=19,K=$P($T(T15),U,2)_$P($P($T(T19),U,2),D,10)_D D S5,S3,S1 S I=20,K=$P($T(T20),U,2)_D D S6,S3,S2
11 F I=9:1:12 D S7,S3
13 D S1 S I=21,K=$P($T(T16),U,2)_$P($P($T(T19)_D,U,2),D,9)_D D S5,S3,S1 F I=13:1:15 D S7,S3
15 D S1 S I=22,K=$P($T(T16),U,2)_$P($P($T(T19),U,2),D,10)_D D S5,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 K=$P($T(T7),U,2)_D_TOTL(1)_D_TOTO(1)_D_D_D_100_D G 23:'PWD
21 S K=K_TOTM(1)_D_D_D_100_D S:TOTO(1) K=K_(TOTM(1)/TOTO(1)*100) S K=K_D
23 D S3,S1
25 K K,TOTO,TOTM,TOTL W # S:PWD PWD=47
 ;
YZ Q
 ;
 ;    titel drukken
HD S BLZ=BLZ+1,LN=0 W !,QN,?(73+PWD),$P($T(T14),U,2),$J(BLZ,4),!,NM2
 W ?(26+(PWD/2)) W:PWD @F82 W $P($T(+1),U,2) W:PWD @F83 W $C(13),?(73+PWD),DT
HD1 W !,NM3,?(26+(PWD/2)),$P($T(T3),U,2),$P(HFBP,D,1),$P($T(T4),U,2),$P(HLBP,D,1)
HD2 I $P(HFBP,D,2)!($P(HLBP,D,2)) W " (",$S($P(HFBP,D,2):$P($T(T1),U,2),1:$P(HFBP,D,1)),$P($T(T4),U,2),$S($P(HLBP,D,2):$P($T(T2),U,2),1:$P(HLBP,D,1)),")"
HD3 W ?(74+PWD),TD,!?(26+(PWD/2)),K,! D S1 W !,$P($T(T12),U,2) W:PWD $P($T(T13),U,2) D S1
HDZ Q
 ;