VJT46 ;AFDRUKKEN HERINNERINGEN ;VJT46 ;do naar %A306 ;go naar VJT106 [ 04/20/2001  2:11 PM ]
 G 1
 ;
T1 ;DE KLANT\KLANTEN\ALFABETISCHE\alfabetische\KL\K1
T2 ;REFERENTIEDATUM\
T3 ;"datum (DD.MM.JJ) waarmee de vervaldatum wordt vergeleken    [] = "
T4 ;  Referentiedatum : 
T5 ;OVERZICHT\"[] = met overzicht   .[] = zonder overzicht"
T6 ;INFORMATIE PER KLANT\"[] = met informatie per klant   .[] = enkel de totalen"
T7 ;DETAIL DER FAKTUREN\"[] = met detail   .[] = zonder detail"
T8 ;AFDRUKKEN HERINNERINGEN - PLAATS SMAL ; PAPIER OP DE PRINTER\
T9 ;"[] = ok   ,[] = hernemen"
T10 ;BLANCO
T11 ;VOORBEDRUKT
T12 ;Een overzicht bevat de gedrukte herinneringen van de klanten,
T13 ;en wordt na het drukken van de herinneringen afzonderlijk afgedrukt.
T14 ;De informatie : - woonplaats en telefoon klant
T15 ;- eventueel detail der fakturen
T16 ;FINANCIELE REKENING
T17 ;WELKE HERINNERINGEN
T18 ;"[] = nieuwe selectie   B[] = bepaalde batch"
 ;
1 B 1 S V=3,(I1,BLZ,SWHD,SWLI,SWH2)=0,SWH3=1,Q99="^"_Q_"KL(I1X,0)"
 K ^HULP($J),^HULP(boot,$J)
10 D TITEL
 D SBATCH^DCPRINT("H",30) ; Opkuisen van de batchfiles ouder dan 30 arbeidsdagen
