Index: APPS/TBXWeb/Utils.cls.xml
===================================================================
diff -u -r719 -r733
--- APPS/TBXWeb/Utils.cls.xml	(.../Utils.cls.xml)	(revision 719)
+++ APPS/TBXWeb/Utils.cls.xml	(.../Utils.cls.xml)	(revision 733)
@@ -131,12 +131,25 @@
 
 <Method name="GeefLijstOrderIDsVanKlant">
 <Description>
-Set OrderIDs=##class(APPS.TBXWeb.Utils).GeefLijstOrderIDsVanKlant(4645)  write ##class(TECH.ListUtils).ListToPieces(OrderIDs,", "),! </Description>
+Set OrderIDs=##class(APPS.TBXWeb.Utils).GeefLijstOrderIDsVanKlant(4645,"")  write ##class(TECH.ListUtils).ListToPieces(OrderIDs,", "),! </Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>KlantNr:%String</FormalSpec>
+<FormalSpec>KlantNr:%String,WebDomein:%String=""</FormalSpec>
 <ReturnType>%ListOfDataTypes</ReturnType>
 <Implementation><![CDATA[
-	Set lbOrderIDs=$$ListIDsExecDynQuery^vhLib.Query("SELECT ID FROM WS_TBX.OrderAbstract WHERE (KLNummer=?)",$LB(KlantNr))
+	Set SqlStatement = "SELECT ID FROM WS_TBX.OrderAbstract "
+	Set lbParams = ""
+	If (KlantNr = "") {
+		Set SqlStatement = SqlStatement _ "  WHERE (KLNummer is null) "
+	} Else {
+		Set SqlStatement = SqlStatement _ "  WHERE (KLNummer=?) "
+		Set lbParams = lbParams _ $LB(KlantNr)
+	}
+	If ($L(WebDomein)) {
+		Set SqlStatement = SqlStatement _ " AND (WebDomain=?) "
+		Set lbParams = lbParams _ $LB(WebDomein)
+	}
+	
+	Set lbOrderIDs=$$ListIDsExecDynQuery^vhLib.Query(SqlStatement,lbParams)
 	Quit ##class(TECH.ListUtils).ListbuildToList(lbOrderIDs)
 ]]></Implementation>
 </Method>
@@ -177,21 +190,21 @@
 
 <Method name="GeefInfoOrdersOmzettenNaarKlant">
 <Description>
-Do ##class(APPS.TBXWeb.Utils).GeefInfoVoorOrdersOmzettenNaarAndereKlant(OudeKlantNr,KlantNummerToeTeKennen) </Description>
+Write ##class(APPS.TBXWeb.Utils).GeefInfoOrdersOmzettenNaarKlant(OudeKlantNr,KlantNummerToeTeKennen,WebDomein) </Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>OudeKlantNr:%String,KlantNummerToeTeKennen:%String</FormalSpec>
+<FormalSpec>OudeKlantNr:%String,KlantNummerToeTeKennen:%String,WebDomein:%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)
+		Set OrderIDs=##class(APPS.TBXWeb.Utils).GeefLijstOrderIDsVanKlant(OudeKlantNr, WebDomein)
 		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_"naar klant "_$$$CRLF_RecentOrderNieuweKlant.KLNaam_"  (van OrderID '"_RecentOrderID_"')"_$$$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
 		}
@@ -209,12 +222,12 @@
 
 <Method name="OrdersOmzettenNaarAndereKlant">
 <Description>
-Do ##class(APPS.TBXWeb.Utils).OrdersOmzettenNaarAndereKlant(OudeKlantNr,KlantNummerToeTeKennen) </Description>
+Do ##class(APPS.TBXWeb.Utils).OrdersOmzettenNaarAndereKlant(OudeKlantNr,KlantNummerToeTeKennen,WebDomein) </Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>OudeKlantNr:%String,KlantNummerToeTeKennen:%String</FormalSpec>
+<FormalSpec>OudeKlantNr:%String,KlantNummerToeTeKennen:%String,WebDomein:%String=""</FormalSpec>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	Set OrderIDs=##class(APPS.TBXWeb.Utils).GeefLijstOrderIDsVanKlant(OudeKlantNr)
+	Set OrderIDs=##class(APPS.TBXWeb.Utils).GeefLijstOrderIDsVanKlant(OudeKlantNr,WebDomein)
 	Set Cnt=..OrderIDsOmzettenNaarAndereKlant(OrderIDs,KlantNummerToeTeKennen,0)
 	
 	Set Resultaat = Cnt
@@ -224,11 +237,11 @@
 
 <Method name="OrdersOmzettenNrAndereKlantCMD">
 <Description>
-Do ##class(APPS.TBXWeb.Utils).OrdersOmzettenNaarAndereKlantViaCMD(OudeKlantNr,KlantNummerToeTeKennen) </Description>
+Do ##class(APPS.TBXWeb.Utils).OrdersOmzettenNaarAndereKlantViaCMD(OudeKlantNr,KlantNummerToeTeKennen,WebDomein) </Description>
 <ClassMethod>1</ClassMethod>
-<FormalSpec>OudeKlantNr:%String,KlantNummerToeTeKennen:%String</FormalSpec>
+<FormalSpec>OudeKlantNr:%String,KlantNummerToeTeKennen:%String,WebDomein:%String=""</FormalSpec>
 <Implementation><![CDATA[
-	Set OrderIDs=##class(APPS.TBXWeb.Utils).GeefLijstOrderIDsVanKlant(OudeKlantNr)
+	Set OrderIDs=##class(APPS.TBXWeb.Utils).GeefLijstOrderIDsVanKlant(OudeKlantNr,WebDomein)
 	
 	Write !
 	Write "Volgende OrderID's zullen overgezet worden naar de nieuwe Klantgegevens (aantal : "_OrderIDs.Count()_" orders)",!