cAT251 ;NAREKENEN OMZET PER MAAND ;%AT251 ; [ 01/02/01  6:25 PM ]
 G YZ
 ;
T0 ;Narekenen omzet per maand ;
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;
T6 ;Bevestiging\".[] = opstarten   ,[] = hernemen";
T7 ;Bestand; is onbekend ;
 ;
T0F ;Calcul C.A. par mois ;
T1F ;Le journal des ventes ;Le journal des achats ;
T2F ;contient :;est vide ;
T3F ;Année; n'est pas disponible ;
T4F ; aaaa[] = année spécifique;   -[] = fin de programme;
T5F ;aaaa+[] = année 'aaaa' et suivantes;
T6F ;Confirmation\".[] = démarrer   ,[] = reprendre";
T7F ;Fichier; est inconnu ;
 ;
T0E ;Check the turnover per month ;
T1E ;The sales journal ; The purchase journal ;
T2E ;contains :;is empty ;
T3E ;Year; is not available ;
T4E ; yyyy[] = particular year;   -[] = end program;
T5E ;yyyy+[] = all years from yyyy;
T6E ;Confirmation\".[] = start up   ,[] = retry";
T7E ;File; is unknown ;
 ;
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(@("T0"_QT)),U,2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 D DMS^cAN000("UQC","USC",Q0) G YZ:UQC=""!(USC="")
13 S FP=403 W @F,@F1,$P($T(@("T7"_QT)),U,2)," : ",$P(^DMC(UQC,USC,"TAAL",$E(QT_"N")),D,2)
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"_QT)),U,Q2="AA"+2) I 'AT S K=K_$P($T(@("T2"_QT)),U,3) D F1 G YZ
21 S FP=603 W @F,@F1,K,$P($T(@("T2"_QT)),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 R="K\22\3\"_$P($T(@("T3"_QT)),U,2)_"\C1\5\\""-,""[K!(K="".""&(AT>1))!(K?4N)!(K?4N1""+"")" D R0 G YZ:K="-"!(K=",")
31 S KJ=$S(K:K,1:B(AT-$L(K))),FP=2003 W @F,@F1,$P($T(@("T3"_QT)),U,2)," : ",KJ
33 I '$D(A(+KJ)) S K=$P($T(@("T3"_QT)),U,2)_$J(+KJ,5)_$P($T(@("T3"_QT)),U,3) D F1 G 3
35 S R="K\22\3\"_$P($T(@("T6"_QT)),U,2)_"\1\\""-,.""[K&$L(K)" D R0 G 1:K="-"!(K=",")
37 L @("^"_Q_Q0):2 E  S R=14 D F2 G YZ
39 K ^HULP(boot,$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"_QT)),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(boot,$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(boot,$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(boot,$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
 ;
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
 ;
C1 W !?2,$P($T(@("T4"_QT)),U,2),"   [] = ",B(AT) W:AT>1 "   .[] = ",B(AT-1) W $P($T(@("T4"_QT)),U,3) W:AT>1 !?2,$P($T(@("T5"_QT)),U,2)
C1Z Q
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
Z X ^cZ Q
ZZ ; 05.02.01 - 16 u 23 * V7.84