cAT176 ;Betalingsherinneringen ;%AT17 ;do uit %AT170 ; [ 01/03/01  4:57 PM ]
 G 1
 ;
T0 ;Printen betalingsherinneringen ;
T1 ;Overzicht;
T3 ;Bevestiging overzicht;
T4 ;.[] = goed geprint   ,[] = hernemen;
 ;
T0F ;Edition des rappels ;
T1F ;Aperçu;
T3F ;Confirmation de l'aperçu;
T4F ;.[] = bien imprimé   ,[] = reprendre;
 ;
T0E ;Print reminders of payment ;
T1E ;Survey;
T3E ;Confirmation survey;
T4E ;.[] = print corretly   ,[] = retry;
 ;
S1 S K=$P(R,D,X),P(X)=$E($P(K,"-"),2,9),H(X)=P(X),P(X+10)=$P(K,"-",2),H(X+10)=P(X+10) S:K["V" P(X)=-P(X),P(X+10)=-P(X+10)
S1Z Q
 ;
1 D ^cAN3223($P($T(@("T1"_QT)),U,2),"1",">80",0) G YZ:K="-"
11 K HNR F HNR=1:1:$P(P33,D,12) S HNR(HNR)="" I $D(@("^"_Q_"KH(HNR,$P(P39,D,2),0)")) S HNR(HNR)=^(0)
13 K P,H S R=@("^"_Q_"BA(16)"),P(1)=-$P(R,D),H(1)=-P(1),P(6)=$P(R,D,6),H(6)=P(6) F X=2:1:5 D S1
15 I +H(6) S H(5)=H(5)-1,P(5)=H(5)
17 I '+H(6) S H(5)=$P(R,D,5),P(5)=H(5)
19 X F70 W @F80 D ^cAT177 X F71
 ;
2 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
21 S R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_"\"""_$P($T(@("T4"_QT)),U,2)_"""\1\\""-,.""[K&$L(K)" D R0 G 1:K'="."
 ;
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
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84