Index: DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001.cls.xml
===================================================================
diff -u -r54591 -r54601
--- DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001.cls.xml	(.../HFVerpakkingv001.cls.xml)	(revision 54591)
+++ DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001.cls.xml	(.../HFVerpakkingv001.cls.xml)	(revision 54601)
@@ -34,12 +34,25 @@
 <Private>1</Private>
 </Property>
 
+<Property name="WikkelBreedteBepaler">
+<Type>DOM.PM.Maatwerk.Calc.HF.impl.Wikkel.WikkelBreedteBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="WikkelLengteBepaler">
+<Type>DOM.PM.Maatwerk.Calc.HF.impl.Wikkel.WikkelLengteBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder</FormalSpec>
+<FormalSpec>SamengesteldHalffabItemBuilder:DOM.PM.Maatwerk.Calc.HF.ISamengesteldHalffabItemBuilder,WikkelBreedteBepaler:DOM.PM.Maatwerk.Calc.HF.impl.Wikkel.WikkelBreedteBepaler,WikkelLengteBepaler:DOM.PM.Maatwerk.Calc.HF.impl.Wikkel.WikkelLengteBepaler</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	Set ..WikkelBreedteBepaler = $$$Inject(WikkelBreedteBepaler, ##class(DOM.PM.Maatwerk.Calc.HF.impl.Wikkel.WikkelBreedteBepaler).%New())
+	Set ..WikkelLengteBepaler = $$$Inject(WikkelLengteBepaler, ##class(DOM.PM.Maatwerk.Calc.HF.impl.Wikkel.WikkelLengteBepaler).%New())
+
 	Set ..Rol = ..Enum.Rol.Verpakking
 	Set ..MaatwerkCalcAPI = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI()
 	
@@ -185,30 +198,39 @@
 <Method name="VerwerkProbox">
 <Private>1</Private>
 <Implementation><![CDATA[
-	if ..Context.GeefBerekenDatum() < $$INTDATE^vhLib.DataTypes("01.10.2017") {
-		Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.Probox.Builder.HFProboxWikkelv001).%New(##this))
-	} else {
-		Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.Probox.Builder.HFProboxWikkelv002).%New(##this))
+	If (..IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.LBXProductieWijze).Volledig()) {
+		if ..Context.GeefBerekenDatum() < $$INTDATE^vhLib.DataTypes("01.10.2017") {
+			Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.Probox.Builder.HFProboxWikkelv001).%New(##this))
+		} else {
+			Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.Probox.Builder.HFProboxWikkelv002).%New(##this))
+		}
+		Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.Probox.Builder.HFProboxPalletv001).%New(##this))
+		Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.Probox.Builder.HFProboxBodemdoosv001).%New(##this))
+		Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.Probox.Builder.HFProboxDekseldoosv001).%New(##this))
+		Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.Probox.Builder.HFProboxOnderdelendoosv001).%New(##this))
+	} Else
+	{
+		Do ..Builders.Insert(..GeefVerpakkingBuilderWikkel())
 	}
-	Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.Probox.Builder.HFProboxPalletv001).%New(##this))
-	Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.Probox.Builder.HFProboxBodemdoosv001).%New(##this))
-	Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.Probox.Builder.HFProboxDekseldoosv001).%New(##this))
-	Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.Probox.Builder.HFProboxOnderdelendoosv001).%New(##this))
 ]]></Implementation>
 </Method>
 
 <Method name="VerwerkV1">
 <Private>1</Private>
 <Implementation><![CDATA[
-	#dim DoosBerekenaar As APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ##class(APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar).%New(..HalffabItemsBoom, ..IngegevenKenmerken)
-	#dim Specificaties As DOM.PM.Verpakking.dto.KartonSpecificaties = DoosBerekenaar.GeefKartonSpecificaties()
-	#dim Iterator As TECH.Iterator = Specificaties.GeefIterator()
-	
-	While Iterator.HasNext() {
-		#dim Specificatie As DOM.PM.Verpakking.dto.KartonSpecificatie = Iterator.Next()
-		#dim Builder As DOM.PM.Maatwerk.Calc.HF.impl.HFV1Verpakkingv001 = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HFV1Verpakkingv001).%New(##this, Specificatie)
+	If (..IngegevenKenmerken.ProductieWijze = ##class(DOM.PM.enu.LBXProductieWijze).Volledig()) {
+		#dim DoosBerekenaar As APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar = ##class(APPS.Halux.PPS.TAORVerpakking.impl.DoosBerekenaar).%New(..HalffabItemsBoom, ..IngegevenKenmerken)
+		#dim Specificaties As DOM.PM.Verpakking.dto.KartonSpecificaties = DoosBerekenaar.GeefKartonSpecificaties()
+		#dim Iterator As TECH.Iterator = Specificaties.GeefIterator()
 		
-		Do ..Builders.Insert(Builder)
+		While Iterator.HasNext() {
+			#dim Specificatie As DOM.PM.Verpakking.dto.KartonSpecificatie = Iterator.Next()
+			#dim Builder As DOM.PM.Maatwerk.Calc.HF.impl.HFV1Verpakkingv001 = ##class(DOM.PM.Maatwerk.Calc.HF.impl.HFV1Verpakkingv001).%New(##this, Specificatie)
+			
+			Do ..Builders.Insert(Builder)
+		}
+	} Else {
+		Do ..Builders.Insert(..GeefVerpakkingBuilderWikkel())
 	}
 ]]></Implementation>
 </Method>
@@ -223,6 +245,21 @@
 	Do ..Builders.Insert(##class(DOM.PM.Maatwerk.Calc.HF.impl.Probox.Builder.HFProboxOnderdelendoosv001).%New(##this))
 ]]></Implementation>
 </Method>
+
+<Method name="GeefVerpakkingBuilderWikkel">
+<Private>1</Private>
+<ReturnType>DOM.PM.Maatwerk.Calc.HF.impl.HFV1Verpakkingv001</ReturnType>
+<Implementation><![CDATA[
+	#dim Benaming As %String = ##class(DOM.PM.Verpakking.enu.BenamingVerpakkingsOnderdeel).Wikkel()
+	#dim KartonSamenstelling As DOM.PM.Verpakking.enu.KartonSamenstelling = ##class(DOM.PM.Verpakking.enu.KartonSamenstelling).Dun()
+	
+	#dim Breedte As TECH.Decimal = ..WikkelBreedteBepaler.BepaalWikkelBreedte(..IngegevenKenmerken)
+	#dim Lengte As TECH.Decimal = ..WikkelLengteBepaler.BepaalWikkelLengte(..IngegevenKenmerken)
+	Set KartonSpecificatie = ##class(DOM.PM.Verpakking.dto.KartonSpecificatie).%New(Benaming, Lengte, Breedte, KartonSamenstelling)
+	
+	Quit ##class(DOM.PM.Maatwerk.Calc.HF.impl.HFV1Verpakkingv001).%New(##this, KartonSpecificatie)
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/Test.cls.xml
===================================================================
diff -u
--- vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/Test.cls.xml	(revision 0)
+++ vhUnitTest/DOM/PM/Maatwerk/Calc/HF/impl/TAOR/Builder/HFVerpakkingv001/Test.cls.xml	(revision 54601)
@@ -0,0 +1,63 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001.Test">
+<IncludeCode>vhTest.Dummy</IncludeCode>
+<Super>vhUnitTest.DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.Base</Super>
+
+<Method name="VulHalffabTabel">
+<FormalSpec>HalffabTabel:vhUnitTest.DOM.PM.Maatwerk.HF.impl.InMemoryHalffabTabelUT</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	;Set Halffab = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.HalffabVerpakking).%New($$$DummyProductID)
+	;Do HalffabTabel.VoegToeHalffab(Halffab)
+]]></Implementation>
+</Method>
+
+<Method name="aTest: V1 Volledig geeft">
+<Implementation><![CDATA[
+	//Todo
+	Do ..AssertVerpakking(##class(DOM.PM.enu.TAORVerpakkingType).V1(),##class(DOM.PM.enu.TAORProductieWijze).Front(),1)
+]]></Implementation>
+</Method>
+
+<Method name="AssertVerpakking">
+<FormalSpec>VerpakkingType:DOM.PM.enu.TAORVerpakkingType,ProductieWijze:%String,VerwachtAantal:%Integer=1</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set ..TAORKenmerken.VerpakkingType = VerpakkingType
+	Set ..TAORKenmerken.ProductieWijze = ProductieWijze
+	
+	
+	Set Familie=##class(DOM.PM.enu.Familie).Lade()
+	Set Variant=##class(DOM.PM.enu.LadeVariant).TAOR()
+	
+	Set KlantID = "K||7587"
+	Set Personality = ##class(DOM.common.VanHoeckePersonality).Instance()
+	Set BerekeningsSpecificatie = ##class(DOM.PM.Maatwerk.Calc.Common.BerekeningsSpecificatie).%New(1,KlantID,Personality)
+	Set Context=##class(DOM.PM.Maatwerk.Calc.HF.HalffabContext).%New(Familie,Variant,BerekeningsSpecificatie)
+	
+	
+	
+	Set SamengesteldHalffabItemBuilder = ##class(vhUnitTest.DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder.Bereken.DummySamengesteldHalffabItemBuilder).%New()
+	Set Context = ##class(vhUnitTest.DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder.Bereken.DummyContext).%New()
+
+	; unit
+	#dim Builder As DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001 = ##class(DOM.PM.Maatwerk.Calc.HF.impl.TAOR.Builder.HFVerpakkingv001).%New(SamengesteldHalffabItemBuilder)
+	#dim BerekendeHalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = Builder.Bereken(..TAORKenmerken, Context)
+	;Do $$$AssertIsObject(BerekendeHalffabItem)
+	;Do $$$AssertEquals(BerekendeHalffabItem.Aantal, VerwachtAantal)
+	
+	; integratie
+	#dim Builders As DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilderList = ##class(DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilderList).%New()
+	Do Builders.Insert(Builder)
+	
+	;#dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = ..GeefCustomizedHalffabItemsBoom(..TAORKenmerken, Builders)
+	;#dim HalffabItem As DOM.PM.Maatwerk.Calc.HF.IHalffabItem = HalffabItemsBoom.GeefHalffabItem(..Enum.Rol.Verpakking)
+	
+	;Do $$$AssertEquals(HalffabItem.Aantal, VerwachtAantal)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>