Index: AX/Uitgaand/EC/Service.cls.xml
===================================================================
diff -u -r44431 -r44523
--- AX/Uitgaand/EC/Service.cls.xml	(.../Service.cls.xml)	(revision 44431)
+++ AX/Uitgaand/EC/Service.cls.xml	(.../Service.cls.xml)	(revision 44523)
@@ -44,7 +44,7 @@
 	{
 		Set ..ExportDefaults=##class(AX.Uitgaand.EC.impl.ExportDefaults).%New()
 	}
-	;Set ..ExportDefaults.NewGenerationID=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
+	Set ..ExportDefaults.NewGenerationID=##class(AX.Uitgaand.EC.Klanten.impl.Klanten).LaatsteGenerationID()
 	Set ..ExportSamenvatting=##class(AX.Uitgaand.EC.impl.ExportSamenvatting).%New(..ExportDefaults)
 	Set ..Tijdstip=$zdt($H,3)
 	Set ..Debug=1
@@ -67,24 +67,14 @@
 <Implementation><![CDATA[
 	Do ..InitLog()
 	d ##class(AX.Uitgaand.EC.Voorraad.impl.ExportVoorraad).%New(..ExportDefaults, ..ExportSamenvatting).ExportVeranderde()
-	Do ..ZetLog("Export veranderde voorraad")
+	;d ##class(AX.Uitgaand.EC.Productie.impl.ExportLevertermijn).%New(..ExportDefaults, ..ExportSamenvatting).ExportVeranderde()
+	Do ..ZetLog("Export veranderde voorraad en productietijd")
+	
 	Do ..ExportBestandsSamenvatting()
 	Do ..VerplaatsBestanden()
 ]]></Implementation>
 </Method>
 
-<Method name="ExportProductieLevertermijn">
-<Description>
-d ##class(AX.Uitgaand.EC.Service).%New().ExportProductieLevertermijn()</Description>
-<Implementation><![CDATA[
-	Do ..InitLog()
-	d ##class(AX.Uitgaand.EC.Productie.impl.ExportLevertermijn).%New(..ExportDefaults, ..ExportSamenvatting).ExportAll()
-	Do ..ZetLog("Export Productielevertermijn")
-	Do ..ExportBestandsSamenvatting()
-	Do ..VerplaatsBestanden()
-]]></Implementation>
-</Method>
-
 <Method name="KillAll">
 <Description>
 d ##class(AX.Uitgaand.EC.Service).KillAll()</Description>
@@ -130,6 +120,7 @@
 	Do ..ExportKlantUitzPrijzen()
 	
 	Do ..ExportAlleVoorraad()
+	;Do ..ExportAlleProductieTijden()
 	
 	Do ..ExportBestandsSamenvatting()
 	Do ..VerplaatsBestanden()
@@ -282,6 +273,15 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ExportAlleProductieTijden">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..InitLog()
+	d ##class(AX.Uitgaand.EC.Productie.impl.ExportLevertermijn).%New(..ExportDefaults, ..ExportSamenvatting).ExportAll()
+	Do ..ZetLog("Export alle productietijden")
+]]></Implementation>
+</Method>
+
 <Method name="ExportBestandsSamenvatting">
 <Private>1</Private>
 <Implementation><![CDATA[	Do ..ExportSamenvatting.ExportSamenvatting()
Index: AX/Uitgaand/EC/Productie/impl/ExportLevertermijn.cls.xml
===================================================================
diff -u -r44431 -r44523
--- AX/Uitgaand/EC/Productie/impl/ExportLevertermijn.cls.xml	(.../ExportLevertermijn.cls.xml)	(revision 44431)
+++ AX/Uitgaand/EC/Productie/impl/ExportLevertermijn.cls.xml	(.../ExportLevertermijn.cls.xml)	(revision 44523)
@@ -5,6 +5,18 @@
 <ProcedureBlock>1</ProcedureBlock>
 <Super>TECH.RegisteredObject</Super>
 
+<Parameter name="TBX">
+<Default>Tandembox</Default>
+</Parameter>
+
+<Parameter name="LBX">
+<Default>Legrabox</Default>
+</Parameter>
+
+<Parameter name="TAX">
+<Default>TA'ORbox</Default>
+</Parameter>
+
 <Property name="FileName">
 <Type>%String</Type>
 </Property>
@@ -17,6 +29,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="LevertermijnIsVeranderd">
+<Type>%String</Type>
+</Property>
+
 <Property name="ExportDefaults">
 <Type>AX.Uitgaand.EC.impl.ExportDefaults</Type>
 </Property>
@@ -27,12 +43,13 @@
 
 <Method name="ToonProductieDuur">
 <Description>
-D ##class(AX.Uitgaand.EC.Productie.impl.ExportLevertermijn).ToonProductieDuur()</Description>
-<ClassMethod>1</ClassMethod>
+D ##class(AX.Uitgaand.EC.Productie.impl.ExportLevertermijn).%New("","").ToonProductieDuur()</Description>
 <Implementation><![CDATA[
-	w "TBX ",..%New("","").BerekenTBX(),!
-	w "LBX ",..%New("","").BerekenLBX(),!
-	w "TAX ",..%New("","").BerekenTAX(),!
+	For Groep=..#LBX,..#TBX,..#TAX
+	{
+		Write Groep," = ",..GeefOpgeslagenAantal(Groep),!
+	}
+	Do ##class(AX.Uitgaand.EC.Productie.impl.LevertermijnVorigNivo).%DeleteExtent()
 ]]></Implementation>
 </Method>
 
@@ -44,66 +61,100 @@
 	Set ..ExportSamenvatting=ExportSamenvatting
 	Set ..DomeinID="VH"
 
+	Set ..LevertermijnIsVeranderd=0
+	Do ..BerekenAll()
+
 	Quit $$$OK
 ]]></Implementation>
 </Method>
 
 <Method name="ExportAll">
 <Implementation><![CDATA[
-	Do ..OpenOutput()
-	Do ..ExportOne("Legrabox",..BerekenLBX())
-	Do ..ExportOne("Tandembox",..BerekenTBX())
-	Do ..ExportOne("TA'ORbox",..BerekenTAX())
-	Do ..CloseOutput()
+	Set ..LevertermijnIsVeranderd=1
+	Do ..ExportVeranderde()
 ]]></Implementation>
 </Method>
 
