cT803 ;Fin & div: keuze module ;%T80 ; [ 01/12/01  9:41 AM ]
 G 1
 ;
T0 ;Fin & div: keuze module ;
T1 ;Keuze;
T2 ;verder comment.;
 ;
T0F ;Fin & div: choix module ;
T1F ;Choix;
T2F ;info complém.;
 ;
T0E ;Financial and miscellaneous transactions: module choice ;
T1E ;Choice;
T2E ;next comment;
 ;
S2 K A,B,K
S2Z S K=U5 Q
 ;
 ; commentaar oplijnen
S3 S S0=$P(R,D,2)+1 W !?2,/WWR(1)
S3A S S3=J,J=$O(K(J)) G S3H:J="" S S1=J,S2=$P(@("^"_Q_"BA(""%T"",1,Q1,K(J))"),D,QTU*10-8)
S3B S S1=$J(S1,A)_"[] = "_$E(S2_$J("",B),1,B)
S3C G S3F:S0=24 I $X+$L(S1)<81 D S4,S6 G S3A
S3D S S0=S0+1 I S0<25 W !?2 D S6 G S3A
S3E S J=S3 G S3Z
S3F I $X<T!('I&'$L($O(K(J)))) D S6 G S3A
S3G S I=1
S3H I I W:S0<24 !?2 W:$X'>T ?T,$J("",A),"[] = ",$P($T(@("T2"_QT)),U,2) G S3E:$L(J)
S3Z W /WWR(0) K S0,S1,S2,S3 Q
 ;
S4 I S0=$P(R,D,2)+1,T<$X S T=$X
S4Z Q
 ;
 ; K/L afkoppelen
S5 I $P(BA39,D,6)="" G S5Z                           ; P1
S5A I BJ<$P(BA39,D,6) S OK=MNTC=MNTO G S5Z            ; P2
S5B I $P(BA39,D,11)="" S OK=0                         ; P3
S5Z Q
 ;
 ; printen commentaar
S6 W S1 I $X<75 W "   "
S6Z Q
 ;
1 S Q1="FI"
 ;
2 L @Q93:2 E  S R=14 D F2 G Y
 ;
 ; beschikbare modules
3 K K S A=0,B=0,I=""
31 S I=$O(@("^"_Q_"BA(""%T"",1,Q1,I)")) G 37:I="" S K=^(I),OK=0 X $P(K,D,4) 
32 I OK,I>74,I<77 D S5
33 I OK S J=$P(K,D),K(J)=I S:$L(J)>A A=$L(J) S J=$P(K,D,QTU*10-8) S:$L(J)>B B=$L(J) 
35 G 31
37 S J=$P($T(@("T2"_QT)),U,2) I $L(J)>B S B=$L(J)
39 S (I,T)=0,J="" I $D(KW),$L(KW) S (K,U5)=KW,KW="" G Y:K=",",41
 ;
 ; modulekeuze
4 S R="U5\20\3\"_$P($T(@("T1"_QT)),U,2)_"\S3\20\\$L(K)!I\\\1" D R0 G Y:K="-"!(K=",")
41 S (K,K1)=$E(K),FP=2003 W @F,$P($T(@("T1"_QT)),U,2)," : ",U5,@F1
43 I $L(K),$D(K(K)) S I=$P(@("^"_Q_"BA(""%T"",1,Q1,K(K))"),D,3) D S2,@I G 1:$E(RB)="D"!HUX,Y
45 S:$L(K) J="" G 4
 ;
Y I HUX S R=85 D F2 G 1    ; saldo volledig wegboeken
YZ W /CUP(20,1),@F1 L @Q93 Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84