Index: APPS/OV/OrderBevestiging/impl/Verstuurder/DKG.cls.xml
===================================================================
diff -u -r31711 -r32441
--- APPS/OV/OrderBevestiging/impl/Verstuurder/DKG.cls.xml	(.../DKG.cls.xml)	(revision 31711)
+++ APPS/OV/OrderBevestiging/impl/Verstuurder/DKG.cls.xml	(.../DKG.cls.xml)	(revision 32441)
@@ -16,6 +16,85 @@
 <Implementation><![CDATA[	Quit ##class(TECH.Config.ConfigMgr).Instance().GeefString("APPS.OV.OrderBevestiging.DKG_MailNaarCC")
 ]]></Implementation>
 </Method>
+
+<Method name="MaakBijlage">
+<FormalSpec>BestandNaam:TECH.String,OrderBevestigingen:%ListOfObjects</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim DataExporter As TECH.DataExporter.DataExporter = ##class(TECH.Context).Instance().GeefFileAPI().GeefDataExporter()
+	#dim ExportInfo As TECH.DataExporter.ExportInfo = ..GeefExportInfo()
+	#dim Iterator As TECH.Iterator = ##class(TECH.ListIterator).%New(OrderBevestigingen)
+
+	While (Iterator.HasNext()) {
+		#dim OrderBevestiging As APPS.OV.OrderBevestiging.data.Order = Iterator.Next()
+		#dim LijnIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(OrderBevestiging.Lijnen)
+		
+		#dim TotaalOrderBevestiging As APPS.OV.OrderBevestiging.dto.DKG.TotaalOrderBevestiging = ..MaakOrderBevestigingLijn(LijnIterator)
+
+		Do ExportInfo.Data.Insert(..GeefGeformatteerdeLijn(TotaalOrderBevestiging))
+	}	
+	
+	Do DataExporter.ZetScheidingsTeken(";")
+	Do DataExporter.Export(BestandNaam, ExportInfo)
+]]></Implementation>
+</Method>
+
+<Method name="MaakOrderBevestigingLijn">
+<FormalSpec>LijnIterator:TECH.Iterator</FormalSpec>
+<ReturnType>APPS.OV.OrderBevestiging.dto.DKG.TotaalOrderBevestiging</ReturnType>
+<Implementation><![CDATA[
+	#dim TotaalOrderBevestiging As APPS.OV.OrderBevestiging.dto.DKG.TotaalOrderBevestiging = ##class(APPS.OV.OrderBevestiging.dto.DKG.TotaalOrderBevestiging).%New() 
+	#dim OrderBevestigingLijn As APPS.OV.OrderBevestiging.data.OrderLijn = ""
+	
+	While (LijnIterator.HasNext()) {
+		Set OrderBevestigingLijn  = LijnIterator.Next()
+	
+		#dim LijnTotaal As %Decimal = OrderBevestigingLijn.PrijsPerStuk * OrderBevestigingLijn.AantalStuks
+		Set TotaalOrderBevestiging.TotaalPrijs = (TotaalOrderBevestiging.TotaalPrijs + LijnTotaal)
+	}
+	
+	if (OrderBevestigingLijn '= "") {
+		Set TotaalOrderBevestiging.LeverancierNr = OrderBevestigingLijn.LeverancierNr
+		Set TotaalOrderBevestiging.OrderID = OrderBevestigingLijn.OrderID
+		Set TotaalOrderBevestiging.PositieNrOrder = 0
+		Set TotaalOrderBevestiging.BevestigingNrLeverancier = OrderBevestigingLijn.BevestigingNrLeverancier 
+		Set TotaalOrderBevestiging.Leverweek = OrderBevestigingLijn.Leverweek
+	}
+	
+	quit TotaalOrderBevestiging
+]]></Implementation>
+</Method>
+
+<Method name="GeefExportInfo">
+<Private>1</Private>
+<ReturnType>TECH.DataExporter.ExportInfo</ReturnType>
+<Implementation><![CDATA[
+	#dim ExportInfo As TECH.DataExporter.ExportInfo = ##class(TECH.DataExporter.ExportInfo).%New()
+	
+	Set ExportInfo.ExporteerHoofding = 0
+	
+	Do ExportInfo.Velden.Insert("LeverancierNr")
+	Do ExportInfo.Velden.Insert("OrderID")
+	Do ExportInfo.Velden.Insert("PositieNrOrder")
+	Do ExportInfo.Velden.Insert("BevestigingNrLeverancier")
+	Do ExportInfo.Velden.Insert("TotaalPrijs")
+	Do ExportInfo.Velden.Insert("Leverweek")
+	
+	Quit ExportInfo
+]]></Implementation>
+</Method>
+
+<Method name="GeefGeformatteerdeLijn">
+<FormalSpec>OrderBevestigingLijn:APPS.OV.OrderBevestiging.dto.DKG.TotaalOrderBevestiging</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim GeformatteerdeLijn As APPS.OV.OrderBevestiging.dto.DKG.TotaalOrderBevestiging = OrderBevestigingLijn.%ConstructClone($$$True)
+	
+	Set GeformatteerdeLijn.TotaalPrijs = $$EXTNUM^vhLib.DataTypes(OrderBevestigingLijn.TotaalPrijs, 0, "", 2)
+	
+	Quit GeformatteerdeLijn
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/OV/OrderBevestiging/dto/DKG/TotaalOrderBevestiging.cls.xml
===================================================================
diff -u
--- APPS/OV/OrderBevestiging/dto/DKG/TotaalOrderBevestiging.cls.xml	(revision 0)
+++ APPS/OV/OrderBevestiging/dto/DKG/TotaalOrderBevestiging.cls.xml	(revision 32441)
@@ -0,0 +1,62 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="APPS.OV.OrderBevestiging.dto.DKG.TotaalOrderBevestiging">
+<Super>%SerialObject,TECH.DataTransferObject</Super>
+
+<Property name="LeverancierNr">
+<Type>%String</Type>
+<InitialExpression>"1040803"</InitialExpression>
+</Property>
+
+<Property name="OrderID">
+<Type>%String</Type>
+</Property>
+
+<Property name="PositieNrOrder">
+<Type>%String</Type>
+<InitialExpression>0</InitialExpression>
+</Property>
+
+<Property name="BevestigingNrLeverancier">
+<Type>%String</Type>
+</Property>
+
+<Property name="TotaalPrijs">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="Leverweek">
+<Type>%String</Type>
+</Property>
+
+<Storage name="Default">
+<Type>%Library.CacheSerialState</Type>
+<State>TotaalOrderBevestigingState</State>
+<StreamLocation>^APPS.OV.OrA097.TotaalOrder8598S</StreamLocation>
+<Data name="TotaalOrderBevestigingState">
+<Structure>listnode</Structure>
+<Subscript/>
+<Value name="1">
+<Value>LeverancierNr</Value>
+</Value>
+<Value name="2">
+<Value>OrderID</Value>
+</Value>
+<Value name="3">
+<Value>PositieNrOrder</Value>
+</Value>
+<Value name="4">
+<Value>BevestigingNrLeverancier</Value>
+</Value>
+<Value name="5">
+<Value>TotaalPrijs</Value>
+</Value>
+<Value name="6">
+<Value>Leverweek</Value>
+</Value>
+</Data>
+</Storage>
+</Class>
+
+
+</Export>
Index: vhUnitTest/APPS/OV/OrderBevestiging/Verstuurder/Test.cls.xml
===================================================================
diff -u -r31972 -r32441
--- vhUnitTest/APPS/OV/OrderBevestiging/Verstuurder/Test.cls.xml	(.../Test.cls.xml)	(revision 31972)
+++ vhUnitTest/APPS/OV/OrderBevestiging/Verstuurder/Test.cls.xml	(.../Test.cls.xml)	(revision 32441)
@@ -76,21 +76,12 @@
     #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(), "1ekolomOB1L2;2ekolomOB1L2;0;4ekolomOB1L2;77,70;6ekolomOB1L2")   
     }
     
     If ($$$AssertFalse(Inhoud.AtEnd)) {
-        Do $$$AssertEquals(Inhoud.ReadLine(), "1ekolomOB1L2;2ekolomOB1L2;3ekolomOB1L2;4ekolomOB1L2;5,55;6ekolomOB1L2;7ekolomOB1L2")   
+        Do $$$AssertEquals(Inhoud.ReadLine(), "1ekolomOB2L2;2ekolomOB2L2;0;4ekolomOB2L2;77,70;6ekolomOB2L2")   
     }
