KKAA9 G 1 ;OVERZ. KLANT/ART. ANAL.;KKAA9; Quit naar KKAA8 [ 06/25/2002  10:16 AM ]
 ;
T1 ;BEGIN
T2 ;EINDE
T3 ;PERIODE : 
T4 ; TOT 
T7 ; TOTAAL
T9 ;OVERZICHT 
T10 ;:-----:--------------------------:--------:------------:------:------------:------:
T11 ;------------:------:------------:------:------:
T12 ;:  LN : KLANTNUMMER - NAAM       : AANT P :  REELE OMZ : % TO : KUM. OMZET : % TO :
T13 ;   REELE MA : % TM : KUM. MARGE : % TM : MA % :
T14 ;BLZ:
 ;
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
 ;
1 ; drukken info
29 S ZR=$ZR,FAMNTRND=0 ;$$MUNT^vhRtn1(,4)
 S R=$D(@ZR),(IND,BLZ)=0 D HD G 49:$N(^(0))=-1 D HD5 S (LNN,TOKO,TOKM)=0,X=^(0),TOTO=$P(X,D,1),TOTM=$P(X,D,2),TOTL=$P(X,D,3)
31 S IND=$N(^(IND)) G 43:IND=-1
33 S X=^(IND),KC=$P(X,D,1),KN=$P(X,D,2),TKA=$P(X,D,3),TKL=$P(X,D,4),TKO=$P(X,D,5),TKM=$P(X,D,6),KYW=$P(X,D,7),KPK=$P(X,D,8)
34 S KCA=$P(X,D,9),UIT=$P(X,D,10),TPR=$P(X,D,11),TOKO=TOKO+TKO,TOKM=TOKM+TKM,LNN=LNN+1
35 W ! S LN=LN+1 I LN>(Print("LEN")-10) W $P($T(T10),U,2) W:PWD $P($T(T11),U,2) W # D HD,HD5 G 35
37 W ":",$J(LNN,4),?6,":",$J(KC,5)," ",$E(KN,1,17),?31,$P(" \#",D,KCA+1),KYW,?33,":",KPK,UIT S R=TPR_"\5\36\0" D:+R R3 W ?42,":" S R=TKO_"\11\43\"_FAMNTRND D:+R R3 W ?55,":" S R=$S(TOTO:(TKO/TOTO*100),1:0)_"\5\56\1" D:+R R3 W ?62,":"
38 S R=TOKO_"\11\63\"_FAMNTRND D:+R R3 W ?75,":" S R=$S(TOTO:(TOKO/TOTO*100),1:0)_"\5\76\1" D:+R R3 W ?82,":"
39 G 41:'PWD S R=TKM_"\11\83\"_FAMNTRND D:+R R3 W ?95,":" S R=$S(TOTM:(TKM/TOTM*100),1:0)_"\5\96\1" D:+R R3 W ?102,":" S R=TOKM_"\11\103\"_FAMNTRND D:+R R3 W ?115,":"
40 S R=$S(TOTM:(TOKM/TOTM*100),1:0)_"\5\116\1" D:+R R3 W ?122,":" S R=$S(TKO:(TKM/TKO*100),1:0)_"\5\123\1" D:+R R3 W ?129,":"
41 G 31
43 W !,$P($T(T10),U,2) W:PWD $P($T(T11),U,2) W !,":",?6,":",$P($T(T7),U,2),?33,":" S R=TOTL_"\7\34\0" D:+R R3 W ?42,":",?55,":",?62,":" S R=TOKO_"\11\63\"_FAMNTRND D:+R R3
45 W ?75,":100,0 :" G 47:'PWD W ?95,":",?102,":" S R=TOTM_"\11\103\"_FAMNTRND D:+R R3
46 W ?115,":100,0 :" S R=$S(TOTO:(TOTM/TOTO*100),1:0)_"\5\123\1" D:+R R3 W ?129,":"
47 W !,$P($T(T10),U,2) W:PWD $P($T(T11),U,2)
49 W #
 ;
YZ Q
 ;
 ;    titel drukken
HD S BLZ=BLZ+1,LN=0 W !,QN,?(75+PWD),$P($T(T14),U,2),$J(BLZ,4),!,NM2,?(26+(PWD/2)),@F82,$P($T(+1),U,2),@F83,$C(13),?(75+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 ?(76+PWD),TD,!?(26+(PWD/2)),$P($T(T9),U,2),K,!! G HDZ
HD5 W $P($T(T10),U,2) W:PWD $P($T(T11),U,2) W !,$P($T(T12),U,2) W:PWD $P($T(T13),U,2)
HD6 W !,$P($T(T10),U,2) W:PWD $P($T(T11),U,2)
HDZ Q
 ;