cI16 ;KONTROLE DATABASE BOEKHOUDING ;%I3 ;go uit %I14 [ 02/21/00  5:28 PM ]
 G 1
 ;
T1 ;KLANTENBESTAND 
T2 ;LEVERANCIERSBESTAND 
T3 ;REKENINGENBESTAND 
T4 ;DE RESULTATEN ZITTEN IN : ^
 ;
S2 S SRT=$E(A),B=$E(A,2,99)
S2A G S2C:SRT'="A" S X=$D(@("^"_Q_"AA(BP,B)")) I 'X D F5 G S2Z
S2B S Z1="AA",X=$P(^(B),D,4)'=KC&(Q1'="AR") D:X F6 W:'X "." G S2Z
S2C G S2E:SRT'="V" S X=$D(@("^"_Q_"VE(BP,B)")) I 'X D F5 G S2Z
S2D S Z1="VE",X=$P(^(B),D,4)'=KC&(Q1'="AR") D:X F6 W:'X "." G S2Z
S2E I SRT'="B" D F5 G S2Z
S2F S C=$P(B,"#",2),B=$P(B,"#"),X=$D(@("^"_Q_"FI(BP,B,C)")) I 'X D F5 G S2Z
S2G S Z1="FI",X=$P($P(^(C),D,8),"#")'=KC D:X F7 W:'X "."
S2Z Q
 ;
 ; kontrole dagboeken vanuit hoofdbestanden
S1 S I1=" "
S1A S I1=$O(@("^"_Q_Q1_"(I1)")) G S1Z:I1="" W $E(I1) S I2=9999,A=$D(^(I1,0)) S:A KC=$P(^(0),D) I 'A D F1 G S1A
S1B S I2=$O(@("^"_Q_Q1_"(I1,I2)")) G S1A:I2="",S1L:I2>990000,S1F:I2>99999,S1L:I2]990000
 ; wissels
S1C I '$D(@("^"_Q_"WI(I2,0)")) S Z4="uit "_Q1_" "_I1,Z5="niet gevonden" D F2 G S1B
S1D S L=^(0),A=$P(L,D,3)'=KC,B=$P(L,D,6)'=Q1 I A S Z4=3,Z5=$P(L,D,3)_" verschilt van "_KC D F2
S1E S:B Z4=6,Z5=$P(L,D,6)_" verschilt van "_Q1 D:B F2 G S1K:'A&'B,S1B
 ; openstaande fakturen
S1F I '$D(@("^"_Q_Q3_"(I2)")) S Z5="niet gevonden" D F3 G S1B
S1G S L=^(I2),B=$P(L,D) S:B[" " B=$P(B," ",2) I B'=KC S Z5=B_" verschilt van "_KC D F3 G S1B
S1H S B=$P(L,D,2) G S1K:'B I '$D(@("^"_Q_Q2_"(B,I2)")) S Z5="niet gevonden" D F4 G S1B
S1I S L=^(I2),A=$P(L,D,4)'=KC I A S Z5=$P(L,D,4)_" verschilt van "_KC D F4 G S1B
S1J I $P(L,D,6) S I2=I2+.01 I '$D(^(I2)) S Z5="ventilatie ontbreekt" D F4 G S1B
S1K W "." G S1B
 ; historieken
S1L S I2=1_BP1*100,I2Z=1_BP2*100+.99
S1M S I2=$O(@("^"_Q_Q1_"(I1,I2)")) G S1A:I2="",S1A:I2>I2Z,S1A:I2]I2Z,S1A:I2'["."
S1N S L=^(I2),BP=$E(I2,2,5)_"."_$E(I2,6,7) F K=1:1 S A=$P(L,D,K) Q:A=""  D S2
S1O G S1M
S1Z Q
 ;
1 G Y:'SW4 F J1=J4:-1:1980 Q:'$D(M2(J1))
11 S J1=J1+1 I 'SW3 S KJ=OKJ,BP1=M1(KJ),BP2=M2(KJ) I $D(SW31),SW31 S BP1=M1(J1),BP2=M2(J4)
13 I SW3 S BP1=SM1,BP2=SM2 F KJ=J1:1:J4 Q:BP1'>M2(KJ)
15 I SW41 S Q1="KL",Q2="VE",Q3="VF" W !,$P($T(T1),U,2) D S1
17 I SW42 S Q1="LE",Q2="AA",Q3="AF" W !,$P($T(T2),U,2) D S1
19 I SW43 S Q1="AR",Q2="RR2",Q3="RR3" W !,$P($T(T3),U,2) D S1
 ;
Y S @("^"_Q_"DBCTR")=Q_D_QN_D_DT_D_TD W !!,$C(7),$P($T(T4),U,2),Q,"DBCTR",$C(7),!
YZ Q
 ;
F0 S @("^"_Q_"DBCTR(Z1,Z2,Z3,Z4)")=Z5 W "?" Q
F1 S Z1=Q1,Z2=I1,Z3=0,Z4="node",Z5="ontbreekt" G F0
F2 S Z1="WI",Z2=I2,Z3=0 G F0
F3 S Z1=Q3,Z2=I2,Z3=Q1,Z4=I1 G F0
F4 S Z1=Q2,Z2=B,Z3=I2,Z4="uit "_Q1_" "_I1 G F0
F5 S Z1=Q1,Z2=I1,Z3=I2,Z4=A,Z5="niet gevonden" G F0
F6 S Z2=BP,Z3=B,Z4=4,Z5=$P(^(B),D,4)_" verschilt van "_KC G F0
F7 S Z2=BP,Z3=B,Z4=C,Z5=$P($P(^(C),D,8),"#")_" verschilt van "_KC G F0
 ;
Z X ^cZ Q
ZZ ; 13.03.00 - 17 u 31 * V7.3