Index: zTryout/THB/GlobalUtils.cls.xml
===================================================================
diff -u -r50794 -r53113
--- zTryout/THB/GlobalUtils.cls.xml	(.../GlobalUtils.cls.xml)	(revision 50794)
+++ zTryout/THB/GlobalUtils.cls.xml	(.../GlobalUtils.cls.xml)	(revision 53113)
@@ -134,6 +134,37 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="CheckOfPieceInGlobalOveralLeegIs">
+<Description>
+Implementatie voor KOD piece 9 op hoofding</Description>
+<Implementation><![CDATA[
+	#dim Node1 As %Integer = 0
+	#dim Node3 As %Integer = 0
+	#dim Node4 As %Integer = 0
+	#dim Data As %String = ""
+	#dim Piece9 As %String = ""
+	
+	While $$$HasLength($Order(^KOD(Node1))) {
+		Set Node1 = $Order(^KOD(Node1))
+		While $$$HasLength($Order(^KOD(Node1,"F",Node3))) {
+			Set Node3 = $Order(^KOD(Node1,"F",Node3))
+			While $$$HasLength($Order(^KOD(Node1,"F",Node3,Node4))) {
+				Set Node4 = $Order(^KOD(Node1,"F",Node3,Node4))
+				If Node4 = 1 {
+					Set Data = $Data(Node4)
+					Set Piece9 = $Piece(Data,"\",9)
+					If ($$$HasLength(Piece9)) {
+						Do ..Console.WriteLine("Node: '"_Node1_",""F"","_Node3_","_Node4_"' --- Piece 9: '"_Piece9_"'")
+					}
+				}
+			}
+			Set Node4 = 0
+		}
+		Set Node3 = 0
+	}
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: DOM/VKP/impl/DataM/DataMOrder.cls.xml
===================================================================
diff -u -r52867 -r53113
--- DOM/VKP/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 52867)
+++ DOM/VKP/impl/DataM/DataMOrder.cls.xml	(.../DataMOrder.cls.xml)	(revision 53113)
@@ -1226,18 +1226,32 @@
 
 <Method name="GeefEmailAdresBesteller">
 <ReturnType>%String</ReturnType>
-<Implementation><![CDATA[	Quit ..HoofdingData.GeefPiece(10)
+<Implementation><![CDATA[	Quit ..HoofdingData.GeefPiece(9)
 ]]></Implementation>
 </Method>
 
 <Method name="ZetEmailAdresBesteller">
 <FormalSpec>EmailAdresBesteller:%String</FormalSpec>
 <Implementation><![CDATA[
-	Do ..HoofdingData.ZetPiece(10,EmailAdresBesteller)
+	Do ..HoofdingData.ZetPiece(9,EmailAdresBesteller)
 	Do ..%SetModified(1)
 ]]></Implementation>
 </Method>
 
+<Method name="GeefEmailAdresBevestiging">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..HoofdingData.GeefPiece(10)
+]]></Implementation>
+</Method>
+
+<Method name="ZetEmailAdresBevestiging">
+<FormalSpec>EmailAdresBevestiging:%String</FormalSpec>
+<Implementation><![CDATA[
+	Do ..HoofdingData.ZetPiece(10,EmailAdresBevestiging)
+	Do ..%SetModified(1)
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^DOM.VKP.impl.DataM.DataMOrderD</DataLocation>
Index: vhTest/Utils/DOM/VKP/Order.cls.xml
===================================================================
diff -u -r53100 -r53113
--- vhTest/Utils/DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 53100)
+++ vhTest/Utils/DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 53113)
@@ -19,6 +19,7 @@
 	Do Order.IndienMethodCall("ZetLeveringVoorwaarde",$$$ElkeWaarde).DanDoeNiks()
 	Do Order.IndienMethodCall("ZetVerzendingWijze",$$$ElkeWaarde).DanDoeNiks()
 	Do Order.IndienMethodCall("ZetEmailAdresBesteller",$$$ElkeWaarde).DanDoeNiks()
+	Do Order.IndienMethodCall("ZetEmailAdresBevestiging",$$$ElkeWaarde).DanDoeNiks()
 	Do Order.IndienMethodCall("GeefKlantID").DanReturn("K||1234")
 	Do Order.IndienMethodCall("GeefID").DanReturn(1000)
 	Do Order.IndienMethodCall("GeefCommissieReferentie").DanReturn("CommissieReferentie")
@@ -30,6 +31,7 @@
 	Do Order.IndienMethodCall("GeefEDINummer").DanReturn("EDINummer")
 	Do Order.IndienMethodCall("GeefEindPersonality").DanReturn(##class(DOM.common.VanHoeckePersonality).Instance())
 	Do Order.IndienMethodCall("GeefEmailAdresBesteller").DanReturn("EmailAdresBesteller")
+	Do Order.IndienMethodCall("GeefEmailAdresBevestiging").DanReturn("EmailAdresBevestiging")
 
 	Quit Order
 ]]></Implementation>
Index: DOM/VKP/Order.cls.xml
===================================================================
diff -u -r52181 -r53113
--- DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 52181)
+++ DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 53113)
@@ -513,6 +513,16 @@
 <Abstract>1</Abstract>
 <ReturnType>%String</ReturnType>
 </Method>
