Index: BL/PPS/OL/Inpak.cls.xml
===================================================================
diff -u -r31388 -r31390
--- BL/PPS/OL/Inpak.cls.xml	(.../Inpak.cls.xml)	(revision 31388)
+++ BL/PPS/OL/Inpak.cls.xml	(.../Inpak.cls.xml)	(revision 31390)
@@ -129,6 +129,11 @@
 <Transient>1</Transient>
 </Property>
 
+<Property name="BonTypeAPI">
+<Type>DOM.VKP.impl.BonTypeAPI</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
@@ -138,6 +143,7 @@
 	Set ..MultiCountBepaler = ##class(BL.PPS.OL.Inpak.MultiCountBepaler).%New()
 	Set ..ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
 	Set ..VerkoopAPI = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI()
+	Set ..BonTypeAPI = ##class(DOM.DomeinContext).Instance().GeefBonTypeAPI()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -755,13 +761,13 @@
 <Implementation><![CDATA[
 	; Ophalen gegevens uit leveringsbon
 	#dim pxLabel As BL.Sys.pxLabel = ##class(BL.Etiket.Doos).Create()
-	Set pxLabel.KlantNaam = ..GeefKlantNaam(..BevatBonTAORIndeling(BONNr), BONNr)
+	Set pxLabel.KlantNaam = ..GeefKlantNaam(..BonTypeAPI.IsTAORIndelingBon(BONNr), BONNr)
 	Do ..LabelDataFromBon(BONNr,.pxLabel)
  	Set pxLabel.Aantal=$G(Aantal,1)
  	
  	; Instellingen voor BARTENDER
  	Set pxLabel.Device=..LabelDev()
- 	If ..BevatBonOrgalux(BONNr) {
+ 	If ..BonTypeAPI.IsOrgaluxBon(BONNr) {
 		Set pxLabel.Layout=..#LabelDoosOrgalux
 	}Else{
 		Set pxLabel.Layout=..#LabelDoosTAORIndeling
@@ -772,44 +778,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="BevatBonTAORIndeling">
-<FormalSpec>BonID:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	#dim BevatBonTAORIndeling As %Boolean = 0
-	#dim Bon As DOM.VKP.Bon = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefBon(BonID)
-	#dim LijnIt As TECH.Iterator = Bon.GeefBonLijnIterator()
-	While LijnIt.HasNext() && 'BevatBonTAORIndeling {
-		#dim Lijn As DOM.VKP.Orderlijn = LijnIt.Next()
-		If (Lijn.GeefType()=##class(DOM.VKP.enu.BonLijnType).Product()){
-			#dim ProductLijn As DOM.VKP.ProductOrderlijn = Lijn
-			Set BevatBonTAORIndeling = ..ProductTypeAPI.IsTAORIndelingProduct(ProductLijn.GeefProductID())
-		}
-	}
-	Quit BevatBonTAORIndeling
-]]></Implementation>
-</Method>
-
-<Method name="BevatBonOrgalux">
-<FormalSpec>BonID:%String</FormalSpec>
-<Private>1</Private>
-<ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[
-	#dim BevatBonOrgalux As %Boolean = 0
-	#dim Bon As DOM.VKP.Bon = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefBon(BonID)
-	#dim LijnIt As TECH.Iterator = Bon.GeefBonLijnIterator()
-	While LijnIt.HasNext() && 'BevatBonOrgalux {
-		#dim Lijn As DOM.VKP.Orderlijn = LijnIt.Next()
-		If (Lijn.GeefType()=##class(DOM.VKP.enu.BonLijnType).Product()){
-			#dim ProductLijn As DOM.VKP.ProductOrderlijn = Lijn
-			Set BevatBonOrgalux = ..ProductTypeAPI.IsOrgaluxProduct(ProductLijn.GeefProductID())
-		}
-	}
-	Quit BevatBonOrgalux
-]]></Implementation>
-</Method>
-
 <Method name="PrintProductBare">
 <Description>
 Etiket(ten) printen voor 1 product zonder bijkomende controle)[ Private ]
@@ -1482,6 +1450,9 @@
 <Value name="8">
 <Value>Output</Value>
 </Value>
+<Value name="9">
+<Value>BonTypeAPI</Value>
+</Value>
 </Data>
 </Storage>
 </Class>