KKAA25 ;OMZET PER REGIO ;maand;KKAA25; [ 11/08/2003   8:42 PM ]
 G 1
 ;
T1 ;REGIO   REELE OMZET   KRT %    ST % 
T2 ;AFDRUK
T3 ;S[] = scherm   P[] = printer   M[] = mac
T4 ;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
T17 ;[] = ok  ,[] = hernemen   -   druk na de transfert [] voor einde transfert
T18 ;PERIODE;OL.0;OR.0;OL.1;OR.1;OL.3+8;OR.3+8;OL.4;OR.4;OL.9+5;OR.9+5
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
T29 ;OMZET PER MAAND, PER BOEKJAAR, GECUMULEERD TOV REFERENTIE 
T30 ;[] = maand   B[] = boekjaar  C[] = cumul        
 ;
1 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
 S FAMNTRND=0 ;$$MUNT^vhRtn1(,4)
 I '$D(^KBA("RK")) S K=$P($T(T28),U,2) X ^cTXT(0,"N",250) R K G YZ
 I ^KBA("RK") S K=$P($T(T28),U,2) X ^cTXT(0,"N",250) R K G YZ
11 S FP=502 W @F,@F4,$P($T(T1),U,2),@F5,@F7 S FP=401 W @F,@$P(FG,D,1)
12 F I=1:1:34 W @$P(FG,D,9) W:"\7\20\27\"[(D_I_D) @$P(FG,D,5)
13 W @$P(FG,D,2) F L=5:1:17 F I=1,9,23,31,39 S FP=L*100+I W @F,@$P(FG,D,10)
15 S FP=1801 W @F,@$P(FG,D,7) F I=1:1:34 W @$P(FG,D,9) W:"\7\20\27\"[(D_I_D) @$P(FG,D,11)
17 W @$P(FG,D,6) F J=19,20 F I=1,9,23,31,39 S FP=J*100+I W @F,@$P(FG,D,10)
18 S FP=2101 W @F,@$P(FG,D,3) F I=1:1:34 W @$P(FG,D,9) W:"\7\20\27\"[(D_I_D) @$P(FG,D,8)
19 W @$P(FG,D,4),@F8
 ;
2 S R="AFD\23\3\"_$P($T(T2),U,2)_"\"""_$P($T(T3),U,2)_"""\1\\""-SPM""[K&$L(K)" D R0 G YZ:K="-"
20 S R="OMB\23\3\"_$P($T(T29),U,2)_"\"""_$P($T(T30),U,2)_"""\1\\""-BC""[K" D R0
 G 2:K="-" S FP=303 W @F,@F2,$S(K="C":"CUMUL tov. REFERENTIE",K="B":"BOEKJAAR",1:"MAAND") K MNDX S MND=DJ_"."_DM
 G ^KKAA25A:K="B",^KKAA25B:K="C",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 G 20:K="-" S:K="V" K=MNDX
 I $L(K),$D(@("^"_Q_"STKL(0,0,1)")),K<+^(1) G 21
 S:$L(K) PER=K
23 S:K="" PER=MND S MND=$J(PER+.01,0,2) S:$P(MND,".",2)>12 MND=MND+1-.12 S MNDX=$J(PER-.01,0,2) S:$P(MNDX,".",2)<1 MNDX=MNDX-1+.12
24 S PERX=$J(PER-1,0,2)_" ",PER=PER_" ",L=6,(RN,T,TX)=0,FP=332 W @F,PER
25 S RN=RN+1,REG=$P("0\1\3\4\9",D,RN) G 3:REG="" S K="" S:$D(@("^"_Q_"KAAM(PER,REG)")) K=^(REG) S KX="" S:$D(@("^"_Q_"KAAM(PERX,REG)")) KX=^(REG)
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
 ;
3 F L=L+1:1:17 F I=1:1:5 S FP=L*100+$P("2\10\24\32",D,I) W @F,$J("",$P("7\13\7\7",D,I))
31 S X="X" D S2 S X="",FP=L*100+61 W @F,@F92 D S2 S FP=L*100+61 W @F,@F91 G 21
 ;
4 S AFD=AFD="M",FP=2203 W @F,$P($T(T9),U,2)
41 S R="FBP\23\3\"_$P($T(T10),U,2)_"\"""_$P($T(T12),U,2)_"""\7\MND" D R0 I K="-" S FP=2203 W @F,@F1 G 20
43 S FP=2213 W @F,K
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 41
46 G 45:LBP<FBP S FP=2221 W @F,"- ",K
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 2
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 2
 ;
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)
 IF REG=3 DO  ; Regio 8 bij regio 3 tellen
 .S $P(K,D)=$P($G(@("^"_Q_"KAAM(FBP,8)")),D)+$P(K,D),$P(K,D,2)=$P($G(^(8)),D,2)+$P(K,D,2)
 .S $P(KX,D)=$P($G(@("^"_Q_"KAAM(FBPX,8)")),D)+$P(KX,D),$P(KX,D,2)=$P($G(^(8)),D,2)+$P(KX,D,2)
 IF REG=9 DO  ; Regio 5 bij regio 9 tellen
 .S $P(K,D)=$P($G(@("^"_Q_"KAAM(FBP,5)")),D)+$P(K,D),$P(K,D,2)=$P($G(^(5)),D,2)+$P(K,D,2)
 .S $P(KX,D)=$P($G(@("^"_Q_"KAAM(FBPX,5)")),D)+$P(KX,D),$P(KX,D,2)=$P($G(^(5)),D,2)+$P(KX,D,2)
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 W "~~~" K MNDX G 1 ; Terminator bij transfer
63 S FP=2203 W @F,@F1 G 2
 ;
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 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="-")
 ;