Index: vhUnitTest/APPS/OV/OrderBevestiging/Verstuurder/Test.cls.xml
===================================================================
diff -u -r39798 -r39911
--- vhUnitTest/APPS/OV/OrderBevestiging/Verstuurder/Test.cls.xml	(.../Test.cls.xml)	(revision 39798)
+++ vhUnitTest/APPS/OV/OrderBevestiging/Verstuurder/Test.cls.xml	(.../Test.cls.xml)	(revision 39911)
@@ -41,7 +41,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="TestVerzendBevestigingen">
+<Method name="Test: VerzendBevestigingen DKG">
 <Implementation><![CDATA[
 	#dim OrderBevestigingen As %ListOfObjects = ..GeefOrderBevestigingen()
     #dim Verstuurder As APPS.OV.OrderBevestiging.Verstuurder = ##class(APPS.OV.OrderBevestiging.impl.Verstuurder.DKG).%New()
@@ -76,19 +76,19 @@
     #dim Inhoud As %GlobalCharacterStream = ..FileWriter.GeefInhoudBestandNaam(..FileWriter.GeefBestandsNaam())
     
     If ($$$AssertFalse(Inhoud.AtEnd)) {
-        Do $$$AssertEquals(Inhoud.ReadLine(), "1ekolomOB1L1;2ekolomOB1L1;3ekolomOB1L1;4ekolomOB1L1;5,55;6ekolomOB1L1;7ekolomOB1L1")   
+        Do $$$AssertEquals(Inhoud.ReadLine(), "1ekolomOB1L1;2ekolomOB1L1;3ekolomOB1L1;4ekolomOB1L1;5ekolomOB1L1;5,55;7ekolomOB1L1;8ekolomOB1L1;9ekolomOB1L1")   
     }
     
     If ($$$AssertFalse(Inhoud.AtEnd)) {
-        Do $$$AssertEquals(Inhoud.ReadLine(), "1ekolomOB1L2;2ekolomOB1L2;3ekolomOB1L2;4ekolomOB1L2;5,55;6ekolomOB1L2;7ekolomOB1L2")   
+        Do $$$AssertEquals(Inhoud.ReadLine(), "1ekolomOB1L2;2ekolomOB1L2;3ekolomOB1L2;4ekolomOB1L2;5ekolomOB1L2;5,55;7ekolomOB1L2;8ekolomOB1L2;9ekolomOB1L2")   
     }
 
     If ($$$AssertFalse(Inhoud.AtEnd)) {
-        Do $$$AssertEquals(Inhoud.ReadLine(), "1ekolomOB2L1;2ekolomOB2L1;3ekolomOB2L1;4ekolomOB2L1;5,55;6ekolomOB2L1;7ekolomOB2L1")   
+        Do $$$AssertEquals(Inhoud.ReadLine(), "1ekolomOB2L1;2ekolomOB2L1;3ekolomOB2L1;4ekolomOB2L1;5ekolomOB2L1;5,55;7ekolomOB2L1;8ekolomOB2L1;9ekolomOB2L1")   
     }
 
     If ($$$AssertFalse(Inhoud.AtEnd)) {
-        Do $$$AssertEquals(Inhoud.ReadLine(), "1ekolomOB2L2;2ekolomOB2L2;3ekolomOB2L2;4ekolomOB2L2;5,55;6ekolomOB2L2;7ekolomOB2L2")   
+        Do $$$AssertEquals(Inhoud.ReadLine(), "1ekolomOB2L2;2ekolomOB2L2;3ekolomOB2L2;4ekolomOB2L2;5ekolomOB2L2;5,55;7ekolomOB2L2;8ekolomOB2L2;9ekolomOB2L2")   
     }
     
     Do $$$AssertTrue(Inhoud.AtEnd)
@@ -132,11 +132,13 @@
     
     Set OrderBevestigingLijn.LeverancierNr = "1ekolom" _ BevestigingID _ LijnID
     Set OrderBevestigingLijn.OrderID = "2ekolom" _ BevestigingID _ LijnID
-    Set OrderBevestigingLijn.PositieNrOrder = "3ekolom" _ BevestigingID _ LijnID
-    Set OrderBevestigingLijn.BevestigingNrLeverancier = "4ekolom" _ BevestigingID _ LijnID
+    Set OrderBevestigingLijn.PakketReferentie = "3ekolom" _ BevestigingID _ LijnID
+    Set OrderBevestigingLijn.PositieNrOrder = "4ekolom" _ BevestigingID _ LijnID
+    Set OrderBevestigingLijn.BevestigingNrLeverancier = "5ekolom" _ BevestigingID _ LijnID
     Set OrderBevestigingLijn.PrijsPerStuk = 5.55
-    Set OrderBevestigingLijn.Leverweek = "6ekolom" _ BevestigingID _ LijnID
-    Set OrderBevestigingLijn.AantalStuks = "7ekolom" _ BevestigingID _ LijnID
+    Set OrderBevestigingLijn.Leverweek = "7ekolom" _ BevestigingID _ LijnID
+    Set OrderBevestigingLijn.VroegsteLeverDatum = "8ekolom" _ BevestigingID _ LijnID
+    Set OrderBevestigingLijn.AantalStuks = "9ekolom" _ BevestigingID _ LijnID
     
     Quit OrderBevestigingLijn
 ]]></Implementation>
