cAT14 ;BEHEER PARAMETERS BOEKHOUDING ;%AT14 ;do naar %AT140,%AT141 ; [ 01/02/01  1:58 PM ]
 G 1
 ;
T0 ;Parameters boekhouding ;
T1 ;Er zijn ;pagina's.;
T2 ;Welke pagina : ;-[] = einde programma;
T3 ;Pagina ;
 ;
T0F ;Paramètres comptables ;
T1F ;Il y a ;pages.;
T2F ;Quelle page : ;-[] = fin du programme;
T3F ;Page ;
 ;
T0E ;Settings accounting ;
T1E ;There are ;pages.;
T2E ;Which page : ;-[] = end program;
T3E ;Page ;
 ;
S2 S U2=A(U1),(K,U3)="" I $L($P(U2,U,4)),@$P(U2,U,4) G S204
S200 I $L($P(U2,U,7)),@$P(U2,U,14) X "S (K,U3)="_$P(U2,U,7) G S204
S202 I $L($P(U2,U,16)),$P(U2,U,16)'?1N.N,$D(@$P(U2,U,16)) X "S (K,U3)="_$P(U2,U,16)
S204 I $L($P(U2,U,8)) X "S U3="_$P(U2,U,8)
S2A S FP=$P(U2,U,5)*100+$P(U2,U,6) G S2Z:'SW5 I '$P(U2,U,23) S FP=FP-3 W @F,@F9,":"
S2B S FP=$P(U2,U,2)*100+$P(U2,U,3) W:$P(U2,U,22) @F,$J(U1#100,2) I '$P(U2,U,23) S FP=FP+2 W @F,@F6,$P(U2,U,1),@F9
S2C S FP=$P(U2,U,5)*100+$P(U2,U,6)
S2Z W:'SW5 @F,$J("",$P(U2,U,9)),$J("",$P(U2,U,13)) W @F,U3 Q
 ;
1 S (SW2,SW4,SW5)=1,PNT="........................................",@%Q1=0
11 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
12 D:'$D(@("^"_Q_"KH(0,0)")) ^cAT140 S K=$O(@("^"_Q_"KH(0,0)"))
13 S X=SW4+'($N(^(SW4+1*100))=-1) G 15:X=SW4 S SW4=X G 13
15 S A(101)=^(101),A(102)=^(102) I SW4=1 D S1 G 23
17 S FP=269 W @F,@F5 S FP=254,K=$T(@("T1"_QT)) W @F,@F5,$P(K,U,2),@F4,SW4," ",@F5,$P(K,U,3) G 35
 ;
19 D TXT^cAFA1(14) G 23
 ;
21 S SW5=0
23 ;
25 S U1=100
27 I SW4>1 S U1=101 D S2 S U1=102 D S2 G 39
28 L @("^"_Q_"BA(33)"):2 E  G 19
29 S U1=$N(A(U1)) I U1>0 D S2 G 29
31 D ^cAT141 G YZ:SW4=1
 ;
35 S FP=2203+F60,K=$P($T(@("T2"_QT)),U,2) W @F,@F1,K S FP=FP+100 W @F,$P($T(@("T2"_QT)),U,3) S FP=FP-100+$L(K)
36 W @F,".",@F2,@F,@F0 R U4 G YZ:U4="-",36:U4'?1N,36:'U4!(U4>SW4)
37 S FP=2103+F60 W @F,@F1 S FP=355 W @F,$P($T(@("T3"_QT)),U,2),U4 G 23:SW5
39 I SW2'=U4!SW5 S SW2=U4,SW5=1,FP=601 W @F,@F1 D S3,S1
41 S U1=SW2*100+2 G 28
 ;
YZ K A,B L  Q
 ;
S1 S Y=$D(@("^"_Q_"KH(0,0)")),Y=SW2+1*100,(X,K)=SW2*100,K=SW2>1*2+K
S1A S X=$N(^(X)) I X>0,X<Y S K=K+1,A(K)=^(X) G S1A
S1Z Q
 ;
S3 S X=102
S3A S X=$N(A(X)) I X>0 K A(X) G S3A
S3Z Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84