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>