Index: ZBCHKFLO.mac.rou
===================================================================
diff -u -r29059 -r33103
--- ZBCHKFLO.mac.rou	(.../ZBCHKFLO.mac.rou)	(revision 29059)
+++ ZBCHKFLO.mac.rou	(.../ZBCHKFLO.mac.rou)	(revision 33103)
@@ -94,8 +94,14 @@
  .....Set R=^KOD(KLNr,"F",ORDNr,OLNr)
  .....If $P(R,D,27)'=TOENr!($P($P(R,D,28),";")'=TLNr) Do
  ......Set Check=0
+ ......New ExtraMelding  Set ExtraMelding=""
+ ......New OrderLijnIsSpaceTower  Set OrderLijnIsSpaceTower = $$IsSpaceTower^PRODUKT2($P(R,D,2))
+ ......// Indien SpaceTower, dan enkel vermelding maken, zbcheck niet als "Gefaald" markeren.  Opmerking: TOENr moet wel correct zijn, m.a.w. alleen ToeveringLijn verschillend. 
+ ......If (OrderLijnIsSpaceTower)&&($P(R,D,27)=TOENr) Do
+ ...... . Set Check=1
+ ...... . Set ExtraMelding=", maar mag genegeerd worden want is SPACETOWER."
  ......Do wLEVERANCIER^zbcheck
- ......Write !!,"Kom link ",ZR," foutief",!,?8,"Toelev  = ",TOENr,?29,"Order = ",ORDNr,?50,"Lijn = ",OLNr,!,?8,"Order = ",ORDNr,?29,"Toelev  = ",$P(R,D,27),?50,"Lijn = ",$P(R,D,28)
+ ......Write !!,"Kom link ",ZR," foutief"_ExtraMelding,!,?8,"Toelev  = ",TOENr,?29,"Order = ",ORDNr,?50,"Lijn = ",OLNr,!,?8,"Order = ",ORDNr,?29,"Toelev  = ",$P(R,D,27),?50,"Lijn = ",$P(R,D,28)
  If $G(Check)'=0 Do
  .Set LEVNr=""
  .For  Set LEVNr=$O(^KTO2(LEVNr)) Quit:LEVNr=""  Do