Index: WS/TBX/TestMail.cls.xml
===================================================================
diff -u -r500 -r522
--- WS/TBX/TestMail.cls.xml	(.../TestMail.cls.xml)	(revision 500)
+++ WS/TBX/TestMail.cls.xml	(.../TestMail.cls.xml)	(revision 522)
@@ -69,6 +69,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="HistoriekNaarNieuweKlant">
+<Description>
+Historiek van de orders/offertes omzetten naar nieuwe klant. </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>OudeKlantNummer:%String,KlantNummerToeTeKennen:%String,AlleenInfoTonen:%Boolean=1</FormalSpec>
+<ReturnType>%String</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[
+	Set ReturnMessage=""
+	
+	If AlleenInfoTonen=0 {
+		Set Resultaat=##class(APPS.TBXWeb.Utils).OrdersOmzettenNaarAndereKlant(OudeKlantNummer,KlantNummerToeTeKennen)
+		Set ReturnMessage="Er zijn "_Resultaat_" orders omgezet naar andere klant."
+	}
+	Else {
+		Set ReturnMessage=##class(APPS.TBXWeb.Utils).GeefInfoOrdersOmzettenNaarKlant(OudeKlantNummer,KlantNummerToeTeKennen)
+	}
+	Quit ReturnMessage
+]]></Implementation>
+</Method>
+
 <Method name="ZetKlantOptieProBOX">
 <Description>
 Instellen van de Optie ProBOX voor klant. </Description>
Index: APPS/TBXWeb/Utils.cls.xml
===================================================================
diff -u -r502 -r522
--- APPS/TBXWeb/Utils.cls.xml	(.../Utils.cls.xml)	(revision 502)
+++ APPS/TBXWeb/Utils.cls.xml	(.../Utils.cls.xml)	(revision 522)
@@ -152,36 +152,101 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefInfoOrdersOmzettenNaarKlant">
+<Description>
+Do ##class(APPS.TBXWeb.Utils).GeefInfoVoorOrdersOmzettenNaarAndereKlant(OudeKlantNr,KlantNummerToeTeKennen) </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>OudeKlantNr:%String,KlantNummerToeTeKennen:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set Info=""
+	
+	Set RecentOrderID=##class(APPS.TBXWeb.Utils).GeefRecentOrderIDVanKlant(KlantNummerToeTeKennen)
+	If $L(RecentOrderID) {
+		Set OrderIDs=##class(APPS.TBXWeb.Utils).GeefLijstOrderIDsVanKlant(OudeKlantNr)
+		If OrderIDs.Count() {
+			Set OrderOudeKlant=##class(WS.TBX.Order).%OpenId(OrderIDs.GetAt(1))
+			Set RecentOrderNieuweKlant=##class(WS.TBX.Order).%OpenId(RecentOrderID)
+			Set Info=Info_"Omzetting van TBX-Orders van klant "_$$$CRLF_OrderOudeKlant.KLNaam_" "_$$$CRLF
+			Set Info=Info_"naar klant "_$$$CRLF_RecentOrderNieuweKlant.KLNaam_". "_$$$CRLF_$$$CRLF
+			Set Info=Info_"Volgende OrderID's zullen overgezet worden naar de nieuwe Klantgegevens (aantal : "_OrderIDs.Count()_" orders)"_$$$CRLF
+			Set Info=Info_ ##class(TECH.ListUtils).ListToPieces(OrderIDs,", ")_$$$CRLF
+		}
+		Else {
+			Set Info="Geen orders gevonden voor klant "_OudeKlantNr_"."
+		}
+	}
+	Else {
+		Set Info="Geen recent order gevonden voor klant "_KlantNummerToeTeKennen_". De orders kunnen niet omgezet worden."
+	}
+	
+	Quit Info
+]]></Implementation>
+</Method>
+
 <Method name="OrdersOmzettenNaarAndereKlant">
 <Description>
-Do ##class(APPS.TBXWeb.Utils).OrdersOmzettenNaarAndereKlant(OudeKlantNr,WSOrderIDvanAndereKlant) </Description>
+Do ##class(APPS.TBXWeb.Utils).OrdersOmzettenNaarAndereKlant(OudeKlantNr,KlantNummerToeTeKennen) </Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>OudeKlantNr:%String,WSOrderIDvanAndereKlant:%String</FormalSpec>
+<FormalSpec>OudeKlantNr:%String,KlantNummerToeTeKennen:%String</FormalSpec>
+<ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	Set OrderIDs=##class(APPS.TBXWeb.Utils).GeefLijstOrderIDsVanKlant(OudeKlantNr)
+	Set Cnt=..OrderIDsOmzettenNaarAndereKlant(OrderIDs,KlantNummerToeTeKennen,0)
 	
+	Set Resultaat = Cnt
+	Quit Resultaat
+]]></Implementation>
+</Method>
+
+<Method name="OrdersOmzettenNrAndereKlantCMD">
+<Description>
+Do ##class(APPS.TBXWeb.Utils).OrdersOmzettenNaarAndereKlantViaCMD(OudeKlantNr,KlantNummerToeTeKennen) </Description>
+<ClassMethod>1</ClassMethod>
+<FormalSpec>OudeKlantNr:%String,KlantNummerToeTeKennen:%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 Cnt=..OrderIDsOmzettenNaarAndereKlant(OrderIDs,KlantNummerToeTeKennen,1)
+		Write !,"Er zijn "_Cnt_" orders omgezet naar andere klant.",!
+	}	
+	Else {
+		Write !,"Geen orders omgezet naar andere klant.",!
+	}
+]]></Implementation>
+</Method>
+
+<Method name="OrderIDsOmzettenNaarAndereKlant">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>OrderIDs:%ListOfDataTypes,KlantNummerToeTeKennen:%String,MetOutput:%Boolean</FormalSpec>
+<Private>1</Private>
+<ReturnType>%Integer</ReturnType>
+<Implementation><![CDATA[
+	Set Cnt=0
+
+	Set RecentOrderID=##class(APPS.TBXWeb.Utils).GeefRecentOrderIDVanKlant(KlantNummerToeTeKennen)
+	If $L(RecentOrderID) {
 		Set IDsIterator=##class(TECH.ListIterator).%New(OrderIDs)
 		While IDsIterator.HasNext() {
 			Set OmTeZettenOrderID=IDsIterator.Next()
-			Set WSOrd=##class(APPS.TBXWeb.Utils).KopieerKlantGegevens(WSOrderIDvanAndereKlant,OmTeZettenOrderID)
-			Set sc=WSOrd.%Save()
-			Write "Order "_OmTeZettenOrderID_" omgezet naar nieuwe klantgegevens  "_$$ParseStatus^vhLib(sc),!
-			Set:$$$ISOK(sc) Cnt=Cnt+1
+			Set WSOrd=##class(APPS.TBXWeb.Utils).KopieerKlantGegevens(RecentOrderID,OmTeZettenOrderID)
+			Set sc=$$$OK ; WSOrd.%Save()
+			Write:(MetOutput) "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.",!
+		Set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Geen recent order gevonden voor klant "_KlantNummerToeTeKennen_". De orders kunnen niet omgezet worden.")
+		Do ##class(TECH.ExceptionHandler).Throw(Exception)		
 	}
+	
+	Quit Cnt
 ]]></Implementation>
 </Method>
 </Class>