KKAA25B ;OMZET PER REGIO ;cumul tov. referentie;KKAA25; [ 11/08/2003   8:42 PM ]
 G 1
 ;
T4 ;TOT MAAND
T5 ;onder de vorm jjjj.mm   [] = 
T6 ;ONB
T7 ;TOT
T8 ;   V[] = 
T9 ;PERIODE :
T10 ;VANAF MAAND
T11 ;TOT MAAND
T12 ;onder de vorm jjjj.mm
T14 ;OK VOOR BEGIN TRANSFERT .
T15 ;OK VOOR EINDE TRANSFERT
T16 ;[] = ok   ,[] = hernemen
T17 ;[] = ok  ,[] = hernemen   -   druk na de transfert [] voor einde transfert
T18 ;PERIODE;OL.0;OR.0;OL.1;OR.1;OL.3;OR.3;OL.4;OR.4;OL.9;OR.9
T19 ;BLZ :
T20 ;:---------:-------:-------------:-------------:-------------:--------:     :-------------:-------------:-------------:--------:
T21 ;: PERIODE : REGIO :  OMZET LTPR : REELE OMZET :     KORTING : KORT % :     : CUM OMZ LPR :  CUM RE OMZ : CUM KORTING : CUM K% :
T22 ;:         : 
T23 ;:         :-------:-------------:-------------:-------------:--------:     :-------------:-------------:-------------:--------:
T24 ;VERGELIJK
T25 ;[] = zonder   M[] = met
T26 ;:         :       :             :             :             :        :     :             :             :             :        :
T27 ;PERIODE;REGIO;OMZ LIJST;REELE OMZ
T28 ;DE OPBOUW VAN HET BESTAND IS NOG NIET AFGEWERKT
 ;
1 G 20^KKAA25:AFD'="S"  G 4:AFD'="S"
21 S R="K\23\3\"_$P($T(T4),U,2)_"\"""_$P($T(T5),U,2)_MND S:$D(MNDX) R=R_$P($T(T8),U,2)_MNDX
22 S R=R_"""\7\\K?4N1"".""2N!(""-""[K)!(K=""V""&$D(MNDX))" D R0
 If K="-" D YZ G 20^KKAA25
 S:K="V" K=MNDX
 I $L(K),$D(@("^"_Q_"STKL(0,0,1)")),K<+^(1) G 21
 S PER=MND
 S:$L(K) PER=K
 Set Maand=$$INTDATE^vhLib.DataTypes(PER,"DM")
 Set MND=$$EXTDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes(Maand,"M",+1),"DM4")
 Set MNDX=$$EXTDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes(Maand,"M",-1),"DM4")
 Set VJaar=$$EXTDATE^vhLib.DataTypes(Maand,"J4")+$S($$EXTDATE^vhLib.DataTypes(Maand,"MN")>6:0,1:-1)
 Set VBegin=VJaar-1_".06 "
 Set VEnd=VJaar_".06 "
 Set HBegin=$$EXTDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes(Maand,"M",-12),"DM4")_" "
 Set HEnd=PER_" "
 ; Cumulatie gegevens per regio
 Kill VTot,HTot
 For Regio=0,1,3,4,9 Do
 .; Totaal referentie periode
 .Set VTot(Regio)=0_D_0
 .Set Mnd=VBegin
 .For  Set Mnd=$O(^KKAAM(Mnd)) Quit:Mnd=""!(Mnd]VEnd)  Do
 ..For I=1:1:2 Do
 ...Set $P(VTot(Regio),D,I)=$P($G(VTot(Regio)),D,I)+$J($P($G(^KKAAM(Mnd,Regio)),D,I),0,0)
 ...Set $P(VTot(999),D,I)=$P($G(VTot(999)),D,I)+$J($P($G(^KKAAM(Mnd,Regio)),D,I),0,0)
 .;Totaal gewenste periode
 .Set HTot(Regio)=0_D_0
 .Set Mnd=HBegin
 .For  Set Mnd=$O(^KKAAM(Mnd)) Quit:Mnd=""!(Mnd]HEnd)  Do
 ..For I=1:1:2 Do
 ...Set $P(HTot(Regio),D,I)=$P($G(HTot(Regio)),D,I)+$J($P($G(^KKAAM(Mnd,Regio)),D,I),0,0)
 ...Set $P(HTot(999),D,I)=$P($G(HTot(999)),D,I)+$J($P($G(^KKAAM(Mnd,Regio)),D,I),0,0)
 ;Berekening korting en stijgings perc tov. referentie
 For Regio=0,1,3,4,9,999 Do
 .;Berekening korting
 .Set:$P(HTot(Regio),D,2)'=0 $P(HTot(Regio),D,3)=$J($P(HTot(Regio),D,2)-$P(HTot(Regio),D,1)/$P(HTot(Regio),D,2)*100,0,2)
 .Set:$P(VTot(Regio),D,2)'=0 $P(VTot(Regio),D,3)=$J($P(VTot(Regio),D,2)-$P(VTot(Regio),D,1)/$P(VTot(Regio),D,2)*100,0,2)
 .;Berekening stijging
 .Set:$P(VTot(Regio),D)'=0 $P(HTot(Regio),D,4)=$P(HTot(Regio),D,1)/$P(VTot(Regio),D,1)*100
 ;zw VTot,HTot,HBegin,HEnd,VBegin,VEnd
 ;q
 
