KSELH G 1 ;SELEKTIE VOOR LISTINGS ;KSEL;Quit naar KSELF - Do naar KSELG [ 08/06/2002   8:43 AM ]
 ;
T1 ;IN ALFABETISCHE ORDE VANAF 
T2 ;IN ALFABETISCHE ORDE TOT 
T3 ;VANAF ;\".[] = vanaf het begin   [] = specifieke 
T4 ;TOT ;\"I[] = idem als voorgaande   .[] = tot het einde   [] = specifieke 
T5 ;VANAF HET BEGIN
T6 ;DE 
T7 ;TOT HET EINDE
 ;
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),Q0="^"_Q_Q1_"("_Q1_")" I 'QP G YZ
15 I $D(KSEL),'KSEL S @Q1=0,@(Q1_"X")="ZZZZZ" G YZ
16 I $D(KSEL) D ^KSELG G YZ:K'="."
17 S FP=801 W @F,@F1,$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 R="K\23\3\"_$P($T(T3),U,2)_$P(Q3,D,1)_$P($T(T3),U,3)_$P(Q3,D,2)_"""\1\\"".-""[K" D R0 I K="-" G 16:$D(KSEL),YZ
21 I K="." S @Q1=0,K=$P($T(T5),U,2)
22 E  S R="@Q1\2000\"_$P($T(T6),U,2)_$P(Q3,D,1)_D_Q1_D_Q2 D R1 G 2:K="-" S K=$P(K," ",2)_" "_$P(^(K,0),D,2)
24 S FP=833+$L($P(Q3,D,1)) W @F,K,@F2
25 S R="K\23\3\"_$P($T(T4),U,2)_$P(Q3,D,1)_$P($T(T4),U,3)_$P(Q3,D,2)_"""\1\\""-.""[K!(K=""I""&(@Q1'=0))" D R0 G 2:K="-"
26 I K="." S @(Q1_"X")="ZZZZZ",K=$P($T(T7),U,2) G 29
27 I K="I" S @(Q1_"X")=@Q1,K=$P(@Q1," ",2)_" "_$P(@("^"_Q_Q1_"(@Q1,0)"),D,2) G 29
28 S R="@(Q1_""X"")\2000\"_$P($T(T6),U,2)_$P(Q3,D,1)_D_Q1_D_Q2 D R1 G 25:K="-",28:@Q1]@(Q1_"X") S K=$P(K," ",2)_" "_$P(^(K,0),D,2)
29 S FP=1033+$L($P(Q3,D,1)) W @F,K,@F2
 ;
3 I @Q1'?.N S:'$D(Q0) @Q1=$P(@Q1," ",1)_" "_($P(@Q1," ",2)-1) S:$D(Q0) @Q1=$O(@Q0,-1) S:@Q1="" @Q1=0
 ;
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
 ;
R1 
 N Sel
 S Sel=$P(R,D),FP=$P(R,D,2)+1 W @F,@F1
 I Q1="KL"!(Q1="LE") D  G R1Z
 .I Q1="KL" S K=$$SELECT^KLANT6()
 .I Q1="LE" S K=$$SELECT^LEVER()
 .S:K="." K="-" Q:K="-"
 .S (K,@Sel)=@("^"_Q_Q2_"(K)"),Sel=$D(@("^"_Q_Q1_"(Sel)"))
 D ^cA101 Q
R1Z S FP=$P(R,D,2)+1 W @F,@F1
 Q
 ;