cFA17 ;LIJST LEVERINGSADRESSEN ;%FA17; [ 11/08/2003  3:10 PM ]
 G 1
 ;
T1 ;IN ALFABETISCHE ORDE VANAF KLANT :
T2 ;IN ALFABETISCHE ORDE TOT KLANT   :
T3 ;EERSTE AF TE DRUKKEN KLANT
T4 ;SC2
T5 ;VANAF HET BEGIN
T6 ;DE KLANT
T7 ;LAATSTE AF TE DRUKKEN KLANT
T8 ;SC1
T9 ;TOT HET EINDE
T10 ;DE KLANT
T11 ;PLAATS BREED BLANCO PAPIER OP DE PRINTER EN SCHAKEL HEM AAN\
T12 ;"[] = ok   ,[] = hernemen   .[] = later drukken"
T13 ;:------:-----------------------------:-----------------------------:----:------------------------------------------:
T14 ;BLZ:
T15 ;: NUM. : NAAM VAN HET LEVERINGSADRES : STRAAT-NUMMER-BUS           :LAND: OPMERKING 1                              :
T16 ;: L.A. : NAAM TWEEDE LIJN            : POSTNUMMER-WOONPLAATS       :TAAL: OPMERKING 2                              :
T17 ;I[] = idem als voorgaande   .[] = tot het einde   [] = specifieke klant
T18 ;-[] = einde programma   .[] = vanaf het begin   [] = specifieke klant
 ;
S0 W ! S LN=LN+1 I LN>51 W $P($T(T13),U,2,999),# S LN=0,L1=L1+1 D 8 G S0
S0A W ":",$J(KR,5),?7,": ",KN,?37,": ",KS,?67,": ",KLD,?72,": ",K1,?115,":"
S0B W !,":",$J($S(KLV:KLV,1:"MAN."),5),?7,": ",KN2,?37,": ",$E(KP_" "_KW,1,28),?67,": ",KT,?72,": ",K2,?115,":"
S0C S LN=LN+2 W ! I $E($N(@Q1),1)="L"!(LN>50) W ":",?7,":",?37,":",?67,":",?72,":",?115,":"
S0D E  W $P($T(T13),U,2)
S0Z Q
 ;
 ;    initialisatie + vraag
