KY121A ;KLANTEN- LEVERANCIERSETIKETTEN ;TRANSFERT;KY121; [ 08/16/2002  3:59 PM ]
 G 1
 ;
T1 ;"Nummer",$C(9),"Naam",$C(9),"Aanspreking",$C(9),"Toenaam",$C(9),"Straat",$C(9),"Postkode",$C(9),"Gemeente",$C(9),"Land",$C(9),"Taal",$C(9),"Prijsklasse",$C(9),"Type",$C(13)
 ;
S2 S Y=$P(B(I),D,1),J=$P(">\'<\=\<\'>\'=",D,$P(B(I),D,2)) G S2C:$L(J)
S2A S OK=1 F J=1:1:$L(Y) I $E(Y,J)'="#" S OK=$E(X,J-1+$P($P(B(I),D,3),",",1))=$E(Y,J) Q:'OK
S2B G S2Z
S2C I (X'?.N)!(Y'?.N) S OK=J_"Y" S:J="<" OK="']Y&(X'=Y)" S:J=">" OK="]Y&(X'=Y)" S:J="'>" OK="']Y!(X=Y)" S:J="'<" OK="]Y!(X=Y)" S OK="S OK=X"_OK X OK
S2D E  S OK="S OK=X"_J_"Y" X OK
S2Z Q
 ;
1 S @Q1=@(Q1_"S")
 ;
 ;    transfert van de info
 W @$P($T(T1),U,2)
25 I @Q1'=0 S X=$D(@Q0) G 29:X
27 S @Q1=$N(@Q0) G Y:@Q1=-1 I @Q1'?.N G Y:@Q1]@(Q1_"X")
29 S K=@Q1 S:K?.N K=^(K) S A(0)=@("^"_Q_Q1_"(K,0)") F I=1:1:SW3-1 S A(I)="" I $D(^(I)) S A(I)=^(I)
 ;
3 S I=100
31 S I=$N(B(I)) G 4:I=-1 S X=$P(A(I\100-1),D,I#100) D S2 G 27:'OK,31
 ;
4 S $P(A(0),D,8)=$$LAND^vhRtn1($P(A(0),D,8))
 S:$P(A(0),D,8)="BE" $P(A(0),D,8)=""
 I $P(A(0),D,9)="" S $P(A(0),D,9)="N"
 I $L($P(A(0),D,8)) S $P(A(0),D,8)=$$LAND^vhRtn1($P(A(0),D,8),2,$P(A(0),D,9))
 W $P(A(0),D,1),$C(9),$P(A(0),D,2),$C(9),$P(A(0),D,4),$C(9),$P(A(0),D,3),$C(9)
 W $P(A(0),D,5),$C(9),$P(A(0),D,6),$C(9),$P(A(0),D,7),$C(9),$P(A(0),D,8),$C(9)
 W $P(A(0),D,9),$C(9),$P(A(2),D,3),$C(9),$P(A(1),D,25),$C(13) G 27
 ;
Y ;
YZ K @("^"_Q_"SEL($J)") 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
 ;
 Q
Z X ^cZ Q
ZZ ; 10.01.92 -  9 u 23