KPLK2 G 1 ;PRIJSVERGELIJK PER KLANT ;KPLK2; Go van KPLK1 - Do naar KPLK3 [ 04/03/2001  2:00 PM ]
 ;
S0 S Y=$P(B(I),D,1),J=$P(">\'<\=\<\'>\'=",D,$P(B(I),D,2)) G S0C:$L(J)
S0A 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
S0B G S0Z
S0C 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
S0D E  S OK="S OK=X"_J_"Y" X OK
S0Z Q
 ;
1 ;    het drukken van de info
3 D INIT^vhPRINTER(132) G YZ:'$D(Print)
 K @("^"_Q_"HULP($J)")
300 S BLZ=0,I=100 G 4:$N(B(I))=-1 D HD^KPLK3,^KSELO
4 I KL'=0 S X=$D(@Q0) G 6:X
5 S KL=$N(@Q0) G 67:KL=-1 I KL'?.N G 67:KL]KLX
6 S K=KL S:K?.N K=^(K) S KC=$P(K," ",2),PR=0,BP=$J(FBP-.01,0,2)_" ",BP=$N(@Q4) G 5:BP=-1!(BP]LBP)
7 S A(0)=@Q1 F I=1:1:SW3-1 S A(I)=^(I)
8 S I=100
9 S I=$N(B(I)) G 11:I=-1 S X=$P(A(I\100-1),D,I#100) D S0 G 5:'OK,9
11 D ^KPLK6 G 5
67 W # D CLOSE^vhPRINTER
 ;
YZ K @("^"_Q_"SEL($J)") Q
 ;