KKAA26 ;OMZET PER REGIO PER ... ;KKAA26; [ 08/16/2002  3:40 PM ]
 G 1
 ;
T1 ;PRINTER;MAC
T2 ;AFDRUK
T3 ;P[] = printer   M[] = mac
T4 ;ONDERVERDELING
T5 ;A[] = aktiviteit   P[] = prijsklasse   T[] = type
T6 ;ONB
T7 ;TOT
T8 ;AKTIVITEIT;PRIJSKLASSE;TYPE
T9 ;PERIODE :
T10 ;VANAF MAAND
T11 ;TOT MAAND
T12 ;onder de vorm jjjj.mm
T13 ;PLAATS BREED BLANKO PAPIER OP DE PRINTER EN SCHAKEL HEM AAN
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;\S K=$P($T(T29),U,$F("APT",APT));OL.0;OR.0;OL.1;OR.1;OL.3;OR.3;OL.4;OR.4;OL.9;OR.9
T19 ;BLZ :
T22 ;:         :       :     :
T24 ;VERGELIJK
T25 ;[] = zonder   M[] = met
T27 ;PERIODE;REGIO;\S K=$P($T(T29),U,$F("APT",APT));OMZ LIJST;REELE OMZ
T28 ;volgens ;aktiviteit;prijsklasse;type
T29 ;AKT;PKL;TYP
T31 ;:         :       : 
T32 ;:         : TOT   :     :
T33 ;:---------:-------:-----:-------------:-------------:-------------:--------:
T34 ;: PERIODE : REGIO : ; :  OMZET LTPR : REELE OMZET :     KORTING : KORT % :
T35 ;:         :       :-----:-------------:-------------:-------------:--------:
T36 ;:         :-------:-----:-------------:-------------:-------------:--------:
 ;
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
11 B 1 D ^KKAA260
13 S R="AFD\20\3\"_$P($T(T2),U,2)_"\"""_$P($T(T3),U,2)_"""\1\\""-PM""[K&$L(K)" D R0^KKAA261 G YZ:K="-" S FP=2012 W @F,$P($T(T1),U,$F("PM",K))
15 S R="APT\21\3\"_$P($T(T4),U,2)_"\"""_$P($T(T5),U,2)_"""\1\\""-APT""[K&$L(K)" D R0^KKAA261 G 13:K="-" S FP=2120 W @F,@F1,$P($T(T8),U,$F("APT",K))
 ;
2 S AFD=AFD="M",FP=2203 W @F,$P($T(T9),U,2)
21 S R="FBP\23\3\"_$P($T(T10),U,2)_"\"""_$P($T(T12),U,2)_"""\7\MND" D R0^KKAA261 G 15:K="-" S FP=2213 W @F,K
23 S R="LBP\23\3\"_$P($T(T11),U,2)_"\"""_$P($T(T12),U,2)_"""\7\MND" D R0^KKAA261 I K="-" S FP=2213 W @F,@F1 G 21
25 G 23:LBP<FBP S FP=2221 W @F,"- ",K
27 S R="VGL\23\3\"_$P($T(T24),U,2)_"\"""_$P($T(T25),U,2)_"""\1\\""-M""[K" D R0^KKAA261 S VGL=$L(VGL) I K="-" S FP=2221 W @F,@F1 G 23
28 I 'AFD S R="K\23\3\"_$P($T(T13),U,2)_"\"""_$P($T(T16),U,2)_"""\1\\""-,""[K" D R0^KKAA261 G 27:K="-" I K="," S FP=2203 W @F,@F1 G 13
29 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 27:K="-",29:","'[K I K="," S FP=2203 W @F,@F1 G 13
 ;
3 I AFD,'VGL X " F I=2:1 S K=$P($T(T18),U,I) X:$L($P(K,D,2)) $P(K,D,2) Q:K=""""  W K W:$L($P($T(T18),U,I+1)) $C(9)" W $C(13)
31 I AFD,VGL X " F I=2:1 S K=$P($T(T27),U,I) X:$L($P(K,D,2)) $P(K,D,2) Q:K=""""  W K W:$L($P($T(T27),U,I+1)) $C(9)" W $C(13)
33 S FBPY=FBP_" ",FBP=$J(FBP-.01,0,2)_" ",LBP=LBP_" ",BLZ=0,LN=99 I 'AFD S NM2=@("^"_Q_"BA(99,2)"),NM3=^(3) X F70 W @F80
 ;
4 S FBP=$N(^HULP($J,FBP)) I FBP=-1!(FBP]LBP) G 8:AFD S IAPT=-1 G 9
40 S KRE=-1,FBPX=$J(FBP-1,0,2)_" ",FBPP=FBP K TA
41 S (KRE,KREP)=$N(KRE(KRE)) G 6:KRE=-1&'AFD,5:KRE=-1&'VGL,4:KRE=-1 S IAPT=0
43 S IAPT=$N(@($P("KAK\KPK\KTY",D,$F("APT",APT)-1)_"(IAPT)")) G 41:IAPT=-1
44 S APTX=@($P("KAK\KPK\KTY",D,$F("APT",APT)-1)_"(IAPT)"),(HJ,VJ)="" S:$D(^HULP($J,FBP,KRE,APT,APTX)) HJ=^(APTX) S:$D(^HULP($J,FBPX,KRE,APT,APTX)) VJ=^(APTX)
45 G 49:'AFD I VGL W FBPX,$C(9) D S1,S2 S K=VJ D S3 W $C(13),FBP,$C(9) D S1,S2 S K=HJ D S3 W $C(13) G 43
47 X "F J=1,2 S $P(HJ,D,J)=$J($P(HJ,D,J),0,0)" S:'$D(TA(IAPT)) TA(IAPT)=APTX_D S TA(IAPT)=TA(IAPT)_HJ_D G 43
49 X "F I=""HJ"",""VJ"" F J=1,2 S $P(@I,D,J)=$J($P(@I,D,J),0,0)" S:'$D(TA(IAPT)) TA(IAPT)=APTX_D S TA(IAPT)=TA(IAPT)_HJ_D_VJ_D G 43
 ;
5 S IAPT=$N(TA(IAPT)) G 4:IAPT=-1 S R=TA(IAPT),APTX=$P(R,D,1) S:'$D(TAB(IAPT)) TAB(IAPT)=APTX W FBP,$C(9) D S2 F I=2:1 Q:'$L($P(R,D,I))  S $P(TAB(IAPT),D,I)=$P(TAB(IAPT),D,I)+$P(R,D,I) I '(I#2) S K=$P(R,D,I,I+1) D S3
51 W $C(13) G 5
 ;
6 S IAPT=$N(TA(IAPT)) G 4:IAPT=-1 S K=TA(IAPT),APTX=$P(K,D,1),$P(TA(0),D,1)="TOT",$P(TAB(0),D,1)="TOT" S:'$D(TAB(IAPT)) TAB(IAPT)=APTX F I=2:1 Q:'$L($P(K,D,I))  D S7
61 G 6
 ;
8 I 'AFD W:BLZ # X F71 G 89
81 I AFD,VGL G 87
83 S IAPT=$N(TAB(IAPT)) G 87:IAPT=-1 S R=TAB(IAPT),APTX=$P(R,D,1) W $P($T(T7),U,2),$C(9) D S2 F I=2:2 S K=$P(R,D,I,I+1) Q:K=""  D S3
85 W $C(13) G 83
87 R K
89 K TA,TAB G 13
 ;
9 S FBPP=FBPY,SW=0
92 S (KRE,KREP)=$N(KRE(KRE)) G 99:KRE=-1 S IAPT=0
93 S IAPT=$N(TAB(IAPT)) G 97:IAPT=-1 S ALN=1+(VGL*3) D S0
95 S APTX=$P(TAB(IAPT),D,1) W !,": ",?10,": " D S1 W ?18,": " D S2 W ?23,":" I VGL S HVJ=1 D S8 W !,$P($T(T22),U,2) S HVJ=0 D S8 W !,$P($T(T22),U,2) D S9 S KREP="" W ! F I=0,10,18,24,38,52,75 W ?I,":"
96 G 93:VGL S HVJ=0 D S8 S KREP="" G 93
97 G 8:'$D(TAB) S ALN=3+(VGL*2),SWLN=1 D S0 S IAPT=0,APTX=$P(TAB(0),D,1) W:SWLN !,$P($T(T35),U,2) W !,$P($T(T31),U,2) D S2 W ?24,":" I VGL S HVJ=1 D S8 W !,$P($T(T22),U,2) S HVJ=0 D S8 W !,$P($T(T22),U,2) D S9
98 S:'VGL HVJ=0 D:'VGL S8 I KRE'=10 W:LN<50 !,$P($T(T36),U,2) G 92
99 G 8:'$D(TAB) I KRE'=10 S (KRE,KREP)=10,IAPT=0 G 93
990 W !,$P($T(T33),U,2) G 8
 ;
YZ K ^HULP($J) Q
 ;
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
 ;
S0 S LN=LN+ALN I LN>50 W:BLZ !,$P($T(T33),U,2) W:BLZ # D HD G S0
S0Z Q
 ;
S1 G S1Z:KREP="" I KREP'=10,$D(^RES("KLANT","PI","REGIO","D",KREP)) W "R"_$TR($J(KREP,2)," ",0) G S1C
S1A I KREP=10 W $P($T(T7),U,2) G S1C
S1B W $P($T(T6),U,2)
S1C W:AFD $C(9)
S1Z Q
 ;
S2 I APTX?.N W $P($T(T6),U,2) G S2B
S2A W $E(APTX,1,3)
S2B W $C(9)
S2Z Q
 ;
S3 W $J($P(K,D,2),0,0),$C(9),$J($P(K,D,1),0,0),$C(9)
S3Z Q
 ;
S4 W $C(13) W:$L(FBPP) ?2,FBPP S FBPP=$S(FBPP=FBPY:"   -",FBPP="   -":LBP,1:"")
S4Z Q
 ;
S7 S $P(TAB(IAPT),D,I)=$P(TAB(IAPT),D,I)+$P(K,D,I),$P(TA(0),D,I)=$P(TA(0),D,I)+$P(K,D,I),$P(TAB(0),D,I)=$P(TAB(0),D,I)+$P(K,D,I)
S7Z Q
 ;
S8 D:'SW S4 S (OLP,@("OLP"_HVJ),R)=$P(TAB(IAPT),D,$P("3\7\\11\15\\\\\19\23",D,KRE+1)+(HVJ*2)),R=R_"\12\25" D R3 I 'SW W ?38,":" I KRE'=10 S $P(TAB(IAPT),D,23+(HVJ*2))=$P(TAB(IAPT),D,23+(HVJ*2))+OLP
S8A S (ORE,@("ORE"_HVJ),R)=$P(TAB(IAPT),D,$P("2\6\\10\14\\\\\18\22",D,KRE+1)+(HVJ*2)),R=R_"\12\39" D R3 I 'SW W ?52,":" I KRE'=10 S $P(TAB(IAPT),D,22+(HVJ*2))=$P(TAB(IAPT),D,22+(HVJ*2))+ORE
S8B S (KRT,@("KRT"_HVJ),R)=OLP-ORE,R=R_"\12\53" D R3 I 'SW W ?66,":"
S8C S R=0 S:OLP R=KRT/OLP*100 S R=R_"\7\67\2" D R3 I 'SW W ?75,":" I VGL,'HVJ S SW=1 W $C(13) G S8
S8D S SW=0
S8Z Q
 ;
S9 D S4 S R=0 S:OLP1 R=OLP0-OLP1/OLP1*100 S R=R_"\10\25\2" D R3 W "% :"
S9A S R=0 S:ORE1 R=ORE0-ORE1/ORE1*100 S R=R_"\10\39\2" D R3 W "% :"
S9B S R=0 S:KRT1 R=KRT0-KRT1/KRT1*100 S R=R_"\10\53\2" D R3 W "% :        :"
S9Z Q
 ;
HD S BLZ=BLZ+1,(LN,SWLN)=0,FBPP=FBPY,KREP=KRE
HDA W !,QN,?68,$P($T(T19),U,2),$J(BLZ,3),!,NM2,?32,$P($P($T(+1),U,2)," ",1,3),?68,DT,!,NM3,?32,$P($T(T28),U,2),$P($T(T28),U,$F("APT",APT)+1),?69,TD,!!
HDB W !,$P($T(T33),U,2),!,$P($T(T34),U,2),$P($T(T29),U,$F("APT",APT)),$P($T(T34),U,3),!,$P($T(T33),U,2)
HDZ Q
 ;