Index: DOM/VKP/impl/BonTypeAPI.cls.xml
===================================================================
diff -u -r29059 -r66175
--- DOM/VKP/impl/BonTypeAPI.cls.xml	(.../BonTypeAPI.cls.xml)	(revision 29059)
+++ DOM/VKP/impl/BonTypeAPI.cls.xml	(.../BonTypeAPI.cls.xml)	(revision 66175)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.VKP.impl.BonTypeAPI">
-<Super>%RegisteredObject,DOM.VKP.BonTypeAPI</Super>
+<Super>TECH.RegisteredObject,DOM.VKP.BonTypeAPI</Super>
 
 <Method name="IsOrgaluxBon">
 <FormalSpec>BonID:%String</FormalSpec>
@@ -12,8 +12,10 @@
 	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
 	#dim ProductLijnen As TECH.Iterator = Bon.GeefTypeBonLijnIterator(##class(DOM.VKP.enu.BonLijnType).Product())
 	while ( ProductLijnen.HasNext() ) && ( 'IsOrgaluxBon ) {
-		#dim ProductID As %String = ProductLijnen.Next().GeefProductID()
-		set IsOrgaluxBon = ProductTypeAPI.IsOrgaluxProduct(ProductID)		
+		#dim ProductLijn As DOM.VKP.ProductOrderlijn = ProductLijnen.Next()
+		If $$$Not(ProductLijn.GeefAantal() = 0) {
+			Set IsOrgaluxBon = ProductTypeAPI.IsOrgaluxProduct(ProductLijn.GeefProductID())
+		}
 	}
 	quit IsOrgaluxBon
 ]]></Implementation>
@@ -35,8 +37,10 @@
 	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
 	#dim ProductLijnen As TECH.Iterator = Bon.GeefTypeBonLijnIterator(##class(DOM.VKP.enu.BonLijnType).Product())
 	while ( ProductLijnen.HasNext() ) && ( 'IsTAORIndelingBon ) {
-		#dim ProductID As %String = ProductLijnen.Next().GeefProductID()
-		set IsTAORIndelingBon = ProductTypeAPI.IsTAORIndelingProduct(ProductID)		
+		#dim ProductLijn As DOM.VKP.ProductOrderlijn = ProductLijnen.Next()
+		If $$$Not(ProductLijn.GeefAantal() = 0) {
+			Set IsTAORIndelingBon = ProductTypeAPI.IsTAORIndelingProduct(ProductLijn.GeefProductID())		
+		}
 	}
 	quit IsTAORIndelingBon
 ]]></Implementation>
@@ -51,8 +55,10 @@
 	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
 	#dim ProductLijnen As TECH.Iterator = Bon.GeefTypeBonLijnIterator(##class(DOM.VKP.enu.BonLijnType).Product())
 	while ( ProductLijnen.HasNext() ) && ( 'IsTAORboxBon ) {
-		#dim ProductID As %String = ProductLijnen.Next().GeefProductID()
-		set IsTAORboxBon = ProductTypeAPI.IsTAORIndelingProduct(ProductID)		
+		#dim ProductLijn As DOM.VKP.ProductOrderlijn = ProductLijnen.Next()
+		If $$$Not(ProductLijn.GeefAantal() = 0) {
+			set IsTAORboxBon = ProductTypeAPI.IsTAORIndelingProduct(ProductLijn.GeefProductID())		
+		}
 	}
 	quit IsTAORboxBon
 ]]></Implementation>