ZBCHK ;KONTROLE VAN BESTANDEN ;ZBCHK; [ 07/02/93  1:34 PM ]
 G 1
 ;
T1 ;NUMMER VAN HET TE KONTROLEREN BESTAND
T2 ;A[] = alle bestanden   ;O[] = overzicht fouten   ;-[] = einde programma
T3 ;NIET ;OK
T4 ;NUMMER VAN HET BESTAND VOOR OVERZICHT FOUTEN
T5 ;A[] = alle   K[] = kontrole bestanden   -[] = einde programma
T6 ;KONTROLE 
 ;
T101 ;Rekeningenplan;S0;4;5;29;AR
T102 ;Leveranciers;S0;5;5;29;LE
T103 ;Klanten;KL;6;5;29;KL
T104 ;Klantenstatistiek;S0;7;5;29;KS
T105 ;Uitzonderingen;S0;8;5;29;UZ
T106 ;Schaduwuitzonderingen;S0;9;5;29;US
T107 ;Rapporten;S0;10;5;29;RP
T108 ;Producten;PR;4;47;73;PR
T109 ;Productstatistiek;S0;5;47;73;PS
T110 ;Blum product;S0;6;47;73;BP
T111 ;Klant-productreferentie;S0;7;47;73;KP
T112 ;Toeleveringen;TO;8;47;73;TO
T113 ;Orders;S0;9;47;73;OD
T114 ;Uitleveringen;S0;10;47;73;UL
T115 ;Offertes;S0;11;47;73;OF
T116 ;Toeleveringen Blum;BL;12;47;73;BLTO
 ;
S0 Q
 ;
KL D ^ZBCHKKL Q
PR D ^ZBCHKPR Q
TO D ^ZBCHKTO Q
BL D ^ZBCHKBLTO Q
 Q
 ;
S1 S FP=$P(K,U,4)*100+$P(K,U,5)-3 W @F,$J(I,2)," ",@FMTU,$P(K,U,2),@FMTu S FP=$P(K,U,4)*100+$P(K,U,6)-2 W @F,":"
S1Z 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)),U,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),R8="",$P(R8,".",R6)="."
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,@F2,@R5 D:R5'["""" @R5
R0C S FP=R2*100+R0+F60 W @F,@F2,R8,@F,@F0 R K W @F2 I $L(K)'>R6,K'["""",K'[D,K'?.E1C.E,@R7 S @$P(R,D)=K
R0D E  G R0C
R0E S FP=$P(R,D,9)*100+$P(R,D,10) I FP W @F,$J("",R6),@F,K
R0Z K R,R0,R2,R3,R4,R5,R6,R7,R8 Q  ;V8 05.07.88
 ;
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 K ^HULP($J) S I=0,DLN=13
13 S I=I+1,K=$T(@("T"_(I+100))) I $L(K) D S1 G 13
 ;
2 S FP=DLN*100+1 W @F,@F1 S R="BST\22\3\"_$P($T(T1),U,2)_"\"""_$P($T(T2),U,2) S:$D(^HULP($J)) R=R_$P($T(T2),U,3)
20 S R=R_$P($T(T2),U,4)_"""\2" D R0 G YZ:K="-" I K="O" G 2:'$D(^HULP($J)),3
21 I K'="A" S K=$T(@("T"_(K+100))) G 2:'$L(K),2:$D(TST($P(K,U,7)))
22 S TST=0 I BST S TST=BST G 24
23 S TST=TST+1
24 S TKB=$T(@("T"_(TST+100))) G 3:'$L(TKB),23:$D(TST($P(TKB,U,7)))
25 S FP=DLN*100+1 W @F,@F1,@FMTB,$P($T(T6),U,2),$P(TKB,U,2),@FMTb K ^HULP($J,$P(TKB,U,7)) D @$P(TKB,U,3)
27 S TST($P(TKB,U,7))="",FP=$P(TKB,U,4)*100+$P(TKB,U,6) W @F,$J("",7),@F
29 W:$D(^HULP($J,$P(TKB,U,7))) $P($T(T3),U,2) W $P($T(T3),U,3) G 2:BST,23
 ;
3 S FP=DLN*100+1 W @F,@F1 S R="BST\22\3\"_$P($T(T4),U,2)_"\"""_$P($T(T5),U,2)_"""\2" D R0 G YZ:K="-",2:K="K"
 ;
YZ K ^HULP($J) Q
 ;
 Q
Z X ^cZ Q
ZZ ; 25.11.91 -  9 u 25