KPSELH G 1 ;SELEKTIE VOOR LISTINGS ;KPSEL;Quit naar KPSELF [ 08/05/2002  10:20 AM ]
 ;
T1 ;IN ALFABETISCHE ORDE VANAF 
T2 ;IN ALFABETISCHE ORDE TOT 
T3 ;Vanaf product : 
T4 ;Tot product : 
T5 ;VANAF HET BEGIN
T6 ;VOLGENS\";K[] = klassif.   ;L[] = leveranc.   ;P[] = productkode   ;B[] = bepaalde   
T7 ;TOT HET EINDE
T8 ;VOLGENS ;KLASSIFIKATIE;LEVERANCIER;PRODUCTKODE;BEPAALDE PRODUCTEN
 ;
1 G 14:QP B 1 S I=$N(@("^"_Q_"PP1(PP(1),"""")")),I=""
11 S I=$N(^(I)) I I'=-1 S @I=^(I) G 11
13 I $P(QP(3),D,1)=1,'$P(QP(3),D,2) K @("^"_Q_"PP1(PP(1))") K:$N(^(0))=-1 ^(0) K @("^"_Q_"PP(QP(1),QP(2))") K:$N(^(0))=-1 ^(0)
14 K PP S NM2=@("^"_Q_"BA(99,2)"),NM3=^(3) I 'QP G YZ
15 K HG,HGX,GR,GRX,SG,SGX,MK,MKX,LE,LEX,PRC,PRCX
16 S FP=601 W @F,@F1 I $L($P(LSTX,D,1))=1 G YZ:K="-" S (LST,K)=$P(LSTX,D,1) G 17
160 S R="LST\23\3\"_DOC_$P($T(T6),U,2) S:$P(LSTX,D,1)["K" R=R_$P($T(T6),U,3) S:$P(LSTX,D,1)["L" R=R_$P($T(T6),U,4) S:$P(LSTX,D,1)["P" R=R_$P($T(T6),U,5) S:$P(LSTX,D,1)["B" R=R_$P($T(T6),U,6)
162 S R=R_$P(LSTX,D,2)_"""\1\\""-"_$P(LSTX,D,1)_"""[K&$L(K)" D R0 G YZ:K="-" S FP=603 W @F,@F1 I "KLPB"[K W DOC,$P($T(T8),U,2),$P($T(T8),U,$F("KLPB",K)+1)
17 G YZ:"KLPB"'[K I K'="P" D @("^KPSEL"_$S(K="K":"Q",K="L":"R",1:"O")) G 15:K="-",YZ
18 S FP=801 W @F,$C(13),?2,$P($T(T1),U,2),$P(Q3,D,1),?(30+$L($P(Q3,D,1))),":",@F2
19 S FP=1001 W @F,$C(13),?2,$P($T(T2),U,2),$P(Q3,D,1),?(30+$L($P(Q3,D,1))),":",@F2
 ;
2 S K=$$SELECT^PRODUKT6("","","",$P($T(T3),U,2)) G 15:K="-"
21 I K="." S @(Q1_"C")=0,K=$P($T(T5),U,2)
22 E  S @(Q1_"C")=$$COMPR^PRODUKT(K),K=$P(@("^"_Q_Q1_"(K,0)"),D,1)
24 S FP=833+$L($P(Q3,D,1)) W @F,K,@F2
25 S K=$$SELECT^PRODUKT6("","","",$P($T(T4),U,2)) G 2:K="-"
26 I K="." S @(Q1_"CX")="ZZZZZ",K=$P($T(T7),U,2) G 29
28 S @(Q1_"CX")=$$COMPR^PRODUKT(K) G 25:@(Q1_"C")]@(Q1_"CX") S K=$P(@("^"_Q_Q1_"(K,0)"),D,1)
29 S FP=1033+$L($P(Q3,D,1)) W @F,K,@F2 S FP=2101 W @F,@F1
 ;
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 W @F2 I $L(K)'>R6,@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  ;V4 03.10.84
 ;