cAT141 ;BEHEER PARAMETERS BOEKHOUDING ;%AT14 ;do uit %AT14 ; [ 01/02/01  1:58 PM ]
 G 1
 ;
T0 ;Parameters boekhouding ;
T1 ;Nummer element\"-[] = einde";
 ;
T0F ;Paramètres comptables ;
T1F ;N° d'élément\"-[] = fin";
 ;
T0E ;Settings accounting ;
T1E ;Number element\"-[] = end";
 ;
1 S SW5=0,R="U1\22\3\"_$P($T(@("T1"_QT)),U,2)_"\2" D R0
11 G 4:U1="-",1:U1'?1N.N!($L(U1)>3),1:'$D(A(SW2*100+U1))
23 S U2=A(SW2*100+U1) I $P(U2,U,12),@$P(U2,U,15) D TXT^cAFA1(69) G 1
25 I $L($P(U2,U,19)),@$P(U2,U,20) X $P(U2,U,19) G 1:K="-"!(K=","),37
27 D ^cA207
29 G 29:K?.E1C.E,1:K="-"!(K=",")
31 S X=$P(U2,U,11) S:'$L(X) X=1 I $L($P(U2,U,21)) S X=X_"&("_$P($T(@$P(U2,U,21)),U,2,99)_")"
33 I K'[D,K'["""",$L(K)'>$P(U2,U,9),@X G 37
35 G 27
 ;
37 S U3=K X:$L($P(U2,U,8)) "S U3="_$P(U2,U,8) S FP=$P(U2,U,5)*100+$P(U2,U,6) W @F,$J("",$P(U2,U,9)),$J("",$P(U2,U,13)),@F,U3
39 S X=$P(U2,U,16),U2="" X "S "_X_"=K" G 1
 ;
4 K U1,U2,U3
 ;
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