KKOV10 G 1 ;REGISTRATIE KONKURENTIEOVERZICHT (MODULE PRODUKTLIJN);KKOV1;Quit naar KKOV4 [ 06/26/2001  11:11 AM ]
 ;
KLAS 
 New KlasKey
 Kill HG,GR,NIV
 Set FP=1703 Write @F,@F1,"Klassificatie : "
 Set KlasKey=$$SELECT^KLASS(-2,1)
 Set R="" If 'KlasKey Set R="-" Quit
 For I=1:1:$P(KlasKey,D,2) Set NIV=$P("H\G",D,I),@$P("HG\GR",D,I)=$$GETSORT^KLASS($P(KlasKey,D),I)
 Set FP=1719 Write @F,@F1,$$DISPLS^KLASS($$GETSORT^KLASS($P(KlasKey,D),$P(KlasKey,D,2)))
 Quit
 ;
FABR S FP=1903 W @F,@F1,"Fabrikant  : .",!?2,". = onbekend   [] = bepaalde"
FABR1 K IK D IK^PROC1 S:R="." R="?" S K=R I R="?" S K="onbekend",(FAC,UG)=""
FABR2 G FABRZ:R="-",FABR1:"?ENTER"'[R I R="?" S FP=1916 W @F,K G FABRZ
FABR3 S K=$$SELECT^FABRIKAN() G FABR:K="-" I K="." S R="?",K="onbekend",(FAC,UG)="" G FABR2
 S K=@("^"_Q_"FAB(@(""^""_Q_""FAB1(K)""),0)"),FAC=$P(K,D,1),UG=$P(K,D,10)
FABR4 S FP=1916 W @F,@F1,FAC," ",$P(K,D,2)
FABRZ Q
 ;
VERD S FP=2003 W @F,@F1,"Verdeler   : .",!?2,". = onbekend   [] = bepaalde"
VERD1 K IK D IK^PROC1 S:R="." R="?" S K=R I R="?" S K="onbekend",(VEC,UGK)=""
VERD2 G VERDZ:R="-",VERD1:"?ENTER"'[R I R="?" S FP=2016 W @F,K G VERDZ
VERD3 S K=$$SELECT^VERDELER() G VERD:K="-" I K="." S R="?",K="onbekend",(VEC,UGK)="" G VERD2
 S K=@("^"_Q_"VER(@(""^""_Q_""VER1(K)""),0)"),VEC=$P(K,D,1),UGK=$P(K,D,10)
VERD4 S FP=2016 W @F,@F1,VEC," ",$P(K,D,2)
VERDZ Q
 ;
AANT S R="UA\21\3\Stuks     \\8\\K?.N!(K=""-"")" D R0
 Q
 ;
AFN S R="UF\23\3\Afnames   \\3\\K?.N!(K=""-"")" D R0
 Q
 ;
PRIJS S R="K\22\3\Prijs     \\11\\K?.N!(K?.N1"".""1N)!(K?.N."".""2N)!(K=""-"")" D R0 I K'="-" S UEP=$J(K,0,2)
 Q
 ;
WHG S ^KKOV(KC,HG,0,0,0)=K,GR=0
WHGZ Q
 ;
WGR S ^KKOV(KC,HG,GR,+VEC,+FAC)=R I $D(^KKOV(KC,HG,0,0,0)) S K=^(0) G WGRZ:'$L($P(K,D,8))
WGR1 S GRS=0,$P(K,D,8)="*" F I=1,3,11,12,14,15 S $P(K,D,I)=""
WGR2 S GRS=$N(^KKOV(KC,HG,GRS)) G WGR7:GRS=-1 S VECS=-1
WGR3 S VECS=$N(^KKOV(KC,HG,GRS,VECS)) G WGR2:VECS=-1 S FACS=-1
WGR4 S FACS=$N(^KKOV(KC,HG,GRS,VECS,FACS)) G WGR3:FACS=-1
WGR5 S R=^(FACS) F I=3,12 S $P(K,D,I)=$P(K,D,I)+$P(R,D,I)
WGR6 G WGR4
WGR7 S ^KKOV(KC,HG,0,0,0)=K
WGRZ Q
 ;
1 S SW12=1 K UG,UGK,UO,UA,UF,UEP,B,HG,GR
11 D KLAS I R="-" S K=R,FP=$P(UD,D,2)+1*100+1 W @F,@F1 G YZ
13 S UO=HG I NIV="G" S UO="    "_$$DISPLS^KLASS(GR)_" " G 17
15 I $D(^KKOV(KC,HG,0,0,0)) S GR=0,L=^(0),$P(L,D,26,99)=HG_D_GR G 2^KKOV7
16 I NIV="H" S (FAC,UG,VEC,UGK)="",FP=1801 W @F,@F1 G 2
17 D FABR G 11:K="-"
18 D VERD G 17:K="-"
19 I $D(^KKOV(KC,HG,GR,+VEC,+FAC)) S L=^(+FAC),FABR=$P(L,D,14),FABR1=$P(L,D,1),VERD=$P(L,D,15),VERD1=$P(L,D,11),$P(L,D,26,99)=HG_D_GR G 4^KKOV7
 ;
2 D AANT I K="-" G 18:NIV="G",11
21 D PRIJS G 2:K="-"
23 D AFN G 21:K="-"
 ;
3 S K="",$P(K,D,26)=D,$P(K,D,1)=UG,$P(K,D,3)=UA,$P(K,D,5)=UO,$P(K,D,6)=UEP,$P(K,D,11)=UGK,$P(K,D,12)=UF
31 S $P(K,D,14)=FAC,$P(K,D,15)=VEC,$P(K,D,17)="KKOV10",$P(K,D,21)=NIV,$P(K,D,22)=$$FADEF^vhRtn1()
 ;
4 K UG,UC,UA,UE,UO,UEP,UK,UB,UN,UH,UGK,UF,UBE,UM,USP,UMC,URD,ULT,UZ
41 S R=K,$P(K,D,5)=$$DISPLS^KLASS(HG)_" " D @("W"_$S(NIV="H":"HG",1:"GR"))
 ;
5 S K=HG_D_GR_D_VEC_D_FAC D ^KKOV5 S FP=$P(UD,D,2)*100+1 W @F,@F1
 ;
YZ K FAC,FACS,VEC,VECS,NIV,HG,GR,B,H,G,UG,UGK,UO,UA,UF,UEP 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
 ;