KT221 G 1 ;Z-DIAGRAM ;KT221;Do naar %TU23 [ 11/06/2001  9:56 AM ]
 ;
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"
T7 ;KEUZE DIAGRAM\"[] = individueel   .[] = globaal"
T8 ;GLOBAAL 
T9 ;KLANTEN\LEVERANCIERS\GROOTBOEKREKENINGEN
 ;
S0 S Y=$P(B(I),D,1),J=$P(">\'<\=\<\'>\'=",D,$P(B(I),D,2)) G S0C:$L(J)
S0A S OK=1 F J=1:1:$L(Y) I $E(Y,J)'="#" S OK=$E(X,J-1+$P($P(B(I),D,3),",",1))=$E(Y,J) Q:'OK
S0B G S0Z
S0C I (X'?.N)!(Y'?.N) S OK=J_"Y" S:J="<" OK="']Y&(X'=Y)" S:J=">" OK="]Y&(X'=Y)" S:J="'>" OK="']Y!(X=Y)" S:J="'<" OK="]Y!(X=Y)" S OK="S OK=X"_OK X OK
S0D E  S OK="S OK=X"_J_"Y" X OK
S0Z Q
 ;
S1 S X=$P(BPB,D,4),K=$P(BPB,D,5) S:BP'>$P(BPB,D,6) X=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)=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)" 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)=A(I)+$J($P(^(BP\1+.11),D,BP#1*100+1),0,0)
S4Z Q
 ;
S5 S FP=450 W @F,@F1,$P($T(T3),U,2),BP
S5Z Q
 ;
1 B 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="-",5
22 S:'K BP=BPA D S5
25 I BP'>$P(BPB,D,3) X ^cTXT(0,"N",61) R K G 2
 ;
3 S R="IG\22\3\"_$P($T(T7),";",2)_"\1\\""-.""[K" D R0 G 2:K="-"
31 S TIT="" S:K="." TIT=$P($T(T8),";",2) S FP=503 W @F,@F1,TIT
32 S R="K\22\3\"_$P($T(T2),";",2)_"\1\\""12-""[K" D R0 G 3:K="-" S K1=K+1 G 4:IG=""
320 I 1[K D @($P("KP\LP",D,K+1)_"^KSEL") S FP=254 W @F,@F1 I K="-" S K="." D S5 G 31
322 I K1=1 S KLG=KL,KLGX=KLX
324 I K1=2 S KLG=LE,KLGX=LEX
326 I K1=3 S KLG=0,KLGX="ZZ",(X1,X2)=""
33 S TIT=TIT_$P($P($T(T9),";",2),D,K1),FP=503 W @F,@F1,TIT F I=1:1:24 S A(I)=0
330 I $D(KSL),KSL="U" G 390
34 I KLG'=0 G 350:$D(@("^"_Q_$P("KL\LE",D,K1)_"(KLG)"))
35 S KLG=$N(@("^"_Q_$P("KL\LE\AR",D,K1)_"(KLG)")) I KLG=-1!(KLG]KLGX) S K1=0 G 5
350 S C(0)=^(KLG,0) G 36:K1=3 F I=1:1:SW3-1 S C(I)=^(I)
352 S I=100
354 S I=$N(B(I)) G 36:I=-1 S X=$P(C(I\100-1),D,I#100) D S0 G 35:'OK,354
36 S BP=BP-2,K=C(0),FP=2303+F60 W @F,@F1,$P(K,D,1)," ",$P(K,D,2)
37 K C F I=1:1:24 S BP=BP+.01 S:BP#1>.12 BP=BP+.88 D S1:K1=3,S4:K1'=3
39 G 35:'$D(KSL),35:KSL'="U"
390 S KLG=$N(@("^"_Q_"LIH(X1,KLG)")) I KLG=-1 S K1=0 G 5
392 S C(0)=@("^"_Q_$P("KL\LE\AR",D,K1)_"(^(KLG),0)") G 36
 ;
4 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 32:K="-"
41 S TIT=$P(^(K,0),D,2),BP=BP-2
43 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
 ;
5 D ^cTU23 G:K="-" 4:K1,2
 ;
YZ Q
R0 S R7=1 S:$P(R,D,8)'="" R7=R7_"&("_$P(R,D,8)_")" S:$P(R,D,7)'="" R7=R7_"&("_$P($T(@$P(R,D,7))," ",2,99)_")"
R0A S R2=$P(R,D,2),R3=$P(R,D,3),R4=$P(R,D,4),R5=$P(R,D,5),R6=$P(R,D,6)
R0B S R0=$L(R4)+R3+3 S FP=R2*100+R3+F60 W @F W:R3<4 @F1 W @F2,R4," : " I R5'="" W:R5["""" !,?2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2,$E("........................................",1,R6),@F,@F0
R0D R K W @F2 I $L(K)'>R6,K'[D&(K'?.E1C.E),@R7 S @$P(R,D,1)=K
R0E E  G R0C
R0F S FP=$P(R,D,9)*100+($P(R,D,10)*1) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7 Q  ;V5 02.01.86
 ;