cAT175 ;Betalingsherinneringen ;%AT17 ;go uit %AT173 ; [ 01/19/01  11:33 AM ]
 G 1
 ;
T0 ;Printen betalingsherinneringen ;
T1 ;Intern document;
T2 ;Bijkom.kost;Frais de rap.;Mahnungskosten;Reminder costs;Gastos adicionales;
T3 ;Intrest;Intérêt;Zinsen;Interests;Interés;
T4 ;Aantal verzonden;Nombre de rappels;Mahnungsanzahl;Number of reminders;Número de productos enviados;
T5 ;brieven voor deze fact.;pour ce document;für diese Rechnung;for this document;cartas para esta factura;
T6 ; Totaal saldo ;  Solde total ;Gesamt Betrag ; Total amount ; Total importe ;
T7 ;  Te betalen ;    A payer  ;   Zu zahlen ; To be payed ; A pagar ;
T8 ;   Uw tegoed ;Votre crédit ;Ihrem Vorteil; Your credit ; Saldo a su favor ;
T9 ;Refer.datum;Date référ.;Refer.datum;Refer.date;Fecha de ref.;
T10 ;Niet vervall.;  Non échu   ;Nicht faellig; Not overdue ; No caducado ;
T11 ;Printdatum  : ;Date d'imp. : ;Druckdatum  : ;Print date  : ;Fecha de impresión  : ;
 ;
T0F ;Edition des rappels ;
T1F ;Document interne;
T2F ;Bijkom.kost;Frais de rap.;Mahnungskosten;Reminder costs;Gastos adicionales;
T3F ;Intrest;Intérêt;Zinsen;Interests;Interés;
T4F ;Aantal verzonden;Nombre de rappels;Mahnungsanzahl;Number of reminders;Número de productos enviados;
T5F ;brieven voor deze fact.;pour ce document;für diese Rechnung;for this document;cartas para esta factura;
T6F ; Totaal saldo ;  Solde total ;Gesamt Betrag ; Total amount ; Total importe ;
T7F ;  Te betalen ;    A payer  ;   Zu zahlen ; To be payed ; A pagar ;
T8F ;   Uw tegoed ;Votre crédit ;Ihrem Vorteil; Your credit ; Saldo a su favor ;
T9F ;Refer.datum;Date référ.;Refer.datum;Refer.date;Fecha de ref.;
T10F ;Niet vervall.;  Non echu   ;Nicht faellig; Not overdue ; No caducado ;
T11F ;Printdatum  : ;Date d'imp. : ;Druckdatum  : ;Print date  : ;Fecha de impresión  : ;
 ;
T0E ;Print reminders of payment ;
T1E ;Internal document;
T2E ;Bijkom.kost;Frais de rap.;Mahnungskosten;Reminder costs;Gastos adicionales;
T3E ;Intrest;Intérêt;Zinsen;Interests;Interés;
T4E ;Aantal verzonden;Nombre de rappels;Mahnungsanzahl;Number of reminders;Número de productos enviados;
T5E ;brieven voor deze fact.;pour ce document;für diese Rechnung;for this document;cartas para esta factura;
T6E ; Totaal saldo ;  Solde total ;Gesamt Betrag ; Total amount ; Total importe ;
T7E ;  Te betalen ;    A payer  ;   Zu zahlen ; To be payed ; A pagar ;
T8E ;   Uw tegoed ;Votre crédit ;Ihrem Vorteil; Your credit ; Saldo a su favor ;
T9E ;Refer.datum;Date référ.;Refer.datum;Refer.date;Fecha de ref.;
T10E ;Niet vervall.;  Non échu   ;Nicht faellig; Not overdue ; No caducado ;
T11E ;Printdatum  : ;Date d'imp. : ;Druckdatum  : ;Print date  : ;Fecha de impresión  : ;
 ;
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
 ;
