cI19 ;KONTROLE DIVERSEN VANUIT FAKTURATIE ;%I19
 ;
T1 ;Dit programma geeft per rekening het saldo van wat er werkelijk in het
T2 ;financieel (diversen) geregistreerd werd vanuit de fakturatie.
T3 ;BOEKINGSMAAND\"JJJJ.MM[] = bepaalde periode   [] = "_A_"   -[] = einde programma"
T4 ;PLAATS SMAL PAPIER OP DE PRINTER EN SCHAKEL HEM AAN\"[] = ok"
T5 ;REKENING - SALDO
 ;
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 S FP=403 W @F,@F1,$P($T(T1),U,2),!?2,$P($T(T2),U,2)
13 S A=$P(@("^"_Q_"BA(7)"),D),R="BP\22\3\"_$P($T(T3),U,2)_"\7\INCTR"
15 D R0 G YZ:K="-" S:'K BP=A S FP=703 W @F,@F1,$P($P($T(T3),U,2),D)," : ",BP
17 K B S REK="D",VNR="",VNR=$O(@("^"_Q_"FI(BP,REK,VNR)")) G 13:VNR=""
 ;
2 S L=^(VNR) I $P(L,D,4)="DV",$P(L,D,7)="A",$P(L,D,9)?6N2" " S R=$P($P(L,D,8),"#") S:'$D(B(R)) B(R)=0 S B(R)=$P(L,D,6)="C"*-2+1*$P(L,D,5)+B(R)
21 S VNR=$O(^(VNR)) I VNR'="" G 2
 ;
3 S R="K\22\3\"_$P($T(T4),U,2)_"\1\\" D R0 G 3:$L(K)
31 X F70 W @F80,!,$P($T(T1),U,2),!,$P($T(T2),U,2),!!,$P($T(T5),U,2),! S R=""
33 F B=1:1 S R=$O(B(R)) Q:R=""  W !,R,?11,B(R)
35 W # X F71
 ;
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
 ;
INCTR ;"-"[K!(K?4N1"."2N&(K#1)&(K#1<.13)&(K\1>1980)&(K\1-1'>DJ))
 ;
Z X ^cZ Q
ZZ ; 23.08.88 - 10 u 32