Index: APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml
===================================================================
diff -u -r36537 -r36636
--- APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml	(.../TandemboxBesteller.cls.xml)	(revision 36537)
+++ APPS/EDI/Bestel/impl/BestelService/TandemboxBesteller.cls.xml	(.../TandemboxBesteller.cls.xml)	(revision 36636)
@@ -39,7 +39,7 @@
 <Private>1</Private>
 </Property>
 
-<Property name="WS">
+<Property name="TBXDataIoWebClient">
 <Type>WS.TBX.DataIOWWWSoap</Type>
 <Private>1</Private>
 </Property>
@@ -56,7 +56,7 @@
 	Set ..ProductConverter = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.ProductConverter).%New()
 	Set ..OrderVerwerker = ##class(APPS.TBXWeb.impl.OrderVerwerker).%New()
 	Set ..NietmeeleverenToevoeger = ##class(APPS.EDI.Bestel.impl.BestelService.TandemboxBesteller.NietmeeleverenToevoeger).%New()
-	Set ..WS = ##class(WS.TBX.DataIOWWWSoap).%New()
+	Set ..TBXDataIoWebClient = ##class(WS.TBX.DataIOWWWSoap).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -74,7 +74,7 @@
 			Do ..ZetHoofding()
 			Do ..NietmeeleverenToevoeger.VoegToeNietmeeleveren(Aanvraag.Order, ..WebOrder)
 			Do ..BerekenPrijzen()
-			Set ..WebOrder.mID = $listget(..WS.WSOrdToWWW(..WebOrder,$$$WSInternalSecureKey),1)		
+			Set ..WebOrder.mID = $listget(..TBXDataIoWebClient.WSOrdToWWW(..WebOrder,$$$WSInternalSecureKey),1)		
 			Set Resultaat.OfferteIDTBX = ..WebOrder.mID
 		}
 	} Catch {
@@ -92,8 +92,8 @@
 <Implementation><![CDATA[
 	Set Resultaat = ##class(APPS.EDI.Bestel.BestelService.PlaatsBestelling.Resultaat).%New()
 	Try {
-		#dim WebOrder As WS.TBX.Order = ..WS.GetWSOrdFromWWW(OfferteID,$$$WSInternalSecureKey)
-		Do ..WS.WSOrdToWWW(WebOrder,$$$WSInternalSecureKey,"Bestel=1;REQ=VHEPN;SHOP=VHEPN")		
+		#dim WebOrder As WS.TBX.Order = ..TBXDataIoWebClient.GetWSOrdFromWWW(OfferteID,$$$WSInternalSecureKey)
+		Do ..TBXDataIoWebClient.WSOrdToWWW(WebOrder,$$$WSInternalSecureKey,"Bestel=1;REQ=VHEPN;SHOP=VHEPN")		
 		Set Resultaat.OfferteIDTBX = WebOrder.mID
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()