KBSBK G 1 ;BEHEER PRIJSVERGELIJK KLANTEN ;KBSBK; [ 01/05/2001  3:20 PM ]
 ;
1 S K=$P($T(+1),";",2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
2 S K=$G(^KLPUTZ("AS")) I K=0 S FP=2403+F60 W @F,@F4,"OPGELET ! DE SCHADUWUITZONDERINGEN ZIJN NIET AKTIEF  [] = ok ",@F5,@F0 R K
 S FP=253 W @F,@F6,"REFERENTIEDATUM",@F5,": "
3 S FP=980 W @F,@F1,@F5 S FP=902 W @F,@F4,"NR|PRODUKTNAAM              |RE AANT|FI AANT|PL| HUIDIGE PR| SCHADUW PR|MNT| ",@F5
4 S BS="\\\\\\\\\\\\\\\\\\\\\\\\\\",RVW="BEPALEN",SW69=$D(@("^"_Q_"PR(0,""PNR"")")),Y=$N(@("^"_Q_"PR(0,"" "")")),Y=" "
5 S Y=$N(^(Y)) I Y'=-1 S @Y=^(Y) G 5
6 S BPX=DJ-1_"."_DM,FP=272 W @F,@F2
 S R="K\22\3\OVERZICHT VANAF PERIODE\"".[] = vanaf het begin   [] = "_BPX
 S R=R_"   onder de vorm jjjj.mm""\7\\"";;-;.;""[(U_K_U)!(K?4N1"".""2N&$E(K,6,7)&($E(K,6,7)<13))"
 D R0 G YZ:K="-" S:K="." K=@("^"_Q_"STKL(0,0,1)") I $L(K) S BPX=K
 S FP=272 W @F,"01.",$E(BPX,6,7),".",$E(BPX,3,4)
 S BPX=$J(BPX-.01,0,2)_" "
7 K @("^"_Q_"HULP($J)") S FP=401 W @F,@F2 S FP=501 W @F,@F2 S FP=601 W @F,@F2 S FP=701 W @F,@F2 S FP=1001 W @F,@F1
8 S R="KL\2000\KLANT\KL\K1" D R1 G YZ:K="-" S X=^(KL,0),KC=$P(X,D,1),FP=408 W @F,@F5 S FP=402 W @F,@F6,"KLANT",@F5,": ",$P(X,D,1)," ",$P(X,D,2)
9 S FP=511 W @F,$P(X,D,5) S FP=611 W @F,$P(X,D,6),"   ",$P(X,D,7) S FP=711 W @F,$P(X,D,13)
90 S KV=$P(X,D,11),X=^(2),KPL=$P(X,D,3),KKN=$P(X,D,5),KPLS=$P(X,D,25) S:'$L(KPLS) KPLS=KPL S:KV="" KV=$$FADEF^vhRtn1()
 S KYW=$$GetKlantType^KLANT5(KC)
10 S X=^KKL(KL,2),FP=550 W @F,@F5 S FP=541 W @F,@F6,"REELE-PK",@F5,": ",$P("CONS\PLUS\LIJST\RABAT\SPIL\BASIS\GROOT",D,$F("CPLRSBG",$P(X,D,3))-1)
11 S FP=750 W @F,@F5 S FP=741 W @F,@F6,"SCHAD-PK",@F5,": ",$P("CONS\PLUS\LIJST\RABAT\SPIL\BASIS\GROOT",D,$F("CPLRSBG",$P(X,D,25))-1)
12 S FP=572 W @F,@F5 S FP=561 W @F,@F6,"REELE-UITZ",@F5,": " W $S($D(^KLPUTZ("N",KC)):"JA",1:"NEEN")
13 S FP=772 W @F,@F5 S FP=761 W @F,@F6,"SCHAD-UITZ",@F5,": " W $S($D(^KLPUTZ("S",KC)):"JA",1:"NEEN")
15 S FP=1001 W @F,@F1 D ^KBSBKD
17 S FP=1901+F60 W @F,@F1 S R="K\22\3\SELEKTEER\CS1\1\\""-.DVWRO""[K&($L(K)=1)!($L(K)>1)" D R0 G 7:K="-"
19 I K'="." D @("^"_$S(K="W":"KBSBKW",K="R":"KBSBKD",K="V":"KBSBKV",K="O":"KBSBKO",1:"KBSBKD"))
 I K="." F  S FP=2001 W @F,@F1 S PR=$$SELECT^PRODUKT6() Q:'PR  D 7^KBSBKP
 G 17
YZ Q
 ;
R1 D ^cA101 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,$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
 ;
CS1 W !?2,".[] = Produkt   V[] = verw lijn   D[] = detail    O[] = orig situatie"
CS1Z W !?2,"                W[] = wijz lijn   R[] = rangsch" Q
 ;
 Q
Z X ^cZ Q
ZZ ; 21.04.88 - 12 u 29