cTA800 ;An. verr. - basisgeg. ;%TA80 ; [ 01/02/01  5:53 PM ]
 ;
T0 ;An. verr. - basisgeg. ;
T1 ;Boekingsmaand\"-[] = einde programma";
 ;
T0F ;Op. an. - données base ;
T1F ;Mois comptable\"-[] = fin du programme";
 ;
T0E ;An. trans. - base data ;
T1E ;Fiscal month\"-[] = end program";
 ;
 ; boekingsmaand
1 S R="K\21\3\"_$P($T(@("T1"_QT)),U,2)_"\2\\K=""-""!(K&(K<13))" D R0 G YZ:K="-"
11 S R=+K_D_D_1 D ^cT163 I 'OK G 1
13 K DMU S (DAT,NUM,CD,NMB,SAL,HUX,HUXB,HUXV,SWVD)="" D ^cTA809
15 S K=$$MNTC^cAFE1(Q,BJ),BF=$P(K,D),QD=$P(K,D,2)
17 S HBF=BF,VM(HBF)=$P(@("^"_Q_"BA(11,HBF)"),D)
 ;
 ; periode
2 S (BPE,BPEC)=$G(@("^"_Q_"BA(""SWBP"")")) I $L(BPE) D @BPEC
 ;
3 D ^cTA801 G 1:K="-" D S3^cTA809
31 L @Q93:2 E  S R=16 D F2 G 3
 ;
4 S NUM0=0,NUM=$E(DT,1,5)
41 S K=$S(K="-":K,1:"")
43 S NUM=$S(K:K,K="":NUM,1:"") D S2^cTA809 G 3:K="-",1:K=","
 ;
5 S K=$S(K="-":K,1:"")
51 S DAT=$S(K:K,K="":DT,1:"") D S1^cTA809 G 4:K="-",1:K="," 
55 S J=$E(DAT,7,8),J=J<50+19_J,K=J_$E(DAT,4,5)_$E(DAT,1,2)
57 S K=$S(K="-":K,1:"") G 1:K=",",5:K="-"
 ;
6 S @%Q1=0,BNR="",(BNR,BNR0)=$O(@("^"_Q_"FIE(BP,RB,BNR)"),-1)+1
61 K DFA,DFF,DFN S FP=301 W @F F I=1:1:16 W !,@F2
63 K DMU
65 S DMU=4,(HUX,HUXB)=0 G ^cTA802
 ;
7 G 31
 ;
YZ Q
 ;
R0 S $P(R,D,12)=$T(+0) D ^cAN1000 Q  ; v12 23.01.95
 ;
F1 S R=250
F2 D TXT^cAFA1(R)
FZ K R Q
 ;
ZZ ; 05.02.01 - 16 u 23 * V7.84