Index: APPS/OV/OrderBevestiging/dto/OrderBevestiging.cls.xml
===================================================================
diff -u -r31708 -r39911
--- APPS/OV/OrderBevestiging/dto/OrderBevestiging.cls.xml	(.../OrderBevestiging.cls.xml)	(revision 31708)
+++ APPS/OV/OrderBevestiging/dto/OrderBevestiging.cls.xml	(.../OrderBevestiging.cls.xml)	(revision 39911)
@@ -33,13 +33,19 @@
 <Type>%Integer</Type>
 </Property>
 
+<Property name="PakketReferentie">
+<Type>%String</Type>
+</Property>
+
+<Property name="VroegsteLeverDatum">
+<Type>%String</Type>
+</Property>
+
 <Storage name="Default">
 <Type>%Library.CacheSerialState</Type>
 <State>OrderBevestigingState</State>
 <StreamLocation>^APPS.OV.Or4DD6.OrderBevestA2A5S</StreamLocation>
 <Data name="OrderBevestigingState">
-<Structure>listnode</Structure>
-<Subscript/>
 <Value name="1">
 <Value>LeverancierNr</Value>
 </Value>
@@ -61,6 +67,12 @@
 <Value name="7">
 <Value>AantalStuks</Value>
 </Value>
+<Value name="8">
+<Value>PakketReferentie</Value>
+</Value>
+<Value name="9">
+<Value>VroegsteLeverDatum</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: APPS/OV/OrderBevestiging/impl/WachtrijAfhandelaar/Base.cls.xml
===================================================================
diff -u -r31962 -r39911
--- APPS/OV/OrderBevestiging/impl/WachtrijAfhandelaar/Base.cls.xml	(.../Base.cls.xml)	(revision 31962)
+++ APPS/OV/OrderBevestiging/impl/WachtrijAfhandelaar/Base.cls.xml	(.../Base.cls.xml)	(revision 39911)
@@ -188,6 +188,8 @@
 	Set Lijn.PrijsPerStuk = ProductOrderLijn.GeefEenheidPrijsExclBTW()
 	Set Lijn.AantalStuks = ProductOrderLijn.GeefAantal()
 	Set Lijn.Leverweek = ..GeefLeverweek(Order.GeefVroegsteLeverdatum())
+	Set Lijn.PakketReferentie = ProductOrderLijn.GeefPakketReferentie()	
+	Set Lijn.VroegsteLeverDatum = ##class(TECH.Context).Instance().GeefFormatAPI().FormatDate(Order.GeefVroegsteLeverdatum(),"yyyymmdd")
 	
 	Quit Lijn
 ]]></Implementation>
Index: APPS/OV/OrderBevestiging/data/OrderLijn.cls.xml
===================================================================
diff -u -r31962 -r39911
--- APPS/OV/OrderBevestiging/data/OrderLijn.cls.xml	(.../OrderLijn.cls.xml)	(revision 31962)
+++ APPS/OV/OrderBevestiging/data/OrderLijn.cls.xml	(.../OrderLijn.cls.xml)	(revision 39911)
@@ -49,6 +49,12 @@
 <Value name="8">
 <Value>AantalStuks</Value>
 </Value>
