Index: APPS/VKP/impl/BeschikbaarheidBepaler/ProductieTermijnBepaler.cls.xml
===================================================================
diff -u -r42903 -r50712
--- APPS/VKP/impl/BeschikbaarheidBepaler/ProductieTermijnBepaler.cls.xml	(.../ProductieTermijnBepaler.cls.xml)	(revision 42903)
+++ APPS/VKP/impl/BeschikbaarheidBepaler/ProductieTermijnBepaler.cls.xml	(.../ProductieTermijnBepaler.cls.xml)	(revision 50712)
@@ -39,6 +39,7 @@
 <FormalSpec>Product:DOM.PM.Product,RefDate:%String,KLNr:%String=""</FormalSpec>
 <ReturnType>%List</ReturnType>
 <Implementation><![CDATA[
+	Set ..RefDate=$G(RefDate)
 	#dim ExtraTermijn As %Integer = ""
 	If ..IsOrder() {
 		Set ..Categorie = ##class(APPS.Halux.common.ProductieService).%New().GeefCategorie(Product.GeefID())
@@ -53,7 +54,7 @@
 <Method name="GeefKantelpunt">
 <Private>1</Private>
 <ReturnType>%Integer</ReturnType>
-<Implementation><![CDATA[	Quit ##class(APPS.VKP.impl.BeschikbaarheidBepaler.KantelPuntBepaler).%New().BepaalKantelPunt(..Categorie)
+<Implementation><![CDATA[	Quit ##class(APPS.VKP.impl.BeschikbaarheidBepaler.KantelPuntBepaler).%New().BepaalKantelPunt(..Categorie,..RefDate)
 ]]></Implementation>
 </Method>
 
Index: APPS/VKP/impl/BeschikbaarheidBepaler/TBXProductieTermijnBepaler.cls.xml
===================================================================
diff -u -r29059 -r50712
--- APPS/VKP/impl/BeschikbaarheidBepaler/TBXProductieTermijnBepaler.cls.xml	(.../TBXProductieTermijnBepaler.cls.xml)	(revision 29059)
+++ APPS/VKP/impl/BeschikbaarheidBepaler/TBXProductieTermijnBepaler.cls.xml	(.../TBXProductieTermijnBepaler.cls.xml)	(revision 50712)
@@ -27,7 +27,9 @@
 	Set ..RefDate = RefDate
 	#dim lbTermijn As %List
 	If ..IsOrder() {
-		#dim KantelPunt As %Time = ##class(APPS.VKP.impl.BeschikbaarheidBepaler.KantelPuntBepaler).%New().BepaalKantelPunt(##class(APPS.Halux.common.enu.Categorie).Tandembox())
+		Set ..Categorie=##class(APPS.Halux.common.enu.Categorie).Tandembox()
+		#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
Index: APPS/VKP/impl/BeschikbaarheidBepaler/KantelPuntBepaler.cls.xml
===================================================================
diff -u -r29059 -r50712
--- APPS/VKP/impl/BeschikbaarheidBepaler/KantelPuntBepaler.cls.xml	(.../KantelPuntBepaler.cls.xml)	(revision 29059)
+++ APPS/VKP/impl/BeschikbaarheidBepaler/KantelPuntBepaler.cls.xml	(.../KantelPuntBepaler.cls.xml)	(revision 50712)
@@ -9,9 +9,23 @@
 </Property>
 
 <Method name="BepaalKantelPunt">
-<FormalSpec>Categorie:APPS.Halux.common.enu.Categorie</FormalSpec>
+<FormalSpec>Categorie:APPS.Halux.common.enu.Categorie,RefDate:%Date</FormalSpec>
 <ReturnType>%Time</ReturnType>
-<Implementation><![CDATA[	Quit $$INTTIME^vhLib.DataTypes("17:10:00")
+<Implementation><![CDATA[
+	#dim KantelPunt as %String
+	If (RefDate'="") && ($$CALCDATE^vhLib.DataTypes(RefDate,"A",0)'=+RefDate)
+	{	; Verlofdag of weekend
+		Set KantelPunt="00:00:00"
+	}
+	ElseIf (RefDate'="") && ($$EXTDATE^vhLib.DataTypes(RefDate,"DWN")=5)
+	{   ; werkdag vrijdag
+		Set KantelPunt="16:40:00"
+	}
+	Else
+	{   ; werkdag maandag tem donderdag
+		Set KantelPunt="17:10:00"
+	}
+	Quit $$INTTIME^vhLib.DataTypes(KantelPunt)
 ]]></Implementation>
 </Method>
 </Class>
Index: APPS/VKP/impl/BeschikbaarheidBepaler/LBXProductieTermijnBepaler.cls.xml
===================================================================
diff -u -r29059 -r50712
--- APPS/VKP/impl/BeschikbaarheidBepaler/LBXProductieTermijnBepaler.cls.xml	(.../LBXProductieTermijnBepaler.cls.xml)	(revision 29059)
+++ APPS/VKP/impl/BeschikbaarheidBepaler/LBXProductieTermijnBepaler.cls.xml	(.../LBXProductieTermijnBepaler.cls.xml)	(revision 50712)
@@ -27,7 +27,8 @@
 	Set ..RefDate = RefDate
 	#dim lbTermijn As %List
 	If ..IsOrder() {
-		#dim KantelPunt As %Time = ##class(APPS.VKP.impl.BeschikbaarheidBepaler.KantelPuntBepaler).%New().BepaalKantelPunt(##class(APPS.Halux.common.enu.Categorie).Legrabox())
+		Set ..Categorie=##class(APPS.Halux.common.enu.Categorie).Legrabox()
+		#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
Index: APPS/VKP/impl/BeschikbaarheidBepaler/KADProductieTermijnBepaler.cls.xml
===================================================================
diff -u -r29059 -r50712
--- APPS/VKP/impl/BeschikbaarheidBepaler/KADProductieTermijnBepaler.cls.xml	(.../KADProductieTermijnBepaler.cls.xml)	(revision 29059)
+++ APPS/VKP/impl/BeschikbaarheidBepaler/KADProductieTermijnBepaler.cls.xml	(.../KADProductieTermijnBepaler.cls.xml)	(revision 50712)
@@ -26,7 +26,8 @@
 	#dim IsGehard As %Boolean = Product.BevatGehardGlas()
 	#dim Dagen As %Integer = $Select(IsGehard:..#ProductieKADgehard,1:..#ProductieKADfloat)
 	If ..IsOrder() {
-		#dim KantelPunt As %Time = ##class(APPS.VKP.impl.BeschikbaarheidBepaler.KantelPuntBepaler).%New().BepaalKantelPunt(##class(APPS.Halux.common.enu.Categorie).Kaderdeur())
+		Set ..Categorie=##class(APPS.Halux.common.enu.Categorie).Kaderdeur()
+		#dim KantelPunt As %Time = ..GeefKantelpunt()
 		#dim ExtraTermijn As %Integer = $Select($Piece(..RefDate,",",2)<KantelPunt:0,1:1)
 		#dim DagWeek As %Integer = $$EXTDATE^vhLib.DataTypes(..RefDate,"DWN")+ExtraTermijn
 		Set:DagWeek>5 DagWeek = 1