cTE15 ;BEREKENEN REKENINGEN ;%TE14 ; [ 04/12/00   9:06 AM ]
 Q    ; VJ-27.10.98
 ;
T0 ;Berekenen rekeningen ;
T1 ;Periode ;
T2 ;Beginsaldo's ;
T4 ;Rekening heeft geen balansrekening : ;
T5 ;Ongeldige balansrekening : ;
T6 ;    Consolidatie;
 ;
T0F ;Calcul des comptes ;
T1F ;Période ;
T2F ;Soldes initiaux ;
T4F ;Ce compte n'a pas de compte de balance : ;
T5F ;Compte de balance invalide : ;
T6F ;    Consolidation;
 ;
1 S:'$D(EXSW) EXSW=0 S:'$D(H) H=Q S:EXSW H=Q,EXSW=1 S G=H S:'$D(PRINT) PRINT=0 Q:'$D(@("^"_Q_"BL"))
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 L @("^"_Q_"BA(""%TE"")"):2 E  D TXT^cAFA1(14) G YZ
13 S BPB=@("^"_Q_"BA(2)")
14 S:'$P(BPB,D,4) BPB=$P(BPB,D,1,3)_D_(BPB-12)_D_$J($P(BPB,D,2)-1,0,2)_D_$J($P(BPB,D,3)-1,0,2) ; ,^(2)=BPB ; VJ-29.09.98
15 S X1=$P(BPB,D,6),X2=$P(BPB,D,4),BM=BP#1*100,BJ=BP\1,X3=$P(BPB,D,5)
17 I BP>X3 S X1=X3,X2=BPB,X3=$P(BPB,D,2) S:BP>X3 X1=X3,X2=X3\1*12+(X3#1*100),X3=X3+1
18 S CX=BJ*12+BM-X2+1,CJ=X3\1 S:BP#1=0 CJ=+BP,CX=1
19 I Q'=G S K=@("^"_Q_"BA(21,0)") F I=1:1 S CJ=CJ+.02 Q:$P(K,D,I)=G
 ;
2 S I1=0,Q4="^"_Q_"BL(I1)",Q2="^"_Q_"BL(K_"" "",0)" S:EXSW CJ=CJ+.02
21 S I1=$N(@Q4) G 25:I1=-1 S K=^(I1,0),I=$P(K,D,3) I 'I S $P(^(CJ),D,CX)="",$P(^(CJ+.01),D,CX)="" G 21
22 G 21:$N(^(0))=-1 K @Q4 S @("^"_Q_"BL(I1,0)")=K G 21
25 S FP=403,I=$P($T(@("T2"_QT)),U,2) S:BP#1 I=$P($T(@("T1"_QT)),U,2)_^cBA(2,$E(QT_"N"),BP#1*100) W @F,I," '",$E(BP,3,4),@F1
26 W:EXSW $P($T(@("T6"_QT)),U,2) S @%Q1=0,FP=901 W @F
 ;
3 S BPB=@("^"_H_"BA(2)")
31 S:'$P(BPB,D,4) BPB=$P(BPB,D,1,3)_D_(BPB-12)_D_$J($P(BPB,D,2)-1,0,2)_D_$J($P(BPB,D,3)-1,0,2) ; ,^(2)=BPB ; VJ-29.09.98
33 S X1=$P(BPB,D,6),X2=$P(BPB,D,4),BM=BP#1*100,BJ=BP\1,X3=$P(BPB,D,5)
35 I BP>X3 S X1=X3,X2=BPB,X3=$P(BPB,D,2) S:BP>X3 X1=X3,X2=X3\1*12+(X3#1*100),X3=X3+1
37 S BX=BJ*12+BM-X2+1,BJ=X3\1 S:BP#1=0 BJ=+BP,BX=1
38 S I1=0,HF=1,Q1="^"_H_"AR(I1)" W:EXSW !,@("^"_H_"BA(99,1)"),!
39 I $D(@("^"_H_"BA(39)")) S K=$P(^(39),D,1) I $L(K),$D(@("^"_Q_"BA(11,K)")) S K=^(K),HF=$P(K,D,6)/$P(K,D,3)
 ;
4 S I1=$N(@Q1) G 5:I1=-1
41 S K=^(I1,0) G 4:$P(K,D,13)=1 S K=$P(K,D,7) W $$CR^cA334 W I1,@F2
42 I 'K S K=$E($P($T(@("T4"_QT)),U,2)_I1_$P(^(0),D,2),1,78) D F1 G 4
43 S T=0 G 45:BX>1,45:$P(BPB,D,2)\1'<BJ
44 S S4=$P(BPB,D,2)\1 I $D(^(S4)) S X1=^(S4),X2=^(S4+.02) F S4=1:1:24 S T=T+$P(X1,D,S4)-$P(X2,D,S4)
45 S S4=$D(^(BJ)) S:S4 T=T+$P(^(BJ),D,BX)-$P(^(BJ+.02),D,BX)
46 S T=T*HF,T1=0 S:$D(^(BJ+.04)) T1=$P(^(BJ+.04),D,BX)-$P(^(BJ+.05),D,BX)*HF
48 I $D(@Q2),'$P(^(0),D,3) S T=T+$P(^(CJ),D,CX),T1=T1+$P(^(CJ+.01),D,CX) S:'T T="" S:'T1 T1="" S $P(^(CJ),D,CX)=T,$P(^(CJ+.01),D,CX)=T1 G 4
49 S K=$E($P($T(@("T5"_QT)),U,2)_I1_">> "_K,1,78) D F1 G 4
 ;
5 G 6:'EXSW I $D(@("^"_H_"BA(21,1)")) S X4=^(1),Q3="^"_H_"VE(BP)" F I=2:1 S KC=$P(X4,D,I) Q:'KC  D 9
51 I $D(@("^"_H_"BA(21,2)")) S X4=^(2),Q3="^"_H_"AA(BP)" F I=2:1 S KC=$P(X4,D,I) Q:'KC  D 9
59 S H=@("^"_Q_"BA(21,0)"),EXSW=EXSW+1,H=$P(H,D,EXSW) G 3:$L(H)
 ;
6 I 'EXSW S:'$D(@("^"_Q_"BA(""%TE"",H)")) @("^"_Q_"BA(""%TE"",H)")=BP_D_DT S K=^(H) S:K<BP ^(H)=BP_D_DT_" - "_TD
61 E  S:'$D(@("^"_Q_"BA(""%TE"",0)")) @("^"_Q_"BA(""%TE"",0)")=BP_D_DT S K=^(0) S:K<BP ^(0)=BP_D_DT_" - "_TD
62 I PRINT X F70 W $$FF^cA334 X F71
65 G YZ
 ;
9 Q:'$D(@Q3)  S X3=$N(^(BP,-1)),X3=-1
93 S X3=$N(^(X3)) Q:X3=-1  I $P(^(X3),D,4)'=KC S X3=X3+.9 G 93
94 S U3=Q3["VE"*-2+1*($E(^(X3),1)="C"*-2+1)
95 S X3=X3+.01 G 93:'$D(^(X3)) S U1=^(X3)
96 S U2=$P(U1,D,1),U1=$P(U1,D,2,99) G 95:'$L(U2)&'$L(U1),96:'$L(U2)
97 S I1=$P(U2,"#",1),U2=$P(U2,"#",4) G 99:'U2!'$D(@Q1) S K=$P(^(I1,0),D,7) G 99:'K,99:'$D(@Q2)
98 S $P(^(CJ),D,CX)=$P(^(CJ),D,CX)-(U3*U2)
99 S K=$D(@Q3),K=$N(^(X1,-1)) G 96
 ;
YZ S @%Q1=1 Q
 ;
F1 W ?20,K,?F0,! I PRINT X F70 W @F80 W !,I1,?20,K,! X F71
FZ Q
 ;
Z X ^cZ Q
ZZ ; 19.04.00 - 14 u 04 * V7.3