ZBCHKTO ;KONTROLE VAN BESTANDEN (toeleveringen) ;ZBCHK; [ 07/02/93  8:28 AM ]
 ;
 Set (COUNT,LINE)=0 Do TO3,TO4
 Quit
 ;
TO3T1 ;Kontrole ^KTO3
TO3T2 ;Fouten ^KTO3
TO4T1 ;Kontrole ^KTO4
TO4T2 ;Fouten ^KTO4
 ;
S1 
 Set COUNT=COUNT+1,^HULP($J,$P(TKB,U,7),COUNT)=R
 Quit
 ;
S2   
 Set LINE=LINE+1
 If LINE>(24-DLN) Set FP=DLN+2*100+1 Write @F,@FDL
 Set FP=DLN+$S(LINE<(24-DLN+1):LINE,1:(24-DLN))*100+1 Write @F,@F1,S
 Quit
 ;
TO3 
 Set TR=0,S=$P($T(TO3T1),U,2),R=$P($T(TO3T2),U,2)
 Do S1,S2 Write *7
 Set COUNTX=COUNT
 For  Set TR=$N(^KTO3(TR)) Quit:TR=-1  Do
 .Set R=$D(^KTO3(TR)),Zr=$ZR
 .If '$D(^KTO1(TR)) Set R=Zr_D_$ZR_D_"ONBEKEND" Do S1 Quit
 .Set LC=$P(^(TR),D,1),LN=0
 .For  Set LN=$N(^KTO3(TR,LN)) Quit:LN=-1  Do
 ..Set TZ=$P(LN,D,3),R=$D(^KTO3(TR,LN)),Zr=$ZR
 ..If '$D(^KTO(LC,TR,TZ)) Set R=Zr_D_$ZR_D_"ONBEKEND" Do S1 Quit
 ..If $P(^(TZ),D,13,14)'=$P(LN,D,1,2) Set R=Zr_D_$ZR_D_"VERSCHILLEND" Do S1 Quit
 ;
 Set LC=0
 For  Set LC=$N(^KTO(LC)) Quit:LC=-1  Do
 .Set TR=0
 .For  Set TR=$N(^KTO(LC,TR)) Quit:TR=-1  Do
 ..Set TZ=100
 ..For  Set TZ=$N(^KTO(LC,TR,TZ)) Quit:TZ=-1  Do
 ...Set R=^(TZ),Zr=$ZR Quit:'$P(R,D,2)
 ...Set LN=$P(R,D,13,14)_D_TZ
 ...If '$D(^KTO3(TR,LN)) Set R=Zr_D_$ZR_D_"ONBEKEND" Do S1 Quit
 ;
 If COUNT=COUNTX Kill ^HULP($J,$P(TKB,U,7),COUNT) Set COUNT=COUNTX-1
 ;
 Quit
 ;
TO4 
 Set LC=0,S=$P($T(TO4T1),U,2),R=$P($T(TO4T2),U,2)
 Do S1,S2 Write *7
 Set COUNTX=COUNT
 For  Set LC=$N(^KTO4(LC)) Quit:LC=-1  Do
 .Set AB=0
 .For  Set AB=$N(^KTO4(LC,AB)) Quit:AB=-1  Do
 ..Set TR=$P(AB,D,2),R=$D(^KTO4(LC,AB)),Zr=$ZR
 ..If '$D(^KTO(LC,TR)) Set R=Zr_D_$ZR_D_"ONBEKEND" Do S1 Quit
 ..If $$UPTRIMAN^vhRtn1($P(^KTO(LC,TR,1),D,10))'=$P(AB,D,1) Set R=Zr_D_$ZR_D_"VERSCHILLEND" Do S1 Quit
 ;
 Set LC=0
 For  Set LC=$N(^KTO(LC)) Quit:LC=-1  Do
 .Set TR=0
 .For  Set TR=$N(^KTO(LC,TR)) Quit:TR=-1  Do
 ..Set AB=$$UPTRIMAN^vhRtn1($P(^KTO(LC,TR,1),D,10)),Zr=$ZR Quit:AB=""
 ..If '$D(^KTO4(LC,AB_D_TR)) Set R=Zr_D_$ZR_D_"ONBEKEND" Do S1 Quit
 ;
 If COUNT=COUNTX Kill ^HULP($J,$P(TKB,U,7),COUNT) Set COUNT=COUNTX-1
 ;
 Quit