27 ;S X="X" D S1 S X="",FP=L*100+61 W @F,@F92 D S1 S FP=L*100+61 W @F,@F91 G 25
 ; Op het scherm brengen van de gegevens
3 Set FP=331 Write @F,PER,"           "
 Set FP=745 Write @F,"Refererentie : ",$$EXTDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes($$INTDATE^vhLib.DataTypes(VBegin,"DM"),"M",1),"DM4")_" - "_VEnd
 Set FP=845 Write @F,@FMTB,"      Huidig : ",$$EXTDATE^vhLib.DataTypes($$CALCDATE^vhLib.DataTypes($$INTDATE^vhLib.DataTypes(HBegin,"DM"),"M",1),"DM4")_" - "_HEnd,@FMTb
 Set Lijn=500
 For Regio=0,1,3,4,9,888,999 Do
 .Set Lijn=Lijn+200 Quit:Regio=888
 .Set FP=Lijn+3 Write @F,$S(Regio=0:"ONB",Regio<100:"R0"_Regio,1:"TOT")
 .Set FP=Lijn+10 Write @F Set X=$$CEL^vhFMT(1,"$P(VTot(Regio),D,1)","N","R",13,FAMNTRND,"","")
 .Set FP=Lijn+24 Write @F Set X=$$CEL^vhFMT(1,"$P(VTot(Regio),D,3)","N","R",7,2,"","")
 .Set FP=Lijn+110 Write @F Set X=$$CEL^vhFMT(1,"$P(HTot(Regio),D,1)","N","R",13,FAMNTRND,"","""B""")
 .Set FP=Lijn+124 Write @F Set X=$$CEL^vhFMT(1,"$P(HTot(Regio),D,3)","N","R",7,2,"","""B""")
 .Set FP=Lijn+132 Write @F Set X=$$CEL^vhFMT(1,"$P(HTot(Regio),D,4)","N","R",7,1,"","""B""")
 Goto 21
 ;
