cAT16	;BEHEER KOSTEN HERINNERINGEN ;%AT16 ; [ 01/03/01  5:23 PM ]
	G 1
	;
T0	;Betalingsherinneringen: kosten en intrest ;
T1	;Aantal dagen;
T2	;Forf. kosten;
T3	;Kosten % totaal;
T4	;Kosten % dagen;
T5	;Forf. intrest;
T6	;Intrest % totaal;
T7	;Intrest % dagen;
T8	;Minimum intrest;
T9	;aantal dagen na vervaldag voor kosten- en intrestberekening;
T10	;vast aangerekend bedrag forfaitaire kosten;
T11	;% op het totaal factuurbedrag;
T12	;% in functie van het aantal dagen;
T13	;vast aangerekend bedrag forfaitaire intrest;
T14	;% op het totaal factuurbedrag;
T15	;% in functie van het aantal dagen;
T16	;minimum aangerekend bedrag intrest (totaal);
T17	;x[] = cijfer van 1 tot ;   .[] = rappels met volgnummer groter dan ;
T18	;-[] = einde programma;
T19	;groter dan ;
T20	;Nummer element;
T21	; dag;en; na vervaldag;
T22	;Nummer rappel;
T23	;Gelieve de parameters boekhouding te verifiëren  [] = ok ;
	;
T0F	;Rappels : gestion des frais et intérêts ;
T1F	;Nombre de jours;
T2F	;Frais forf.;
T3F	;Frais % total;
T4F	;Frais % jours;
T5F	;Intérêt forf.;
T6F	;Intérêt % total;
T7F	;Intérêt % jours;
T8F	;Intérêt minimal;
T9F	;nombre de jours après l'échéance pour calculer les frais et les intérêts;
T10F	;montant fixe de frais forfaitaires;
T11F	;% sur le montant total facturé;
T12F	;% en fonction du nombre de jours;
T13F	;montant d'intérêt forfaitaire;
T14F	;% sur le montant total facturé;
T15F	;% en fonction du nombre de jours;
T16F	;montant minimal d'intérêt calculé (total);
T17F	;x[] = chiffre entre 1 et ;   .[] = rappels avec numéro supérieur à ;
T18F	;-[] = fin du programme;
T19F	;supérieur à ;
T20F	;N° d'élément;
T21F	; jour;s; après échéance;
T22F	;N° de rappel;
T23F	;Veuillez vérifier les paramètres comptables  [] = ok ;
	;
T0E	;Reminders: costs and interest ;
T1E	;Number of days;
T2E	;Fixed costs;
T3E	;Costs % total;
T4E	;Costs % days;
T5E	;Fixed interest;
T6E	;Interest % total;
T7E	;Interest % days;
T8E	;Minimum interest;
T9E	;number of days after due date for costs- and interest calculation;
T10E	;fixed charged amount fixed costs;
T11E	;% on the total invoice amount;
T12E	;% in function of the number of days;
T13E	;fixed charged amount fixed costs;
T14E	;% on the total invoice amount;
T15E	;% in function of the number of days;
T16E	;minimum charged interest amount (total);
T17E	;x[] = cipher from 1 until ;   .[] = reminders with number greater than ;
T18E	;-[] = end program;
T19E	;greater than ;
T20E	;Number element;
T21E	; day;s; after due date;
T22E	;Number reminder;
T23E	;Please verify the settings accounting   [] = ok ;
	;
T0D	;Betalingsherinneringen: kosten en intrest ;
T1D	;Aantal dagen;
T2D	;Forf. kosten;
T3D	;Kosten % totaal;
T4D	;Kosten % dagen;
T5D	;Forf. intrest;
T6D	;Intrest % totaal;
T7D	;Intrest % dagen;
T8D	;Minimum intrest;
T9D	;aantal dagen na vervaldag voor kosten- en intrestberekening;
T10D	;vast aangerekend bedrag forfaitaire kosten;
T11D	;% op het totaal factuurbedrag;
T12D	;% in functie van het aantal dagen;
T13D	;vast aangerekend bedrag forfaitaire intrest;
T14D	;% op het totaal factuurbedrag;
T15D	;% in functie van het aantal dagen;
T16D	;minimum aangerekend bedrag intrest (totaal);
T17D	;x[] = cijfer van 1 tot ;   .[] = rappels met volgnummer groter dan ;
T18D	;-[] = einde programma;
T19D	;groter dan ;
T20D	;Nummer element;
T21D	; dag;en; na vervaldag;
T22D	;Nummer rappel;
T23D	;Gelieve de parameters boekhouding te verifiëren  [] = ok ;
	;
1	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
11	S SW1=0,P33="" S:$D(@("^"_Q_"BA(33)")) P33=^(33) I $P(P33,D,12) S K=$D(^(38,0)) W !!?2,$P($T(@("T22"_QT)),U,2)," :" G 2
13	S FP=2403 W @F,@F1,@F4,$P($T(@("T23"_QT)),U,2),@F5,@F0 R K G YZ
	;
2	S R="NRR\22\3\"_$P($T(@("T22"_QT)),U,2)_"\C1\1\\K?.N&K&(K'>$P(P33,D,12))!(""-.""[K&$L(K))" D R0 G YZ:K="-"
21	S FP=419 W @F,$J("",12),@F,$S(NRR:NRR,1:$P($T(@("T19"_QT)),U,2)_$P(P33,D,12)) S:K="." NRR=10 S B="" S:$D(^(NRR)) B=^(NRR)
23	F NRE=1:1:8 S FP=5+NRE*100+3 W:'SW1 @F,NRE," ",$P($T(@("T"_NRE_QT)),U,2) S FP=5+NRE*100+22 W:'SW1 @F,":" S K=$P(B,D,NRE) D S2
25	S SW1=1
	;
3	S R="NRE\22\3\"_$P($T(@("T20"_QT)),U,2)_"\\1\\K?.N&K&(K<9)!(""-,""[K&$L(K))" D R0 G 4:K="-" I K="," D S1 G 2
31	S R="K\22\3\"_$P($T(@("T"_NRE_QT)),U,2)_"\"""_$P($T(@("T"_(NRE+8)_QT)),U,2)_"""\"_$S(NRE=1:3,258[NRE:6,1:5)_"\\K?.N"
33	S R=R_$S(NRE=1:"",1:"!(K?.N1"".""1N")_$S(NRE=1:"",258[NRE:"&QD)",1:")")_$S(NRE=1:"",1:"!(K?.N1"".""2N")
35	S R=R_$S(NRE=1:"",258[NRE:"&QD)",1:")")_$S(3467[NRE:"&(K<100)",1:"")_"!(""-,""[K&($L(K)=1))" D R0 G 3:K="-" I K="," D S1 G 2
37	S $P(B,D,NRE)=K D S2 G 3
	;
4	S ^(NRR)=B G 2
	;
YZ	Q
	;
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
	;
S1	F FP=419,624:100:1324 W @F,@F2
S1Z	Q
	;
S2	S FP=5+NRE*100+24 W @F,@F2,+K I NRE=1 W $P($T(@("T21"_QT)),U,2) W:K'=1 $P($T(@("T21"_QT)),U,3) W $P($T(@("T21"_QT)),U,4) G S2Z
S2A	I 3467[NRE W " %"
S2Z	Q
	;
C1	W !?2,$P($T(@("T17"_QT)),U,2),$P(P33,D,12),$P($T(@("T17"_QT)),U,3),$P(P33,D,12),!?2,$P($T(@("T18"_QT)),U,2) Q
	;
	Q
Z	X ^cZ Q
ZZ	; 22.06.04 - 16 u 32 * V8