cAT170	;Betalingsherinneringen ;%AT17 ; [ 01/04/02  5:09 PM ]
	G 1
	;
T0	;Printen betalingsherinneringen ;
T1	;Keuze;
T2	;,[] = opnieuw printen;
T3	;+[] = ophogen van het volgnummer;
T4	;*[] = verminderen van het volgnummer;
T5	;.[] = volgnummer niet beïnvloeden;
	;
T0F	;Edition des rappels ;
T1F	;Choix;
T2F	;,[] = réimpression;
T3F	;+[] = augmenter le numéro;
T4F	;*[] = diminuer le numéro;
T5F	;.[] = ne pas changer le numéro de rappel;
	;
T0E	;Print reminder of payment ;
T1E	;Choice;
T2E	;,[] = to print again;
T3E	;+[] = to raise the number;
T4E	;*[] = to decrease the number;
T5E	;.[] = do not influence the number;
	;
MIN	I HNR'>$P(P33,D,12),KS(3)<$P(HNR(HNR),D,8) S KS(3)=$J($P(HNR(HNR),D,8),0,DC)
	Q
	;
1	K ^HULP(boot,$J+.02) S NM2=@("^"_Q_"BA(99,2)"),NM3=^(3),KI1="",FP=2201 W @F,@F1 I $L($P(P74,D,3)) X $P(P74,D,3) G 5
11	S K=$D(@("^"_Q_"BA(38,1)")) F K=0:1:$P(P33,D,12) S HNR(K)="" S:$D(^(K)) HNR(K)=^(K)
13	I WAD[1 X F70 S FP=$P(P33,D,8) W @F80,@F32
15	S SORT=$P(@("^"_Q_"BA")@("%T",2),D)
	;
	; volgende klant
	; KO - 22.02.06
	; S R="KI1\KL" D ^cA327 G 5:KI1="" K B,VM S B(1)=^(0),B(2)=$G(^(1)) G 2:$P(B(1),D,10)=1
2	S R="KI1\KL" D ^cA327 G 5:KI1="" K B,VM S B(1)=^(0),B(2)=$G(^(1)) G 2:$P(B(1),D,10)=""
21	S KI2=9999,(TNV,TVV,HNR)=0 I WAD'[1 S FP=2403 W @F,@F1,$TR($P(B(1),D,1,2),D," ")
23	I $L($P(P74,D,6)) X $P(P74,D,6)
	;
	; openstaande facturen
3	S KI2=$O(@("^"_Q_"KL(KI1,KI2)")) G 4:KI2'?5N&(KI2'?6N) S K=^(KI2) G 3:$P(K,D,12) S $P(K,D,8)=$P(K,D,8)+1
31	G 3:VNR="."&($P(K,D,8)'>$P(P33,D,12)),3:VNR&($P(K,D,8)'=VNR),3:VNR=""&($P(K,D,8)>$P(P33,D,12)) S:KI2?5N!'$P(K,D,5) $P(K,D,8)=""
32	S:$P(K,D,9)="" $P(K,D,9)=$P(P39,D) S VM($P(K,D,9))="",KBP=$P(K,D,15) I $P(P33,D,18) S KBP=0
33	I KI2?6N S R=RFD_D_$P(K,D,2) D ^cA326 G 3:R<0 S R=RVD_D_$P(K,D,3) D ^cA326 S:R<0 $P(K,D,8)=""
35	S K=$P(K,D,1,3)_D_($P(K,D,5)+KBP)_D_$P(K,D,8,10) I $P(K,D,7),KBP S $P(K,D,7)=$P(K,D,7)+$$OMREK^cAFE1(Q,KBP,$P(K,D,6),$P(P39,D),"F","")
36	S ^HULP(boot,$J+.02,KI1,KI2)=$P(K,D,1,7) S:'$P(K,D,7) $P(K,D,7)=$P(K,D,4)
37	S:$P(K,D)="C" $P(K,D,7)=-$P(K,D,7) S:'$P(K,D,5) TNV=TNV+$P(K,D,7) S:$P(K,D,5) TVV=TVV+$P(K,D,7)
39	G 3:$P(K,D)="C" S:$P(K,D,5)>HNR HNR=$P(K,D,5) G 3
	;
	; einde klant
