KKAA18 G 1 ;OVERZICHT KLANT/ARTIKEL ANALYSE PER REGIO ;KKAA18; Do naar KKAA19 [ 10/30/2001  4:15 PM ]
 ;
T1 ;HUIDIG JAAR   - 
T2 ;VORIG JAAR    - 
T3 ;HUIDIGE MAAND - 
T4 ;VORIGE MAAND  - 
T5 ;VANAF DATUM :
T6 ;TOT DATUM :
T7 ;LAATSTE TE TRANSFEREREN PERIODE : .......
T8 ;.[] = ;   onder de vorm jjjj.mm
T9 ;OK VOOR BEGIN TRANSFERT
T10 ;[] = ok   ,[] = hernemen
 ;
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))," ",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,$E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,K'[D&(K'?.E1C.E),@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  ;V5 02.01.86
 ;
K1 W !?2,$P($T(T8),U,2),EPHJ,$P($T(T8),U,3) Q
 ;
S1 S FBP="01."_$P(FBP,".",2)_"."_$E(FBP,3,4) I LBP=(DJ_"."_DM) S LBP=DT G S1B
S1A S LBP=$$EXTDATE^vhDTyp($$CALCDATE^vhDTyp($$INTDATE^vhDTyp($$CONVDATE^vhDTyp(LBP,"DM","DK")),"M","LD"),"DKP")
S1B ;W @F,@F2,FBP S FP=FP+100 W @F,@F2,LBP
S1Z Q
 ;
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 S Q0="^"_Q_"KL(KL)",Q1="^"_Q_"KL(KL,0)",Q4="^"_Q_"STKL(KC,PR,BP)"
13 ;S FP=503 W @F,@F1,$P($T(T1),U,2),$P($T(T5),U,2),!?20,$P($T(T6),U,2)
15 ;W !!!?2,$P($T(T2),U,2),$P($T(T5),U,2),!?20,$P($T(T6),U,2)
17 ;W !!!?2,$P($T(T3),U,2),$P($T(T5),U,2),!?20,$P($T(T6),U,2)
19 ;W !!!?2,$P($T(T4),U,2),$P($T(T5),U,2),!?20,$P($T(T6),U,2)
 ;
2 S EPHJ=DJ_"."_DM
21 ;S R="K\23\3\"_$P($T(T7),U,2)_"\K1\7\\"".-""[K&($L(K)=1)!(K?4N1"".""2N&($P(K,""."",2)<13)&(K'>"_DJ_"."_DM_"))" D R0 G YZ:K="-"
 S FP=2303 W @F,@F1,$P($T(T7),U,2) D K1 S FP=2337 W @F R K G YZ:K="-" I K'="." G 21:K'?4N1"."2N
23 S:K'="." EPHJ=K S BPHJ=EPHJ-1+.01 S:EPHJ#1=.12 BPHJ=EPHJ\1_".01" S BPHJ=$J(BPHJ,0,2)
25 S FP=533,FBP=BPHJ,LBP=EPHJ D S1 S BDHJ=FBP,EDHJ=LBP,FP=933,(BPVJ,FBP)=$J(BPHJ-1,0,2),(EPVJ,LBP)=$J(EPHJ-1,0,2) D S1
27 S BDVJ=FBP,EDVJ=LBP,FP=1333,(BPHM,FBP,EPHM,LBP)=EPHJ D S1 S BDHM=FBP,EDHM=LBP
29 S BPVM=EPHJ-.01 S:'(BPVM#1) BPVM=BPVM-1_".12" S FP=1733,(BPVM,FBP,EPVM,LBP)=$J(BPVM,0,2) D S1 S BDVM=FBP,EDVM=LBP
 ;
3 S R="K\23\3\"_$P($T(T9),U,2)_"\"""_$P($T(T10),U,2)_"""\1\\""-,""[K" D R0 G 2:$L(K)
31 F I="BPHJ","EPHJ","BPVJ","EPVJ","BPHM","EPHM","BPVM","EPVM" S @I=@I_" "
33 S KL=0,KLX="ZZZZZ" D ^KKAA19
 ;
4 W "~"
41 K ^HULP($J)
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 08.01.91 - 10 u 34