KKMPM G 1 ;KLANTENLIJST MET PRIJSKLASSE EN MUNT ;KKMPM; [ 08/05/2002  11:16 AM ]
 ;
T1 ;SELEKTIE : 
T4 ;:------:-----------------------------:-----------------------------:----:-------------------:------------------:--------------:-----:
T5 ;BLZ:
T6 ;: NUM. : NAAM VAN DE KLANT           : STRAAT-NUMMER-BUS           :LAND: TELEFOON 1        : B.T.W.-REG. NR.  : REEL-PK TYPE : MNT :
T7 ;:      : NAAM TWEEDE LIJN            : POSTNUMMER-WOONPLAATS       :TAAL: TELEFOON 2        : BANKNUMMER       : SCHA-PK      :     :
 ;
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
13 D KP^KSEL G YZ:K="-"
15 D INIT^vhPRINTER(132) G 13:'$D(Print)
 ;
 ;    het drukken van de info
2 S FAMNT=$$FADEF^vhRtn1(),BLZ=0,I=100 G 25:$N(B(I))=-1 D HD,^KSELO
25 D HD I KL'=0 S X=$D(@Q0) G 29:X
27 S KL=$N(@Q0) I KL=-1!(KL]KLX) G Y
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)) G 4:I=-1
 I I?.N S X=$P(A(I\100-1),D,I#100)
 E  S J1=KL X I S X=U3
 D S2 G 27:'OK,31
 ;
4 W ! S LN=LN+1 I LN>51 W $P($T(T4),U,2,999),# D HD G 4
40 W ":",$J($P(A(0),D,1),5),?7,": ",$P(A(0),D,2),?37,": ",$P(A(0),D,5),?67,": ",$$LAND^vhRtn1($P(A(0),D,8)),?72,": "
41 W $P(A(0),D,13),?92,": " I $P(A(0),D,16)'="" W $P(A(0),D,15),"-" S X=$P(A(0),D,16) W $E(X,1,3),".",$E(X,4,6),".",$E(X,7,9) G 42
410 I $P(A(2),D,23)'="" W $P(A(2),D,23)
42 W ?111,": " W:$L($P(A(2),D,3)) $P("CONS\PLUS\LIJST\RABAT\SPIL\BASIS\GROOT",D,$F("CPLRSBG",$P(A(2),D,3))-1)
420 W:$D(^KLPUTZ("N",$P(A(0),D,1))) ?117,"/UITZ" W ?124,$$GetKlantType^KLANT5($P(A(0),D,1)),?126,": " W:$P(A(0),D,11)'=FAMNT $P(A(0),D,11) W ?132,":"
422 W !,":",?7,": ",$P(A(0),D,3),?37,": ",$E($P(A(0),D,6)_" "_$P(A(0),D,7),1,28),?67,": ",$P(A(0),D,9)
43 W ?72,": ",$P(A(0),D,14),?92,": " S X=$P(A(1),D,1) S:$P(A(0),D,6) X=$E(X,1,3)_"-"_$E(X,4,10)_"-"_$E(X,11,12)
44 W:$L(X)>2 X W ?111,": " W:$L($P(A(2),D,25)) $P("CONS\PLUS\LIJST\RABAT\SPIL\BASIS\GROOT",D,$F("CPLRSBG",$P(A(2),D,25))-1)
440 W:$D(^KLPUTZ("S",$P(A(0),D,1))) ?117,"/UITZ" W ?126,":",?132,":" S LN=LN+1
45 W !,":",?7,":",?37,":",?67,":",?72,":",?92,":",?111,":",?126,":",?132,":" S LN=LN+1
46 G 27
 ;
 ;    titel drukken
HD S BLZ=BLZ+1,LN=0 W !,QN,?125,$P($T(T5),U,2),$J(BLZ,4),!,NM2,?30,@F82,$P($T(+1),U,2),@F83,$C(13),?125,DT,!,NM3
HDA W ?30,$P($T(T1),U,2),X1,"   ",X2,?126,TD,!!
HDB I BLZ>1!($N(B(100))=-1) W $P($T(T4),U,2),!,$P($T(T6),U,2),!,$P($T(T7),U,2),!,$P($T(T4),U,2)
HDZ Q
 ;
Y W !,$P($T(T4),U,2,999),# D CLOSE^vhPRINTER
YZ Q
 ;