cAT173	;Betalingsherinneringen ;%AT17 ;do uit %AT170 ; [ 01/04/02  4:02 PM ]
	G 1
	;
T0	;Printen betalingsherinneringen ;
T1	;Factuur\Facture\Rechnung\Invoice\Factura#Creditnota\N.de crédit\Gutschrift\Creditnote\N. crédito#Wissel\Traite\Wechsel\Draft\Letra cambio;
T2	;Diversen;Divers;Verschied.;Sundries;Diversos;
T3	;Vervolgt;A suivre;Wird fortg.;T.b.continued;Continúa;
T4	;Vervolg;Suite;Fortsetzung;Continue;Continúa;
	;
T0F	;Edition des rappels ;
T1F	;Factuur\Facture\Rechnung\Invoice\Factura#Creditnota\N.de crédit\Gutschrift\Creditnote\N. crédito#Wissel\Traite\Wechsel\Draft\Letra cambio;
T2F	;Diversen;Divers;Verschied.;Sundries;Diversos;
T3F	;Vervolgt;A suivre;Wird fortg.;T.b.continued;Continúa;
T4F	;Vervolg;Suite;Fortsetzung;Continue;Continúa;
	;
T0E	;Print reminders of payment ;
T1E	;Factuur\Facture\Rechnung\Invoice\Factura#Creditnota\N.de crédit\Gutschrift\Creditnote\N. crédito#Wissel\Traite\Wechsel\Draft\Letra cambio;
T2E	;Diversen;Divers;Verschied.;Sundries;Diversos;
T3E	;Vervolgt;A suivre;Wird fortg.;T.b.continued;Continúa;
T4E	;Vervolg;Suite;Fortsetzung;Continue;Continúa;
	;
R3	S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A	S R0=+$P(R0,".") F R5=3,7 S R6=$L(R0) Q:R6'>R5  S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B	W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z	K R0,R1,R2,R3,R4,R5,R6 Q  ;V3 05.07.88
	;
1	D ^cAT174 K ^HULP(boot,$J+.09)
10	S KI2=$O(^HULP(boot,$J+.02,KI1,KI2)) I KI2 S U2=^(KI2),I=$$DC^cAFD1($S(SORT<2:$P(U2,D,2+SORT),1:DT))*1E6+KI2,^HULP(boot,$J+.09,I)=KI2 G 10
11	S I=$O(^HULP(boot,$J+.09,"")) G 4:I="" S KI2=^(I) K ^(I)
12	S U2=^HULP(boot,$J+.02,KI1,KI2),ADL=ADL+1 I MNT'[(U_$P(U2,D,6)_U)&'SWEUR S MNT=MNT_$P(U2,D,6)_U
13	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))
14	G 2:$P(U2,D)="C"
15	S PAR=$$OMREK^cAFE1(Q,1,$P(MNT,U,2),$P(P39,D),"V",99)
17	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)
19	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)
	;
2	S LN=LN+1 G 3:LN'>$P(P74,D,2)
21	W !!!!?V+60,$J($P($T(@("T3"_QT)),U,TK+1),15) G 27:$P(P33,D,6)'=1
23	F I=1:1:$P(P74,D,4)+2 W !
25	S R=0 D ^cAT172
27	W $$FF^cA334 D ^cAT174 G 2:$L(KI2),4
	;
3	W ! W:'$P(P33,D,9) ?V,@F30 W:$P(U2,D,5) ?V+1,"*",$P(U2,D,5)," "
31	W ?V+4 I $E(KI2,1,2)'=99 W $P($P($P($T(@("T1"_QT)),U,2),"#",$P(U2,D)="W"*2+($P(U2,D)="C")+1),D,TK) G 35
33	W $P($T(@("T2"_QT)),U,TK+1)
35	W ?V+15,@F30," ",$P(U2,D,2),?V+26,@F30 I $E(KI2,1,2)'=99 W $J(KI2/1000,8,3)
37	W ?V+36,@F30," ",$P(U2,D,3),?V+47,@F30 W $P(U2,D,6)
	;S R=$P(U2,D,4)_D_(12-$L($P(U2,D,6)))_D_D_DC D:R&'$P(U2,D,5) R3
	S R=$P(U2,D,4)_D_(12-$L($P(U2,D,6)))_D_D_$$DEC^cAFA1($P(U2,D,6)) D:R&'$P(U2,D,5) R3
39	;W ?V+61,@F30 S R=$P(U2,D,4)_D_12_D_D_DC D:R&$P(U2,D,5) R3
	W ?V+61,@F30 S R=$P(U2,D,4)_D_12_D_D_$$DEC^cAFA1($P(U2,D,6)) D:R&$P(U2,D,5) R3
	W:'$P(P33,D,9) ?V+75,@F30 G 11
	;
4	S R=$L($P(MNT,U,3,4)) G ^cAT175:R D MIN^cAT170 S:KS(0)!KS(3) R=R+1 S:KS(0) R=R+1 S:KS(3) R=R+1 I LN+R'>$P(P74,D,2) S LN=LN+R G ^cAT175
41	F LN=LN+1:1:$P(P74,D,2) W ! W:'$P(P33,D,9) ?V,@F30 X "F I=15,26,36,47,61 W ?V+I,@F30" W:'$P(P33,D,9) ?V+75,@F30
43	G 21
	;
YZ	Q
	;
	; omrekenen VM naar muntcode rappel
OMREK(K)	Q $$OMREK^cAFE1(Q,K,$P(U2,D,6),$P(MNT,U,2),"V","")
	;
ZZ	; 07.02.02 - 11 u 22 * V7.91