cAT172	;Betalingsherinneringen ;%AT17 ;do uit %AT171 ;     [ 08/12/09  15:06:26 ]
	G 1
	;
T0	;Printen betalingsherinneringen ;
	;
T0F	;Edition des rappels ;
	;
T0E	;Print reminders of payment ;
	;
	; banknummer
S1	; N R1,R2 S U3=K D S1^cA299 S K=U3
	S K=$$BANK^cAFO1(K)
S1Z	Q
	;
	; lay-out overschrijving
S2	I $P(P33,D,16) S $P(R,D,10)=4
S2A	I $P(P33,D,6)=2 S $P(R,D,10)=$P(P33,D,16)*3+2+$P(P33,D,11)
S2Z	Q
	;
1	S R2="" I R>0,$P(MNT,U,2)="EUR" S R2="1\\EUR\\2"
10	I $P(MNT,U,2)'="EUR",$P(MNT,U,2)'=$P(P39,D),$P(MNT,U,2)'=$P(P39,D,7),$P(MNT,U,2)'=$P(P39,D,9) S (R,R2)=""
11	S (R1,K)="" I R'>0 S R="",$P(K,"*",25)="*" X "F I=3:1:8 S $P(R,D,I)=K" G 13
12	S R=D_$P(B(1),D)_D_R,$P(R,D,4)=$P(B(1),D,2),R=R_D_$P(B(1),D,5,7)_D,LND=$P(B(1),D,8),K=$P(B(2),D) D:$L(K) S1 S R=R_K
13	S R=R_D_$P(P33,D,14)_D_1 D S2 I $P(R,D,3)'>0 S:'$P(P33,D,7) R1=$P(R,D,4,8),$P(R1,D,10)=$P(R,D,5),$P(R1,D,9)="" G 17
15	I '$P(P33,D,7) S R1=QN_D_NM2_D_$P(NM3," ")_D_$P(NM3," ",2,99)_D,LND="",K=$P(P33,D,17) D:$L(K) S1 S R1=R1_K S $P(R1,D,10)=K,$P(R1,D,9)=$P(P33,D,19) I $L($P(P74,D,7)) D @$P(P74,D,7)
17	; KO - 08.12.09 - Europese overschrijving
	; D ^cA318
	D ^cA3181
	;
YZ	K LND Q
	;
ZZ	; 05.02.01 - 16 u 23 * V7.84