+<Method name="ExportVeranderde">
+<Implementation><![CDATA[
+	If ..LevertermijnIsVeranderd
+	{
+		Do ..OpenOutput()
+		For Groep=..#LBX,..#TBX,..#TAX
+		{
+			Do ..ExportOne(Groep,..GeefOpgeslagenAantal(Groep))
+		}
+		Do ..CloseOutput()
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BerekenAll">
+<Private>1</Private>
+<Implementation><![CDATA[
+	Do ..BerekenLBX()
+	Do ..BerekenTBX()
+	Do ..BerekenTAX()
+]]></Implementation>
+</Method>
+
+<Method name="ExportOne">
+<FormalSpec>Groep:%String,AantalDagen:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Proxy=..BuildProxy(Groep, AantalDagen)
+	Do ..Writer.Object(Proxy,"Levertermijn")
+	Do ..ExportSamenvatting.Increment()
+]]></Implementation>
+</Method>
+
 <Method name="BerekenTBX">
+<Private>1</Private>
 <Implementation><![CDATA[
 	#dim VerpakkingsType as DOM.VKP.impl.ProductieDagenBepaler.enu.VerpakkingSoort
 	#dim MaxDagen as %Integer
 	#dim Dagen as %Integer
 	
 	Set MaxDagen=0
-	For VerpakkingsType="Bulk","Probox","Karton","VHOSS" {
+	For VerpakkingsType=##class(DOM.VKP.impl.ProductieDagenBepaler.enu.VerpakkingSoort).Bulk(),##class(DOM.VKP.impl.ProductieDagenBepaler.enu.VerpakkingSoort).Probox(),##class(DOM.VKP.impl.ProductieDagenBepaler.enu.VerpakkingSoort).Karton(),##class(DOM.VKP.impl.ProductieDagenBepaler.enu.VerpakkingSoort).Vhoss() 
+	{
 		Set Dagen=..BerekenLevertermijnPerVerpakking(VerpakkingsType)
 		Set:MaxDagen<Dagen MaxDagen=Dagen
 	}
-	Quit MaxDagen
+	Do ..OpslaanIndienVeranderd(..#TBX, MaxDagen)
 ]]></Implementation>
 </Method>
 
 <Method name="BerekenLBX">
 <Private>1</Private>
-<ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
 	#dim VerpakkingsType as DOM.VKP.impl.ProductieDagenBepaler.enu.VerpakkingSoort
 	#dim MaxDagen as %Integer
 	#dim Dagen as %Integer
 	
 	Set MaxDagen=0
-	For VerpakkingsType="Bulk","Probox","Karton","VHOSS" {
+	For VerpakkingsType=##class(DOM.VKP.impl.ProductieDagenBepaler.enu.VerpakkingSoort).Bulk(),##class(DOM.VKP.impl.ProductieDagenBepaler.enu.VerpakkingSoort).Probox(),##class(DOM.VKP.impl.ProductieDagenBepaler.enu.VerpakkingSoort).Karton(),##class(DOM.VKP.impl.ProductieDagenBepaler.enu.VerpakkingSoort).Vhoss() 
+	{
 		Set Dagen=..BerekenLevertermijnPerVerpakking(VerpakkingsType)
 		Set:MaxDagen<Dagen MaxDagen=Dagen
 	}
-	Quit MaxDagen
+	Do ..OpslaanIndienVeranderd(..#LBX, MaxDagen)
 ]]></Implementation>
 </Method>
 
 <Method name="BerekenTAX">
 <Private>1</Private>
-<ReturnType>%Integer</ReturnType>
 <Implementation><![CDATA[
 	#dim VerpakkingsType as DOM.VKP.impl.ProductieDagenBepaler.enu.VerpakkingSoort
 	#dim MaxDagen as %Integer
 	#dim Dagen as %Integer
 
 	Set MaxDagen=0
-	For VerpakkingsType="TAX" {
+	For VerpakkingsType=##class(DOM.VKP.impl.ProductieDagenBepaler.enu.VerpakkingSoort).TAX() {
 		Set Dagen=..BerekenLevertermijnPerVerpakking(VerpakkingsType)
 		Set:MaxDagen<Dagen MaxDagen=Dagen
 	}
-	Quit MaxDagen
+	Do ..OpslaanIndienVeranderd(..#TAX, MaxDagen)
 ]]></Implementation>
 </Method>
 
@@ -123,17 +174,45 @@
 ]]></Implementation>
 </Method>
 
-<Method name="ExportOne">
-<FormalSpec>Groep:%String,AantalDagen:%Integer</FormalSpec>
+<Method name="OpslaanIndienVeranderd">
+<FormalSpec>Groep:%String,Dagen:%Integer</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
-	Set Proxy=..BuildProxy(Groep, AantalDagen)
-	Do ..Writer.Object(Proxy,"Levertermijn")
-	Do ..ExportSamenvatting.Increment()
+	If ..GeefOpgeslagenAantal(Groep)'=Dagen 
+	{
+		 Do ..OpslaanAantal(Groep,Dagen)
+		 Set ..LevertermijnIsVeranderd=1
+	}
 ]]></Implementation>
 </Method>
 
