KT46 G 1 ;AFDRUKKEN HERINNERINGEN ;KT46;OVERLAY NAAR %T47,%T105,%T106 [ 11/06/2001  9:53 AM ]
 ;
T1 ;HET PROGRAMMA IS REEDS IN GEBRUIK !! [] = ok 
T2 ;IN ALFABETISCHE ORDE VANAF KLANT :
T3 ;IN ALFABETISCHE ORDE TOT KLANT   :
T4 ;R=R_"EERST AF TE DRUKKEN KLANT\"
T5 ;R=R_"-[] = einde programma   .[] = vanaf het begin   [] = specifieke klant"
T6 ;VANAF HET BEGIN
T7 ;DE KLANT
T8 ;R=R_"LAATSTE AF TE DRUKKEN KLANT\"
T9 ;R=R_"I[] =  idem als vorige   .[] = tot het einde   [] = specifieke klant"
T10 ;TOT HET EINDE
T11 ;DE KLANT
T12 ;R=R_"GEEF DE REFERENTIEDATUM\"
T13 ;R=R_"datum (DD.MM.JJ) waarmee de vervaldatum wordt vergeleken    [] = "_DT
T14 ;Referentiedatum : 
T15 ;OVERZICHT\"[] = met overzicht   .[] = zonder overzicht"
T16 ;INFORMATIE PER KLANT\"[] = met informatie per klant   .[] = enkel de totalen"
T17 ;DETAIL DER FAKTUREN\"[] = met detail   .[] = zonder detail"
T18 ;R=R_"AFDRUKKEN HERINNERINGEN - PLAATS SMAL "_K_" PAPIER OP DE PRINTER\"
T19 ;R=R_"[] = ok   ,[] = hernemen"
T20 ;BLANCO
T21 ;VOORBEDRUKT
T22 ;NAAM OF NUMMER VAN 
T23 ;   [] = vervolg
T24 ;Een overzicht bevat de gedrukte herinneringen van de klanten,
T25 ;en wordt na het drukken van de herinneringen afzonderlijk afgedrukt.
T26 ;De informatie : - woonplaats en telefoon klant
T27 ;- eventueel detail der fakturen
 ;
1 B 1 S V=3,I1=0,BLZ=0,Q99="^"_Q_"KL(I1X,0)",SWHD=0 S:$D(@("^"_Q_"BA(33)")) SWHD=^(33)
 K ^HULP($J),^HULP(boot,$J)
10 S K=$P($T(+1),";",2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
 S FTL="N",FAMNT=$P(@("^"_Q_"BA(39)"),D),FTL=$P(^(39),D,2)
11 L @("^"_Q_"KX"):2 E  S FP=1040 W @F,@F9 S FP=1003 W @F,@F6,$P($T(T1),";",2),@F9,@F0 R K G YZ
12 S N(1)=@("^"_Q_"BA(99,1)"),N(1.1)="" S:$D(^(1.1)) N(1.1)=^(1.1) F X=2:1:12 S N(X)=^(X)
120 S N(1)="" F X=2,3 S N(X)=$J("",31)_N(X)
13 S HNR=$D(@("^"_Q_"BA(38,1)")) F X=0:1:3 S HNR(X)=$D(^(X)) S:HNR(X) HNR(X)=^(X)
14 S I1X=" ",I2X="" K @("^"_Q_"KX")
16 S FP=903 W @F,@F1,$P($T(T2),";",2),!!,?2,$P($T(T3),";",2)
 ;
2 S R="KEU\23\3\",@$P($T(T4),";",2),R=R_"""",@$P($T(T5),";",2),R=R_"""\1\\""-.""[K\\" D R0 G YZ:K="-"
21 I K="." S I1X=" ",FP=938 W @F,@F2,$P($T(T6),";",2) G 3
25 S R="I1\1500\"_$P($T(T7),";",2)_"\KL\K1" D R1 G 2:K="-"
26 S I1X=I1,FP=938 W @F,@F2,$P(@Q99,D,1)," ",$P(^(0),D,2)
3 S R="K\23\3\",@$P($T(T8),";",2),R=R_"""",@$P($T(T9),";",2),R=R_"""\1\\""-.I""[K\\" D R0 G 2:K="-"
31 I K="." S I2X="ZZZ",FP=1138 W @F,@F2,$P($T(T10),";",2) G 4
32 I K="I" G 3:KEU="." S I2X=I1X,FP=1138 W @F,@F2,$P(@Q99,D,1)," ",$P(^(0),D,2) G 4
35 S R="I1\1500\"_$P($T(T11),";",2)_"\KL\K1" D R1 G 3:K="-",35:I1<I1X
36 S I2X=I1,FP=1138 W @F,@F2,$P(@("^"_Q_"KL(I1,0)"),D,1)," ",$P(^(0),D,2)
4 S FP=2001+F60,R="DV\23\3\",@$P($T(T12),";",2),R=R_"""",@$P($T(T13),";",2),R=R_"""\8\DCTR\\\\" W @F,@F1 D R0 S:K="" DV=DT G 3:K="-"
41 S FP=450 W @F,$P($T(T14),";",2),DV
42 D U1 S R="OVER\23\3\"_$P($T(T15),";",2)_"\1\\""-.""[K\\" D R0 G 4:K="-",5:K="."
43 D U2 S OV2=".",R="OV1\23\3\"_$P($T(T16),";",2)_"\1\\""-.""[K\\" D R0 G 42:K="-",5:K="."
44 S FP=2001+F60,R="OV2\23\3\"_$P($T(T17),";",2)_"\1\\""-.""[K\\" W @F,@F1 D R0 G 43:K="-"
5 S FP=2001+F60,K=$P($T(T20),";",2) W @F,@F1 S:SWHD K=$P($T(T21),";",2) S R="K\23\3\",@$P($T(T18),";",2),R=R_"""",@$P($T(T19),";",2),R=R_"""\1\\"",-""[K\\" D R0 G 2:K=",",42:K="-"
51 G ^cT106
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)),U,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
R1 D ^cA101 Q
 ;
DCTR ;K?2N1"."2N1"."2N&($P(K,".",1)>0)&($P(K,".",2)>0)&($P(K,".",1)<32)&($P(K,".",2)<13)&'("04060911"[$P(K,".",2)&($P(K,".",1)=31))&'(+$P(K,".",2)=2&(('($P(K,".",3)#4)&($P(K,".",1)>29))!($P(K,".",3)#4&($P(K,".",1)>28))))!("-"[K)
U1 S FP=2003+F60 W @F,@F1,$P($T(T24),";",2),!,?2,$P($T(T25),";",2) Q
 ;
U2 S FP=2003+F60 W @F,@F1,$P($T(T26),";",2),!,?18,$P($T(T27),";",2) Q
 ;