KY121 Q  ;KLANTEN- LEVERANCIERSETIKETTEN ;KY121; [ 12/22/2003  4:39 PM ]
 ;
T1 ;SELEKTIE : 
T2 ;SELEKTIE OP VOLGENDE VELDEN :
T4 ;AFDRUKKEN MET OF ZONDER KLANTKODE\"[] = met klantkode   .[] = zonder klantkode"
T5 ;AFDRUKKEN MET OF ZONDER LEVERANCIERSKODE\"[] = met leverancierskode   .[] = zonder leverancierskode"
T6 ;MET KLANTKODE\ZONDER KLANTKODE
T7 ;MET LEVERANCIERSKODE\ZONDER LEVERANCIERSKODE
T8 ;KLANTEN;LEVERANCIERS;ETIKETTEN 
T9 ;AFDRUKKEN OF TRANSFERT\"[] = afdrukken   T[] = transfert   B[] = beide"
 ;
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
 ;
K S Z="K" G 1
L S Z="L" G 1
 ;
1 S K=$P($T(T8),U,Z="L"+2)_$P($T(T8),U,4)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 S NVG=0,KSEL=1 D @(Z_"P^KSEL") G YZ:K="-" S @(Q1_"S")=@Q1 I NVG S KLX=NVG
13 S R="AKC\22\3\"_$P($T(@("T"_(Z="L"+4))),U,2)_"\1\\"".,-""[K" D R0 G 11:K=","!(K="-")
15 S FP=2239+(Z="L"*7) W @F,@F1,$P($P($T(@("T"_(Z="L"+6))),U,2),D,AKC="."+1)
16 S OUT="" I $P(^cLOG(boot,"DEV",$$IO^cQ5),D)="MC" S R="OUT\23\3\"_$P($T(T9),U,2)_"\1\\""-,TB""[K" D R0 G 11:K=",",13:K="-"
17 G TRANS:OUT="T"
 D INIT^vhPRINTER(80) G 11:'$D(Print)
 ;
 ;    het drukken van de info
2 S R=9 D ^KFOLE W !,$P($T(T1),U,2),X1,!,X2,# S I=100 G 25:$N(B(I))=-1 S X=3 W !,$P($T(T2),U,2),!
21 S I=$N(@("^"_Q_Q1_"(0,I)")) G 23:I=-1 S U2=^(I) G 21:'$D(B($P(U2,U,16))) S (K,U3)=$P(B($P(U2,U,16)),D,1)
22 I $P(B($P(U2,U,16)),D,2)<7,$L($P(U2,U,8)) X "S U3="_$P(U2,U,8)
220 I $P(B($P(U2,U,16)),D,2)=7 S U3=$E(PNT,1,$P($P(B($P(U2,U,16)),D,3),",",1)-1)_K_$E(PNT,1,$P(U2,U,9)-$P($P(B($P(U2,U,16)),D,3),",",2))
222 W !,$P(U2,U,1),?18,$P("> \>=\= \< \<=\<>\x=",D,$P(B($P(U2,U,16)),D,2))," ",U3 S X=X+1 G 21
23 W # ;I '(7-X#6) F I=1:1:6 W !
24 W # ;F I=1:1:7-X#6 W !
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 KC="" S:AKC="" KC=$P(A(0),D,1)
41 W ! W:$L($P(A(0),D,4)) $P(A(0),D,4)_" " W $P(A(0),D,2) W !,$P(A(0),D,3),?28,KC W !,$P(A(0),D,5)
43 W !,$P(A(0),D,6),"  ",$P(A(0),D,7),# G 27
 ;
 ;
Y S R=$P(^cLOG(boot,"DEV",$$DEV^vhPRINTER($I,1)),D,11) S:'R R=66 D ^KFOLE D CLOSE^vhPRINTER
 I OUT="B" G TRANS
YZ K @("^"_Q_"SEL($J)") Q
 ;
TRANS S FP=2203 W @F,@F1 D OUT^IO("T","^KY121A") G YZ
 ;
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
 ;