KKFI5 G 1 ;KONKURENTIEOVERZICHT ;KKFI1; Quit naar KKFI4 [ 06/25/2002  11:01 AM ]
 ;
T1 ;BLZ:
T2 ;PRODUKTENINFO
T3 ;": HG- GR-                        : M : STUKS/AFN : FABR : VERD :   PRIJS - "_$$MUNT^vhRtn1(,1)_" :"
T4 ;:--------------------------------:---:-----------:------:------:---------------:
T5 ;INFO
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D,1),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) G R3B: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  ;V1 26.11.84
 ;
1 S HG=100 I LN>60 W # D HD
11 S HG=$N(^KKOV(KC,HG)) I HG=-1 W !,$P($T(T4),U,2) G YZ
 S GR=-1
12 S GR=$N(^KKOV(KC,HG,GR)) G 11:GR=-1 S VEC=-1
13 S VEC=$N(^KKOV(KC,HG,GR,VEC)) G 12:VEC=-1 S FAC=-1
15 S FAC=$N(^KKOV(KC,HG,GR,VEC,FAC)) G 13:FAC=-1 S U2=^(FAC) I 'FAC S $P(U2,D,25)=1
19 S LN=LN+1 I LN>60 W !,$P($T(T4),U,2),# D HD G 19
 ;
2 W !,": ",$P(U2,D,5),?33,": ",$P("*",D,$P(U2,D,25)+1),?37,":" S R=$P(U2,D,3)_"\7\38\0" D:+R R3 W:$P(U2,D,12) $C(13),?45,"/",$J($P(U2,D,12),2)
21 W ?49,":",$J($P(U2,D,1),5),?56,":",$J($P(U2,D,11),5),?63,":"
23 I $P(U2,D,6) S R=$P(U2,D,6)_"\10\68\2" D R3
25 W ?79,":" G 15
 ;
YZ K R,X,U2 Q
 ;
HD S BLZ=BLZ+1,LN=0 W !?3,$P($T(T1),U,2),$J(BLZ,4),!?3,DT F X=1:1:3 W $C(13),?30,$P(B(1),D,1)," ",$P(B(1),D,2)
HDA W !?3,TD F X=1:1:3 W $C(13),?30,$P($T(T5),U,2)
HDB W !!!
HDC F I=I=1:1:3 W $C(13),?30,$P($T(T2),U,2)
HDD W !,$P($T(T4),U,2),!,@$P($T(T3),U,2),!,$P($T(T4),U,2)
HDZ Q
 ;