KKMPV ;KLANTEN MET PRODUKTEN VAN ... ;KKMPV; [ 02/14/2001  1:35 PM ]
 G 1
 ;
T2 ;Klanten geselekteerd :
T3 ;"KLNr";C;L;4;;|\"KLNaam";C;L;10;;|\"Toenaam";C;L;10;;|\"Aanspr";C;L;8;;|\"Adres";C;L;10;;|\"PostNr";C;L;10;;|\"WoonPlaats";C;L;10;;|\"Land";C;L;9;;|\"Taal";C;L;1;;
T4 ;1;C;L;4;;|\2;C;L;10;;|\3;C;L;10;;|\4;C;L;8;;|\5;C;L;10;;|\6;C;L;10;;|\7;C;L;10;;|\8;C;L;9;;|\9;C;L;1;;
 ;
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
 ;
 ;    initialisatie + vraag
1 S K=$P($T(+1),U,2),FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 S R="K\2000\DE LEVERANCIER\LE\L1" D ^cA101 G YZ:K="-"
13 S LC=$P(^KLE(K,0),D,1),FP=198+$L($P($T(+1),U,2)) W @F,@F1,@F4,LC," ",$P(^(0),D,2)," ",@F5
15 S KSEL=1 D KP^KSEL G 11:K="-"
17 S Begin=(DJ-1)_"."_DM_" "
19 S FP=2303 w @F,@F1,!?2,$P($T(T2),U,2)
 ;
 ;    het verzamelen van de info
2 K ^HULP($J) S (Teller,Count)=0
25 I KL'=0 S X=$D(@Q0) G 29:X
27 S KL=$N(@Q0) I KL=-1!(KL]KLX) G 4
29 S K=KL S:K?.N K=^(K) S A(0)=@("^"_Q_"KL(K,0)") F I=1:1:SW3-1 S A(I)=^(I)
 ;
3 S I=100
31 S I=$N(B(I)) I I'=-1 S X=$P(A(I\100-1),D,I#100) D S2 G 27:'OK,31
33 S Teller=Teller+1 I '(Teller#10) S FP=2426 W @F,Teller," (",$P(A(0),D,1)," ",$P(A(0),D,2),")",@F1
35 S KC=$P(A(0),D,1),PR=0 I $O(^KSTKL(KC,PR,Begin))="" G 27
36 S PR=$O(^KSTKL(PR)) G 27:PR="" I $O(^KSTKL(KC,PR,Begin))="" G 36
37 S R=$O(^KPR(PR,"J")) G 36:$E(R)='"J",36:$E(R,2,9)'=LC
 S R=$P(A(0),D,1,9),$P(R,D,8)=$$LAND^vhRtn1($P(R,D,8)) S:$P(R,D,8)="BE" $P(R,D,8)=""
38 S:$L($P(R,D,8)) $P(R,D,8)=$$LAND^vhRtn1($P(R,D,8),2,$P(R,D,9))
39 S Count=Count+1,^HULP($J,Count)=R G 27
 ;
 ;    het drukken van de info
4 S DL(1)="LD",LD(1)="^HULP("_$J,LD(2)=$P($T(T4),U,2,99),LD(3)=4,LD(6)=1,LD(8)=$P($T(T3),U,2,99)
 D ^OUTPUT("T","-","")
 ;
YZ K ^HULP($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
 ;
Z X ^cZ Q
ZZ ; 28.04.88 - 15 u 19