1 S NM1=@("^"_Q_"BA(99,1)"),NM2=^(2),NM3=^(3),I1=0,BLZ=0,X=@("^"_Q_"KL(0,0)"),K=0,X=100,S=U,I1X=" ",I2X="",LN=0,MAX=0
BREAK B 1 S U=";"
100 S SW=0,LN=0,L1=0,Q0="^"_Q_"KL(KL)",Q1="^"_Q_"KL(KL,KI2)"
11 I QP S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
31 S KL=0,FP=903 W:QP @F,@F1,$P($T(T1),U,2),!!,?2,$P($T(T2),U,2)
32 I QP S R="K\23\3\"_$P($T(T3),U,2)_"\"_$P($T(T4),U,2)_"\1\\"".-""[K\" D R0 G YZ:K="-" S PP(1)=K
320 E  S K=PP(1)
33 I K="." S KL=0,FP=938 W:QP @F,$P($T(T5),U,2),@F2 G 35
34 I QP S R="KL\1900\"_$P($T(T6),U,2)_"\KL\K1\" D R1 G 32:K="-" S PP(1)=KL
340 E  S KL=PP(1)
341 S FP=938 W:QP @F,$P(@("^"_Q_"KL(KL,0)"),D,1)," ",$P(^(0),D,2),@F2
35 I QP S R="K\23\3\"_$P($T(T7),U,2)_"\"_$P($T(T8),U,2)_"\1\\""-.""[K!(K=""I""&(KL'=0))\" D R0 G 32:K="-" S PP(2)=K
350 E  S K=PP(2)
36 I K="." S KLX="ZZ",FP=1138 W:QP @F,$P($T(T9),U,2),@F2 G 25
37 I K="I",KL'=0 S KLX=KL,X=$D(@("^"_Q_"KL(KLX)")) G 39
38 I QP S R="KLX\1900\"_$P($T(T10),U,2)_"\KL\K1" D R1 G 35:K="-" S PP(2)=KLX G 38:KL]KLX
380 E  S KLX=PP(2)
39 S FP=1138 W:QP @F,$P(@("^"_Q_"KL(KLX,0)"),D,1)," ",$P(^(0),D,2),@F2
25 I QP S R="K\23\3\"_$P($T(T11),U,2)_$P($T(T12),U,2)_"\1\\"",-.""[K\\\" D R0 G 35:K="-",32:K="," I K="." D R9 G 31
 ;
 ;    het drukken van de info
27 X F70 W @F80 D 8 I KL'=0 S X=$D(@Q0) G 30:X
29 S KL=$N(@Q0) I (KL=-1)!(KL]KLX) G Y
30 G 29:$E($N(^(KL,"L")),1)'="L" S A0=^(0),A1="" S:$D(^(1)) A1=^(1)
4 S KI2="L",KR=$P(A0,D,1),KN=$P(A0,D,2),KN2=$P(A0,D,3),KS=$P(A0,D,5),KP=$P(A0,D,6),KW=$P(A0,D,7)
40 S KLD=$P(A0,D,8),KT=$P(A0,D,9),KLV=$P(A0,D,1),K1=$P(A1,D,4),K2=$P(A1,D,8) D S0
42 S KI2=$N(@Q1) G 29:$E(KI2,1)'="L" S A0=^(KI2),KR=$P(A0,D,1),KLV=$P(A0,D,19),K1=$P(A0,D,24),K2=$P(A0,D,25)
44 I KLV S:$D(@("^"_Q_"K1(KLV)")) A0=@("^"_Q_"KL(^(KLV),0)")
46 S KN=$P(A0,D,2),KN2=$P(A0,D,3),KS=$P(A0,D,5),KP=$P(A0,D,6),KW=$P(A0,D,7),KLD=$P(A0,D,8),KT=$P(A0,D,9) D S0 G 42
 ;
 ;    titel drukken
8 S BLZ=BLZ+1,LN=0 W !,NM1,?108,$P($T(T14),U,2),$J(BLZ,4),!,NM2,?30,@F82,$P($T(+1),S,2),@F83,$C(13),?108,DT,!,NM3,?109,TD,!!
82 W $P($T(T13),U,2),!,$P($T(T15),U,2),!,$P($T(T16),U,2),!,$P($T(T13),U,2) Q
 ;
 ;    einde
Y W !,# X F71
YZ Q
 ;
R9 S R1=$P($T(+1)," ",1) I $D(QPT) F I=1,2 I $L($P(QPT,"#",I)) S $P(R1,"#",I)=$P(QPT,"#",I)
R9A F R2=1:1 Q:'$D(PP(R2))  S R1=R1_D_PP(R2)
R9B S R2="^"_Q_"PP($I,0)",@%Q1=0 L @("^"_Q_"PP($I)") S:'$D(@R2) @R2=1 S R3=^(0),^(0)=R3+1,^(R3)=R1,@%Q1=1
R9Z K R1,R2,R3 L  Q  ; V3  14.10.87
 ;
SC1 W !,?2,$P($T(T17),U,2) Q
SC2 W !,?2,$P($T(T18),U,2) Q
 ;
R0 S R7=1 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),R8="",$P(R8,".",R6)="."
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,@F2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2,R8,@F,@F0 R K W @F2 I $L(K)'>R6,K'["""",K'[D,K'?.E1C.E,@R7 S @$P(R,D,1)=K
R0D E  G R0C
R0E S FP=$P(R,D,9)*100+$P(R,D,10) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7,R8 Q  ;V7 06.10.87
 ;
R1 S R4=$P(R,D,2)+1,R0=0,RA=$P(R,D,3),R8="^"_Q_$P(R,D,4),R9="^"_Q_$P(R,D,5),FP=R4 W @F,@F1
R1A X ^cTXT(0,"N",15)
R1B R K G R1A:K?.E1C.E!(K?20N.N) S:$L(K) R0=0 S FP=R4 W @F,@F1 G R1Z:K="-" I K="" S R1=R4 G R1H:R0,R1D
R1C G R1D:K'?.N,R1K:'$D(@(R9_"(K)")) S R3=^(K) I $D(@(R8_"(R3)")) G R1M
R1D S R6="" F R7=1:1:99 I $E(K,R7)'?1P S R6=R6_$E(K,R7)
R1E S R5=$E(R6,1,24) S:R6="" R5=" " S R1=R4,R2=R5,(R2,R3)=$N(@(R8_"(R2)")) G R1K:R2=-1 S R2=$N(^(R2))
R1F I $E(R2,1,$L(R6))'=R6&'R0&($E(R3,1,$L(R6))=R6) S R7=$D(^(R3)) G R1M
R1G S R2=R5
R1H S R2=$N(@(R8_"(R2)")) G R1K:($E(R2,1,$L(R6))]R6)&'R0&(R1=R4) G R1L:R2=-1 I $E(R2,1,$L(R6))'=R6 S R0=0 G R1A
R1I S FP=R1 W @F,$C(13),$J(+^(R2,0),6),?7,$E($P(^(0),D,2),1,26),?34,$E($P(^(0),D,5),1,26),?61,$E($P(^(0),D,7),1,18)
R1J S R1=R1+100 G R1H:R1<(2300+F60) S R0=1 G R1A
R1K X ^cTXT(0,"N",8) R K
R1L S (R2,R0)=0 G R1A
R1M S (@$P(R,D,1),K)=R3
R1Z K R0,R1,R2,R3,R4,R5,R6,R7,R8,R9,RA Q  ;V4 23.05.85
 ;
Z X ^cZ Q
ZZ ; 25.04.88 - 14 u 21