cAT171 ;Betalingsherinneringen ;%AT17 ;Do uit %AT170 ; [ 01/03/01  5:24 PM ]
 G 1
 ;
T0 ;Printen betalingsherinneringen ;
T1 ;Overschrijvingen;
T3 ;Positioneertest;
T4 ;+x[] = x posities naar rechts   Lx[] = x lijnen naar onder;
T5 ;-x[] = x posities naar links    OK[] = einde positioneertest;
T6 ;Overschrijvingen ok;
T7 ;.[] = goed geprint   ,[] = hernemen;
 ;
T0F ;Edition des rappels ;
T1F ;Virements;
T3F ;Positionnement;
T4F ;+x[] = x positions à droite   Lx[] = x lignes en dessous;
T5F ;-x[] = x positions à gauche   OK[] = positionnement ok;
T6F ;Confirmation des virements;
T7F ;.[] = bien imprimé   ,[] = reprendre;
 ;
T0E ;Print reminders of payment ;
T1E ;Transfers;
T3E ;Positioning test;
T4E ;+x[] = x positions to the right   Lx[] = x lines to the bottom;
T5E ;-x[] = x positions to the left    OK[] = end positining test£;
T6E ;Transfers ok;
T7E ;.[] = printed corretly   ,[] = retry;
 ;
S1 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
S1Z Q
 ;
1 D ^cAN3223($P($T(@("T1"_QT)),U,2),"1","",0) G YZ:K="-"
11 X F70 S FP=24 W @F80,@F32 S OK=0
 ;
 ; klanten in alfabetische volgorde
2 S KI1=""
21 S KI1=$O(^HULP(boot,$J+.02,KI1)) G 4:KI1="" S K=^(KI1,0),B(1)=@("^"_Q_"KL(KI1,0)"),B(2)=$G(^(1))
23 I $$SIG^cAFA1("ISO.LAND",$P(B(1),D,8),101)'=$P(P39,D,3) G 21
25 S TVV=$P(K,D,3)+$P(K,D,4)+$P(K,D,5) G 21:TVV'>0 S MNT=$P(K,D,7),R=$L($P(MNT,U,3,4)) G 21:R
27 I $L($P(MNT,U,2)),$P(MNT,U,2)'=$P(P39,D) G 21
 ;
3 S R=TVV D ^cAT172 G 37:OK
31 X F71 D S1 S R="PD\22\3\"_$P($T(@("T3"_QT)),U,2)_"\C1\2\\K?1""+""1N!(K?1""-""1N)!(K?1""L""1N)!(K=""OK"")!(""-,""[K&($L(K)=1))\\\1" D R0
33 G 1:K="-",YZ:K="," X F70 S FP=24 W @F80,@F32 G 37:PD="OK" I $E(PD)="L" X "F I=1:1:$E(PD,2) W !" G 3
35 X "S $P(P33,D,14)=$P(P33,D,14)"_PD S:$P(P33,D,14)<0 $P(P33,D,14)=0 G 3
37 S OK=1 G 21
 ;
4 X F71 D S1 S R="K\22\3\"_$P($T(@("T6"_QT)),U,2)_"\"""_$P($T(@("T7"_QT)),U,2)_"""\1\\""-,.""[K&$L(K)" D R0 G 1:K'="."
 ;
YZ K B,OK 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
 ;
C1 W !?2,$P($T(@("T4"_QT)),U,2),!?2,$P($T(@("T5"_QT)),U,2) Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84