cTA101 ;Analytische uitsplitsing/groepering ;%TA10 ; [ 01/02/01  6:19 PM ]
 G 1
 ;
T0 ;Analytische uitsplitsing/groepering ;
T1 ;Blz :;
T2 ;Analytische rekening;Debet;Credit;
T3 ;Grootboekrekening;Debet;Credit;
T4 ;Totaal;
 ;
T0F ;Répartition analytique des genres de frais ;
T1F ;Page:;
T2F ;Compte analytique;Débit;Crédit;
T3F ;Compte grand-livre;Débit;Crédit;
T4F ;Total;
 ;
T0E ;Analytical categorization/grouping ;
T1E ;Pge :;
T2E ;Analytical account;Debit;Credit;
T3E ;General account;Debit;Credit;
T4E ;Total;
 ;
S1 S DEB=DEB+A(0),CRE=CRE+A(1)
S1Z Q
 ;
S2 S R="" D S3 S R=$P($T(@("T4"_QT)),U,2)_D_SDEB_";;1\"_SCRE_";;1" D S9 S R="" D S3 W !
S2Z S LN=LN+4 Q
 ;
S3 W !
S3A F S1=1:1 Q:'$L($P(TAB,D,S1))  S S2=$P(R,D,S1) W ?$P(TAB,D,S1) W:$P(S2,U)="" @F30 W:$P(S2,U) "-" W:$P(S2,U)=0 " " I $P(TAB,D,S1+1),'$P(S2,U,2) W $E(LI,1,$P(TAB,D,S1+1)-$P(TAB,D,S1)-1)
S3Z K R,S1,S2 Q
 ;
S5 S SDEB=SDEB+DEB,SCRE=SCRE+CRE I LN>(LNMAX-3) S R="" D S3,HD,HD1
S5A S R=NAN_D_DEB_";;1\"_CRE_";;1" D S9
S5Z S LN=LN+1 Q
 ;
S7 S S4=0,S5=A1,S9=$P(S9,",")_",S5)" G S7Y:$O(^HULP(boot,$J,0,S4))
S7A S S5=$O(@S9) G S7Y:S5\1'=A1 S S6=^(S5)
S7B S S3=$P(S6,D),S6=$P(S6,D,2,999) I S3="" G S7A
S7C I Q00="K"&($P(S3,"#")=I1)&($P(S3,"#",9)=ARA)!(Q00="P"&($P(S3,"#")=ARA)&($P(S3,"#",9)=I1)) S S4=S4+1,^HULP(boot,$J,0,S4)=S3
S7D G S7B
S7Y S S4=$O(^HULP(boot,$J,0,0)) I S4 S S3=^(S4),BE=$P(S3,"#",4) K ^(S4)
S7Z K S3,S4,S5,S6,S9 Q
 ;
S9 W !
S9A F S1=1:1 S S2=$P(R,D,S1),S3=$P(TAB,D,S1),S4=$P(TAB,D,S1+1) W ?S3 W:$P(S2,U,2)="" @F30 W:$P(S2,U,2) " " Q:'$L(S4)  I $L($P(S2,U)) W:'$P(S2,U,3) " ",$E($P(S2,U),1,S4-S3-3) I $P(S2,U,3) S S5=R,R=$P(S2,U)_D_(S4-S3-2)_D_D_QD D R3 S R=S5
S9Z K R,S1,S2,S3,S4,S5 Q
 ;
HD W:BLZ $$FF^cA334 S LN=0,BLZ=BLZ+1,K=TIT W !,QN,?72,$P($T(@("T1"_QT)),U,2),$J(BLZ,3),!,NM2,?30,K,?72,DT
HDA S K=KM1_" - "_KM2 W !,NM3,?40,K,?73,TD,!!
HDZ Q
 ;
HD1 W !?$P(TAB,D)+2,NGR I 'OK W ! G HD1Z
HD1A S R="" D S3 S R="" F II=1:1 Q:'$L($P(TAB,D,II))  S R=R_$P($T(@$S(Q00="P":"T3",1:"T2")),U,II+1)_D
HD1B D S9 S R="" D S3
HD1Z S LN=OK*2+2+LN Q
 ;