-    
-    If ($$$AssertFalse(Inhoud.AtEnd)) {
-        Do $$$AssertEquals(Inhoud.ReadLine(), "1ekolomOB2L1;2ekolomOB2L1;3ekolomOB2L1;4ekolomOB2L1;5,55;6ekolomOB2L1;7ekolomOB2L1")   
-    }
-    
-    If ($$$AssertFalse(Inhoud.AtEnd)) {
-        Do $$$AssertEquals(Inhoud.ReadLine(), "1ekolomOB2L2;2ekolomOB2L2;3ekolomOB2L2;4ekolomOB2L2;5,55;6ekolomOB2L2;7ekolomOB2L2")   
-    }
-    
     Do $$$AssertTrue(Inhoud.AtEnd)
 ]]></Implementation>
 </Method>
@@ -141,41 +132,6 @@
     Quit OrderBevestigingLijn
 ]]></Implementation>
 </Method>
-
-<UDLText name="T">
-<Content><![CDATA[
-/*
-Method GeefBevestigingen() As %ListOfObjects(ELEMENTTYPE="APPS.OV.OrderBevestiging.dto.OrderBevestiging") [ Private ]
-{
-    #dim Bevestigingen As %ListOfObjects = ##class(%ListOfObjects).%New()
-    
-    Do Bevestigingen.Insert(..GeefBevestiging("B1"))
-    Do Bevestigingen.Insert(..GeefBevestiging("B2"))
-    
-    Quit Bevestigingen
-}*/
-]]></Content>
-</UDLText>
-
-<UDLText name="T">
-<Content><![CDATA[
-/*
-Method GeefBevestiging(BevestigingID As TECH.String) As APPS.OV.OrderBevestiging.data.Order [ Private ]
-{
-    #dim Bevestiging As APPS.OV.OrderBevestiging.dto.OrderBevestiging = ##class(APPS.OV.OrderBevestiging.dto.OrderBevestiging).%New()
-    
-    Set Bevestiging.LeverancierNr = "1ekolom" _ BevestigingID
-    Set Bevestiging.OrderID = "2ekolom" _ BevestigingID
-    Set Bevestiging.PositieNrOrder = "3ekolom" _ BevestigingID
-    Set Bevestiging.BevestigingNrLeverancier = "4ekolom" _ BevestigingID
-    Set Bevestiging.PrijsPerStuk = 5.55
-    Set Bevestiging.Leverweek = "6ekolom" _ BevestigingID
-    Set Bevestiging.AantalStuks = "7ekolom" _ BevestigingID
-    
-    Quit ##class(APPS.OV.OrderBevestiging.data.Order).%New("KlantID", "OrderID", Bevestiging)
-}*/
-]]></Content>
-</UDLText>
 </Class>
 
 
Index: vhDeploy/Deploy20160129DKGOrderBevestigingEmailAdres.cls.xml
===================================================================
diff -u
--- vhDeploy/Deploy20160129DKGOrderBevestigingEmailAdres.cls.xml	(revision 0)
+++ vhDeploy/Deploy20160129DKGOrderBevestigingEmailAdres.cls.xml	(revision 32441)
@@ -0,0 +1,22 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhDeploy.Deploy20160129DKGOrderBevestigingEmailAdres">
+<Super>vhDeploy.Deploy</Super>
+
+<Parameter name="Omschrijving">
+<Type>%String</Type>
+<Default>DKG Orderbevestinging : wijziging 'Naar' Email adres</Default>
+</Parameter>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	If (##class(TECH.Config.ConfigMgr).Instance().GetOmgeving() = "PROD"){
+	    do ##class(TECH.Config.ConfigMgr).Instance().ZetString("APPS.OV.OrderBevestiging.DKG_MailNaar", "orderbevestigingen@dkggroep.nl")
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>