cI14 ;KONTROLE DATABASE BOEKHOUDING ;%I3 ;go uit %I4 en naar %I16
 G 1
 ;
T1 ;KLANTENBESTAND
T2 ;LEVERANCIERSBESTAND
T3 ;REKENINGENBESTAND
T4 ;HOOFD -> INDEX 
T5 ;INDEX -> HOOFD 
 ;
 ; kontrole hoofd- en indexbestand
S1 W !,$P($T(T4),U,2) S X=0,I1=" "
S1A F K=Q1,Q2 I '$D(@("^"_Q_K)) S @("^"_Q_"DBCTR(K)")="deze global bestaat niet",X=1
S1B I X G S1Z
S1C S I1=$O(@("^"_Q_Q1_"(I1)")),(X,Y,Z3)=0 G S1Z:I1="" S:'$D(^(I1,0)) X=1 S:SW&'$D(^(1)) Y=1 I 'X S KC=$P(^(0),D),NM=$P(^(0),D,2)
S1E D:X F1 S Z3=1 D:Y F1 I X G S1C
S1F S J1="",X=$L(NM) F K=1:1:X S Y=$E(NM,K),Z=$A(Y) S:Z<96&(Z>123) Y=$C(Z-32) I Y'?1P S J1=J1_Y
S1G S J1=$E(J1,1,24)_" "_KC G:'SW S1J I '$D(@("^"_Q_Q2_"(KC)")) D F2 G S1C
S1H S J2=^(KC) I J2'=I1 D F3:J1'=J2,F4:J1'=I1 G S1C
S1I W "." G S1C
S1J I '$D(@("^"_Q_Q2_"(J1)")) D F5 G S1C
S1K S J2=@("^"_Q_Q2_"(J1)") I KC'=$P(I1," ") D F7 G S1C
S1L D F6:J2'=NM W:J2=NM "." G S1C
S1Z K X,Y,Z1,Z2,Z3,Z4,J1,J2,I1,KC,NM Q
 ;
 ; kontrole index- en hoofdbestand
S2 W !,$P($T(T5),U,2) S KC=0,X='$D(@("^"_Q_Q1)),Y='$D(@("^"_Q_Q2)) I X!Y G S2Z
S2A S KC=$O(@("^"_Q_Q2_"(KC)")),Z3=0 G S2Z:KC="" S I1=$S(SW:^(KC),1:$P(KC," ",2)_" "),X='$D(@("^"_Q_Q1_"(I1,0)")),Y='$D(^(1))
S2B D:X F1 S Z3=1,Y=Y&SW D:Y F1 W:'X&'Y "." G S2A
S2Z K X,Y,Z1,Z2,Z3,Z4,KC,I1 Q
 ;
1 G YZ:'SW1
11 I SW11 S Q1="KL",Q2="K1",SW=1 W !,$P($T(T1),U,2) D S1,S2
13 I SW12 S Q1="LE",Q2="L1",SW=1 W !,$P($T(T2),U,2) D S1,S2
15 I SW13 S Q1="AR",Q2="R1",SW=0 W !,$P($T(T3),U,2) D S1,S2
 ;
YZ G ^cI16
 ;
F0 S @("^"_Q_"DBCTR(Z1,Z2,Z3)")=Z4 W "?" Q
F1 S Z1=Q1,Z2=I1,Z4="niet gevonden" G F0
F2 S Z1=Q2,Z2=KC,Z3=J1,Z4="niet gevonden" G F0
F3 S Z1=Q2,Z2=KC,Z3=J2,Z4="verschilt van "_J1 G F0
F4 S Z1=Q1,Z2=I1,Z3=KC,Z4="verschilt van "_J1 G F0
F5 S Z1=Q2,Z2=J1,Z3=NM,Z4="niet gevonden" G F0
F6 S Z1=Q2,Z2=J2,Z3=NM,Z4="verschillend" G F0
F7 S Z1=Q1,Z2=J1,Z3=KC,Z4="verschillend" G F0
 ;
Z X ^cZ Q
ZZ ; 06.04.92 - 15 u 11 *