Index: APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper.cls.xml
===================================================================
diff -u -r66804 -r66806
--- APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper.cls.xml	(.../DnaCodeServiceHelper.cls.xml)	(revision 66804)
+++ APPS/Halux/AAP/DnaCodeService/DnaCodeServiceHelper.cls.xml	(.../DnaCodeServiceHelper.cls.xml)	(revision 66806)
@@ -20,19 +20,25 @@
 <Private>1</Private>
 </Property>
 
+<Property name="ConfiguratorService">
+<Type>APPS.VKP.Maatwerk.impl.ConfiguratorService</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="IngegevenKenmerkenSpaceStepHelper">
 <Type>DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenSpaceStepHelper</Type>
 <Private>1</Private>
 </Property>
 
 <Method name="%OnNew">
-<FormalSpec>DnaCodeGenerator:APPS.Halux.AAP.DnaCodeGenerator="",DnaCodeRepository:APPS.Halux.AAP.DnaCodeGenerator="",ProductTypeAPI:DOM.PM.impl.ProductTypeAPIimpl="",ProductAPI:DOM.PM.ProductAPI="",IngegevenKenmerkenSpaceStepHelper:DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenSpaceStepHelper=""</FormalSpec>
+<FormalSpec>DnaCodeGenerator:APPS.Halux.AAP.DnaCodeGenerator="",DnaCodeRepository:APPS.Halux.AAP.DnaCodeGenerator="",ProductTypeAPI:DOM.PM.impl.ProductTypeAPIimpl="",ProductAPI:DOM.PM.ProductAPI="",ConfiguratorService:APPS.VKP.Maatwerk.impl.ConfiguratorService="",IngegevenKenmerkenSpaceStepHelper:DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenSpaceStepHelper=""</FormalSpec>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..DnaCodeGenerator = $$$Inject(DnaCodeGenerator, ##class(APPS.Halux.AAP.DnaCodeGenerator).%New())
 	Set ..DnaCodeRepository = $$$Inject(DnaCodeRepository, ##class(DOM.Halux.AAP.DnaCodeRepository).%New())
 	Set ..ProductTypeAPI = $$$Inject(ProductTypeAPI, ##class(DOM.PM.impl.ProductTypeAPIimpl).%New())
 	Set ..ProductApi = $$$Inject(ProductAPI, ##class(DOM.PM.impl.ProductAPI).%New())
+	Set ..ConfiguratorService = $$$Inject(ConfiguratorService,##class(APPS.VKP.Maatwerk.impl.ConfiguratorService).%New())
 	Set ..IngegevenKenmerkenSpaceStepHelper = $$$Inject(IngegevenKenmerkenSpaceStepHelper, ##class(DOM.PM.Maatwerk.Calc.Common.impl.IngegevenKenmerkenSpaceStepHelper).%New())
 	
 	Quit $$$OK
@@ -83,6 +89,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="BepaalParentDnaCode">
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode,Batch:APPS.Halux.common.impl.BatchImpl=""</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim ParentDnaCode As %String = ""
+	
+	Do ##class(Tools.Wlip).%New(252).String(DnaCode.DnaCode)
+	If ##class(TECH.StringUtils).StartsWith(DnaCode.DnaCode,"O","G","M") || (Batch.GeefProductieGroep()=##class(APPS.Halux.common.enu.ProductieGroep).Kast())|| (Batch.GeefProductieGroep()=##class(APPS.Halux.common.enu.ProductieGroep).LosseComponenten() || (..IsTaorLosseComponentenVerpakking(DnaCode))) {
+		Set ParentDnaCode = DnaCode.DnaCode
+	}
+	
+	Quit ParentDnaCode
+]]></Implementation>
+</Method>
+
 <Method name="MaakEnBewaarExtraDnaCodeVoorSpaceStep">
 <FormalSpec>ToeleveringLijn:DOM.AKP.ProductToeleveringLijn,Batch:APPS.Halux.common.impl.BatchImpl</FormalSpec>
 <Private>1</Private>
@@ -141,6 +162,28 @@
 	Quit DnaCode
 ]]></Implementation>
 </Method>
+
+<Method name="IsTaorLosseComponentenVerpakking">
+<FormalSpec>DnaCode:DOM.Halux.AAP.DnaCode</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Boolean</ReturnType>
+<Implementation><![CDATA[
+	#dim Resultaat As %Boolean = $$$False
+	If ##class(TECH.StringUtils).StartsWith(DnaCode.DnaCode,"H") {
+		
+		#dim Product As DOM.PM.Product = ..ProductApi.GeefProduct(DnaCode.ProductNummer)
+		#dim IngegevenKenmerkenAPI As DOM.PM.IngegevenKenmerkenAPI = ##class(DOM.DomeinContext).Instance().GeefIngegevenKenmerkenAPI()
+		
+		#dim IngegevenKenmerken As APPS.PM.Maatwerk.dto.TAORKenmerken = ..ConfiguratorService.GeefOnverwerkteKenmerkenVanProduct(Product.GeefID())
+		
+		If ((IngegevenKenmerken.VerpakkingType=##class(DOM.PM.enu.TAORVerpakkingType).LosseComponentenInBulk()) ||
+		    (IngegevenKenmerken.VerpakkingType=##class(DOM.PM.enu.TAORVerpakkingType).BulkPerOnderdeelGegroepeerd())) {
+			Set Resultaat = $$$True
+		}
+	}
+	Quit Resultaat
+]]></Implementation>
+</Method>
 </Class>