+<Value name="9">
+<Value>PakketReferentie</Value>
+</Value>
+<Value name="10">
+<Value>VroegsteLeverDatum</Value>
+</Value>
 </Data>
 </Storage>
 </Class>
Index: vhUnitTest/APPS/OV/OrderBevestiging/WachtrijAfhandelaar/TestBase.cls.xml
===================================================================
diff -u -r31972 -r39911
--- vhUnitTest/APPS/OV/OrderBevestiging/WachtrijAfhandelaar/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 31972)
+++ vhUnitTest/APPS/OV/OrderBevestiging/WachtrijAfhandelaar/TestBase.cls.xml	(.../TestBase.cls.xml)	(revision 39911)
@@ -95,15 +95,15 @@
 <Implementation><![CDATA[
 	#dim ProductOrderLijnen As %ListOfObjects = ##class(%ListOfObjects).%New()
 	
-	Do ProductOrderLijnen.Insert(..GeefProductOrderLijnMock("ProjectReferentie 1", 11.11, 1))
-	Do ProductOrderLijnen.Insert(..GeefProductOrderLijnMock("ProjectReferentie 2", 22.22, 2))
+	Do ProductOrderLijnen.Insert(..GeefProductOrderLijnMock("ProjectReferentie 1", 11.11, 1, "PakketReferentie 1"))
+	Do ProductOrderLijnen.Insert(..GeefProductOrderLijnMock("ProjectReferentie 2", 22.22, 2, "PakketReferentie 2"))
 	
 	Quit ##class(TECH.ListIterator).%New(ProductOrderLijnen)
 ]]></Implementation>
 </Method>
 
 <Method name="GeefProductOrderLijnMock">
-<FormalSpec>ProjectReferentie:TECH.String,EenheidPrijsExclBTW:%Decimal,Aantal:%Integer</FormalSpec>
+<FormalSpec>ProjectReferentie:TECH.String,EenheidPrijsExclBTW:%Decimal,Aantal:%Integer,PakketReferentie:%String</FormalSpec>
 <Private>1</Private>
 <ReturnType>vhTest.Mock.DOM.VKP.ProductOrderlijn</ReturnType>
 <Implementation><![CDATA[
@@ -112,7 +112,8 @@
 	Do ProductOrderLijnMock.IndienMethodCall("GeefProjectReferentie").DanReturn(ProjectReferentie)
 	Do ProductOrderLijnMock.IndienMethodCall("GeefEenheidPrijsExclBTW").DanReturn(EenheidPrijsExclBTW)
 	Do ProductOrderLijnMock.IndienMethodCall("GeefAantal").DanReturn(Aantal)
-	
+	Do ProductOrderLijnMock.IndienMethodCall("GeefPakketReferentie").DanReturn(PakketReferentie)
+
 	Quit ProductOrderLijnMock
 ]]></Implementation>
 </Method>
Index: APPS/OV/OrderBevestiging/impl/Verstuurder/DKG.cls.xml
===================================================================
diff -u -r39798 -r39911
--- APPS/OV/OrderBevestiging/impl/Verstuurder/DKG.cls.xml	(.../DKG.cls.xml)	(revision 39798)
+++ APPS/OV/OrderBevestiging/impl/Verstuurder/DKG.cls.xml	(.../DKG.cls.xml)	(revision 39911)
@@ -52,10 +52,12 @@
 	
 	Do ExportInfo.Velden.Insert("LeverancierNr")
 	Do ExportInfo.Velden.Insert("OrderID")
+	Do ExportInfo.Velden.Insert("PakketReferentie")
 	Do ExportInfo.Velden.Insert("PositieNrOrder")
 	Do ExportInfo.Velden.Insert("BevestigingNrLeverancier")
 	Do ExportInfo.Velden.Insert("PrijsPerStuk")
 	Do ExportInfo.Velden.Insert("Leverweek")
+	Do ExportInfo.Velden.Insert("VroegsteLeverDatum")
 	Do ExportInfo.Velden.Insert("AantalStuks")
 	
 	Quit ExportInfo