+<Method name="GeefOpgeslagenAantal">
+<FormalSpec>Groep:%String</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Set Levertermijn=##class(LevertermijnVorigNivo).%OpenId(Groep)
+	Quit $S($Isobject(Levertermijn):Levertermijn.AantalDagen,1:0)
+]]></Implementation>
+</Method>
+
+<Method name="OpslaanAantal">
+<FormalSpec>Groep:%String,Dagen:%Integer</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set Levertermijn=##class(LevertermijnVorigNivo).%OpenId(Groep)
+	If '$Isobject(Levertermijn)
+	{ 
+		Set Levertermijn=##class(LevertermijnVorigNivo).%New(Groep)
+	}
+	Set Levertermijn.AantalDagen=Dagen
+	Do Levertermijn.%Save()
+]]></Implementation>
+</Method>
+
 <Method name="BuildProxy">
 <FormalSpec>Groep:%String,AantalDagen:%Integer</FormalSpec>
+<Private>1</Private>
 <Implementation><![CDATA[
 	Set Proxy=##class(pxLevertermijn).%New()
 	Set Proxy.ProductGroep=Groep
@@ -143,6 +222,7 @@
 </Method>
 
 <Method name="OpenOutput">
+<Private>1</Private>
 <Implementation><![CDATA[
 	Set ..Writer=##class(%XML.Writer).%New()
 	Set ..Writer.NoXMLDeclaration=1
@@ -161,6 +241,7 @@
 </Method>
 
 <Method name="CloseOutput">
+<Private>1</Private>
 <Implementation><![CDATA[
 	Do ..Writer.EndRootElement()
 	Do ..ExportSamenvatting.SluitBestand()
Index: AX/Uitgaand/EC/impl/ExportSamenvatting.cls.xml
===================================================================
diff -u -r39484 -r44523
--- AX/Uitgaand/EC/impl/ExportSamenvatting.cls.xml	(.../ExportSamenvatting.cls.xml)	(revision 39484)
+++ AX/Uitgaand/EC/impl/ExportSamenvatting.cls.xml	(.../ExportSamenvatting.cls.xml)	(revision 44523)
@@ -14,6 +14,10 @@
 <Collection>list</Collection>
 </Property>
 
+<Property name="BestandsnaamSamenvatting">
+<Type>%String</Type>
+</Property>
+
 <Property name="Writer">
 <Type>%XML.Writer</Type>
 </Property>
@@ -60,7 +64,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Export">
+<Method name="ExportSamenvatting">
 <Implementation><![CDATA[
 	If ..HeeftBestanden()
 	{
@@ -85,11 +89,13 @@
 </Method>
 
 <Method name="OpenOutput">
+<Private>1</Private>
 <Implementation><![CDATA[
 	Set ..Writer=##class(%XML.Writer).%New()
 	Set ..Writer.NoXMLDeclaration=1
 	Set ..Writer.Indent=1
-	Set sc=..Writer.OutputToFile($$FULLPAD^vhDEV(..ExportDefaults.Pad,"ExportSamenvatting.xml"))
+	Set ..BestandsnaamSamenvatting=..ExportDefaults.GeefBestandsNaam("ExportSamenvatting")
+	Set sc=..Writer.OutputToFile(..ExportDefaults.GeefVolledigPad(..BestandsnaamSamenvatting))
 	Quit:$$$ISERR(sc) sc
 	Set ..Writer.Charset="UTF-8"
 	Do ..Writer.RootElement("ExportSamenvatting")
@@ -100,6 +106,7 @@
 </Method>
 
 <Method name="CloseOutput">
+<Private>1</Private>
 <Implementation><![CDATA[	Do ..Writer.EndRootElement()
 ]]></Implementation>
 </Method>
Index: DOM/VKP/impl/ProductieDagenBepaler/enu/VerpakkingSoort.cls.xml
===================================================================
diff -u -r29059 -r44523
--- DOM/VKP/impl/ProductieDagenBepaler/enu/VerpakkingSoort.cls.xml	(.../VerpakkingSoort.cls.xml)	(revision 29059)
+++ DOM/VKP/impl/ProductieDagenBepaler/enu/VerpakkingSoort.cls.xml	(.../VerpakkingSoort.cls.xml)	(revision 44523)
@@ -4,11 +4,11 @@
 <Super>TECH.Enumeration</Super>
 
 <Parameter name="VALUELIST">
-<Default>,Karton,VHOSS,Probox,Bulk</Default>
+<Default>,Karton,VHOSS,Probox,Bulk,TAX</Default>
 </Parameter>
 
 <Parameter name="DISPLAYLIST">
-<Default>,Karton,VHOSS,Probox,Bulk</Default>
+<Default>,Karton,VHOSS,Probox,Bulk,TAX</Default>
 </Parameter>
 
 <Method name="Karton">
@@ -38,6 +38,13 @@
 <Implementation><![CDATA[	Quit "Bulk"
 ]]></Implementation>
 </Method>
+
+<Method name="TAX">
+<ClassMethod>1</ClassMethod>
+<ReturnType>DOM.VKP.impl.ProductieDagenBepaler.enu.VerpakkingSoort</ReturnType>
+<Implementation><![CDATA[	Quit "TAX"
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: AX/Uitgaand/EC/Productie/impl/LevertermijnVorigNivo.cls.xml
===================================================================
diff -u
--- AX/Uitgaand/EC/Productie/impl/LevertermijnVorigNivo.cls.xml	(revision 0)
+++ AX/Uitgaand/EC/Productie/impl/LevertermijnVorigNivo.cls.xml	(revision 44523)
@@ -0,0 +1,53 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="AX.Uitgaand.EC.Productie.impl.LevertermijnVorigNivo">
+<ClassType>persistent</ClassType>
+<Super>TECH.Persistent</Super>
+
+<Property name="ProductGroep">
+<Type>%String</Type>
+</Property>
+
+<Property name="AantalDagen">
+<Type>%String</Type>
+</Property>
+
+<Index name="PrimKey">
+<IdKey>1</IdKey>
+<PrimaryKey>1</PrimaryKey>
+<Properties>ProductGroep</Properties>
+<Unique>1</Unique>
+</Index>
+
+<Method name="%OnNew">
+<FormalSpec>Groep:%String</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..ProductGroep=Groep
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Storage name="Default">
+<Type>%Library.CacheStorage</Type>
+<DataLocation>^AX.Uitgaan291F.Levertermijn682D</DataLocation>
+<DefaultData>LevertermijnVorigNivoDefaultData</DefaultData>
+<IdLocation>^AX.Uitgaan291F.Levertermijn682D</IdLocation>
+<IndexLocation>^AX.Uitgaan291F.Levertermijn682I</IndexLocation>
+<StreamLocation>^AX.Uitgaan291F.Levertermijn682S</StreamLocation>
+<Data name="LevertermijnVorigNivoDefaultData">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>%%CLASSNAME</Value>
+</Value>
+<Value name="2">
+<Value>AantalDagen</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>