KKOA5 G 1 ;KLANT/OMZET ANALYSE ;KKOA5; Go van KKOA4 [ 11/29/2003   1:16 PM ]
 ;
T1 ;BEGIN
T2 ;EINDE
T3 ;PERIODE : 
T4 ; TOT 
T5 ;SELEKTIE : 
T7 ; TOTAAL
T9 ;OVERZICHT VOLGENS : 
T12 ;"  LN ",DTP," KLANTNUMMER - NAAM    ",DTP," AANT P ",DTP,"  REELE OMZ ",DTP,"    OMZET/L ",DTP," % TO ",DTP," KUM. OMZ/L ",DTP," % TO ",DTP
T13 ;"  KORTING/L ",DTP," KRT% ",DTP," KUM. KRT/L ",DTP," KK % ",DTP
T14 ;BLZ:
T15 ;RANGSCHIKKEN LIJST
T17 ;K[] = volgens klantnaam   O[] = volgens omzet
 ;
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:'MAC !,DTP F I=5,23,8,12,12,6,12,6 S STR="",$P(STR,"-",I)="-" W STR,DTP
S1A I PWD F I=12,6,12,6 S STR="",$P(STR,"-",I)="-" W STR,DTP
S1B W:MAC $C(13) K STR
S1Z Q
 ;
1 ;   seletie lijst
2 S DTP=":",FAMNTRND=$$MUNT^vhRtn1(,4) S:MAC DTP=$C(9) S I=100 G 25:$N(B(I))=-1!MAC
 D INIT^vhPRINTER(132) G 51:'$D(Print)
 S R=72 D ^KFOLE:'$L(PWD),HD,^KSELO G 48
25 S R="KOM\23\3\"_$P($T(T15),U,2)_"\"""_$P($T(T17),U,2)_"""\1\\""-KO""[K&$L(K)" D R0 G 51:K="-"
 ;
27 ;   het drukken van de info
 ;
28 S I2="KL" S:K="O" I2="OM" S BLZ=0 I 'MAC D INIT^vhPRINTER(132) G 25:'$D(Print) S R=72 D ^KFOLE:'$L(PWD)
29 I MAC D ^cA605
30 S I3="",I3=$N(@("^"_Q_"HULP($J,I2,I3)")),I3="" D HD,HD5 S (LNN,TOKO,TOKM)=0
31 S I3=$N(^(I3)) G 43:I3=-1
33 S X=^(I3),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),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 I 'MAC S LN=LN+1 I LN>56 D S1 W # D HD,HD5 G 35
37 W:'MAC !,DTP W $J(LNN,4),?6,DTP,$J(KC,5)," ",$E(KN,1,14),?28,$P(" \#",D,KCA+1),KYW,?30,DTP,KPK,UIT S R=TPR_"\5\33\0" D:+R R3 W ?39,DTP
370 S R=($J(TKO,0,0)-$J(TKM,0,0))_"\11\40\"_FAMNTRND D:+R R3 W ?52,DTP S R=TKO_"\11\53\"_FAMNTRND D:+R R3 W ?65,DTP S R=$S(TOTO:(TKO/TOTO*100),1:0)_"\5\66\1" D:+R R3 W ?72,DTP
38 S R=TOKO_"\11\73\"_FAMNTRND D:+R R3 W ?85,DTP S R=$S(TOTO:(TOKO/TOTO*100),1:0)_"\5\86\1" D:+R R3 W ?92,DTP
39 G 41:'PWD S R=TKM_"\11\93\"_FAMNTRND D:+R R3 W ?105,DTP S R=$S(TKO:(TKM/TKO*100),1:0)_"\5\106\1" D:+R R3 W ?112,DTP S R=TOKM_"\11\113\"_FAMNTRND D:+R R3 W ?125,DTP
40 S R=$S(TOKO:(TOKM/TOKO*100),1:0)_"\5\126\1" D:+R R3 W ?132,DTP
41 W:MAC $C(13) G 31
43 D S1 W:'MAC !,DTP W ?6,DTP,$P($T(T7),U,2),?30,DTP S R=TOTL_"\7\31\0" D:+R R3 W ?39,DTP S R=($J(TOKO,0,0)-$J(TOKM,0,0))_"\11\40\"_FAMNTRND D:+R R3 W ?52,DTP,?65,DTP,?72,DTP S R=TOKO_"\11\73\"_FAMNTRND D:+R R3
45 W ?85,DTP,"100,0 ",DTP G 47:'PWD W ?105,DTP,?112,DTP S R=TOTM_"\11\113\"_FAMNTRND D:+R R3
46 W ?125,DTP,?132,DTP W:MAC $C(13)
47 D S1 W #
48 I 'MAC S R=$P(^cLOG(boot,"DEV",$$DEV^vhPRINTER($I,1)),D,11) S:'R R=66 D ^KFOLE D CLOSE^vhPRINTER
49 I MAC D ^cA606
50 S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5 G 25
51 K @("^"_Q_"HULP($J)"),@("^"_Q_"SEL($J)")
 ;
YZ Q
 ;
 ;    titel drukken
HD S BLZ=BLZ+1,LN=0 S:$L(PWD) LN=6 W !,QN,?78+PWD,$P($T(T14),U,2),$J(BLZ,4),!,NM2,?(26+(PWD/2)),@F82,$P($T(+1),U,2),@F83,$C(13),?78+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 ?79+PWD,TD,! I $D(KOM) W ?(26+(PWD/2)),$P($T(T9),U,2),$S(KOM="K":"KLANT",1:"OMZET"),!
HD4 W ?(26+(PWD/2)),$P($T(T5),U,2),X1,"   ",X2,!! G HDZ
HD5 D S1 W:'MAC !,DTP W @$P($T(T12),U,2) W:PWD @$P($T(T13),U,2) W:MAC $C(13) D S1
HDZ Q
 ;
R0 S R7="K'[D&(K'?.E1C.E)" S:$P(R,D,8)'="" R7=R7_"&("_$P(R,D,8)_")" S:$P(R,D,7)'="" R7=R7_"&("_$P($T(@$P(R,D,7))," ",2,99)_")"
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2 W $E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V4 03.10.84
 ;