Index: AX/Uitgaand/EC/Productie/impl/GenerateLevertermijn.cls.xml
===================================================================
diff -u -r46865 -r50756
--- AX/Uitgaand/EC/Productie/impl/GenerateLevertermijn.cls.xml	(.../GenerateLevertermijn.cls.xml)	(revision 46865)
+++ AX/Uitgaand/EC/Productie/impl/GenerateLevertermijn.cls.xml	(.../GenerateLevertermijn.cls.xml)	(revision 50756)
@@ -27,9 +27,14 @@
 
 <Property name="Kantelpunt">
 <Type>%Integer</Type>
-<InitialExpression>16</InitialExpression>
+<InitialExpression>17</InitialExpression>
 </Property>
 
+<Property name="KantelpuntVrijdag">
+<Type>%Decimal</Type>
+<InitialExpression>16.5</InitialExpression>
+</Property>
+
 <Property name="DomeinID">
 <Type>%String</Type>
 </Property>
@@ -46,10 +51,26 @@
 <Type>AX.Uitgaand.EC.impl.ExportSamenvatting</Type>
 </Property>
 
+<Property name="StartTijdstip">
+<Type>%Date</Type>
+</Property>
+
+<Property name="ExtraDag">
+<Type>%Integer</Type>
+</Property>
+
 <Method name="ToonProductieDuur">
 <Description>
-D ##class(AX.Uitgaand.EC.Productie.impl.GenerateLevertermijn).%New().ToonProductieDuur()</Description>
+D ##class(AX.Uitgaand.EC.Productie.impl.GenerateLevertermijn).%New().ToonProductieDuur("2018-03-25 15:41:49")</Description>
+<FormalSpec>StartTijdstip:%String=""</FormalSpec>
 <Implementation><![CDATA[
+	If $L(StartTijdstip)
+	{ 	Set ..StartTijdstip=$zdth(StartTijdstip,3)
+		Set ..ExtraDag=..BerekenExtraDag()
+		Set ..LevertermijnIsVeranderd=0
+		Do ..BerekenAll()
+	}
+	
 	For Groep=..#LBX,..#TBX,..#TAX
 	{
 		Write Groep," = ",..GeefOpgeslagenAantal(Groep)," -> ",$ZD(..GeefOpgeslagenVroegsteLeverDatum(Groep),3),!
@@ -61,13 +82,25 @@
 <Method name="%OnNew">
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
+	Set ..StartTijdstip=$H
+	Set ..ExtraDag=..BerekenExtraDag()
 	Set ..LevertermijnIsVeranderd=0
 	Do ..BerekenAll()
 
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
+<Method name="BerekenExtraDag">
+<Implementation><![CDATA[
+	; Indien verlof dag dan extra dag
+	Quit:($$CALCDATE^vhLib.DataTypes(+..StartTijdstip,"A",0)'=+..StartTijdstip) 1
+	; Indien na 17 uur dan extra dag
+	Quit:($P(..StartTijdstip,",",2)>($S($$EXTDATE^vhLib.DataTypes(..StartTijdstip,"DWN")=5:..KantelpuntVrijdag,1:..Kantelpunt)*3600)) 1
+	Quit 0
+]]></Implementation>
+</Method>
+
 <Method name="IsVeranderd">
 <Implementation><![CDATA[	Quit ..LevertermijnIsVeranderd
 ]]></Implementation>
@@ -153,7 +186,7 @@
 <Private>1</Private>
 <Implementation><![CDATA[
 	#dim VroegsteLeverDatum as %Date
-	Set VroegsteLeverDatum=$$CALCDATE^vhLib.DataTypes($H,"A",Dagen+$S($P($H,",",2)>(..Kantelpunt*60*60):1,1:0)) ; extra dag na 16u
+	Set VroegsteLeverDatum=$$CALCDATE^vhLib.DataTypes(+..StartTijdstip,"A",Dagen+..ExtraDag) ; extra dag na 16u
 		
 	If ..GeefOpgeslagenVroegsteLeverDatum(Groep)'=VroegsteLeverDatum
 	{
@@ -195,6 +228,7 @@
 	Set Levertermijn.AantalDagen=Dagen
 	Set Levertermijn.VroegsteLeverDatum=VroegsteLeverDatum
 	Do Levertermijn.%Save()
+	Do ##class(vhLib.Logger).%New("VHISIE").Warning("EC Levertermijnmaatwerk",Groep_"; Dagen:"_Dagen_"; Datum:"_$$EXTDATE^vhLib.DataTypes(VroegsteLeverDatum)_"; ExtraDag na 16u of verlof:"_..ExtraDag_"; Start tijdstip:"_$zdt(..StartTijdstip,3))
 ]]></Implementation>
 </Method>
 </Class>