Index: ZBCHKFLO.mac.rou
===================================================================
diff -u -r33107 -r33207
--- ZBCHKFLO.mac.rou	(.../ZBCHKFLO.mac.rou)	(revision 33107)
+++ ZBCHKFLO.mac.rou	(.../ZBCHKFLO.mac.rou)	(revision 33207)
@@ -4,6 +4,10 @@
  .New Check
  .Set Q="K"
  .Do ^cA604
+ 
+ New ProductTypeAPI
+ #dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
+
  Write !!,"*** Flow - Orders ***"
  Set KLNr=0
  For  Set KLNr=$O(^KOD(KLNr)) Quit:'KLNr  Do
@@ -95,7 +99,7 @@
  .....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))
+ ......New OrderLijnIsSpaceTower  Set OrderLijnIsSpaceTower = ProductTypeAPI.IsSpaceTowerProduct($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