Index: APPS/TBXWeb/Utils.cls.xml
===================================================================
diff -u -r339 -r441
--- APPS/TBXWeb/Utils.cls.xml	(.../Utils.cls.xml)	(revision 339)
+++ APPS/TBXWeb/Utils.cls.xml	(.../Utils.cls.xml)	(revision 441)
@@ -86,5 +86,23 @@
 	Quit TBXContext.GeefDomeinKlantNummer()
 ]]></Implementation>
 </Method>
+
+<Method name="KopieerKlantGegevens">
+<Description>
+Set WSOrd=##class(APPS.TBXWeb.Utils).KopieerKlantGegevens(fromID,ToID)  write WSOrd,! </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>FromWSOrderID,ToWSOrderID</FormalSpec>
+<ReturnType>WS.TBX.OrderAbstract</ReturnType>
+<Implementation><![CDATA[
+	Set FromWebOrder=##class(WS.TBX.OrderAbstract).%OpenId(FromWSOrderID)
+	Set ToWebOrder=##class(WS.TBX.OrderAbstract).%OpenId(ToWSOrderID)
+	
+	For ProptertyNaam="KLNaam","KLNummer","KLBTWNr","KLStraatNrBus","KLWoonPlaats","KLPostNr","KLTelefoon","KLFax","KLEMail","KLPrijsKlasse","KLKorting" {
+		Set $zobjproperty(ToWebOrder,ProptertyNaam)=$zobjproperty(FromWebOrder,ProptertyNaam)
+	}
+	
+	Quit ToWebOrder
+]]></Implementation>
+</Method>
 </Class>
 </Export>