Index: APPS/TBXWeb/Utils.cls.xml
===================================================================
diff -u -r441 -r465
--- APPS/TBXWeb/Utils.cls.xml	(.../Utils.cls.xml)	(revision 441)
+++ APPS/TBXWeb/Utils.cls.xml	(.../Utils.cls.xml)	(revision 465)
@@ -1,6 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="9">
 <Class name="APPS.TBXWeb.Utils">
+<IncludeCode>vhLib.Macro</IncludeCode>
 <Super>%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
@@ -104,5 +105,50 @@
 	Quit ToWebOrder
 ]]></Implementation>
 </Method>
+
+<Method name="GeefLijstOrderIDsVanKlant">
+<Description>
+Set OrderIDs=##class(APPS.TBXWeb.Utils).GeefLijstOrderIDsVanKlant(4645)  write ##class(TECH.ListUtils).ListToPieces(OrderIDs,", "),! </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>KlantNr:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set lbOrderIDs=$$ListIDsExecDynQuery^vhLib.Query("SELECT ID FROM WS_TBX.OrderAbstract WHERE (KLNummer=?)",$LB(KlantNr))
+	Quit ##class(TECH.ListUtils).ListbuildToList(lbOrderIDs)
+]]></Implementation>
+</Method>
+
+<Method name="OrdersOmzettenNaarAndereKlant">
+<Description>
+Do ##class(APPS.TBXWeb.Utils).OrdersOmzettenNaarAndereKlant(OudeKlantNr,WSOrderIDvanAndereKlant) </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>OudeKlantNr:%String,WSOrderIDvanAndereKlant:%String</FormalSpec>
+<Implementation><![CDATA[
+	Set OrderIDs=##class(APPS.TBXWeb.Utils).GeefLijstOrderIDsVanKlant(OudeKlantNr)
+	
+	Write !
+	Write "Volgende OrderID's zullen overgezet worden naar de nieuwe Klantgegevens (aantal : "_OrderIDs.Count()_" orders)",!
+	Write ##class(TECH.ListUtils).ListToPieces(OrderIDs,", "),! 
+	Write !,!, "Doorgaan [J/N] ? "
+	Read Key
+	If $$$UCase(Key)="J" {
+		Set Cnt=0
+		Set IDsIterator=##class(TECH.ListIterator).%New(OrderIDs)
+		While IDsIterator.HasNext() {
+			Set OmTeZettenOrderID=IDsIterator.Next()
+			Set WSOrd=##class(APPS.TBXWeb.Utils).KopieerKlantGegevens(OmTeZettenOrderID,WSOrderIDvanAndereKlant)
+			Set sc=WSOrd.%Save()
+			Write "Order "_OmTeZettenOrderID_" omgezet naar nieuwe klantgegevens  "_$$ParseStatus^vhLib(sc),!
+			Set:$$$ISOK(sc) Cnt=Cnt+1
+		}
+
+		Write !,"Er zijn "_Cnt_" orders omgezet naar andere klant.",!
+
+	}	
+	Else {
+		Write !,"Geen orders omgezet naar andere klant.",!
+	}
+]]></Implementation>
+</Method>
 </Class>
 </Export>