100 S FTL="N",FAMNT=$P(@("^"_Q_"BA(39)"),D),FTL=$P(^(39),D,2)
101 S K=D I $D(^(33)) S K=^(33),SWHD=$P(K,D),SWLI=$P(K,D,2),V=$P(K,D,3),SWH2=$P(K,D,4),SWH3=$P(K,D,5)
102 S SWH4=$P(K,D,6),SWH5=$P(K,D,7),SWH6=$P(K,D,8),SWH7=$P(K,D,9) S:'SWH6 SWH6=66
11 L @("^"_Q_"KX"):2 E  X ^cTXT(0,"N",46) 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)="" S:$D(^(X)) N(X)=^(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 K @("^"_Q_"KX")
 ;
2 I $D(^PRINTB("H")) S Batch=$$SELBATCH(.Batch) I $L(Batch) G YZ:Batch="-",5:Batch="P",2
20 S TXT=$P($T(T1),U,2) D ^cA306 G YZ:K="-"
21 S I1X=LIM1,I2X=LIM2 K LIM1,LIM2 S:I2X="" I1X=-1 I 'SWH4!SWH5 G 4
23 S R="K\1800\"_$P($T(T16),U,2)_"\AR\R1" D R2 G 20:K="-" S N=^(K,0) I $P(N,D,13) X ^cTXT(0,"N",25) R K G 23
25 I '$P(N,D,9) X ^cTXT(0,"N",52) R K G 23
27 I '$P(N,D,12) X ^cTXT(0,"N",53) R K G 23
29 S KLD=$$LAND^vhRtn1($P($G(@("^"_Q_"BA(39)")),D,3),,2)
31 S K=$P(N,D,9),R="S REK=K" S:$D(^cBA(3,KLD,0)) R="S REK="_^(0) X R S FP=1503 W @F,REK
 ;
4 S FP=1901+F60,R="DV\22\3\"_$P($T(T2),U,2)_$P($T(T3),U,2)_"_DT\8\DCTR\\\\" W @F,@F1 D R0 S:K="" DV=DT G 20:K="-"
41 S FP=450 W @F,$P($T(T4),U,2),DV
42 D U1 S R="OVER\22\3\"_$P($T(T5),U,2)_"\1\\""-.""[K\\" D R0 G 4:K="-",5:K="."
43 D U2 S OV2=".",R="OV1\22\3\"_$P($T(T6),U,2)_"\1\\""-.""[K\\" D R0 G 42:K="-",5:K="."
44 S FP=1901+F60,R="OV2\22\3\"_$P($T(T7),U,2)_"\1\\""-.""[K\\" W @F,@F1 D R0 G 43:K="-"
5 S FP=1901+F60,K=$P($T(T10),U,2) W @F,@F1 S:SWHD K=$P($T(T11),U,2)
50 S R="K\22\3\"_$P($T(T8),U,2)_K_$P($T(T8),U,3)_$P($T(T9),U,2)_"\1\\""-,""[K" D R0
 I $L($G(Batch)) G 2:K=",",2:K="-" D BATCH^KT107 K @("^"_Q_"KX") G YZ
 E  G 20:K=",",42:K="-"
51 G ^VJT106
 ;
YZ Q
 ;
SELBATCH(Batch)
 N K,R,Document,DOCNr,Keys,Date,Time,FKLNr,TKLNr
SB1 K Batch
 S R="K\22\3\"_$P($T(T17),U,2)_D_$P($T(T18),U,2)_"\1\\""-,B""[K" D R0
 I K="B" D  G SB1:R="-"
 .D E^cA612
 .K ^HULP($J)
 .S Document="H",DOCNr="HERNr",Keys="P-",FP=2201
 .W @F,@F1
 .D INIT^DCINIT(,"BATCH"),SA1^DCSELECT
 .S ^HULP($J,"T")="H"
 .S Date="",Count=0
 .F  S Date=$O(^PRINTB("H",Date),-1) Q:Date=""  D
 ..S Time=""
 ..F  S Time=$O(^PRINTB("H",Date,Time)) Q:Time=""  D
 ...S Batch=^PRINTB("H",Date,Time),FKLNr=$P(Batch,D,6),TKLNr=$P(Batch,D,7)
 ...S:FKLNr $P(Batch,D,6)=$P(^KKL(^KK1(FKLNr),0),D,2)
 ...S:TKLNr $P(Batch,D,6)=$P(Batch,D,6)_" - "_$P(^KKL(^KK1(TKLNr),0),D,2)
 ...S Count=Count+1,^HULP($J,"h",Count)=Batch
 .D BATCH^DCSELUIT
 .I R'="-" F Batch=1:1 S R=$G(^HULP($J,"h",Batch)) Q:R=""  D:$P(R,D,10)="*"
 ..S Date=$P(R,D),Time=$P(R,D,2),Batch(Date,Time)="B\"_$P(R,D,1,2)
 .I $O(Batch(""))="" S R="-"
 .E  S Batch="P"
 .K ^HULP($J)
 .D B^cA612
 .D P^cA612(5,1,24,80,"","","","","",1,0,7,1,1)
 .W @F11,@F1
 .D TITEL
 E  S Batch=$TR(K,",","-")
 Q Batch
 ;
TITEL
 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
 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)),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),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
 ;
DCTR ;K?2N1"."2N1"."2N&$E(K,1,2)&$E(K,4,5)&($E(K,1,2)<32)&($E(K,4,5)<13)&'("04060911"[$E(K,4,5)&($E(K,1,2)=31))&'(+$E(K,4,5)=2&(('($E(K,7,8)#4)&($E(K,1,2)>29))!($E(K,7,8)#4&($E(K,1,2)>28))))!("-"[K)
 ;
U1 S FP=1903+F60 W @F,@F1,$P($T(T12),U,2),!,?2,$P($T(T13),U,2) Q
U2 S FP=1903+F60 W @F,@F1,$P($T(T14),U,2),!,?18,$P($T(T15),U,2) Q
 ;
R2 D ^cA102 Q
 ;