KOFKL9 G 1 ;MODULE VIA PRODUKTSELEKTIES;Quit naar %F10 [ 08/05/2002  11:22 AM ]
 ;
T1 ;DE SELEKTIE
T2 ;SELECTIE
T3 ;SELEKTIE VIA PRODUKTSELEKTIES ONMOGELIJK  [] = ok 
T4 ;VOLGENS
T5 ;K[] = klassif.   L[] = leveranc.   P[] = produktkode
T6 ;PRODUKTKODE;KLASSIFIKATIE;LEVERANCIER
T7 ;IN ALFABETISCHE ORDE VANAF PRODUKTKODE :
T8 ;IN ALFABETISCHE ORDE TOT PRODUKTKODE   :
T9 ;VANAF PRODUKTKODE
T10 ;.[] = vanaf het begin   [] = specifieke produktkode
T11 ;VANAF HET BEGIN
T12 ;TOT PRODUKTKODE
T13 ;I[] = idem als voorgaande   .[] = tot het einde   [] = specifieke produktkode
T14 ;TOT HET EINDE
 ;
1 S R="K\2000\"_$P($T(T1),U,2)_"\SL\SL1" D S4 I K="-" D ^KOFKL3 G 5
13 S K=^(K,0),SEL=$P(K,D,1),UL=+UD,FP=UD*100+1 W @F,@F1,$C(13),?2,$P($T(T2),U,2)," ",$P(K,D,1),"   ",$P(K,D,2)
15 G 1:K="-" S (K,LST)="K" ;S R="LST\23\3\"_$P($T(T4),U,2)_"\"""_$P($T(T5),U,2)_"""\1\\""-KLP""[K&$L(K)" D R0 G 1:K="-"
17 S FP=UD+1*100+3 W @F,@F1,$P($T(T4),U,2)," ",$P($T(T6),U,$F("PKL",K))
19 I K'="P" D @("^KOFKL"_$S(K="K":10,1:11)) G 15:K="-",4
 ;
2 S FP=UD+3*100+3 W @F,$P($T(T7),U,2),!?2,$P($T(T8),U,2)
21 S R="K\23\3\"_$P($T(T9),U,2)_"\"""_$P($T(T10),U,2)_"""\1\\""-.""[K" D R0 G 15:K="-"
23 I K="." S K=$P($T(T11),U,2),(PRB,X)=0
25 E  S R="K\2000\"_$P($T(T6),U,2)_"\PR\PR1" D R7^cA107 G 21:K="-" S PRB=$P(@("^"_Q_"PR1(K)"),D,1),(K,X)=$P(@("^"_Q_"PR(PRB,0)"),D,1)
27 S FP=UD+3*100+44 W @F,@F2,K
 ;
3 S R="K\23\3\"_$P($T(T12),U,2)_"\"""_$P($T(T13),U,2)_"""\1\\""-.""[K!(K=""I""&(PRB'=0))" D R0 G 21:K="-"
31 I K="." S K=$P($T(T14),U,2),PRE="ZZZZZ" G 37
33 I K="I" S PRE=PRB,K=$P(@("^"_Q_"PR(PRE,0)"),D,1) G 37
35 S R="K\2000\"_$P($T(T6),U,2)_"\PR\PR1" D R7^cA107 G 3:K="-" S PRE=$P(@("^"_Q_"PR1(K)"),D,1),K=$P(@("^"_Q_"PR(PRE,0)"),D,1) G 35:X]K
37 S FP=UD+4*100+44 W @F,@F2,K
39 S (HGB,HGE,GRB,GRE,SGB,SGE)=""
 ;
4 I '$D(@("^"_Q_UGL_"(KC,US,UR,""ZZZZPS"",0)")) S ^(0)=101
41 S UZ=^(0),^(0)=UZ+1,^(UZ)=SEL_D_LST_D_HGB_D_HGE_D_GRB_D_GRE_D_SGB_D_SGE_D_PRB_D_PRE
 ;
5 S K="-" K X1,X2,I
 ;
YZ Q
 ;
R0 S R7=1 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,K'[D&(K'?.E1C.E),@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  ;V5 02.01.86
 ;
S4 S R4=$P(R,D,2)+1,R0=0,RA=$P(R,D,3),R8="^"_Q_$P(R,D,4),R9="^"_Q_$P(R,D,5),FP=R4 W @F,@F1
S4A X ^cTXT(0,"N",15)
S4B R K G S4A:K?.E1C.E!(K?20N.N) S:$L(K) R0=0 S FP=R4 W @F,@F1 G S4Z:K="-" I K="" S R1=R4 G S4H:R0,S4D
S4C G S4D:K'?.N,S4K:'$D(@(R9_"(""PR"",K)")) S R3=^(K) I $D(@(R8_"(""PR"",R3)")) G S4M
S4D S R6=$$UPTRIMAN^vhRtn1(K)
S4E S R5=$E(R6,1,24) S:R6="" R5=" " S R1=R4,R2=R5,(R2,R3)=$N(@(R8_"(""PR"",R2)")) G S4K:R2=-1 S R2=$N(^(R2))
S4F I $E(R2,1,$L(R6))'=R6&'R0&($E(R3,1,$L(R6))=R6) S R7=$D(^(R3)) G S4M
S4G S R2=R5
S4H S R2=$N(@(R8_"(""PR"",R2)")) G S4K:($E(R2,1,$L(R6))]R6)&'R0&(R1=R4) G S4L:R2=-1 I $E(R2,1,$L(R6))'=R6 S R0=0 G S4A
S4I S FP=R1 W @F,$C(13),$J(+^(R2,0),6),?7,$P(^(0),D,2)
S4J S R1=R1+100 G S4H:R1<(2300+F60) S R0=1 G S4A
S4K X ^cTXT(0,"N",8) R K
S4L S (R2,R0)=0 G S4A
S4M S (@$P(R,D,1),K)=R3
S4Z K R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,RA Q  ;V4 23.05.85
 ;
 Q
Z X ^cZ Q
ZZ ; 01.06.88 - 12 u 24