KPRLK2 G 1 ;PRIJSLIJST KLANTEN ;KPRLK2; Go van KPRLK1 - Do naar KPRLK3, KPRLK6 [ 11/29/2003  1:29 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 D INIT^vhPRINTER("L;B") Q:'$D(Print)  S V=2,HDT=1 K @("^"_Q_"HULP($J)")
2 S R=72 D ^KFOLE
3 S BLZ=0,I=100 I $N(B(I))'=-1 D ^KSELO
 ;S B(303)="P\6" ; De prijslijst moet ook afgedrukt worden voor prijslijstklanten
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) S BP=$J(FBP-.01,0,2)_" ",K=0
7 S BP=$N(^(BP)) G 8:BP=-1!(BP]LBP) S X=^(BP),K=K+$P(X,D,3) G 7
8 b  G 5:K<OOG,5:K>OBG S A(0)=@Q1 F I=1:1:SW3-1 S A(I)=^(I)
9 S I=100
10 S I=$N(B(I)) G 11:I=-1 S X=$P(A(I\100-1),D,I#100) D S0 G 5:'OK,10
11 S KN=$P(A(0),D,2),KN2=$P(A(0),D,3),KA=$P(A(0),D,4),KS=$P(A(0),D,5),KP=$P(A(0),D,6),KW=$P(A(0),D,7)
13 S KLL=$P(A(0),D,8),KT=$P(A(0),D,9),KV=$P(A(0),D,11),KT1=$P(A(0),D,13),KK=$P(A(0),D,17),KX=$P(A(0),D,18)
15 S KKT=$P(A(2),D,2),(KPL,KPLS)=$P(A(2),D,3) S:'KHS KPLS=$P(A(2),D,25) S TL=$F("NFDE",KT)-1,KLV=$P(A(3),D,3),KKN=$P(A(2),D,5)
 S KYW=$$GetKlantType^KLANT5(KC)
17 K A S:'$L(KPLS) KPLS=KPL S:KV="" KV=$$FADEF^vhRtn1() S (TOMH,TOMS)=0
19 I 'SW37,TL'=HDT D ^KBA99
21 ;D ^KPRLK6 G 5:'$D(@("^"_Q_"HULP($J)")) S PHG="" D ^KPRLK3 G 5
 S (I,R)="" F  S I=$O(BEPERK(I)) Q:I=""  S R=R_"`"_I
 I $L(R) S R=BEPERK_R
 S R=$E($G(FBP),1,7)_D_$E($G(LBP),1,7)_D_R_D_$G(PrintSGr)_D_$G(NLQ)_D_'$G(KHS)_D_$G(ZMPV)_D_$G(ZMPC)_D_$G(OOG)_D_$G(OBG)_D_$G(VERP)
 D PRINT^DCPRYSL(KC,R) G 5
67 S R=$P(^cLOG(boot,"DEV",$$DEV^vhPRINTER($I,1)),D,11) S:'R R=66 D ^KFOLE
69 D CLOSE^vhPRINTER
 ;
YZ K @("^"_Q_"SEL($J)") Q
 ;