KKCHKKL ;KONTROLE OP GELDIGHEID MET KLANTSELECTIE ;KKCHKKL; [ 10/04/1999  4:37 PM ]
 G 1
 ;
 ; Kontrole routine
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
 ;
 ;
 ; Ophalen data van de klant
1 K A S K=KL S:K?.N I=$D(@$ZR),K=^(K) S A(0)=@("^"_Q_"KL(K,0)") F I=1:1:SW3-1 S A(I)=$G(^(I))
 ;
 ; Kontrole op geldigheid
2 S I=100,OK=1
21 S I=$N(B(I)) I I'=-1 S X=$P(A(I\100-1),D,I#100) D S2 G 21:OK
 Q
 ;