KKOV7 G 1 ;BEHEER KONKURENTIEOVERZICHT (WIJZIGEN LIJNEN); Quit naar KKOV4 [ 10/31/2001  2:58 PM ]
 ;
T1 ;  [] = ok 
T2 ; Lijn niet wijzigbaar
 ;
O1 S K=$P($T(T2),U,2) G OY
OY S FP=2403 W @F,@F1,@FMTI,K,$P($T(T1),U,2),@FMTi,@F0 K IK D IK^PROC1
OZ Q
 ;
AANT S R="UA\21\3\Stuks     \""[] = "_$P(L,D,3)_"""\8\\K?.N!(""-""[K)" D R0
AANT1 I K="" S UA=$P(L,D,3),FP=2116 W @F,@F1,UA
 Q
 ;
AFN S R="UF\23\3\Afnames   \""[] = "_$P(L,D,12)_"""\3\\K?.N!(""-""[K)" D R0
AFN1 I K="" S UF=$P(L,D,12),FP=2316 W @F,@F1,UF
 Q
 ;
PRIJS S R="K\22\3\Prijs     \""[] = "_$P(L,D,6)_"""\11\\K?.N!(K?.N1"".""1N)!(K?.N."".""2N)!(""-""[K)" D R0
 I K'="-" S UEP=$J(K,0,2)
PRIJS2 I K="" S UEP=$P(L,D,6),FP=2216 W @F,@F1,UEP
 Q
 ;
1 S SW12=1 I L(6),'$D(LN(L(6))) G YZ
11 S L=LN(L(6)) G 17:$P(L,D,17)'="KKOV11"
13 S R="K\23\3\TEKST\""[] = "_$P(L,D,5)_"""\"_UTL_"\\1\\" D R0 G YZ:"-"[K
15 S $P(L,D,5)=K,HG=$P(L,D,26),GR=$P(L,D,27),$P(L,D,26,99)="",(VERD,FABR)="" G 59
17 I $P(L,D,28)="" D O1 G YZ
18 S HG=$P(L,D,26),FP=1703 W @F,@F1,"Hoofdgroep : ",$$DISPLS^KLASS(HG)
19 S GR=$P(L,D,27) I GR'=0 S FP=1803 W @F,@F1,"Groep      : ",$$DISPLS^KLASS(GR)
 ;
2 S NIV=$S($L($P(L,D,8)):$P(L,D,8),1:$P(L,D,21)),$P(L,D,8)="" I NIV'="G" S (FABR,FABR1,VERD,VERD1)="" G 4
21 S R="",(K,FABR)=$P(L,D,14),FABR1=$P(L,D,1) I $L(K),$D(^KFAB1(K)) S K=K_" "_$P(^KFAB(^(K),0),D,2),R="   ? = onbekend"
23 S:K="" K="onbekend" S FP=1903 W @F,@F1,"Fabrikant  : .",!?2,"[] = ",K,R,"   . = andere"
25 K IK D IK^PROC1 S:R="ENTER" R="" I R="?" S K="onbekend",(FABR,FABR1)=""
26 I R="-" S FP=1903 W @F,@F1 G 6
27 G 25:".?"'[R I "?"[R S FP=1916 W @F,K G 3
28 S K=$$SELECT^FABRIKAN() G 2:K="-" S K=@("^"_Q_"FAB(@(""^""_Q_""FAB1(K)""),0)"),FABR=$P(K,D,1),FABR1=$P(K,D,10)
29 S FP=1916 W @F,@F1,FABR," ",$P(K,D,2)
 ;
3 S R="",(K,VERD)=$P(L,D,15),VERD1=$P(L,D,11) I $L(K),$D(^KVER1(K)) S K=K_" "_$P(^KVER(^(K),0),D,2),R="   ? = onbekend"
31 S:K="" K="onbekend" S FP=2003 W @F,@F1,"Verdeler   : .",!?2,"[] = ",K,R,"   . = andere"
32 K IK D IK^PROC1 S:R="ENTER" R="" I R="?" S K="onbekend",(VERD,VERD1)=""
33 I R="-" S FP=2003 W @F,@F1 G 21
34 G 32:".?"'[R I "?"[R S FP=2016 W @F,K G 4
35 S K=$$SELECT^VERDELER() G 3:K="-" S K=@("^"_Q_"VER(@(""^""_Q_""VER1(K)""),0)"),VERD=$P(K,D,1),VERD1=$P(K,D,10)
37 S FP=2016 W @F,@F1,VERD," ",$P(K,D,2)
 ;
4 D AANT I K="-" G 6:NIV'="G",3
41 D PRIJS G 4:K="-"
43 D AFN G 41:K="-"
 ;
5 I NIV="G" K ^KKOV(KC,HG,GR,+$P(L,D,15),+$P(L,D,14))
51 S $P(L,D,1)=FABR1,$P(L,D,3)=UA,$P(L,D,6)=UEP,$P(L,D,11)=VERD1,$P(L,D,12)=UF
52 S $P(L,D,14)=FABR,$P(L,D,15)=VERD,$P(L,D,26,99)=""
53 S K=^KKOV(KC,HG,0,0,0) G 59:'$L($P(K,D,8))
55 S R=LN(L(6)) F I=3,12 S $P(K,D,I)=$P(K,D,I)-$P(R,D,I)+$P(L,D,I)
57 S ^KKOV(KC,HG,0,0,0)=K
59 S ^KKOV(KC,HG,GR,+VERD,+FABR)=L,K=HG_D_GR_D_+VERD_D_+FABR D ^KKOV5
 ;
6 S FP=$P(UD,D,2)+1*100+1 W @F,@F1
 ;
YZ K FABR,FABR1,VERD,VERD1,UA,UEP,UF,NIV 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 ; 09.01.92 -  9 u 56