FATOVE ;KORREKTIE BOEKHOUDING ;ZKB ; [ 08/05/2002  10:31 AM ]
 G 1
 ;
T1 ;CE PROGRAMME EST DEJA FAIT ;
T2 ;FIN DE LA CORRECTION ;
 ;
1 W @F11,@F1,$P($T(+1),U,2),!
11 I $D(^HULP("ZKB"))#10,^("ZKB")=$T(ZZ) S K=$P($T(T1),U,2) D F1 G YZ
13 S ^("ZKB")=$T(ZZ)
 ;
2 S US="F",FNR=708910,BF=$P(@("^"_Q_"BA(39)"),D)
21 ;S US=$O(@("^"_Q_"FA(US)")) G Y:US=""
23 ;S FNR=$O(@("^"_Q_"FA(US,FNR)")) G 21:FNR="" 
 S L=@("^"_Q_"FA(US,FNR,0,0)"),UR="U" W FNR,$C(13)
25 S KC=$P(L,D),FC=$P(L,D,2),FDT=$P(L,D,6),VVD=$P(L,D,3),NET=$P(L,D,7),MST=$P(L,D,8),TSM=MST
27 S BTW=$P(L,D,9),EGA=$P(L,D,10),LXT=$P(L,D,11),KKB=$P(L,D,13),TTB=$P(L,D,12),VM=$P(L,D,5) S:VM="" VM=BF
 ;
3 S K=$P(^(1),D,2) K MST,BR S MST=TSM,MST(11)=0
31 S K1=$P(K,"#"),K2=$P(K,"#",2),K=$P(K,"#",3,99) I K1="",K2="" G 31:$L(K),35
33 S MST(K1)=K2 G 31
35 S UR=$O(@("^"_Q_"FA(US,FNR,UR)")) G 4:UR="" S I4=99
37 S I4=$O(@("^"_Q_"FA(US,FNR,UR,I4)")) G 35:I4="" S BR=$P(^(I4),D),B=$P(^(I4),D,9) G 37:'$L(BR) S:FC="C" B=-B
39 S:'$D(BR(BR)) BR(BR)=0 S BR(BR)=BR(BR)+$J(B,0,QD) G 37
 ;
4 G 23:'$D(@("^"_Q_"K1(KC)")) S I1=^(KC)
41 G 23:'$D(@("^"_Q_"KL(I1,0)")) S KN=$P(^(0),D,2)
43 S R=FDT_D_1 D D^cT163
45 S K=0,K1="" F K2=1:1 S K1=$O(@("^"_Q_"VE(K1)")) Q:K1=""!K  I $D(^(K1,FNR)) S K=1
47 D ^cT160:'K ;G 23
 ;
Y S K=$P($T(T2),U,2) D F1
YZ Q
 ;
F1 S R=250
F2 X ^cTXT(0,"N",R) R K
FZ K R Q
 ;
Z X ^cZ Q
ZZ ; 19.11.90 - 14 u 17