4	G 2:'$D(^HULP(boot,$J+.02,KI1)) I $L($P(P33,D,13))&(TVV'>$P(P33,D,13))!'HNR K ^(KI1) G 2
401	S (AVM,SWEUR)=0,VM="" F  S VM=$O(VM(VM)) Q:VM=""  S AVM=AVM+1
402	I AVM=2,$D(VM("EUR")),$P(P39,D,11)="" S VM="EUR" K VM(VM) S (AVM,SWEUR)=1
403	I AVM=2,$D(VM("EUR")),$P(P39,D,11)'="" S VM=$P(P39,D,9) K VM(VM) S (AVM,SWEUR)=1
404	I AVM>1 S MNT=U_$P(P39,D)_U,DC=QD K VM
405	I AVM=1 S MNT=U_$O(VM(""))_U,DC=$$DEC^cAFA1($P(MNT,U,2)) K VM
41	S (ADL,LN,KI2,TNV,TVV,KS(0),KS(3))=0 I WAD[1 D ^cAT173 G 2  ; rappel
	; enkel igv overzicht/overschrijving
42	S KI2=$O(^HULP(boot,$J+.02,KI1,KI2)) I $L(KI2) S U2=^(KI2),ADL=ADL+1 S:MNT'[(U_$P(U2,D,6)_U)&'SWEUR MNT=MNT_$P(U2,D,6)_U G 44
43	S KS(0)=$J(KS(0),0,DC),KS(3)=$J(KS(3),0,DC) D MIN S ^(0)=HNR_D_TNV_D_TVV_D_KS(0)_D_KS(3)_D_DC_D_MNT_D_ADL G 2
44	S:$P(U2,D)="C" $P(U2,D,4)=-$P(U2,D,4),$P(U2,D,7)=-$P(U2,D,7) S @$S($P(U2,D,5):"TVV",1:"TNV")=@$S($P(U2,D,5):"TVV",1:"TNV")+$P(U2,D,$S(SWEUR:7,1:4))
45	G 42:$P(U2,D)="C"
46	S PAR=$$OMREK^cAFE1(Q,1,$P(MNT,U,2),$P(P39,D),"V",99)
47	S X=+$P(U2,D,5) S:X>$P(P33,D,12) X=$P(P33,D,12) S R=RVD_D_$P(U2,D,3) D ^cA326 S X=HNR(X),K=R-$P(X,D)
48	I K'<0 F R=0,3 S KS(R)=KS(R)+($P(X,D,2+R)/PAR)+($P(X,D,3+R)*$$OMREK($P(U2,D,4))/100)+($P(X,D,4+R)*K*$$OMREK($P(U2,D,4))/36500)
49	G 42
	;
5	I WAD[1 X F71
51	G YZ:'$D(^HULP(boot,$J+.02)) S K=$P($T(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
53	D:WAD[2 ^cAT176 G 7:K="-" D:WAD[3 ^cAT171 G 7:K="-"
	;
6	S R="K\20\3\"_$P($T(@("T1"_QT)),U,2)_"\C1\1\\""-,.+*""[K&$L(K)" D R0 G 7:K=".",6:K="-" I K="," K ^HULP(boot,$J+.02) G ^cAT17
61	S @%Q1=0,KI1="",FP=2001 W @F,@F1
63	S KI1=$O(^HULP(boot,$J+.02,KI1)) G 7:KI1="" S KI2=0,R=$G(@("^"_Q_"KL(KI1,0)")),FP=2403 W @F,@F1,$TR($P(R,D,1,2),D," ")
	;  Bij ophogen nummer: wegschrijven dagdatum bij de klant
64	I K="+" D W^cAN220("KL","",KI1,317,DT) S K="+"
65	S KI2=$O(^HULP(boot,$J+.02,KI1,KI2)) G 63:KI2="" S R=^(KI2) G 65:'$P(R,D,5),65:'$D(@("^"_Q_"KL(KI1,KI2)"))
67	S R=^(KI2) X "S $P(R,D,8)=$P(R,D,8)"_$TR(K,"*","-")_1 S:$P(R,D,8)<0 $P(R,D,8)=0 S ^(KI2)=R G 65
	;
7	K ^HULP(boot,$J+.02)
	;
YZ	Q
	;
	; omrekenen VM naar muntcode rappel
OMREK(K)	Q $$OMREK^cAFE1(Q,K,$P(U2,D,6),$P(MNT,U,2),"V","")
	;
R0	S R0=$P(R,D,5) I $L(R0),R0'["""" S $P(R,D,5)=R0_"^"_$T(+0)
R0A	S R0=$P(R,D,7) I $L(R0),R0'="DCTR" S $P(R,D,7)="",R1=$P(R,D,8),R0=$P($T(@R0),U,2,99) S:$L(R1) R0=R0_"&("_R1_")" S $P(R,D,8)=R0
R0Z	S $P(R,D,12)=$T(+0) K R0,R1 D ^cA100 Q  ; v11 30.05.94
	;
C1	W !?2,$P($T(@("T2"_QT)),U,2),!?2,$P($T(@("T3"_QT)),U,2),!?2,$P($T(@("T4"_QT)),U,2),!?2,$P($T(@("T5"_QT)),U,2) Q
	;
ZZ	; 24.02.06 -  9 u 54 * V8.06