cT163 ;Boekgegevens uit Maand of Datum ;%T163 ; [ 01/02/01  1:34 PM ]
 G M
 ;
T0 ;Boekgegevens uit Maand of Datum ;
T1 ;Boekjaar ; is niet meer toegelaten via dit programma ;
T2 ;Gelieve dringend een maand af te sluiten (programma 3.8.) ;
 ;
T0F ;Param.compt. à base de Mois ou Date ;
T1F ;Exercice ; n'est plus permise par ce programme-çi ;
T2F ;Urgent: veuillez clôturer un mois (programme 3.8.) ;
 ;
T0E ;Fiscal data from Month or Date ;
T1E ;Fiscal year ; is no longer allowed via this program ;
T2E ;Please close a month urgently (program 3.8) ;
 ;
 ; output : BJ, BP, BX, BM, OK = 0 indien buiten toegelaten maanden
 ;
M ; input : R = maand\switch A\switch B
 ;                   |        |_ 0=A/V <-> 1=F/DV: aparte afsluiting
 ;                   |_ 0=wel <-> 1=geen foutmelding geven
 ;
1 D S1 S BM=+R F X=1:1:ATPER I R=$P(PER,D,X) S OK=1 Q
11 G Y:'OK
13 S BPZ=$E(ATPER/100+BPA_0,1,7) I BPZ#1>.12 S BPZ=$E(BPZ+.88_0,1,7)
15 G 3
 ;
D ; input : R = datum\switch A\switch B
 ;                   |        |_ 0=A/V <-> 1=F/DV: aparte afsluiting
 ;                   |_ 0=wel <-> 1=geen foutmelding geven
 ;
2 D S1 S BM=$P(R,".",2),R=$P(R,".",3) S:R<80 R=R+100 S R=BM/100+R+1900
21 S Y=BPA+.88\1 F X=1:1:ATPER S K=$P(PER,D,X),Y=K/100+(Y\1) S:Y=R OK=1 Q:OK  S:K=12 Y=Y+1
23 S BPZ=9999.99 G Y:'OK
 ;
 ; gemeenschappelijk
3 I 'R0,+DM'=+BM S R=57 D F2 I K=","!(K="-") S OK=0 G YZ ; maand versch.
31 S:BM'>AM BJ=BJ+1 S BP=BM/100+BJ,BJ=$P(BPB,D,2) S:BP>BJ BPB=BJ\1*12+(BJ#1*100),BJ=BJ+1
33 S BJ=BJ\1,BX=BP\1*12+(BP#1*100)-BPB+1,BP=$E(BP_0,1,7),BM=$P(BP,".",2),BH=1_BP*100
35 I ATPER'<10,BP=BPZ S K=$P($T(@("T2"_QT)),U,2) D F1     ; VJ 07.12.00
 ;
 ; test op P1...P5
4 S R39="" I $G(UGL)="UL" S R39=@("^"_Q_"BA(39)"),RJ=$$BJ^cAFE1(Q,DJ_"."_DM)
41 I $P(R39,D,6)="" G 5                    ; P1
43 I $P(R39,D,11)="" G 5                   ; P2/P3
45 I BJ<$P(R39,D,6),RJ<$P(R39,D,6) G 5
47 I BJ<$P(R39,D,6) D E1 G YZ              ; P4
 ;
 ; manuele afsluiting
5 S PER=$P($G(@("^"_Q_"BA(7,$S(R1:3,1:0))"),BPA),D) G YZ:BP>PER!R0 S OK=0
 ;
Y I R0 S OK=1 G 3
YA S R=232 D F2   ; buiten toegelaten maanden
YZ K PER,ATPER,BPA,BPB,AM,X,Y,R,R0,R1,R39,RJ Q
 ;
S1 S OK=0,ATPER=$P(@("^"_Q_"BA(25)"),D),BPA=^(7),AM=BPA#1*100,PER=$P(^(24),D,AM+1,AM+ATPER),R0=+$P(R,D,2),R1=$P(R,D,3),R=$P(R,D)
S1Z S BJ=BPA\1,BPB=D_BJ S:$D(^(2)) BPB=^(2) Q
 ;
E1 S K=$T(@("T1"_QT)),K=$P(K,U,2)_BJ_$P(K,U,3) D F1 S OK=0 Q
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84