cTU22 ;Z-DIAGRAM ;%TU22;Do naar %TU23
 G 1
 ;
T1 ;TOT WELKE PERIODE GAAT DE VERGELIJKING\"-[] = einde programma   JJJJ.MM[] = bepaalde periode   [] = periode ;.[] = manueel 24 cijfers ingeven;
T2 ;KEUZE KUMUL\"[] = klanten   1[] = leveranciers   2[] = grootboekrekening";
T3 ;Boekingsperiode : ;
T4 ;DE KLANT;DE LEVERANCIER;DE REKENING;
T5 ;' BEDRAG\;
T6 ;GEGEVENS OK\"[] = ok   ,[] = hernemen";
 ;
S1 S X=$P(BPB,D,4),K=$P(BPB,D,5) S:BP'>$P(BPB,D,6) X=$S($P(BPB,D,7):$P(BPB,D,7),1:X-12),K=$P(BPB,D,6) S:BP>K X=BPB,K=$P(BPB,D,2) 
S1A S:BP>K X=K\1*12+(K#1*100),K=K+1 S BX=BP\1*12+(BP#1*100)-X+1,BJ=K\1
S1B I $D(^(BJ)) S A(I)=$P(^(BJ),D,BX)-$P(^(BJ+.02),D,BX)
S1Z Q
 ;
S2 S I=0,BP=.12,K1=0,TIT=""
S2A S I=I+1 I I<25 D S3 G S2A:K'="-" S I=I-2 G S2A:I>-1,S2Z
S2B S R="I\22\3\"_$P($T(T6),U,2)_"\2\\"",""[K!(K=""-"")!(K?.N&(K<25)&$E(K,1))" D R0 G S2:K="," I K="-" S I=23 G S2A
S2C I K D S3 G S2B
S2Z Q
 ;
S3 S R="K\22\3\"_I_$P($T(T5),U,2)_"\12\\K?.N!(K?1""-"".N)!(K?.N1"".""2N!(K?1""-"".N1"".""2N)&QD)" D R0 Q:K="-"
S3Z S A(I)=K,FP=I*100+(I>12*-1160)+515 W @F,$J(I,2),".",$J(A(I),16) Q
 ;
S4 I $D(^(BP\1+.11)) S A(I)=$P(^(BP\1+.11),D,BP#1*100+1)
S4Z Q
 ;
1 S U=";",K=$P($T(+1),";",2)_QN_" ",FP=203+$L(K) W @F61,@F11,@F1,@F,@F5 S FP=202 W @F,@F4,K,@F5
11 S BPA=@("^"_Q_"BA(7)"),BPB=^(2),BPA=BPA+.01 S:BPA#1>.12 BPA=BPA+.88 S:$L(BPA)=6 BPA=BPA_0 S:'$P(BPB,D,4) BPB=$P(BPB,D,1,3)_D_(BPB-12)_D_$P(BPB,D,3)_D_$J($P(BPB,D,3)-1,0,2)
 ;
2 S R="BP\22\3\"_$P($T(T1),U,2)_BPA_""",!,?2,$P($T(T1),U,3)\7\\K?4N1"".""2N&($P(K,""."",2)<13&$P(K,""."",2))!(""-""[K)!(K=""."")"
21 D R0 G YZ:K="-" I K="." D S2 G 2:K="-",4
22 S:'K BP=BPA S FP=450 W @F,$P($T(T3),U,2),BP,@F1
25 I BP'>$P(BPB,D,3) X ^cTXT(0,"N",61) R K G 2
 ;
3 S R="K\22\3\"_$P($T(T2),";",2)_"\1\\""12-""[K" D R0 G 2:K="-" S K1=K+1
31 S R="K\2000\"_$P($T(T4),";",K1+1)_D_$P("KL\LE\AR",D,K1)_D_$P("K1\L1\R1",D,K1),SN="D ^cA101" S:$D(@("^"_Q_$P("KL\LE\AR",D,K1)_"(0,5)")) SN="D "_^(5) X SN G 3:K="-"
32 S TIT=$P(^(K,0),D,2),BP=BP-2
33 F I=1:1:24 S A(I)=0,BP=BP+.01 S:BP#1>.12 BP=BP+.88 D S1:K1=3,S4:K1'=3
 ;
4 D ^cTU23 G:K="-" 31:K1,2
 ;
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
 ;
Z X ^cZ Q
ZZ ; 27.12.90 -  9 u 19