cAT174	;Betalingsherinneringen ;%AT17 ;do uit %AT173 ; [ 02/13/01  3:00 PM ]
	G 1
	;
T0	;Printen herinneringen ;
T1	;Herinnering;Rappel;Mahnung;Reminder;Recordatorio;
T2	;   Document   ;   Document   ;   Document   ;   Document   ;   Documento  ;
T3	;  Datum   ;   Date   ;   Datum  ;   Date   ;   Fecha  ;
T4	;  Nummer ;  Numéro ;  Nummer ;  Number ;  Número ;
T5	; Vervaldag; Echéance ;Faellig am;  Due on  ;Vencimient;
T6	;Niet vervall.;  Non échu   ;Nicht faellig; Not overdue ; No vencida  ;
T7	;  Vervallen  ;     Echu    ;   Faellig   ;   Overdue   ;   Vencida   ;
	;
T0F	;Edition des rappels ;
T1F	;Herinnering;Rappel;Mahnung;Reminder;Recordatorio;
T2F	;   Document   ;   Document   ;   Document   ;   Document   ;   Documento  ;
T3F	;  Datum   ;   Date   ;   Datum  ;   Date   ;   Fecha  ;
T4F	;  Nummer ;  Numéro ;  Nummer ;  Number ;  Número ;
T5F	; Vervaldag; Echéance ;Faellig am;  Due on  ;Vencimient;
T6F	;Niet vervall.;  Non échu   ;Nicht faellig; Not overdue ; No vencida  ;
T7F	;  Vervallen  ;     Echu    ;   Faellig   ;   Overdue   ;   Vencida   ;
	;
T0E	;Print reminders ;
T1E	;Herinnering;Rappel;Mahnung;Reminder;Recordatorio;
T2E	;   Document   ;   Document   ;   Document   ;   Document   ;   Documento  ;
T3E	;  Datum   ;   Date   ;   Datum  ;   Date   ;   Fecha  ;
T4E	;  Nummer ;  Numéro ;  Nummer ;  Number ;  Número ;
T5E	; Vervaldag; Echéance ;Faellig am;  Due on  ;Vencimient;
T6E	;Niet vervall.;  Non échu   ;Nicht faellig; Not overdue ; No vencida  ;
T7E	;  Vervallen  ;     Echu    ;   Faellig   ;   Overdue   ;   Vencida   ;
	;
S1	W ! W:'$P(P33,D,9) ?V,@F30 W ?V+1 F I=14,10,9,10,13,13 S K=$P("-\ ",D,$P(P33,D,2)+1),$P(K,K,I)=K W:I'=14 @F30 W K
S1A	W:'$P(P33,D,9) @F30
S1Z	Q
	;
1	S KT=$P(B(1),D,9),TK=$F("NFDES",KT)-1,R=$P(B(1),D,1,8),V=$P(P33,D,3)
11	S K=HNR_"' "_$P($T(@("T1"_QT)),U,TK+1) I $D(@("^"_Q_"KH(HNR,KT,0)")),$L(^(0)) S K=^(0)
13	S R=R_"\\\"_K_D_D_$P(P33,D)_D_$P(P33,D,4,5)_D_V_D_KT,$P(R,D,19)=1 D @$S($L($P(P74,D,5)):$P(P74,D,5),1:"^cA317")
14	I HNR>$P(P33,D,12)!LN F X=2:1:$P(P74,D) W !
15	E  S K=$D(@("^"_Q_"KH(HNR,KT,1)")) F X=1:1:$P(P74,D) W:X>1 ! W:$D(^(X)) ?V,^(X)
17	W:$P(P33,D,2) ! D:'$P(P33,D,2) S1 W ! W:'$P(P33,D,9) ?V,@F30 W ?V+1 F I=2:1:7 W $P($T(@("T"_I_QT)),U,TK+1) W:I<7 @F30
19	W:'$P(P33,D,9) @F30 D S1 S LN=0
	;
YZ	Q
	;
ZZ	; 14.02.02 - 10 u 59 * V7.91