S1 W ! W:'$P(P33,D,9) ?V,@F30 W ?V+1 F I=14,10,9,10,13,13 S K=R,$P(K,K,I)=K W:I'=14 @F30 W K
S1A W:'$P(P33,D,9) @F30
S1Z Q
 ;
S2 F LN=LN+1:1:$P(P74,D,2) W !
S2Z Q
 ;
S3 S R=$L($P(MNT,U,3,4))
S3Z Q
 ;
1 G 2:'$P(P33,D,10)
11 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
 ;
2 S KS(0)=$J(KS(0),0,DC),KS(3)=$J(KS(3),0,DC),^HULP(boot,$J+.02,KI1,0)=HNR_D_TNV_D_TVV_D_KS(0)_D_KS(3)_D_DC_D_MNT_D_ADL
21 S TVV=TVV+KS(0)+KS(3) D S3 I KS(0)!KS(3)&'R S R=" " D S1
31 D S3 I 'R&KS(0) W ! W:'$P(P33,D,9) ?V,@F30 W ?V+1,$P($T(@("T2"_QT)),U,TK+1),?V+15,@F30,?V+26,@F30,?V+36,@F30,?V+47,@F30,?V+61,@F30
25 I 'R&KS(0) S R=KS(0)_D_12_D_D_DC D R3 W:'$P(P33,D,9) @F30
27 D S3 I 'R&KS(3) W ! W:'$P(P33,D,9) ?V,@F30 W ?V+1,$P($T(@("T3"_QT)),U,TK+1),?V+15,@F30,?V+26,@F30,?V+36,@F30,?V+47,@F30,?V+61,@F30
29 I 'R&KS(3) S R=KS(3)_D_12_D_D_DC D R3 W:'$P(P33,D,9) @F30
 ;
3 S R="-" D S1 W ! W:'$P(P33,D,9) ?V,@F30 W ?V+1," *.=",$P($T(@("T4"_QT)),U,TK+1),?V+26,@F30 D S3
 I 'R W $P(MNT,U,2) S R=TNV+TVV_D_(19-$L($P(MNT,U,2)))_D_D_DC D R3 W @F30 S R=TNV_D_12_D_D_DC D R3 W @F30 S R=TVV_D_12_D_D_DC D R3
33 W:'$P(P33,D,9) ?V+75,@F30 W ! W:'$P(P33,D,9) ?V,@F30 W ?V+1," ",$P($T(@("T11"_QT)),U,TK+1),DT,?V+26
35 X "F I=20,13,13 S K="""",$P(K,""-"",I)=""-"" W @F30,K" W:'$P(P33,D,9) @F30 W ! W:'$P(P33,D,9) ?V,@F30 W ?V+1
37 W " ",$P($T(@("T9"_QT)),U,TK+1)," : ",RVD,?V+26,@F30,"      ",$P($T(@("T6"_QT)),U,TK+1),@F30,$P($T(@("T10"_QT)),U,TK+1),@F30
39 W:TVV'<0 $P($T(@("T7"_QT)),U,TK+1) W:TVV<0 $P($T(@("T8"_QT)),U,TK+1) W:'$P(P33,D,9) @F30 S R="-" D S1
 ;
4 I HNR>$P(P33,D,12) F X=1:1:$P(P74,D,4) W !
41 E  S X=$D(@("^"_Q_"KH(HNR,KT,11)")) F X=11:1:10+$P(P74,D,4) W ! W:$D(^(X)) ?V,^(X)
43 W ! I TVV<0!(TNV+TVV<0)!(HNR>$P(P33,D,12)) D S2 W ?40,@F82,$S($L($P(P33,D,15)):$P(P33,D,15),1:$P($T(@("T1"_QT)),U,2)),@F83 S TVV=0
45 I $P(P33,D,6)=1 D S2,S3 S R=$S(R:0,1:TVV) D ^cAT172
47 W $$FF^cA334
 ;
YZ Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84