Index: DOM/VKP/impl/ProductieDagenBepaler.cls.xml
===================================================================
diff -u -r29059 -r54041
--- DOM/VKP/impl/ProductieDagenBepaler.cls.xml	(.../ProductieDagenBepaler.cls.xml)	(revision 29059)
+++ DOM/VKP/impl/ProductieDagenBepaler.cls.xml	(.../ProductieDagenBepaler.cls.xml)	(revision 54041)
@@ -69,6 +69,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkTAORbox">
+<Private>1</Private>
+<Implementation><![CDATA[
+	if '##class(DOM.PM.enu.TAORVerpakkingType).IsValid(..Verpakking) {
+		Set Exceptie = ##class(TECH.Exceptions.GeneralErrorException).%New("De verpakking, "_..Verpakking_", is niet geldig voor Toarbox")
+		Do ##class(TECH.ExceptionHandler).Throw(Exceptie)
+	}
+	
+	Set TAORVerpakkingSoortBepaler = ##class(DOM.VKP.impl.ProductieDagenBepaler.VerpakkingSoort.VerpakkingSoortBepalerTAOR).%New()
+	#dim VerpakkingSoort As DOM.VKP.impl.ProductieDagenBepaler.enu.VerpakkingSoort = TAORVerpakkingSoortBepaler.BepaalVerpakkingSoort(..Verpakking)
+	#dim TAORProductieDagenData As DOM.VKP.impl.TAORProductieDagenData = ##class(DOM.VKP.impl.TAORProductieDagenData).OpenId(VerpakkingSoort)
+	Set ..ProductieDagen = TAORProductieDagenData.GeefProductieDagen(..KlantID)
+]]></Implementation>
+</Method>
+
 <Method name="VerwerkBanco">
 <Private>1</Private>
 <Implementation><![CDATA[	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New())
@@ -147,12 +162,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="VerwerkTAORbox">
-<Private>1</Private>
-<Implementation><![CDATA[	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New())
-]]></Implementation>
-</Method>
-
 <Method name="VerwerkVerlichting">
 <Private>1</Private>
 <Implementation><![CDATA[	Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.UnimplementedException).%New())
