KTBEST ;NAZICHT VAN ALLE BESTANDEN ;KTBEST; [ 11/07/2001  2:01 PM ]
 G 1
 ;
T1 ;NUMMER TE KONTROLEREN BESTAND
T2 ;A[] = alle bestanden   -[] = einde programma
T3 ;NIET ;OK
 ;
T101 ;KLANTEN;^S101;4;5;27;KL
T102 ;LEVERANCIERS;S102;5;5;27;LE
T103 ;GROOTBOEKREKENINGEN;S103;6;5;27;AR
T104 ;PRODUKTEN;S104;7;5;27;PR
 ;
S0 S FP=$P(K,U,4)*100+$P(K,U,5)-3 W @F,$J(I,2)," ",$P(K,U,2) S FP=$P(K,U,4)*100+$P(K,U,6)-2 W @F,":"
S0Z Q
 ;
S1 S R=$$UPTRIMAN^vhRtn1(K)
S1Z Q
 ;
S101 K ^HULP($J,"KL") S KC=""
S101A S KC=$O(@("^"_Q_"K1(KC)")) G S101C:'$L(KC) S FP=2403 W @F,@F1,KC
S101B S KI1=^(KC) S:'$D(@("^"_Q_"KL(KI1)")) ^HULP($J,"KL","K1",KC)="" G S101A
S101C S KI1=0
S101D S KI1=$O(@("^"_Q_"KL(KI1)")) G S101Z:'$L(KI1) S K=^(KI1,0),KC=$P(K,D,1),K=$P(K,D,2),FP=2403 W @F,@F1,K
S101E I '$D(@("^"_Q_"K1(KC)")) S ^HULP($J,"KL","KL",KC)="" G S101D
S101F D S1 S K=$E(R,1,24)_" "_KC S:K'=^(KC) ^HULP($J,"KL","KI1",K)="" G S101D
S101Z Q
 ;
S102 K ^HULP($J,"LE") S LC=""
S102A S LC=$O(@("^"_Q_"L1(LC)")) G S102C:'$L(LC) S FP=2403 W @F,@F1,LC
S102B S LI1=^(LC) S:'$D(@("^"_Q_"LE(LI1)")) ^HULP($J,"LE","L1",LC)="" G S102A
S102C S LI1=0
S102D S LI1=$O(@("^"_Q_"LE(LI1)")) G S102Z:'$L(LI1) S K=^(LI1,0),LC=$P(K,D,1),K=$P(K,D,2),FP=2403 W @F,@F1,K
S102E I '$D(@("^"_Q_"L1(LC)")) S ^HULP($J,"LE","LE",LC)="" G S102D
S102F D S1 S K=$E(R,1,24)_" "_LC S:K'=^(LC) ^HULP($J,"LE","LI1",K)="" G S102D
S102Z Q
 ;
S103 K ^HULP($J,"AR") S AI1=0
S103A S AI1=$O(@("^"_Q_"AR(AI1)")) G S103D:'$L(AI1) S K=^(AI1,0),AC=$P(K,D,1),K=$P(K,D,2),FP=2403 W @F,@F1,AC
S103B D S1 S R=$E(R,1,24)_" "_AC I '$D(@("^"_Q_"R1(R)")) S ^HULP($J,"AR","AR",AC)="" G S103A
S103C S:K'=^(R) ^HULP($J,"AR","AI1",R)="" G S103A
S103D S AC=""
S103E S AC=$O(@("^"_Q_"R1(AC)")) G S103Z:'$L(AC) S FP=2403 W @F,@F1,^(AC)
S103F S AI1=$P(AC," ",2)_" " S:'$D(@("^"_Q_"AR(AI1)")) ^HULP($J,"AR","R1",AC)="" G S103E
S103Z Q
 ;
S104 K ^HULP($J,"PR") S PCC=""
S104A S PCC=$O(@("^"_Q_"PR1(PCC)")) G S104D:'$L(PCC) S K=^(PCC),PR=$P(K,D,1),K=$P(K,D,2),FP=2403 W @F,@F1,K
S104B I '$D(@("^"_Q_"PR(PR)")) S ^HULP($J,"PR","PCC",PR)="" G S104A
S104C S:K'=$P(^(PR,0),D,1) ^HULP($J,"PR","PCC",K)="" G S104A
S104D S PID=""
S104E S PID=$O(@("^"_Q_"PR2(PID)")) G S104H:'$L(PID) S K=^(PID),PR=$P(K,D,1),K=$P(K,D,2),FP=2403 W @F,@F1,K
S104F I '$D(@("^"_Q_"PR(PR)")) S ^HULP($J,"PR","PID",PR)="" G S104E
S104G S:K'=$P(^(PR,2),D,25) ^HULP($J,"PR","PID",K)="" G S104E
S104H S PR=0
S104I S PR=$O(@("^"_Q_"PR(PR)")) G S104Z:'$L(PR) S (K,PC)=$P(^(PR,0),D,1),PID=$P(^(2),D,25),FP=2403 W @F,@F1,K
S104J D S1 S K=R_" " I '$D(@("^"_Q_"PR1(K)")) S ^HULP($J,"PR","PR",K)="" G S104L
S104K I PR'=$P(^(K),D,1) S ^HULP($J,"PR","PR",PR)=""
S104L S K=PID D S1 S K=R_" " I '$D(@("^"_Q_"PR2(K)")) S ^HULP($J,"PR","PR",K)="" G S104N
S104M I PR'=$P(^(K),D,1) S ^HULP($J,"PR","PR",PR)=""
S104N S PI="I"
S104Z 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
13 S I=I+1 I I<11 W ! S K=$T(@("T"_(I+100))) D:$L(K) S0 S K=$T(@("T"_(I+110))) D:$L(K) S0 G 13
 ;
2 S R="BST\22\3\"_$P($T(T1),U,2)_"\"""_$P($T(T2),U,2)_"""\2" D R0 G YZ:K="-" I K'="A" G 2:'$L($T(@("T"_(K+100))))
21 S TST=0 I BST S TST=BST G 25
23 S TST=TST+1 G YZ:TST>20
25 S TKB=$T(@("T"_(TST+100))) G 23:'$L(TKB) S FP=2203 W @F,@F1,$P(TKB,U,2) D @$P(TKB,U,3)
27 S FP=$P(TKB,U,4)*100+$P(TKB,U,6) W @F,$J("",7),@F W:$D(^HULP($J,$P(TKB,U,7))) $P($T(T3),U,2) W $P($T(T3),U,3) G 2:BST,23
 ;
YZ Q
 ;