Index: WS/TBX/DataIOWWW.cls.xml
===================================================================
diff -u -r735 -r751
--- WS/TBX/DataIOWWW.cls.xml	(.../DataIOWWW.cls.xml)	(revision 735)
+++ WS/TBX/DataIOWWW.cls.xml	(.../DataIOWWW.cls.xml)	(revision 751)
@@ -45,7 +45,9 @@
 	
 	If ($Piece(Opties,";",1)="Bestel=1") {
 		Set OrderService = ##class(APPS.TBXWeb.OrderService).%New()
-		Do OrderService.Bestel(WSOrd.mID,$Piece($Piece(Opties,";",2),"=",2),$Piece($Piece(Opties,";",3),"=",2))
+		set Shop = $Piece($Piece(Opties,"SHOP=",2),";")
+		Set Req = $Piece($Piece(Opties,"REQ=",2),";")
+		Do OrderService.Bestel(WSOrd.mID,Shop,Req)
 	}
 	
 	Quit lbResult