Index: DOM/VKP/impl/TAORProductieDagenData.cls.xml
===================================================================
diff -u
--- DOM/VKP/impl/TAORProductieDagenData.cls.xml	(revision 0)
+++ DOM/VKP/impl/TAORProductieDagenData.cls.xml	(revision 54041)
@@ -0,0 +1,89 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.VKP.impl.TAORProductieDagenData">
+<ClassType>persistent</ClassType>
+<Super>TECH.Persistent</Super>
+
+<Property name="KlantDefaults">
+<Type>%Integer</Type>
+<Collection>array</Collection>
+</Property>
+
+<Property name="VerpakkingSoort">
+<Type>%String</Type>
+<Private>1</Private>
+<Parameter name="VALUELIST" value=",Bulk,Karton,Probox,VHOSS,TAX"/>
+</Property>
+
+<Property name="GlobaleDefault">
+<Type>%Integer</Type>
+</Property>
+
+<Index name="VerpakkingSoortIndex">
+<IdKey>1</IdKey>
+<Properties>VerpakkingSoort</Properties>
+<Unique>1</Unique>
+</Index>
+
+<Method name="%OnNew">
+<FormalSpec>VerpakkingSoort:%String</FormalSpec>
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<ServerOnly>1</ServerOnly>
+<Implementation><![CDATA[
+	Set ..VerpakkingSoort = VerpakkingSoort
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductieDagen">
+<FormalSpec>KlantID:DOM.VKP.VanHoeckeKlantID</FormalSpec>
+<Implementation><![CDATA[
+	#dim ProductieDagen As %Integer = ..GlobaleDefault
+	
+	If (KlantID '= "") && (..KlantDefaults.IsDefined(KlantID))
+	{
+		Set ProductieDagen = ..KlantDefaults.GetAt(KlantID)
+	}
+	
+	Quit ProductieDagen
+]]></Implementation>
+</Method>
+
+<Method name="Save">
+<Implementation><![CDATA[
+	Do ..Validate()
+	Do ##class(DOM.VKP.impl.TAORProductieDagenHistoriek).VoegToe(..VerpakkingSoort,..GlobaleDefault,..KlantDefaults)
+	Do ##super()
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^DOM.VKP.impl.TAORProduct8932D</DataLocation>
+<DefaultData>TAORProductieDagenDataDefaultData</DefaultData>
+<IdLocation>^DOM.VKP.impl.TAORProduct8932D</IdLocation>
+<IndexLocation>^DOM.VKP.impl.TAORProduct8932I</IndexLocation>
+<StreamLocation>^DOM.VKP.impl.TAORProduct8932S</StreamLocation>
+<Data name="KlantDefaults">
+<Attribute>KlantDefaults</Attribute>
+<Structure>subnode</Structure>
+<Subscript>"KlantDefaults"</Subscript>
+</Data>
+<Data name="TAORProductieDagenDataDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>GlobaleDefault</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+<Package name="DOM.VKP.impl" sqlname="DOM_VKP_impl"/>
+</Export>
Index: DOM/VKP/impl/ProductieTermijnBepaler.cls.xml
===================================================================
diff -u -r39641 -r54041
--- DOM/VKP/impl/ProductieTermijnBepaler.cls.xml	(.../ProductieTermijnBepaler.cls.xml)	(revision 39641)
+++ DOM/VKP/impl/ProductieTermijnBepaler.cls.xml	(.../ProductieTermijnBepaler.cls.xml)	(revision 54041)
@@ -19,14 +19,15 @@
 </Property>
 
 <Method name="%OnNew">
+<FormalSpec>ProductieService:APPS.Halux.common.ProductieService,VerpakkingTypeBepaler:DOM.PM.MaatwerkProduct.impl.VerpakkingTypeBepaler,ProductieDagenBepaler:DOM.VKP.impl.ProductieDagenBepaler</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..ProductieService = ##class(APPS.Halux.common.ProductieService).%New()
-	Set ..VerpakkingTypeBepaler = ##class(DOM.PM.MaatwerkProduct.impl.VerpakkingTypeBepaler).%New()
-	set ..ProductieDagenBepaler = ##class(DOM.VKP.impl.ProductieDagenBepaler).%New()
+	Set ..ProductieService = $$$Inject(ProductieService,##class(APPS.Halux.common.ProductieService).%New())
+	Set ..VerpakkingTypeBepaler = $$$Inject(VerpakkingTypeBepaler,##class(DOM.PM.MaatwerkProduct.impl.VerpakkingTypeBepaler).%New())
+	set ..ProductieDagenBepaler = $$$Inject(ProductieDagenBepaler,##class(DOM.VKP.impl.ProductieDagenBepaler).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
Index: APPS/VKP/LeveringsTermijn.cls.xml
===================================================================
diff -u -r39869 -r54041
--- APPS/VKP/LeveringsTermijn.cls.xml	(.../LeveringsTermijn.cls.xml)	(revision 39869)
+++ APPS/VKP/LeveringsTermijn.cls.xml	(.../LeveringsTermijn.cls.xml)	(revision 54041)
@@ -317,12 +317,16 @@
 	}
 	If StockNietStock=1 {
 		Set lbTermijn=..BeschikbaarStock(PRNr)
+		Do ##class(Tools.Wlip).%New(26).String("1")
 	} ElseIf ..IsLadeIndeling(PRNr) {
 		Set lbTermijn=..BeschikbaarLadeIndeling(PRNr)
+		Do ##class(Tools.Wlip).%New(26).String("2")
 	} ElseIf ($P(^KPR(PRNr,0),"\",3)?4.7N)||(..IsHalux(PRNr)) { ;Generisch afgeleid of Halux product -> productie
 		Set lbTermijn=..BeschikbaarProductie(PRNr)
+		Do ##class(Tools.Wlip).%New(26).String("3")
 	} Else {
 		Set lbTermijn=..BeschikbaarNietStock(PRNr)
+		Do ##class(Tools.Wlip).%New(26).String("4")
 	}
 	Quit lbTermijn
 ]]></Implementation>
@@ -461,10 +465,12 @@
 	#dim lbTermijn As %List
 	If ..TermijnProduct(PRNr)=0	{
 		Set lbTermijn = ..BinnenWelkeTermijnIsHetMaatwerkProductBeschikbaarBijVanHoecke(PRNr)
+		Do ##class(Tools.Wlip).%New(26).String("if")
 	}
 	Else
 	{ 
 		Set lbTermijn=..BeschikbaarNietStock(PRNr)
+		Do ##class(Tools.Wlip).%New(26).String("else")
 	}
 
 	Quit lbTermijn ;in arbeidsdagen of weken
Index: vhTest/Integratie/Productie/TermijnBerekening/Base.cls.xml
===================================================================
diff -u -r42903 -r54041
--- vhTest/Integratie/Productie/TermijnBerekening/Base.cls.xml	(.../Base.cls.xml)	(revision 42903)
+++ vhTest/Integratie/Productie/TermijnBerekening/Base.cls.xml	(.../Base.cls.xml)	(revision 54041)
@@ -36,6 +36,7 @@
 	Set VerzendWijze = ##class(APPS.VKP.VerzendWijze).%New(..#KLNr, "")
 	Set LeveringTermijn = ##class(APPS.VKP.LeveringsTermijn).%New(..RefDate,VerzendWijze)
 	#dim Termijn As %List = LeveringTermijn.BeschikbaarTermijn(..GeefPRNr())
+	Do ##class(Tools.Wlip).%New(26).String($LG(Termijn,2))
 	If $$$AssertEquals($ListLength(Termijn),2) {
 		#dim TermijnList As %String = $$LCVT^vhLib(Termijn)
 		#dim VerwachteTermijn As %List = $ListBuild(..GeefVerwachtAantal(), ..GeefVerwachteTijdAanduiding())
Index: vhDeploy/Deploy20181122xSFSStabieleLevertermijnLades.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20181122xSFSStabieleLevertermijnLades.cls.xml	(revision 0)
+++ vhDeploy/Deploy20181122xSFSStabieleLevertermijnLades.cls.xml	(revision 54041)
@@ -0,0 +1,43 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20181122xSFSStabieleLevertermijnLades">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>De D+-levertermijn voor SFS mag niet wijzigen volgens instellingen van Halux Planning</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Do ..ZetVerpakkingSoortOpDPlus3( ##class(DOM.VKP.impl.ProductieDagenBepaler.enu.VerpakkingSoort).Karton() )
+	Do ..ZetVerpakkingSoortOpDPlus3( ##class(DOM.VKP.impl.ProductieDagenBepaler.enu.VerpakkingSoort).Bulk() )
+	Do ..ZetVerpakkingSoortOpDPlus3( ##class(DOM.VKP.impl.ProductieDagenBepaler.enu.VerpakkingSoort).Probox() )
+	Do ..ZetVerpakkingSoortOpDPlus3( ##class(DOM.VKP.impl.ProductieDagenBepaler.enu.VerpakkingSoort).Vhoss() )
+]]></Implementation>
+</Method>
+
+<Method name="ZetVerpakkingSoortOpDPlus3">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>VerpakkingSoort:DOM.VKP.impl.ProductieDagenBepaler.enu.VerpakkingSoort</FormalSpec>
+<Implementation><![CDATA[
+	#define SFS 12486
+	#define DagPlus3AlsBeschikbaarTermijnDus2 2
+	#dim TAORProductieDagenData As DOM.VKP.impl.TAORProductieDagenData = ""
+	
+	If (##class(DOM.VKP.impl.TAORProductieDagenData).%ExistsId(VerpakkingSoort)) {
+		Set TAORProductieDagenData = ##class(DOM.VKP.impl.TAORProductieDagenData).OpenId(VerpakkingSoort)
+	} Else {
+		Set TAORProductieDagenData = ##class(DOM.VKP.impl.TAORProductieDagenData).%New(VerpakkingSoort)
+	}
+	
+	Set TAORProductieDagenData.GlobaleDefault = 3
+	Do TAORProductieDagenData.KlantDefaults.SetAt( $$$DagPlus3AlsBeschikbaarTermijnDus2, $$$SFS )
+	Do TAORProductieDagenData.Save()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOM/PM/MaatwerkProduct/impl/VerpakkingTypeBepaler.cls.xml
===================================================================
diff -u -r39641 -r54041
--- DOM/PM/MaatwerkProduct/impl/VerpakkingTypeBepaler.cls.xml	(.../VerpakkingTypeBepaler.cls.xml)	(revision 39641)
+++ DOM/PM/MaatwerkProduct/impl/VerpakkingTypeBepaler.cls.xml	(.../VerpakkingTypeBepaler.cls.xml)	(revision 54041)
@@ -1,7 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="DOM.PM.MaatwerkProduct.impl.VerpakkingTypeBepaler">
-<Super>TECH.RegisteredObject,DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerkenVisitor</Super>
+<Super>TECH.Mockable,DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerkenVisitor</Super>
 
 <Property name="Verpakking">
 <Type>%String</Type>
@@ -10,6 +10,7 @@
 
 <Method name="BepaalVerpakkingType">
 <FormalSpec>Product:DOM.PM.MaatwerkProduct</FormalSpec>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Do Product.GeefProductSpecificatie().GeefIngegevenKenmerken().Accept($this)
 	Quit ..Verpakking
Index: APPS/VKP/impl/BeschikbaarheidBepaler/TBXProductieTermijnBepaler.cls.xml
===================================================================
diff -u -r50712 -r54041
--- APPS/VKP/impl/BeschikbaarheidBepaler/TBXProductieTermijnBepaler.cls.xml	(.../TBXProductieTermijnBepaler.cls.xml)	(revision 50712)
+++ APPS/VKP/impl/BeschikbaarheidBepaler/TBXProductieTermijnBepaler.cls.xml	(.../TBXProductieTermijnBepaler.cls.xml)	(revision 54041)
@@ -15,7 +15,7 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..ProductieTermijnBepaler = $Select($IsObject(ProductieTermijnBepaler):ProductieTermijnBepaler,1:##class(DOM.VKP.impl.ProductieTermijnBepaler).%New())
+	Set ..ProductieTermijnBepaler = $$$Inject(ProductieTermijnBepaler,##class(DOM.VKP.impl.ProductieTermijnBepaler).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
Index: APPS/VKP/impl/BeschikbaarheidBepaler/TAORProductieTermijnBepaler.cls.xml
===================================================================
diff -u -r42903 -r54041
--- APPS/VKP/impl/BeschikbaarheidBepaler/TAORProductieTermijnBepaler.cls.xml	(.../TAORProductieTermijnBepaler.cls.xml)	(revision 42903)
+++ APPS/VKP/impl/BeschikbaarheidBepaler/TAORProductieTermijnBepaler.cls.xml	(.../TAORProductieTermijnBepaler.cls.xml)	(revision 54041)
@@ -3,14 +3,20 @@
 <Class name="APPS.VKP.impl.BeschikbaarheidBepaler.TAORProductieTermijnBepaler">
 <Super>APPS.VKP.impl.BeschikbaarheidBepaler.ProductieTermijnBepaler</Super>
 
+<Property name="ProductieTermijnBepaler">
+<Type>DOM.VKP.impl.ProductieTermijnBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
+<FormalSpec>ProductieTermijnBepaler:DOM.VKP.impl.ProductieTermijnBepaler=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	set ..DefaultAantalDagenHalux = (##class(DOM.VKP.impl.TBXProductieDagenData).OpenId("TAX").GlobaleDefault)-1
-	quit $$$OK
+	Set ..ProductieTermijnBepaler = $$$Inject(ProductieTermijnBepaler,##class(DOM.VKP.impl.ProductieTermijnBepaler).%New())
+	Quit $$$OK
 ]]></Implementation>
 </Method>
 
@@ -19,7 +25,17 @@
 <ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
 	Set ..RefDate = RefDate
-	#dim lbTermijn As %List = ##super(Product, RefDate, KLNr)
+	#dim lbTermijn As %List
+	If ..IsOrder() {
+		Set ..Categorie=##class(APPS.Halux.common.enu.Categorie).TAORbox()
+		#dim KantelPunt As %Time =..GeefKantelpunt()
+
+		#dim ExtraTermijn As %Integer = $Select($Piece(..RefDate,",",2)<KantelPunt:0,1:1)
+		#dim Termijn As %Integer = ..ProductieTermijnBepaler.GeefAantalProductieDagen(Product,KLNr)+ExtraTermijn-1
+		Set lbTermijn = $ListBuild(Termijn,"A") ; DAGPLUS is incl. transport daarom -1
+	} Else {
+		Set lbTermijn = ..DefaultVerwerking()
+	}
 	Quit lbTermijn
 ]]></Implementation>
 </Method>
Index: vhUnitTest/APPS/VKP/impl/BeschikbaarheidBepaler/TAORProductieTermijnBepaler/BepaalProductieTermijn/Test.cls.xml
===================================================================
diff -u -r29059 -r54041
--- vhUnitTest/APPS/VKP/impl/BeschikbaarheidBepaler/TAORProductieTermijnBepaler/BepaalProductieTermijn/Test.cls.xml	(.../Test.cls.xml)	(revision 29059)
+++ vhUnitTest/APPS/VKP/impl/BeschikbaarheidBepaler/TAORProductieTermijnBepaler/BepaalProductieTermijn/Test.cls.xml	(.../Test.cls.xml)	(revision 54041)
@@ -6,21 +6,21 @@
 <Method name="Test1LagerDanKantelPunt">
 <Implementation><![CDATA[
 	#dim RefDate As %String = $$$DummyDate_","_(..KantelPunt-1)
-	Do ..BepaalEnAssert(RefDate, $ListBuild(2,"A"))
+	Do ..BepaalEnAssert(RefDate, $ListBuild(3,"A"))
 ]]></Implementation>
 </Method>
 
 <Method name="TestGelijkAanKantelPunt">
 <Implementation><![CDATA[
 	#dim RefDate As %String = $$$DummyDate_","_..KantelPunt
-	Do ..BepaalEnAssert(RefDate, $ListBuild(3,"A"))
+	Do ..BepaalEnAssert(RefDate, $ListBuild(4,"A"))
 ]]></Implementation>
 </Method>
 
 <Method name="Test1GroterDanKantelPunt">
 <Implementation><![CDATA[
 	#dim RefDate As %String = $$$DummyDate_","_(..KantelPunt+1)
-	Do ..BepaalEnAssert(RefDate, $ListBuild(3,"A"))
+	Do ..BepaalEnAssert(RefDate, $ListBuild(4,"A"))
 ]]></Implementation>
 </Method>
 
Index: DOM/VKP/impl/TAORProductieDagenHistoriek.cls.xml
===================================================================
diff -u
--- DOM/VKP/impl/TAORProductieDagenHistoriek.cls.xml	(revision 0)
+++ DOM/VKP/impl/TAORProductieDagenHistoriek.cls.xml	(revision 54041)
@@ -0,0 +1,75 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.VKP.impl.TAORProductieDagenHistoriek">
+<ClassType>persistent</ClassType>
+<Super>TECH.Persistent</Super>
+
+<Property name="KlantDefaults">
+<Type>%Integer</Type>
+<Collection>array</Collection>
+<Private>1</Private>
+</Property>
+
+<Property name="VanafTijdstip">
+<Type>%TimeStamp</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="VerpakkingSoort">
+<Type>%String</Type>
+<Private>1</Private>
+<Parameter name="VALUELIST" value=",Bulk,Karton,Probox,VHOSS,TAX"/>
+</Property>
+
+<Property name="GlobaleDefault">
+<Type>%Integer</Type>
+<Private>1</Private>
+</Property>
+
+<Index name="VerpakkingSoortIndex">
+<IdKey>1</IdKey>
+<Properties>VanafTijdstip,VerpakkingSoort</Properties>
+<Unique>1</Unique>
+</Index>
+
+<Method name="VoegToe">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>VerpakkingSoort:%String,GlobaleDefault:%Integer,KlantDefaults:%ArrayOfDataTypes</FormalSpec>
+<Implementation><![CDATA[
+	Set Historiek=..%New()
+	Set Historiek.VerpakkingSoort = VerpakkingSoort
+	Set Historiek.GlobaleDefault = GlobaleDefault
+	Set Historiek.VanafTijdstip = $ZDT($H,3)
+	Set Historiek.KlantDefaults = KlantDefaults.%ConstructClone(1)
+	Do Historiek.Save()
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^DOM.VKP.impl.TAORProductE946D</DataLocation>
+<DefaultData>TAORProductieDagenHistoriekDefaultData</DefaultData>
+<IdLocation>^DOM.VKP.impl.TAORProductE946D</IdLocation>
+<IndexLocation>^DOM.VKP.impl.TAORProductE946I</IndexLocation>
+<StreamLocation>^DOM.VKP.impl.TAORProductE946S</StreamLocation>
+<Data name="KlantDefaults">
+<Attribute>KlantDefaults</Attribute>
+<Structure>subnode</Structure>
+<Subscript>"KlantDefaults"</Subscript>
+</Data>
+<Data name="TAORProductieDagenHistoriekDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>GlobaleDefault</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+<Package name="DOM.VKP.impl" sqlname="DOM_VKP_impl"/>
+</Export>
Index: DOM/VKP/impl/ProductieDagenBepaler/VerpakkingSoort/VerpakkingSoortBepalerTAOR.cls.xml
===================================================================
diff -u
--- DOM/VKP/impl/ProductieDagenBepaler/VerpakkingSoort/VerpakkingSoortBepalerTAOR.cls.xml	(revision 0)
+++ DOM/VKP/impl/ProductieDagenBepaler/VerpakkingSoort/VerpakkingSoortBepalerTAOR.cls.xml	(revision 54041)
@@ -0,0 +1,58 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOM.VKP.impl.ProductieDagenBepaler.VerpakkingSoort.VerpakkingSoortBepalerTAOR">
+<Super>TECH.RegisteredObject,DOM.PM.enu.TAORVerpakkingType.Verwerker</Super>
+
+<Property name="VerpakkingSoort">
+<Type>DOM.VKP.impl.ProductieDagenBepaler.enu.VerpakkingSoort</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="BepaalVerpakkingSoort">
+<FormalSpec>TAORVerpakkingType:DOM.PM.enu.TAORVerpakkingType</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Do ..Verwerk(TAORVerpakkingType)
+	Quit ..VerpakkingSoort
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkV1">
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..VerpakkingSoort = ##class(DOM.VKP.impl.ProductieDagenBepaler.enu.VerpakkingSoort).Karton()
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkProbox">
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..VerpakkingSoort = ##class(DOM.VKP.impl.ProductieDagenBepaler.enu.VerpakkingSoort).Probox()
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkBulkPerOnderdeelGegroepeerd">
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..VerpakkingSoort = ##class(DOM.VKP.impl.ProductieDagenBepaler.enu.VerpakkingSoort).Bulk()
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkFlatpackV1">
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..VerpakkingSoort = ##class(DOM.VKP.impl.ProductieDagenBepaler.enu.VerpakkingSoort).Karton()
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLosseComponentenInBulk">
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..VerpakkingSoort = ##class(DOM.VKP.impl.ProductieDagenBepaler.enu.VerpakkingSoort).Bulk()
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkFlatpackProcom">
+<Private>1</Private>
+<Implementation><![CDATA[	Set ..VerpakkingSoort = ##class(DOM.VKP.impl.ProductieDagenBepaler.enu.VerpakkingSoort).Karton()
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhTest/Fake/DOM/PM/MaatwerkProduct/impl/VerpakkingTypeBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Fake/DOM/PM/MaatwerkProduct/impl/VerpakkingTypeBepaler.cls.xml	(revision 0)
+++ vhTest/Fake/DOM/PM/MaatwerkProduct/impl/VerpakkingTypeBepaler.cls.xml	(revision 54041)
@@ -0,0 +1,48 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Fake.DOM.PM.MaatwerkProduct.impl.VerpakkingTypeBepaler">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden, nieuwe methodes worden automatisch bijgevoegd, bestaande blijven zoals ze zijn.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.MaatwerkProduct.impl.VerpakkingTypeBepaler</Super>
+
+<Method name="BepaalVerpakkingType">
+<FormalSpec>Product:DOM.PM.MaatwerkProduct</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkKADKenmerken">
+<FormalSpec>KADKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.KADKenmerken</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkLBXKenmerken">
+<FormalSpec>LBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkMATKenmerken">
+<FormalSpec>MATKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkOLMKenmerken">
+<FormalSpec>OLMKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.OLMKenmerken</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkTAORKenmerken">
+<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+
+<Method name="VerwerkTBXKenmerken">
+<FormalSpec>TBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</FormalSpec>
+<Implementation><![CDATA[]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/VKP/impl/BeschikbaarheidBepaler/TAORProductieTermijnBepaler/BepaalProductieTermijn/TestSFS.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/VKP/impl/BeschikbaarheidBepaler/TAORProductieTermijnBepaler/BepaalProductieTermijn/TestSFS.cls.xml	(revision 0)
+++ vhUnitTest/APPS/VKP/impl/BeschikbaarheidBepaler/TAORProductieTermijnBepaler/BepaalProductieTermijn/TestSFS.cls.xml	(revision 54041)
@@ -0,0 +1,116 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.APPS.VKP.impl.BeschikbaarheidBepaler.TAORProductieTermijnBepaler.BepaalProductieTermijn.TestSFS">
+<Super>vhUnitTest.TestCase</Super>
+
+<Parameter name="KLNr">
+<Type>%String</Type>
+<Default>12486</Default>
+</Parameter>
+
+<Parameter name="ProductID">
+<Type>%String</Type>
+<Default>789456</Default>
+</Parameter>
+
+<Property name="Product">
+<Type>DOM.PM.Product</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="ProductieTermijnBepaler">
+<Type>APPS.VKP.impl.BeschikbaarheidBepaler.TAORProductieTermijnBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="KantelPunt">
+<Type>%Time</Type>
+</Property>
+
+<Method name="OnBeforeOneTest">
+<FormalSpec>aTestName:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ##super(aTestName)
+	
+	Set ..Product = ..GeefProduct()
+	
+	Set VerpakkingTypeBepalerMock = ##class(vhTest.Mock.DOM.PM.MaatwerkProduct.impl.VerpakkingTypeBepaler).%New()
+	Do VerpakkingTypeBepalerMock.IndienMethodCall("BepaalVerpakkingType",$$$ElkeWaarde).DanReturn("V1")
+	
+	Set ProductieServiceMock = ##class(vhTest.Mock.APPS.Halux.common.ProductieService).%New()
+	Do ProductieServiceMock.IndienMethodCall("GeefCategorie",$$$ElkeWaarde).DanReturn("TAORbox")
+	
+	Set TermijnBepaler = ##class(DOM.VKP.impl.ProductieTermijnBepaler).%New(ProductieServiceMock,VerpakkingTypeBepalerMock)
+	
+	Set ..ProductieTermijnBepaler = ..GeefProductieTermijnBepaler(TermijnBepaler)
+	
+	Set KantelPuntBepaler = ##class(APPS.VKP.impl.BeschikbaarheidBepaler.KantelPuntBepaler).%New()
+	Set ..KantelPunt = KantelPuntBepaler.BepaalKantelPunt(..GeefCategorie(), "")
+]]></Implementation>
+</Method>
+
+<Method name="BepaalEnAssert">
+<FormalSpec>RefDate:%String,VerwachteTermijn:%List</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim Termijn As %List = ..ProductieTermijnBepaler.BepaalProductieTermijn(..Product, RefDate,..#KLNr)
+	Do $$$AssertEquals($$LCVT^vhLib(Termijn),$$LCVT^vhLib(VerwachteTermijn))
+]]></Implementation>
+</Method>
+
+<Method name="Test1LagerDanKantelPunt">
+<Implementation><![CDATA[
+	#dim RefDate As %String = $$$DummyDate_","_(..KantelPunt-1)
+	Do ..BepaalEnAssert(RefDate, $ListBuild(1,"A"))
+]]></Implementation>
+</Method>
+
+<Method name="TestGelijkAanKantelPunt">
+<Implementation><![CDATA[
+	#dim RefDate As %String = $$$DummyDate_","_..KantelPunt
+	Do ..BepaalEnAssert(RefDate, $ListBuild(2,"A"))
+]]></Implementation>
+</Method>
+
+<Method name="Test1GroterDanKantelPunt">
+<Implementation><![CDATA[
+	#dim RefDate As %String = $$$DummyDate_","_(..KantelPunt+1)
+	Do ..BepaalEnAssert(RefDate, $ListBuild(2,"A"))
+]]></Implementation>
+</Method>
+
+<Method name="TestOfferte">
+<Implementation><![CDATA[
+	#dim RefDate As %String = ""
+	Do ..BepaalEnAssert(RefDate, $ListBuild(2,"A"))
+]]></Implementation>
+</Method>
+
+<Method name="GeefProductieTermijnBepaler">
+<FormalSpec>TermijnBepaler:DOM.VKP.ProductieTermijnBepaler</FormalSpec>
+<Private>1</Private>
+<ReturnType>APPS.VKP.impl.BeschikbaarheidBepaler.TAORProductieTermijnBepaler</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.VKP.impl.BeschikbaarheidBepaler.TAORProductieTermijnBepaler).%New(TermijnBepaler)
+]]></Implementation>
+</Method>
+
+<Method name="GeefCategorie">
+<Private>1</Private>
+<ReturnType>APPS.Halux.common.enu.Categorie</ReturnType>
+<Implementation><![CDATA[	Quit ##class(APPS.Halux.common.enu.Categorie).TAORbox()
+]]></Implementation>
+</Method>
+
+<Method name="GeefProduct">
+<Private>1</Private>
+<ReturnType>DOM.PM.Product</ReturnType>
+<Implementation><![CDATA[
+	Set Product = ##class(vhTest.Mock.DOM.PM.Product).%New()
+	Do Product.IndienMethodCall("GeefID").DanReturn(..#ProductID)
+	Quit Product
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: APPS/VKP/impl/BeschikbaarheidBepaler/LBXProductieTermijnBepaler.cls.xml
===================================================================
diff -u -r50712 -r54041
--- APPS/VKP/impl/BeschikbaarheidBepaler/LBXProductieTermijnBepaler.cls.xml	(.../LBXProductieTermijnBepaler.cls.xml)	(revision 50712)
+++ APPS/VKP/impl/BeschikbaarheidBepaler/LBXProductieTermijnBepaler.cls.xml	(.../LBXProductieTermijnBepaler.cls.xml)	(revision 54041)
@@ -15,7 +15,7 @@
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
-	Set ..ProductieTermijnBepaler = $Select($IsObject(ProductieTermijnBepaler):ProductieTermijnBepaler,1:##class(DOM.VKP.impl.ProductieTermijnBepaler).%New())
+	Set ..ProductieTermijnBepaler = $$$Inject(ProductieTermijnBepaler,##class(DOM.VKP.impl.ProductieTermijnBepaler).%New())
 	Quit $$$OK
 ]]></Implementation>
 </Method>
Index: vhTest/Mock/DOM/PM/MaatwerkProduct/impl/VerpakkingTypeBepaler.cls.xml
===================================================================
diff -u
--- vhTest/Mock/DOM/PM/MaatwerkProduct/impl/VerpakkingTypeBepaler.cls.xml	(revision 0)
+++ vhTest/Mock/DOM/PM/MaatwerkProduct/impl/VerpakkingTypeBepaler.cls.xml	(revision 54041)
@@ -0,0 +1,56 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhTest.Mock.DOM.PM.MaatwerkProduct.impl.VerpakkingTypeBepaler">
+<Description>
+Deze klasse werd automatisch gegenereerd en onderhouden - lokale aanpassingen zijn niet nodig.
+Een hercompilatie van de basis interface - met een correct werkende studiohook ( v2.20 ++ ) - zorgt ervoor dat deze klasse aangepast wordt</Description>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>DOM.PM.MaatwerkProduct.impl.VerpakkingTypeBepaler,Tools.Mock.MockClassBase</Super>
+<Inheritance>right</Inheritance>
+
+<Method name="BepaalVerpakkingType">
+<FormalSpec>Product:DOM.PM.MaatwerkProduct</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..VerwerkMethodCall("BepaalVerpakkingType",Product)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkKADKenmerken">
+<FormalSpec>KADKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.KADKenmerken</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkKADKenmerken",KADKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkLBXKenmerken">
+<FormalSpec>LBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkLBXKenmerken",LBXKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkMATKenmerken">
+<FormalSpec>MATKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MATKenmerken</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkMATKenmerken",MATKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkOLMKenmerken">
+<FormalSpec>OLMKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.OLMKenmerken</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkOLMKenmerken",OLMKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkTAORKenmerken">
+<FormalSpec>TAORKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TAORKenmerken</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkTAORKenmerken",TAORKenmerken)
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkTBXKenmerken">
+<FormalSpec>TBXKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("VerwerkTBXKenmerken",TBXKenmerken)
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>