+
+<Method name="ZetEmailAdresBevestiging">
+<Abstract>1</Abstract>
+<FormalSpec>EmailAdresBevestiging:%String</FormalSpec>
+</Method>
+
+<Method name="GeefEmailAdresBevestiging">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
 </Class>
 
 
Index: vhTest/Mock/APPS/VKP/Offerte.cls.xml
===================================================================
diff -u -r52181 -r53113
--- vhTest/Mock/APPS/VKP/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 52181)
+++ vhTest/Mock/APPS/VKP/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 53113)
@@ -68,6 +68,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefEmailAdresBevestiging">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefEmailAdresBevestiging")
+]]></Implementation>
+</Method>
+
 <Method name="GeefExterneId">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefExterneId")
@@ -253,6 +259,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetEmailAdresBevestiging">
+<FormalSpec>EmailAdresBevestiging:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetEmailAdresBevestiging",EmailAdresBevestiging)
+]]></Implementation>
+</Method>
+
 <Method name="ZetExterneId">
 <FormalSpec>ExterneId:%String</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ZetExterneId",ExterneId)
Index: vhTest/Mock/DOM/VKP/Order.cls.xml
===================================================================
diff -u -r52181 -r53113
--- vhTest/Mock/DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 52181)
+++ vhTest/Mock/DOM/VKP/Order.cls.xml	(.../Order.cls.xml)	(revision 53113)
@@ -137,6 +137,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefEmailAdresBevestiging">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefEmailAdresBevestiging")
+]]></Implementation>
+</Method>
+
 <Method name="GeefID">
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[	quit ..VerwerkMethodCall("GeefID")
@@ -467,6 +473,12 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetEmailAdresBevestiging">
+<FormalSpec>EmailAdresBevestiging:%String</FormalSpec>
+<Implementation><![CDATA[	do ..VerwerkMethodCall("ZetEmailAdresBevestiging",EmailAdresBevestiging)
+]]></Implementation>
+</Method>
+
 <Method name="ZetIngegevenDoor">
 <FormalSpec>IngegevenDoor:%String</FormalSpec>
 <Implementation><![CDATA[	do ..VerwerkMethodCall("ZetIngegevenDoor",IngegevenDoor)
Index: APPS/VKP/Offerte.cls.xml
===================================================================
diff -u -r52181 -r53113
--- APPS/VKP/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 52181)
+++ APPS/VKP/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 53113)
@@ -316,6 +316,16 @@
 <Abstract>1</Abstract>
 <FormalSpec>EmailAdresBesteller:%String</FormalSpec>
 </Method>
+
+<Method name="GeefEmailAdresBevestiging">
+<Abstract>1</Abstract>
+<ReturnType>%String</ReturnType>
+</Method>
+
+<Method name="ZetEmailAdresBevestiging">
+<Abstract>1</Abstract>
+<FormalSpec>EmailAdresBevestiging:%String</FormalSpec>
+</Method>
 </Class>
 
 
Index: APPS/EC/dto/Hoofding.cls.xml
===================================================================
diff -u -r52181 -r53113
--- APPS/EC/dto/Hoofding.cls.xml	(.../Hoofding.cls.xml)	(revision 52181)
+++ APPS/EC/dto/Hoofding.cls.xml	(.../Hoofding.cls.xml)	(revision 53113)
@@ -31,6 +31,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="EmailAdresBevestiging">
+<Type>%String</Type>
+</Property>
+
 <Method name="%OnNew">
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
Index: APPS/VKP/impl/Offerte.cls.xml
===================================================================
diff -u -r52181 -r53113
--- APPS/VKP/impl/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 52181)
+++ APPS/VKP/impl/Offerte.cls.xml	(.../Offerte.cls.xml)	(revision 53113)
@@ -101,6 +101,10 @@
 <Type>%String</Type>
 </Property>
 
+<Property name="EmailAdresBevestiging">
+<Type>%String</Type>
+</Property>
+
 <Index name="UIndex">
 <Properties>KlantID,WinkelkarID</Properties>
 <Unique>1</Unique>
@@ -560,6 +564,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetEmailAdresBevestiging">
+<FormalSpec>EmailAdresBevestiging:%String</FormalSpec>
+<Implementation><![CDATA[	Set ..EmailAdresBevestiging = EmailAdresBevestiging
+]]></Implementation>
+</Method>
+
+<Method name="GeefEmailAdresBevestiging">
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..EmailAdresBevestiging
+]]></Implementation>
+</Method>
+
 <Storage name="Default">
 <Type>%Library.CacheStorage</Type>
 <DataLocation>^APPS.VKP.OfferteD</DataLocation>
@@ -666,6 +682,9 @@
 <Value name="31">
 <Value>EmailAdresBesteller</Value>
 </Value>
+<Value name="32">
+<Value>EmailAdresBevestiging</Value>
+</Value>
 </Data>
 </Storage>
 </Class>