KKOV1 G 1 ;REGISTRATIE KONKURENTIEOVERZICHT (SELEKTIE KLANT);KKOV1; [ 09/12/2000  1:16 PM ]
 ;
1 S UGL="KOV"
3 S U=";",X=@("^"_Q_UGL_"(0,0)") F I="UD","UT","UTL","USM","USC","UV","UUM" S @I=^(I)
5 S UVV=$P($P(UV," ",2),"=",2) X X,UT K X,UT G 19
9 S U1=@("^"_Q_UGL_"(0,0)"),U1=100 L
11 S U1=$N(^(U1)) G 19:U1'?.N S U2=^(U1),FP=$P(U2,U,2)*100+$P(U2,U,3) W @F,"  "
15 I '$P(U2,U,23) S FP=$P(U2,U,2)*100+$P(U2,U,3) W @F,$J("",$P(U2,U,6)-$P(U2,U,3))
17 S FP=$P(U2,U,5)*100+$P(U2,U,6) W @F,$J("",$P(U2,U,9)),$J("",$P(U2,U,13)) G 11
19 S UTEL=0,UL=+UD,FP=UD*100+1 W @F,@F1 K UTA,UTB,LN S (L(6),L(7))=1
21 S (KC,K)=$$SELECT^KLANT6() G YZ:K="-" I $D(@("^"_Q_UGL_"(KC)")) D ^KKOV3 G 25
23 D ^KKOV2,^KKOV5
25 L @("^"_Q_UGL_"(KC)"):2 E  S FP=2403+F60 W @F,@F2,@F4,"OVERZICHT IN GEBRUIK  [] = ok ",@F5,@F0 R K G 9
27 D ^KKOV4 K:$N(@("^"_Q_UGL_"(KC,100)"))=-1 @("^"_Q_UGL_"(KC)")
29 D WIJZ^LOG("KLPOT",KC) G 9
 ;
YZ 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 W $E("........................................",1,R6),@F,@F0
R0D R K S:$P(R,D,7)="DCTR" RD=$P(K,".",1),RM=$P(K,".",2),RJ=$P(K,".",3) W @F2 I $L(K)'>R6,@R7 S @$P(R,D,1)=K G R0F
R0E G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$E("                                        ",1,R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7,RD,RM,RJ Q
 ;
Z X ^cZ Q
ZZ ; 16.09.91 - 14 u 11