Index: WS/TBX/DataIOWWW.cls.xml
===================================================================
diff -u -r14 -r735
--- WS/TBX/DataIOWWW.cls.xml	(.../DataIOWWW.cls.xml)	(revision 14)
+++ WS/TBX/DataIOWWW.cls.xml	(.../DataIOWWW.cls.xml)	(revision 735)
@@ -42,6 +42,12 @@
 	Set lbResult=##class(BL.PR.GA.TandemBox).WSOrdToWWW(.WSOrd,MsgNoAccess,.Opties)
 	Set $LI(lbResult,4)=$System.Encryption.Base64Encode($LG(lbResult,4))
 	Set:($$$ISERR($LG(lbResult,6))) $LI(lbResult,6)=$$ParseStatus^vhLib($LG(lbResult,6))
+	
+	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))
+	}
+	
 	Quit lbResult
 ]]></Implementation>
 </Method>