LEAT251 ;NAREKENEN OMZET PER MAAND ;%AT251 ; [ 07/11/97   1:20 PM ]
 G 0
 ;
T1 ;HET VERKOOPDAGBOEK ;HET AANKOOPDAGBOEK ;
T2 ;BEVAT :;IS LEEG ;
T3 ;JAARTAL; IS NIET BESCHIKBAAR ;
T4 ; JJJJ[] = bepaald jaar;   -[] = einde programma;
T5 ;JJJJ+[] = alle jaren vanaf JJJJ en volgende;
T6 ;BEVESTIGING\".[] = opstarten   ,[] = hernemen";
T7 ;BESTAND; IS ONBEKEND ;
 ;
0 S QQ=Q,XQ=^cLOG(boot,"Q")
01 S Q=$P(XQ,D),XQ=$P(XQ,D,2,999) I Q'="SYS",Q?1.3U D LE
02 G 01:$L(XQ) S Q=QQ G YZ
 ;
KL S Q0="KL",Q1="K1",Q2="VE",PER=7 G 1
LE S Q0="LE",Q1="L1",Q2="AA",PER="7\14\13\15\9" G 1
 ;
1 S K=$P($T(+1),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 I '$D(@("^"_Q_Q0_"(0,0)")) G YZ
13 S FP=403 W @F,@F1,$P($T(T7),U,2)," : ",$P(^(0),U)
15 K A,B S A="",AT=0
17 S A=$O(@("^"_Q_Q2_"(A)")) I A'="" S A(A\1)="",AT=1 G 17
 ;
2 S K=$P($T(T1),U,Q2="AA"+2) I 'AT G YZ
21 S FP=603 W @F,@F1,K,$P($T(T2),U,2),! S (A,AT)=0
23 S A=$O(A(A)) G 3:A="" W !?2,A," = " F I=1:1:12 S BP=$E(I/100+A_0,1,7) W $J($S($D(^(BP)):I,1:""),3)
25 S AT=AT+1,B(AT)=A G 23
 ;
3 S K=1993
31 S KJ=$S(K:K,1:B(AT-$L(K))),FP=2003 W @F,@F1,$P($T(T3),U,2)," : ",KJ
33 I '$D(A(+KJ)) G YZ
37 L @("^"_Q_Q0):2 E  G YZ
39 K ^HULP($J) S SL=D,$P(SL,D,13)=D,BP=KJ+.01,BPZ=BP+.11 I KJ["+" S BPZ=B(AT)+.12
 ;
4 S FP=603 W @F,@F1,$P($T(T3),U,2)," : ",KJ,"  ( ",BP," - ",BPZ," )",!!
41 S I2="" W $J(BP,10)
43 S I2=$O(@("^"_Q_Q2_"(BP,I2)")) G 43:I2#1 I I2="" S BP=$E(BP+.01_0,1,7) S:BP#1>.12 BP=BP+.88 G 5:BP>BPZ,41
45 S K=^(I2),FC=$P(K,D),KC=$P(K,D,4),I2=I2+.99,BE=0 F I=1:1:$L(PER,D) S J=$P(PER,D,I),BE=BE+$P(K,D,J)
47 S:FC="C" BE=-BE S J=BP\1,I=BP#1*100+1,K=$S($D(^HULP($J,KC,J)):^(J),1:SL),$P(K,D,I)=$P(K,D,I)+BE,^(J)=K G 43
 ;
5 S I1=" ",FP=2203
51 S I1=$O(@("^"_Q_Q0_"(I1)")) I I1="" K ^HULP($J) L  G YZ
53 G 51:'$D(^(I1,0)) S J=+KJ,KC=$P(^(0),D) W @F,KC," ",$P(^(0),D,2),@F1 
55 K ^(J+.11) I $D(^HULP($J,KC,J)) S @("^"_Q_Q0_"(I1,J+.11)")=^(J)
57 I KJ["+" S J=J+1 I J'>B(AT) G 55
59 G 51
 ;
YZ Q
 ;
Z X ^cZ Q
ZZ ; 29.03.93 - 14 u 19 * V5.4.02