4 S AFD=AFD="M",FP=2203 W @F,$P($T(T9),U,2)
45 S R="LBP\23\3\"_$P($T(T11),U,2)_"\"""_$P($T(T12),U,2)_"""\7\MND" D R0 I K="-" S FP=2213 W @F,@F1 G 20^KKAA25
46 S FBP=K\1 S:K#1<.07 FBP=FBP-1 S FBP=FBP_".07",FP=2213 W @F,FBP," - ",LBP
47 S R="VGL\23\3\"_$P($T(T24),U,2)_"\"""_$P($T(T25),U,2)_"""\1\\""-M""[K" D R0 S VGL=$L(VGL) I K="-" S FP=2221 W @F,@F1 G 45
48 I 'AFD D INIT^vhPRINTER(132) I '$D(Print) S FP=2203 W @F,@F1 G 47
49 I AFD S FP=2303 W @F,@F1,$P($T(T14),U,2),!?2,$P($T(T17),U,2),@F0 S FP=2327 W @F R K G 47:K="-",49:","'[K I K="," S FP=2203 W @F,@F1 G 20^KKAA25
 ;
5 S FBP=$J(FBP-.01,0,2)_" ",LBP=LBP_" ",BLZ=0,LN=99 I 'AFD S NM2=@("^"_Q_"BA(99,2)"),NM3=^(3)
50 F I="","X","V" F REG=0,1,3,4,9 S @("C"_I_"(REG)")=""
51 S FBP=$N(@("^"_Q_"KAAM(FBP)")) G 6:FBP=-1!(FBP]LBP) K S,SX S REG=-1,FBPX=$J(FBP-1,0,2)_" ",FBPP=FBP,(L,T,TX,TV,C,CX,CV)=0,(S,SX)="" S:'AFD L=8+VGL+(VGL*10)
52 S RN=0 I AFD S FBPP="01/"_$E(FBP,6,7)_"/"_$E(FBP,3,4),S=S_FBPP_D,SX=SX_FBPP_D S:VGL S=S_"H"_D,SX=SX_"V"_D
55 S LN=LN+L I LN>50 W:BLZ # D HD G 55
56 S RN=RN+1,REG=$P("0\1\3\4\9",D,RN) G 58:$L(REG),7:AFD&'VGL,51:AFD W !,$P($T(T23),U,2)
57 S X="X" D:VGL S4,S9 S X="" D S4,S9,S7 W !,$P($T(T20),U,2) G 51
58 S K="" S:$D(@("^"_Q_"KAAM(FBP,REG)")) K=^(REG),KX="" S:$D(@("^"_Q_"KAAM(FBPX,REG)")) KX=^(REG)
59 S X="X" D:VGL S3,S8:'AFD S X="" D S3,S8:'AFD G 56:'VGL!AFD S X="V",KV="" S:$P(KX,D,1) $P(KV,D,1)=$P(K,D,1)-$P(KX,D,1)/$P(KX,D,1)*100 S:$P(KX,D,2) $P(KV,D,2)=$P(K,D,2)-$P(KX,D,2)/$P(KX,D,2)*100 D S3
590 S CV(REG)="" S:$P(CX(REG),D,1) $P(CV(REG),D,1)=$P(C(REG),D,1)-$P(CX(REG),D,1)/$P(CX(REG),D,1)*100 S:$P(CX(REG),D,2) $P(CV(REG),D,2)=$P(C(REG),D,2)-$P(CX(REG),D,2)/$P(CX(REG),D,2)*100 D S8:'AFD W:'AFD !,$P($T(T26),U,2) G 56
 ;
6 I 'AFD W:BLZ # D CLOSE^vhPRINTER
61 I AFD R K K MNDX G 1^KKAA25
63 S FP=2203 W @F,@F1 G 2^KKAA25
 ;
7 I VGL S K=SX D S6 S REG=-1 F R=1:1 S REG=$N(SX(REG)) Q:REG=-1  S K=SX(REG) D S6
71 I VGL W $C(13)
73 S K=S D S6 S REG=-1 F R=1:1 S REG=$N(S(REG)) Q:REG=-1  S K=S(REG) D S6
75 W $C(13) G 51
 ;
YZ Set FP=745 Write @F,@F2 Set FP=845 Write @F,@F2 Q
 ;
