Index: APPS/TBXWeb/Utils.cls.xml
===================================================================
diff -u -r733 -r802
--- APPS/TBXWeb/Utils.cls.xml	(.../Utils.cls.xml)	(revision 733)
+++ APPS/TBXWeb/Utils.cls.xml	(.../Utils.cls.xml)	(revision 802)
@@ -149,8 +149,16 @@
 		Set lbParams = lbParams _ $LB(WebDomein)
 	}
 	
-	Set lbOrderIDs=$$ListIDsExecDynQuery^vhLib.Query(SqlStatement,lbParams)
-	Quit ##class(TECH.ListUtils).ListbuildToList(lbOrderIDs)
+
+	Set List = ##class(%ListOfDataTypes).%New()
+	Set qHandler = $$ExecDynQuery^vhLib.Query(SqlStatement,lbParams)
+	While qHandler.Next()  { 
+		Do List.Insert(qHandler.Get("ID")) 
+	} 
+	Quit List
+	
+	;Set lbOrderIDs=$$ListIDsExecDynQuery^vhLib.Query(SqlStatement,lbParams)
+	;Quit ##class(TECH.ListUtils).ListbuildToList(lbOrderIDs)
 ]]></Implementation>
 </Method>
 
@@ -245,7 +253,7 @@
 	
 	Write !
 	Write "Volgende OrderID's zullen overgezet worden naar de nieuwe Klantgegevens (aantal : "_OrderIDs.Count()_" orders)",!
-	Write ##class(TECH.ListUtils).ListToPieces(OrderIDs,", "),! 
+	;Write ##class(TECH.ListUtils).ListToPieces(OrderIDs,", "),! 
 	Write !,!, "Doorgaan [J/N] ? "
 	Read Key
 	If $$$UCase(Key)="J" {