1 S LI="",$P(LI,"-",132)="-",I4=2E13,TAB="0\53\66\79",(SDEB,SCRE,SWA)=0
11 S K=$O(@Q01) I K="" S OK=0 G 17:ACT&'SWA,YZ
13 I $E(K)=2,$E(K,9,14)/100'<KM1,$E(K,9,14)/100'>KM2 S (OK,SWA)=1
15 E  S I4=K G 11
17 D HD:'BLZ!(BLZ&PSW)!(LN>('OK*7-9+LNMAX)),HD1 I 'OK G YZ ; minstens 3 detaillijnen per blok
 ;
 ; per analyt. rek
2 S I4=$O(@Q01) G 6:I4="" S I4Z=I4,I4=$E(I4,1,8)_(KM1\1)_$P(KM1,".",2)
20 G 2:$D(^HULP(boot,$J+.09,$E(I4,2,8))) S ^($E(I4,2,8))=1
21 S (DEB,CRE)=0,SWF=1,ARA=$P($E(I4,2,8)," ")_" "
22 S NAN=$E(I4,2,8)_"   "_$S($D(@("^"_Q_$S(Q00="P":"AR",1:"ARA")_"(ARA,0)")):$P(^(0),D,2),1:"")
23 D 3,S5 S I4=I4Z
25 S I4=$O(@Q01) I $E(I4,1,8)=$E(I4Z,1,8) S I4Z=I4 G 25
27 S I4=I4Z G 2
 ;
 ; overlopen link-historieken
3 S I4=$O(@Q01) Q:I4=""
31 G 3:$E(I4,1,8)'=$E(I4Z,1,8),3:$E(I4,9,14)/100<KM1,3:$E(I4,9,14)/100>KM2
33 S A=^(I4),A1=$P(A,D),BP=$E($E(I4,9,14)/100_"0",1,7),I=A G 3:'$L(A1),5:I4["."
 ;
 ; maandhistoriek
4 S A(0)=$P(A,D,3),A(1)=$P(A,D,4) D S1 G 3
 ;
 ; detailhistoriek
5 S A1=I I '$D(^HULP(boot,$J,0)) S A1=$P(A,D),A=$P(A,D,2,99) G 5:A1=I
51 G 3:A1="" S SRT=$E(A1),A1=$E(A1,2,99),(A(0),A(1))=0 I SRT_A1'=I K ^HULP(boot,$J,0) S I=SRT_A1
53 I SRT="A" G 5:'$D(@Q61) S A2=^(A1),CD=$P(A2,D),S9=Q61 D S7 S A(CD="C")=BE G 59
54 I SRT="V" G 5:'$D(@Q71) S A2=^(A1),CD=$P(A2,D),S9=Q71 D S7 S A(CD="F")=BE G 59
55 I SRT="E",$D(@("^"_Q_"FIE(BP,$P(A1,""#""),$P(A1,""#"",2))")) G 57
56 I SRT'="B"!'$D(@Q95) G 5
57 S A2=^($P(A1,"#",2)),CD=$P(A2,D,6),BE=$P(A2,D,5),A(CD="C")=BE
59 D S1 G 5
 ;
6 D S2
 ;
YZ Q
 ;
R3 S R1=$P(R,D,2),R2=$P(R,D,4),R0=$J($P(R,D),0,R2),R3=" ",R4="" S:R2 R4=","_$P(R0,".",2),R1=R1-1-R2 S:R0<0 R3="-",R0=-R0
R3A S R0=+$P(R0,".") F R5=3,7 S R6=$L(R0) Q:R6'>R5  S R0=$E(R0,1,R6-R5)_"."_$E(R0,R6-R5+1,R6)
R3B W ?$P(R,D,3),$J(R0,R1),R4,R3
R3Z K R0,R1,R2,R3,R4,R5,R6 Q  ;V3 05.07.88
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84