KT155 G 1 ;LEVERINGSADRESSEN PER KLANT ;KT155; [ 08/07/2002   4:08 PM ]
 ;
T1 ;SELEKTIE : 
T4 ;:------:-----------------------------:-----------------------------:----:---------------------------------------:------------------:
T5 ;BLZ:
T6 ;: NUM. : NAAM VAN HET LEVERINGSADRES : STRAAT-NUMMER-BUS           :LAND: OPMERKING 1                           : TELEFOON         :
T7 ;: L.A. : NAAM TWEEDE LIJN            : POSTNUMMER-WOONPLAATS       :TAAL: OPMERKING 2                           :                  :
T8 ;ALLE KLANTEN OF ENKEL DEZE MET LEVERINGSADRESSEN\"A[] = alle   [] = enkel deze met leveringsadressen"
T9 ;ALLE KLANTEN;ENKEL DE KLANTEN MET LEVERINGSADRESSEN
T10 ;MET OF ZONDER POSTBUSADRES\"[] = met posbusadres   Z[] = zonder postbusadres"
T11 ;ZONDER;MET; POSTBUSADRES
 ;
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
 ;
S0 W ! S LN=LN+1 I LN>(LNMAX+1) W:'LastL $P($T(T4),U,2,999) W # D HD G S0
S0A W ":",?7,":" F I=1:1:NBR W $C(13),?1,$J(KR,5),?9,KN
S0B W ?37,": ",KS,?67,": ",$$LAND^vhRtn1(KLD),?72,": ",$E(K1,1,38),?112,": ",$E(KT1,1,16),?131,":"
S0C W !,":",$J($S(KLV=".":"MAN.",1:KLV),5),?7,": ",KN2,?37,": ",$E(KP_" "_KW,1,28),?67,": ",KT,?72,": ",$E(K2,1,38),?112,": ",$E(KT2,1,16),?131,":"
S0D S LN=LN+2 I LN>LNMAX S Count=Count-1
 W !
 I Count W ":",?7,":",?37,":",?67,":",?72,":",?112,":",?131,":" S Count=Count-1,LastL=0
S0E E  W $P($T(T4),U,2) S LastL=1
S0Z 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
12 D KP^KSEL G YZ:K="-"
13 S R="K\20\3\"_$P($T(T8),U,2)_"\1\\""-A""[K" D R0 G 12:K="-"
 S KLAD=K="",FP=2003 W @F,@F1,$P($T(T9),U,KLAD+2)
14 S R="K\21\3\"_$P($T(T10),U,2)_"\1\\""-Z""[K" D R0 G 13:K="-"
 S METPB=K="",FP=2103 W @F,@F1,$P($T(T11),U,METPB+2),$P($T(T11),U,4)
 ;
 ;    het drukken van de info
2 S Q1="^"_Q_"KL(K,KI2)",BLZ=0 D INIT^vhPRINTER("B",132,"P") G YZ:'$D(Print)
 S LNMAX=Print("LEN")-14-Print("BOT")-Print("TOP")
 S 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) G 27:$E($N(@("^"_Q_"KL(K,""L"")")),1)'="L"&KLAD F I=0:1:SW3-1 S A(I)=^(I)
 ;
3 S I=100
31 S I=$N(B(I)) G 4:I=-1 S X=$P(A(I\100-1),D,I#100) D S2 G 27:'OK,31
 ;
4 S KI2="L",KR=$P(A(0),D,1),KN=$P(A(0),D,2),KN2=$P(A(0),D,3),KS=$P(A(0),D,5),KP=$P(A(0),D,6),KW=$P(A(0),D,7)
40 S KLD=$P(A(0),D,8),KT=$P(A(0),D,9),KT1=$P(A(0),D,13),KT2=$P(A(0),D,14),KLV="",K1=$P(A(1),D,4),K2=$P(A(1),D,8),NBR=3
 S MERGEPB=0 I 'METPB,"\POSTBUS\PB\Postbus\"[(D_$P(KS," ")_D) S MERGEPB=$$MERGE()
 D COUNT S:MERGEPB Count=Count-1
 D S0
42 S KI2=$N(@Q1) G 27:$E(KI2,1)'="L" S A(0)=^(KI2),KR=$P(A(0),D,1) G 42:KR=MERGEPB
 S KLV=$P(A(0),D,19),K1=$P(A(0),D,24),K2=$P(A(0),D,25)
44 I KLV S:$D(@("^"_Q_"K1(KLV)")) A(0)=@("^"_Q_"KL(^(KLV),0)")
46 S KN=$P(A(0),D,2),KN2=$P(A(0),D,3),KS=$P(A(0),D,5),KP=$P(A(0),D,6),KW=$P(A(0),D,7),KLD=$P(A(0),D,8)
48 S KT=$P(A(0),D,9),KT1=$P(A(0),D,13),KT2="",NBR=1 D S0 G 42
 ;
 ;    titel drukken
HD S BLZ=BLZ+1,LN=0 W !,QN,?124,$P($T(T5),U,2),$J(BLZ,4),!,NM2,?30,@F82,$P($T(+1),U,2),@F83,$C(13),?124,DT,!,NM3
HDA W ?30,$P($T(T1),U,2),X1,"   ",X2,?125,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
 ;
MERGE() 
 N LEVAD,KI2
 S LEVAD=0,KI2="L"
 F  S KI2=$N(@Q1) Q:$E(KI2)'="L"  D
 .S A(0)=^(KI2)
 .I KN'=$P(A(0),D,2)!(KW'=$P(A(0),D,7)) Q
 .S LEVAD=$P(A(0),D),K1=$P(A(0),D,24),K2=$P(A(0),D,25)
 .S:$L($P(A(0),D,3)) KN2=$P(A(0),D,3) S KS=$P(A(0),D,5),KP=$P(A(0),D,6)
 .S KLD=$P(A(0),D,8),KT=$P(A(0),D,9)
 .I $L($P(A(0),D,13)) S KT1=$P(A(0),D,13),KT2=""
 Q LEVAD
 ;
COUNT  
 N KI2
 S KI2="L",Count=0
 F  S KI2=$N(@Q1) Q:$E(KI2)'="L"  S Count=Count+1
 Q
 ;
 ;    einde
Y W ! W:'$G(LastL) $P($T(T4),U,2) W # D CLOSE^vhPRINTER
YZ 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
 ;