cT489 ;INDELING BOEKJAREN ;%T48* ; [ 01/12/01  10:55 AM ]
 G 1
 ;
T0 ;Indeling boekjaren ;
 ;
T0F ;Division années comptables ;
 ;
T0E ;Classification fiscal years ;
 ;
 ; AT = aantal afgesloten boekjaren
 ; BF = muntcode firma ivm cumuls & dagboeken
 ; QD = decimalen firma ivm cumuls & dagboeken
 ; BJ = oudst openstaande boekjaar
 ; BPA = laatst afgesloten boekingsmaand
 ; BPB = indeling boekja(a)r(en)
 ; J1 = oudste boekjaar
 ; J3 = jongst openstaande boekingsmaand
 ; J4 = jongst openstaande boekjaar
 ; KM1(J) = beginperiode boekjaar
 ; KM2(J) = eindperiode boekjaar
 ; VM(BF) = officiële muntcode
 ; BA39 = inhoud van ^_Q_BA(39)
 ;
1 S BPB=@("^"_Q_"BA(2)"),BPA=^(7),AT=$D(^(26)) I 'AT D S1
11 S AT=^(26),BA39=^(39),BJ=$P(BPB,D,2)\1,J1=BJ-AT
12 S I=$$MNTC^cAFE1(Q,BJ),BF=$P(I,D),QD=$P(I,D,2)    ; cumuls & dagboeken
13 F I=0:1:AT S BPX=$P(BPB,D,I*3+1,I+1*3),J1=$P(BPX,D,2)\1,KM2(J1)=$E($P(BPX,D,2)_0,1,7),KM1(J1)=$E($P(BPX,D,3)+.01_0,1,7)
14 F I=0:1:AT S BPX=$P(BPB,D,I*3+1,I+1*3),J1=$P(BPX,D,2)\1 I KM1(J1)#1=.13 S KM1(J1)=KM1(J1)+.88
15 S J3=^(25)/100+BPA S:J3#1>.12 J3=J3+.88 S J3=$E(J3_0,1,7),J4=BJ
17 I J3>KM2(BJ) S J4=J4+1,KM2(J4)=$E(KM2(BJ)+1_0,1,7),KM1(J4)=$E(KM2(BJ)+.01_0,1,7) I KM1(J4)#1=.13 S KM1(J4)=KM1(J4)+.88
18 F I=J1:1:J4 I '$D(KM1(I)) S (KM1(I),KM2(I))=I-1+.99
19 I J4=BJ S KM1(BJ+1)=$E(KM2(BJ)+.01_0,1,7),KM2(BJ+1)=$E(KM2(BJ)+1_0,1,7) I KM1(BJ+1)#1>.12 S KM1(BJ+1)=KM1(BJ+1)+.88
 ;
2 S VM(BF)=BF I $D(^(11,BF)) S VM(BF)=$P(^(BF),D)
 ;
YZ K BPX Q
 ;
 ; aantal afgesloten boekjaren
S1 S AT=AT+1,BPX=$P(BPB,D,AT*3+1,AT+1*3) I $P(BPX,D)?5N,$P(BPX,D,2)?4N1"."2N,$P(BPX,D,3)?4N1"."2N G S1
S1Z S AT=AT-1,^(26)=AT Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84