cAT177 ;Betalingsherinneringen ;%AT17 ;do uit %AT176 ; [ 01/02/01  2:14 PM ]
 G 1
 ;
T0 ;Printen betalingsherinneringen ;
T1 ;Blz :;
T2 ;Overzicht herinneringen;
T3 ;Intern document;
T4 ;' Herinnering;
T5 ;Ref. ;factuurdatum : ; - vervaldatum : ;
T6 ;: Nr. & naam van de klant   :Fac/C.N. datum:Totaal vervallen:;
T7 ;  Vervallen  :\  Niet-verv. :;
T8 ; D.;
T9 ;Totaal verv.;
T10 ;Herinner.kost;
T11 ;Intresten;
T12 ;Overdr ;
T13 ;Totaal ;
 ;
T0F ;Edition des rappels ;
T1F ;Page:;
T2F ;Aperçu des rappels;
T3F ;Document interne;
T4F ;' Rappel;
T5F ;Réf. ;date facture : ; - échéance    : ;
T6F ;: N° & nom du client        :Fac/N.C. date :   Total échu   :;
T7F ;    Echu     :\   Non échu  :;
T8F ; J.;
T9F ;Total échu;
T10F ;Frais rappel;
T11F ;Intérêts;
T12F ;Transf ;
T13F ;Total ;
 ;
T0E ;Print reminders of payment ;
T1E ;Pge :;
T2E ;Survey of reminders;
T3E ;Internal document;
T4E ;' Reminder;
T5E ;Ref. ;Invoice date : ; - Due date : ;
T6E ;: Nr & name of the customer   :Fac/C.N. date:Due total:;
T7E ;  Overdue  :\  Not overdue :;
T8E ; D.;
T9E ;Due total;
T10E ;Reminder cost;
T11E ;Interests;
T12E ;Transfer ;
T13E ;Total ;
 ;
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 !,":" F I=27,14,16,13,13,13,13,13 S K=R,$P(K,K,I)=K W K,":"
S1Z Q
 ;
S2 S T=T+1 W !,":" W:$D(A(T)) A(T) W ?28,":"
S2Z Q
 ;
S3 S R=$L($P(MNT,U,3,4))
S3Z Q
 ;
S4 S K=$P($T(@("T3"_QT)),U,2) S:$L($P(P33,D,15)) K=$P(P33,D,15) I HNR'>$P(P33,D,12) S K=HNR_$P($T(@("T4"_QT)),U,2) S:$L(HNR(HNR)) K=HNR(HNR)
S4Z Q
 ;
S5 S KI1="",LN=99 K TOT F I=0:1:5 S TOT(I)=0
S5Z Q
 ;
S6 D S4 W !,": ",$E($P($T(@("T"_(KI1=""+12)_QT)),U,2)_K,1,26),?28,":",?43,":" S R=TOT(0)_"\15\\"_QD D:R R3 W ?60,":"
S6A F I=1:1:5 S R=TOT(I)_"\12\\"_QD D:R R3 W ?14*I+60,":"
S6B S R="-" D S1 W $$FF^cA334 
S6Z Q
 ;
1 S BLZ=0,HNR=VNR S:VNR="." HNR=$P(P33,D,12) I VNR D S5 G 13
11 S HNR=HNR+1 G YZ:HNR>($P(P33,D,12)+1) D S5
13 S KI1=$O(^HULP(boot,$J+.02,KI1)) G 6:KI1="" S U2=^(KI1,0) I HNR'>$P(P33,D,12) G 13:$P(U2,D)'=HNR
15 I HNR>$P(P33,D,12) G 13:$P(U2,D)'>$P(P33,D,12)
 ;
2 S KS(0)=$P(U2,D,4),KS(3)=$P(U2,D,5),DC=$P(U2,D,6),MNT=$P(U2,D,7),ADL=$P(U2,D,8) K K F I=0:1:5 S K(I)=0
21 K A,B D S3 S B(1)=@("^"_Q_"KL(KI1,0)"),A(1)=$E($J($P(B(1),D),5)_" "_$P(B(1),D,2),1,27),T=0,KI2=0 K ^HULP(boot,$J+.09)
23 I OVZ>1 S A(2)=$E($J("",6)_$P(B(1),D,7),1,27),A(3)=$E($J("",6)_$P(B(1),D,13),1,27)
25 I OVZ=1 S ADL=1 D
 . I 'R S:KS(0) ADL=ADL+1 S:KS(3) ADL=ADL+1 S:KS(0)!KS(3) ADL=ADL+1
27 I OVZ=2 S ADL=1 D  I ADL<3 S ADL=3
 . I 'R S:KS(0) ADL=ADL+1 S:KS(3) ADL=ADL+1 S:KS(0)!KS(3) ADL=ADL+1
