cT19 ;REKENINGENPLAN ;%T19 ; [ 01/02/01  11:53 AM ]
 G 1
 ;
T0 ;Rekeningenplan ;
T1 ;blz :;
T2 ;Keuze;
T3 ; [] = enkel de operationele rekeningen   -[] = einde programma;
T4 ;.[] = alle rekeningen (ook de rekeningen 'buiten gebruik');
T5 ;Operationele rekeningen;Alle rekeningen;
T7 ;-----------------------------------------------;
 ;
T0F ;Plan comptable ;
T1F ;page:;
T2F ;Choix;
T3F ; [] = seulement les comptes opérationels   -[] = fin du programme;
T4F ;.[] = tous les comptes (les comptes 'hors usage' inclus);
T5F ;Les comptes opérationels;Tous les comptes;
T7F ;-----------------------------------------------;
 ;
T0E ;Chart of accounts ;
T1E ;pge :;
T2E ;Choice;
T3E ; [] = only operational accounts   -[] = end program;
T4E ;.[] = all accounts (also accounts 'out of use');
T5E ;Operational accounts;All accounts;
T7E ;-----------------------------------------------;
 ;
HD S BLZ=BLZ+1,LN=0 W !,NM1,?72,$P($T(@("T1"_QT)),U,2),$J(BLZ,3),!,NM2,?30,@F82,$P($T(@("T0"_QT)),U,2),@F83,$$CR^cA334 W ?72,DT,!,NM3,?73,TD,! Q
 ;
1 I 'QP G 2
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 S R="K\22\3\"_$P($T(@("T2"_QT)),U,2)_"\COM\1\\""-.""[K" D R0 G YZ:K="-" S PP(1)=$L(K),FP=903 W @F,@F1,$P($T(@("T5"_QT)),U,PP(1)+2)
13 D ^cAN3223("","1#9") G 12:",-"[K&$L(K) I K="." D R9 G YZ
 ;
2 S (I1,POS,BLZ,GTX)=0,NM1=QN,NM2=@("^"_Q_"BA(99,2)"),NM3=^(3) X F70 W @F80 D HD
 ;
3 S XGTX=GTX,I1X=I1,I1=$O(@("^"_Q_"AR(I1)")) G Y:I1="",3:'$D(^(I1,0)) S K=^(0) I $P(K,D,30)=2 G 3
31 S GNM=$P(K,D,2),GNM2=$P(K,D,15),GTX=$P(K,D,13) I GTX=2,'PP(1) S GTX=XGTX G 3
32 I GTX=1 S POS=$P("0\0\0\3\7\12\18\25",D,$L(I1)) S:LN>($L(I1)*2+40) LN=99
33 E  S:XGTX=1 POS=POS+$L(I1X) S:POS<7 POS=7
34 S:$E(I1,1)'=$E(I1X,1)&I1X LN=99 S LN=LN+2 I LN>LNMAX W $$FF^cA334 D HD
35 W !,?POS,I1 W:GTX=2 "*" W:GTX'=1 ?POS+10 W GNM,! I GTX'=1 G 3
36 S K=$L(GNM) I $L(GNM2) W ?POS+$L(I1),GNM2,! S LN=LN+1 S:$L(GNM2)>K K=$L(GNM2)
37 W ?POS+$L(I1),$E($P($T(@("T7"_QT)),U,2),1,K)
38 G 3
 ;
Y W $$FF^cA334 X F71
YZ Q
 ;
COM W !?2,$P($T(@("T3"_QT)),U,2),!?2,$P($T(@("T4"_QT)),U,2) 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
 ;
R9 S QPT=$T(+0) D ^cA109
R9Z Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84