R0 S R7=1 S:$P(R,D,8)'="" R7=R7_"&("_$P(R,D,8)_")" S:$P(R,D,7)'="" R7=R7_"&("_$P($T(@$P(R,D,7)),U,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),R8="",$P(R8,".",R6)="."
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,@F2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2,R8,@F,@F0 R K W @F2 I $L(K)'>R6,K'["""",K'[D,K'?.E1C.E,@R7 S @$P(R,D)=K
R0D E  G R0C
R0E S FP=$P(R,D,9)*100+$P(R,D,10) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7,R8 Q  ;V8 05.07.88
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),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) Q: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  ;V3 05.07.88
 ;
S1 F I=1,2 S $P(@("K"_X),D,I)=$J($P(@("K"_X),D,I),0,0),$P(@("T"_X),D,I)=$P(@("T"_X),D,I)+$P(@("K"_X),D,I)
S1A S L=L+1,FP=L*100+3 W @F I $L(X) W $S($D(^KSEKT(REG_" ")):$E(^(REG_" "),1,5),1:$P($T(T6),U,2))
S1B S FP=L*100+10,R=$P(@("K"_X),D,1)_"\12\\"_FAMNTRND W @F D R3
S1C S KRT=$P(@("K"_X),D,2)-$P(@("K"_X),D,1),FP=L*100+24
S1D S R="0\6\\2" S:$P(@("K"_X),D,2) R=KRT/$P(@("K"_X),D,2)*100_"\6\\2" W @F D R3
S1E S PRO=0 I '$L(X),$P(KX,D) S PRO=$P(K,D)-$P(KX,D)/$P(KX,D)*100
S1F S FP=L*100+32,R=PRO_"\6\\2" W @F D:'$L(X) R3
S1Z Q
 ;
S2 S FP=20-$L(X)*100+3 W @F W:$L(X) $P($T(T7),U,2) S FP=20-$L(X)*100+10,R=$P(@("T"_X),D,1)_"\12\\"_FAMNTRND W @F D R3
S2A S KRT=$P(@("T"_X),D,2)-$P(@("T"_X),D,1),FP=20-$L(X)*100+24
S2B S R="0\6\\2" S:$P(@("T"_X),D,2) R=KRT/$P(@("T"_X),D,2)*100_"\6\\2" W @F D R3
S2C S PRO=0 I '$L(X),$P(TX,D) S PRO=$P(T,D)-$P(TX,D)/$P(TX,D)*100
S2D S FP=20-$L(X)*100+32,R=PRO_"\6\\2" W @F D:'$L(X) R3
S2Z Q
 ;
S3 F I=1,2 S:X'="V" $P(@("K"_X),D,I)=$J($P(@("K"_X),D,I),0,0) S $P(@("T"_X),D,I)=$P(@("T"_X),D,I)+$P(@("K"_X),D,I),$P(@("C"_X_"(REG)"),D,I)=$P(@("C"_X_"(REG)"),D,I)+$P(@("K"_X),D,I)
S3A G S5:AFD&'VGL S $P(@("K"_X),D,3)=$P(@("K"_X),D,2)-$P(@("K"_X),D,1),SW=0 S:X="V"&$P(KX,D,3) $P(KV,D,3)=$P(K,D,3)-$P(KX,D,3)/$P(KX,D,3)*100 W:'AFD !,": " W FBPP W:AFD $C(9) W:'AFD ?10,": " S FBPP=""
S3B S R=$S($D(^KSEKT(REG_" ")):$E(^(REG_" "),1,5),1:$P($T(T6),U,2)) W:'AFD ?12 W:X="X"!'VGL R W:AFD $C(9) W:'AFD ?18,":"
S3C S R=$P(@("K"_X),D,2) W:AFD R,$C(9) I 'AFD S R=R_D_(12-(X="V"*2))_"\19\"_$S(X="V":2,1:FAMNTRND) D R3:X'="V" X:X="V" "I R D R3 W ""%""" W:'SW ?32,":"
S3D S R=$P(@("K"_X),D,1) W:AFD R G S3G:AFD S R=R_D_(12-(X="V"*2))_"\33\"_$S(X="V":2,1:FAMNTRND) D:X'="V" R3 X:X="V" "I R D R3 W ""%""" W:'SW ?46,":"
S3E S KRT=$P(@("K"_X),D,3),R=KRT_D_(12-(X="V"*2))_"\47\"_$S(X="V":2,1:FAMNTRND) D:X'="V" R3 X:X="V" "I R D R3 W ""%""" W:AFD $C(9) W:'AFD&'SW ?60,":"
S3F S R="0\7\61\2" S:$P(@("K"_X),D,2) R=KRT/$P(@("K"_X),D,2)*100_"\7\61\2" D R3:X'="V" W:AFD $C(9) W:'AFD&'SW ?69,":" I VGL,'AFD,'SW,X="" S SW=1 W $C(13) G S3C
S3G W:AFD $C(13)
S3Z Q
 ;
S4 S SW=0 W !,$P($T(T22),U,2) W:X="X"!'VGL $P($T(T7),U,2) W ?18,":"
S4A S R=$P(@("T"_X),D,2)_D_(12-(X="V"*2))_"\19\"_$S(X="V":2,1:FAMNTRND) D R3:X'="V" X:X="V" "I R D R3 W ""%""" W:'SW ?32,":" S R=$P(@("T"_X),D,1)_D_(12-(X="V"*2))_"\33\"_$S(X="V":2,1:FAMNTRND) D R3:X'="V" X:X="V" "I R D R3 W ""%""" W:'SW ?46,":"
S4B S KRT=$P(@("T"_X),D,2)-$P(@("T"_X),D,1) I X="V" S:'$P(TX,D,3) KRT="" I KRT S KRT=$P(T,D,3)-$P(TX,D,3)/$P(TX,D,3)*100
S4C S R=KRT_D_(12-(X="V"*2))_"\47\"_$S(X="V":2,1:FAMNTRND) D R3:X'="V" X:X="V" "I R D R3 W ""%""" W:'SW ?60,":"
S4D S R="0\7\61\2" S:$P(@("T"_X),D,2) R=KRT/$P(@("T"_X),D,2)*100_"\7\61\2" D R3:X'="V" W:'SW ?69,":" I VGL,'SW,X="" S SW=1 W $C(13) G S4A
S4Z Q
 ;
S5 S S(REG)=$P(K,D,2)_D_$P(K,D,1)_D,SX(REG)=$P(KX,D,2)_D_$P(KX,D,1)_D
S5Z Q
 ;
S6 F I=1:1 Q:'$L($P(K,D,I))  W $P(K,D,I) G S6Z:REG=9&(I=2) W $C(9)
S6Z Q
 ;
S7 F X="","X" S $P(@("T"_X),D,3)=$P(@("T"_X),D,2)-$P(@("T"_X),D,1),$P(@("C"_X),D,3)=$P(@("C"_X),D,2)-$P(@("C"_X),D,1)
S7A S X="V",TV="" S:$P(TX,D,1) $P(TV,D,1)=$P(T,D,1)-$P(TX,D,1)/$P(TX,D,1)*100 S:$P(TX,D,2) $P(TV,D,2)=$P(T,D,2)-$P(TX,D,2)/$P(TX,D,2)*100 D:VGL S4
S7B S X="V",CV="" S:$P(CX,D,1) $P(CV,D,1)=$P(C,D,1)-$P(CX,D,1)/$P(CX,D,1)*100 S:$P(CX,D,2) $P(CV,D,2)=$P(C,D,2)-$P(CX,D,2)/$P(CX,D,2)*100 D:VGL S9
S7Z Q
 ;
S8 W ?75,":" S $P(@("C"_X_"(REG)"),D,3)=$P(@("C"_X_"(REG)"),D,2)-$P(@("C"_X_"(REG)"),D,1),SW=0 S:X="V"&$P(CX(REG),D,3) $P(CV(REG),D,3)=$P(C(REG),D,3)-$P(CX(REG),D,3)/$P(CX(REG),D,3)*100 F I=1,2 S $P(@("C"_X),D,I)=$P(@("C"_X),D,I)+$P(@("C"_X_"(REG)"),D,I)
S8A S R=$P(@("C"_X_"(REG)"),D,2) W:AFD R,$C(9) I 'AFD S R=R_D_(12-(X="V"*2))_"\76\"_$S(X="V":2,1:FAMNTRND) D R3:X'="V" X:X="V" "I R D R3 W ""%""" W:'SW ?89,":"
S8B S R=$P(@("C"_X_"(REG)"),D,1) W:AFD R G S3G:AFD S R=R_D_(12-(X="V"*2))_"\90\"_$S(X="V":2,1:FAMNTRND) D:X'="V" R3 X:X="V" "I R D R3 W ""%""" W:'SW ?103,":"
S8C S KRT=$P(@("C"_X_"(REG)"),D,3),R=KRT_D_(12-(X="V"*2))_"\104\"_$S(X="V":2,1:FAMNTRND) D:X'="V" R3 X:X="V" "I R D R3 W ""%""" W:AFD $C(9) W:'AFD&'SW ?117,":"
S8D S R="0\7\118\2" S:$P(@("C"_X_"(REG)"),D,2) R=KRT/$P(@("C"_X_"(REG)"),D,2)*100_"\7\118\2" D R3:X'="V" W:AFD $C(9) W:'AFD&'SW ?126,":" I VGL,'AFD,'SW,X="" S SW=1 W $C(13) G S8A
S8Z Q
 ;
S9 W ?75,":" S SW=0
S9A S R=$P(@("C"_X),D,2)_D_(12-(X="V"*2))_"\76\"_$S(X="V":2,1:FAMNTRND) D R3:X'="V" X:X="V" "I R D R3 W ""%""" W:'SW ?89,":" S R=$P(@("C"_X),D,1)_D_(12-(X="V"*2))_"\90\"_$S(X="V":2,1:FAMNTRND) D R3:X'="V" X:X="V" "I R D R3 W ""%""" W:'SW ?103,":"
S9B S KRT=$P(@("C"_X),D,2)-$P(@("C"_X),D,1) I X="V" S:'$P(CX,D,3) KRT="" I KRT S KRT=$P(C,D,3)-$P(CX,D,3)/$P(CX,D,3)*100
S9C S R=KRT_D_(12-(X="V"*2))_"\104\"_$S(X="V":2,1:FAMNTRND) D R3:X'="V" X:X="V" "I R D R3 W ""%""" W:'SW ?117,":"
S9D S R="0\7\118\2" S:$P(@("C"_X),D,2) R=KRT/$P(@("C"_X),D,2)*100_"\7\118\2" D R3:X'="V" W:'SW ?126,":" I VGL,'SW,X="" S SW=1 W $C(13) G S9A
S9Z Q
 ;
HD S BLZ=BLZ+1,LN=0 I AFD,'VGL W $P($T(T18),U,2),$C(9) W:VGL $C(9) X "F I=3:1 Q:'$L($P($T(T18),U,I))  W $P($T(T18),U,I) W:$L($P($T(T18),U,I+1)) $C(9)" W $C(13) G HDZ
HDA I AFD,VGL X " F I=2:1 Q:'$L($P($T(T27),U,I))  W $P($T(T27),U,I) W:$L($P($T(T27),U,I+1)) $C(9)" W $C(13) G HDZ
HDB W !,QN,?119,$P($T(T19),U,2),$J(BLZ,3),!,NM2,?32,@F82,$P($T(+1),U,2),@F83,$C(13),?119,DT,!,NM3,?120,TD,!!
HDC W !,$P($T(T20),U,2),!,$P($T(T21),U,2),!,$P($T(T20),U,2)
HDZ Q
 ;
MND ;K?4N1"."2N&$P(K,".",2)&($P(K,".",2)<13)!(K="-")
 ;