29 I OVZ=3 S ADL=ADL+1 D  I ADL<3 S ADL=3
 . I 'R S:KS(0) ADL=ADL+1 S:KS(3) ADL=ADL+1 S:KS(0)!KS(3) ADL=ADL+1
 ;
3 S LN=LN+ADL+1 I LN>LNMAX S R="-" D:LN<100&(OVZ<3) S1 D:LN<100 S6 D HD S:LN+ADL+1>LNMAX ADL=LNMAX-LN-1 G 3
30 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 30
31 S I=$O(^HULP(boot,$J+.09,"")) G 4:I="" S KI2=^(I) K ^(I)
32 S U2=^HULP(boot,$J+.02,KI1,KI2),R=$P(U2,D,3)_D_RVD D ^cA326
33 S:$P(U2,D)="C" $P(U2,D,4)=-$P(U2,D,4),$P(U2,D,7)=-$P(U2,D,7) S K=5 S:R'>0 K(0)=K(0)+$P(U2,D,7)
35 S:R<P(1) K=1 S:(R'>P(12)&(R'<P(2))) K=2 S:(R'>P(13)&(R'<P(3))) K=3 S:(R'>P(14)&(R'<P(4))) K=4 S K(K)=K(K)+$P(U2,D,7)
37 G 31:OVZ<3 D S2 W $P(U2,D),$J(KI2,7),$J($E($P(U2,D,2),1,5),6),":",$P(U2,D,6),?47
38 S DC=$$DEC^cAFA1($P(U2,D,6)) I R'>0 S R=$P(U2,D,4)_"\12\\"_DC D R3
39 X "F I=1:1:K W ?14*I+46,"":""" S R=$P(U2,D,7)_"\12\\"_QD D R3 X "F I=K+1:1:6 W ?14*I+46,"":""" G 31
 ;
4 D S2 W $P($T(@("T9"_QT)),U,2),?43,":",$E($P(P39,D)_"   ",1,3) S R=K(0)_"\12\\"_QD D R3 W ":" F I=1:1:5 S R=K(I)_"\12\\"_QD D:R R3 W ?14*I+60,":"
41 I KS(0) D S2 W $P($T(@("T10"_QT)),U,2),?43,":" S R=KS(0)_"\15\\"_QD D R3 W ":" F I=1:1:5 W ?14*I+60,":"
43 I KS(3) D S2 W $P($T(@("T11"_QT)),U,2),?43,":" S R=KS(3)_"\15\\"_QD D R3 W ":" F I=1:1:5 W ?14*I+60,":"
45 I KS(0)!KS(3) D S2 W $P($T(@("T13"_QT)),U,2),?43,":" S R=K(0)+KS(0)+KS(3)_"\15\\"_QD D R3 W ":" F I=1:1:5 W ?14*I+60,":"
47 I $P(MNT,U,2)=$P(P39,D) S TOT(0)=TOT(0)+KS(0)+KS(3) F I=0:1:5 S TOT(I)=TOT(I)+K(I)
 ;
5 I T<3 F I=T+1:1:3-(OVZ=1*2) D S2 X "F X=43,60,74:14:130 W ?X,"":"""
51 S R=" " S:OVZ=3 R="-" D S1 G 13
 ;
6 I LN=99 G YZ:$L(VNR),11
61 S R="-" D:OVZ<3 S1 D S6 G 11:VNR=""
 ;
YZ K HNR,H,P Q
 ;
HD S BLZ=BLZ+1,LN=4,K=$P($T(@("T2"_QT)),U,2) W !,QN,?66-$L(K),@F82,K,@F83,$$CR^cA334,?123,$P($T(@("T1"_QT)),U,2),$J(BLZ,3)
HDA D S4 W !,NM2,?66-$L(K),@F82,K,@F83,$$CR^cA334,?123,DT S K=$P($T(@("T5"_QT)),U,2)_$P($T(@("T5"_QT)),U,3)_RFD_$P($T(@("T5"_QT)),U,4)_RVD
HDB W !,NM3,?66-($L(K)\2),K,?124,TD,!
HDC S R="-" D S1 W !,$P($T(@("T6"_QT)),U,2),$P($P($T(@("T7"_QT)),U,2),D) F X=2:1:4 W $P($P($T(@("T7"_QT)),U,2),D,P(X)>0+1)
HDD W $P($P($T(@("T7"_QT)),U,2),D,2) W ! F X=0,28,43,60 W ?X,":"
HDE F X=1:1:5 W ?X*14+50 W:"15"[X "+ " W H(X) W:"234"[X "-",H(X+10) W $P($T(@("T8"_QT)),U,2) W ?X*14+60,":"
HDF D S1
HDZ Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84