Index: vhUnitTest/APPS/TBXWeb/OrderVerwerkServiceMock.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TBXWeb/OrderVerwerkServiceMock.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TBXWeb/OrderVerwerkServiceMock.cls.xml	(revision 253)
@@ -0,0 +1,15 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.APPS.TBXWeb.OrderVerwerkServiceMock">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>APPS.TBXWeb.OrderVerwerkService</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="GeefBezwarenTegenToevWOAanWGO">
+<FormalSpec>WebGroepOrder:WS.TBX.GroepOrder,WebOrder:WS.TBX.Order</FormalSpec>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[	quit ##super(WebGroepOrder , WebOrder)
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: vhUnitTest/APPS/TBXWeb/TestOrderVerwerkService.cls.xml
===================================================================
diff -u
--- vhUnitTest/APPS/TBXWeb/TestOrderVerwerkService.cls.xml	(revision 0)
+++ vhUnitTest/APPS/TBXWeb/TestOrderVerwerkService.cls.xml	(revision 253)
@@ -0,0 +1,30 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhUnitTest.APPS.TBXWeb.TestOrderVerwerkService">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>vhUnitTest.TestCase</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="TestBezwaren">
+<Implementation><![CDATA[
+	set Order = ##class(WS.TBX.Order).%New()
+	set Order.WebDomain = "DomeinX"
+	set Order.KLNummer = 1000
+	
+	set GroepOrder = ##class(WS.TBX.GroepOrder).%New()
+	set GroepOrder.WebDomain = "DomeinY"
+	set GroepOrder.KLNummer = 1001
+	
+	set OrderVerwerkService = ##class(vhUnitTest.APPS.TBXWeb.OrderVerwerkServiceMock).%New()
+	
+	set Bezwaren = OrderVerwerkService.GeefBezwarenTegenToevWOAanWGO(GroepOrder,Order)
+	
+	if $$$AssertEquals(Bezwaren.Count(),2) {
+		do $$$AssertEquals(Bezwaren.GetAt(1),"web domain verschillend : DomeinY <> DomeinX")
+		do $$$AssertEquals(Bezwaren.GetAt(2),"klant is verschillend : 1001 <> 1000")
+		
+	}
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: cspBasis/GAProdTBox/tmpDev.mac.rou
===================================================================
diff -u -r228 -r253
--- cspBasis/GAProdTBox/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 228)
+++ cspBasis/GAProdTBox/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 253)
@@ -151,10 +151,9 @@
  */
  
  
-WSOrdToAdmin(wsID,OFFToAdmin)
+VerwerkWebOrder(wsID,OFFToAdmin)
 	#define SoapMethod   1
- ;	#define SoapLoc      "cache01\ADMIN1"
-	#define SoapLoc      "cache02\DEV-ADMIN1"
+ 	#define SoapLoc      "cache02\DEV-ADMIN1"
 	
 	New %RemoteIP,WSOrd,msg,sc,SoapErrorMsg,Opties,DestLoc,lbResult     ; ,SaveOK,blnCalcPrs,blnFixed,OptiePRS,PreCalcID
 	Set %RemoteIP=$G(%request.CgiEnvs("REMOTE_ADDR"))
@@ -168,55 +167,38 @@
 	Quit:('$IsObject(WSOrd)) $LB("","Unable to open WSOrder object")
 	Quit:('$$otaBonTypeAllowed(.msg)) $LB("",msg)   ;Quit:(WSOrd.BonType'?1(1"BBON",1"INKP")) $LB("","BonType should be 'BBON' or 'INKP'")
 	Set sc=$$$OK
-	Do otaTransferWS
-	  ;s lbResult=$LB($P($H,",",2),"TEST")   ; 
+	set lbResult = $$otaTransferWS()
 	If $L($LG(lbResult,1)) Do
 	. Do WSOrd.AddToTransferLog($LG(lbResult,1),$G(DestLoc),$LG(lbResult,2))
 	. Set:(WSOrd.BonType="OFF") WSOrd.BonType=OFFToAdmin
 	. Set sc=WSOrd.%Save()
 	Do otaAddToLog
 	Set WSOrd=""   ; Close 
 	Quit:($$$ISERR(sc)) $LB("",sc)
-	Quit lbResult
+	Quit $lb(Result)
 otaBonTypeAllowed(msg)   ; msg als .local doorgeven
 	Kill msg
 	Quit:(WSOrd.BonType="OFF")&&($G(OFFToAdmin)?1(1"BBON",1"INKP")) 1   ; Change BonType after TransferWS()
 	Quit:(WSOrd.BonType?1(1"BBON",1"INKP")) 1
-	; Else 
 	Set msg="BonType should be 'BBON' or 'INKP'"
 	Quit 0
-otaTransferWS
+	
+otaTransferWS()
 	Set Opties=""
-	If $$otaUseSoapMsg Do 
-	. ;Set SoapErrorMsg=""
-	. Set lbResult=$$otaTransferViaSoapMsg(Opties)
-	Else  Do
-	. ; Uitvoeren in huidige namespace:
-	. Set DestLoc="-"
-	. If $$$SoapMethod Do
-	..  Set lbResult=$$otaTransferViaSoapMethod(Opties)
-	. Else  Do
-	..  Set lbResult=##class(BL.PR.GA.TandemBox).WSOrdToAdmin(WSOrd,Opties)
-	Quit
-otaTransferViaSoapMethod(Opties)
-	Quit ##class(WS.TBX.Calc).WSOrdToAdmin(WSOrd,.Opties)   ; Class Method, returns $LB
-otaUseSoapMsg()
-	Quit ##class(TECH.Config.ConfigMgr).Instance().GetBoolean("cspBasis.GAProdTBox_OrderImportIntoAdminViaSoapMsg")
-otaTransferViaSoapMsg(Opties)
 	Set lbResult=""
-	Do otaTransferViaSoapMsgSub("WS.TBX.CalcSoap","WSOrdToAdmin")
+	Do otaTransferViaSoapMsgSub("WS.TBX.CalcSoap","VerwerkWebOrder")
 	Quit lbResult
+	
 otaTransferViaSoapMsgSub(SoapClass,method)
 	New Client,Result,lbLocations,locNdx
 	Set Client=$System.OBJ.New(SoapClass)
-	Set Result=Client.PrepareWSOrdToAdmin(.lbLocations,.locNdx)   ; No PeekServer, only one location
-	  ;d WL^vhDBG("PeekServer (PrepareWSOrdToAdmin) finished ==>  locNdx="_$G(locNdx))
+	Set Result=Client.PrepareVerwerkWebOrder(.lbLocations,.locNdx) ; No PeekServer, only one location
 	Do:(locNdx<0) otaSoapAddToLog   ; Problem: no location
 	Set DestLoc=Client.Location
 	Quit:('Result)
 	Do:(locNdx>1) otaSoapAddToLog   ; Not the first location
 	Set $ZTRAP="otaSoapErrorTransfer"
-	Set lbResult=Client.WSOrdToAdmin(WSOrd,.Opties,$G(%RemoteIP))
+	Set Result = Client.VerwerkWebOrder(WSOrd)
 	Set $ZTRAP=""
 	Quit
 otaSoapAddToLog
@@ -228,7 +210,6 @@
 	New CustomMsg
 	Do
 	. Quit:($G(%objlasterror,1))
-	. // Hyperevent JS error messagebox
 	. New msg,blnOnServer
 	. Set blnOnServer=($$$GETERRORCODE(%objlasterror)=$$$SOAPFaultReceived)
 	. Set msg="'TransferToADMIN Failed."_"\n\n"_"SOAP message: '"_"+"_##class(%CSP.Page).QuoteJS($S(blnOnServer:"the SOAP server returned a SOAP fault.", 1:$$ParseStatus^vhLib(%objlasterror)))
@@ -237,7 +218,7 @@
 	Set CustomMsg="WSOrd:  ID="_wsID_"  : TransferToADMIN Failed."
 	Do SOAPErrorMail^cspBasis.SOAPlib("TBX_ERR",,CustomMsg,,Client)
 	Set $ZE=""
-	Quit
+	Quit $lb("","Een error has occured")
 otaAddToLog
 	Do oxxAddToLog("TRANSF")
 	Quit
@@ -255,7 +236,6 @@
 	. Set %request=""   k %request
 	Else  Do
 	. Do ##class(cspBasis.GAProdTBox).AddToLog(Actie,$G(%session.Data("DOMAIN")),$G(%session.Data("KLNR")),$G(%session.Data("MODE")),wsID,$G(%session.Data("VERW")),,,lbExtras)
-	;Do ##class(cspBasis.GAProdTBox).AddToLog(Actie,Domain,KLNr,WizMode,wsID,Verwerker,Taal,VhisieLogin,lbExtras)
 	Quit
  
  
FishEye: Tag 253 refers to a dead (removed) revision in file `WS/TBX/CalcSoap/WSOrdToAdmin.cls.xml'.
FishEye: No comparison available.  Pass `N' to diff?
Index: WS/TBX/CalcSoap.cls.xml
===================================================================
diff -u -r27 -r253
--- WS/TBX/CalcSoap.cls.xml	(.../CalcSoap.cls.xml)	(revision 27)
+++ WS/TBX/CalcSoap.cls.xml	(.../CalcSoap.cls.xml)	(revision 253)
@@ -27,16 +27,26 @@
 ]]></Implementation>
 </Method>
 
-<Method name="WSOrdToAdmin">
+<Method name="VerwerkWebOrder">
 <Description>
 WSOrder To Admin</Description>
-<FormalSpec>WSOrd:WS.TBX.Order,Opties:%String,ClientAddress:%String</FormalSpec>
-<ReturnType>%List</ReturnType>
+<FormalSpec>WebOrder:WS.TBX.Order</FormalSpec>
+<ReturnType>%String</ReturnType>
 <WebMethod>1</WebMethod>
-<Implementation><![CDATA[ Quit ..WebMethod("WSOrdToAdmin").Invoke(##this,"http://tempuri.org/WS.TBX.Calc.WSOrdToAdmin",.WSOrd, .Opties, .ClientAddress)
+<Implementation><![CDATA[ Quit ..WebMethod("VerwerkWebOrder").Invoke(##this,"http://tempuri.org/WS.TBX.Calc.VerwerkWebOrder",.WebOrder)
 ]]></Implementation>
 </Method>
 
+<Method name="VerwerkWebGroepOrder">
+<Description>
+WSOrder To Admin</Description>
+<FormalSpec>WebGroepOrder:WS.TBX.GroepOrder</FormalSpec>
+<ReturnType>%String</ReturnType>
+<WebMethod>1</WebMethod>
+<Implementation><![CDATA[ Quit ..WebMethod("VerwerkWebGroepOrder").Invoke(##this,"http://tempuri.org/WS.TBX.Calc.VerwerkWebGroepOrder",.WebGroepOrder)
+]]></Implementation>
+</Method>
+
 <Method name="PeekServer">
 <Final>1</Final>
 <ReturnType>%String</ReturnType>
@@ -60,29 +70,14 @@
 ]]></Implementation>
 </Method>
 
-<Method name="PrepareWSOrdToAdmin">
+<Method name="PrepareVerwerkWebOrder">
 <FormalSpec><![CDATA[&lbLocations:%String,&locNdx:%Integer,blnPeekServer:%Boolean,TimeOut:%Integer]]></FormalSpec>
 <ReturnType>%Boolean</ReturnType>
 <Implementation><![CDATA[
-#define SoapLoc      "cache01\ADMIN1"	
-#define SoapLocDEV   "cache02\DEV-ADMIN1"	
-
-	/*
-
-	;Set blnPeekServer=1
-	;Set MailParamType="TBX_ERR"
-	Set lbLocations=..GetLocations($LB($$$SoapLoc))
-	;Set lbLocations=..GetLocations($S(%RemoteIP="192.168.1.97":$LB($$$SoapLocDEV), 1:$LB($$$SoapLoc)))
-	Set locNdx=1   ; =..PeekSOAPServer(lbLocations,1,MailParamType)
-	Do ..SetLocation($LG(lbLocations,locNdx))
-	Do ..SetTimeOut(60)   ; Default
-	Quit $S(locNdx<0:0, 1:1)
-	*/
-	
 	Set WebServiceRoot = ##class(TECH.Config.ConfigMgr).Instance().GetString("SOAPlib_ProductieWebServiceLocation")
 	Set Location = ##class(TECH.Files).AppendFile(WebServiceRoot,"WS.TBX.Calc.cls")
-	Set lbLocations=$LB(Location)
-	Set locNdx=1
+	Set lbLocations = $listbuild(Location)
+	Set locNdx = 1
 	Do ..SetLocation(Location)
 	Do ..SetTimeOut(60)   ; Default
 	Quit $$$True
Index: csp/vhisie/TBX/Main/tmpDev.mac.rou
===================================================================
diff -u -r231 -r253
--- csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 231)
+++ csp/vhisie/TBX/Main/tmpDev.mac.rou	(.../tmpDev.mac.rou)	(revision 253)
@@ -585,7 +585,7 @@
 	. Set %session.Data("TransfStatus")="ACTIVE"
 	. Set scStatus=##class(WS.TBX.Order).TransfStatusSetByID(wsID,"ACTIVE")
 	. ;d WL^vhDBG("Start  WSOrdToAdmin().  Status: "_$G(%session.Data("TransfStatus")))
-	. Set lbResult=##class(cspBasis.GAProdTBox).WSOrdToAdmin(wsID,$G(OFFToAdmin))   ; $LB("",$$$ERROR($$$GeneralError,"MyMessage"))   ; 
+	. Set lbResult=##class(cspBasis.GAProdTBox).VerwerkWebOrder(wsID,$G(OFFToAdmin))   ; $LB("",$$$ERROR($$$GeneralError,"MyMessage"))   ; 
 	. Set %session.Data("TransfStatus")="DONE"
 	. Set scStatus=##class(WS.TBX.Order).TransfStatusSetByID(wsID,"")
 	. ;d WL^vhDBG("Finished  WSOrdToAdmin().  Status: "_$G(%session.Data("TransfStatus")))
Index: BL/Prod/GAData/TBXLadeXML/pxPrintOrder.cls.xml
===================================================================
diff -u -r2 -r253
--- BL/Prod/GAData/TBXLadeXML/pxPrintOrder.cls.xml	(.../pxPrintOrder.cls.xml)	(revision 2)
+++ BL/Prod/GAData/TBXLadeXML/pxPrintOrder.cls.xml	(.../pxPrintOrder.cls.xml)	(revision 253)
@@ -151,34 +151,5 @@
 <Parameter name="XMLNAME" value="WEBLIJN"/>
 <Parameter name="XMLPROJECTION" value="ELEMENT"/>
 </Property>
-
-<UDLText name="T">
-<Content><![CDATA[
-/*
-Property KLPrijsKlasse As %String(XMLNAME = "KL_AFDRUKCODE");
-
-Property KLKorting As %String(XMLNAME = "KL_KORTING");
-
-Property WebDomain As %String(XMLNAME = "WEBDOMAIN");
-
-Property WebURL As %String(MAXLEN = 500, XMLNAME = "WEBURL");
-
-Property WebQSData As %String(MAXLEN = 500, XMLNAME = "WEBQSDATA");
-
-Property SubmitTS As %String(XMLNAME = "SUBMITTS");
-
-/// Logt de WSOrdToAdmin() acties: 
-/// Format: $LB($LB($H,OffID,info),$LB(prev $H, prev OffID,...), ...)
-/// Bij een nieuwe transfer wordt de log steeds vooraan toegevoegd. Gebruik hiervoor de method AddToTransferLog()
-Property TransferLog As %List(XMLPROJECTION = "NONE");
-
-/// Logt de SubmitToVHEPN acties: 
-/// Format: $LB($LB($H,info),$LB(prev $H, ...), ...)
-/// Bij een nieuwe SubmitToVHEPN wordt de log steeds vooraan toegevoegd. Gebruik hiervoor de method AddToSubmitToVHLog()
-Property SubmitToVHLog As %List(XMLPROJECTION = "NONE");
-
-*/
-]]></Content>
-</UDLText>
 </Class>
 </Export>
Index: APPS/TBXWeb/OrderVerwerkService.cls.xml
===================================================================
diff -u
--- APPS/TBXWeb/OrderVerwerkService.cls.xml	(revision 0)
+++ APPS/TBXWeb/OrderVerwerkService.cls.xml	(revision 253)
@@ -0,0 +1,112 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.TBXWeb.OrderVerwerkService">
+<IncludeCode>vhLib.Macro</IncludeCode>
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="ValideerWebOrder">
+<FormalSpec>WebOrder:WS.TBX.Order</FormalSpec>
+<Implementation><![CDATA[
+	Quit:(WebOrder.BonType="OFF")&&($G(OFFToAdmin)?1(1"BBON",1"INKP"))
+	Quit:(WebOrder.BonType?1(1"BBON",1"INKP"))
+	
+	set Exception = ##class(TECH.Exception.InvalidInputException).%New("BonType moet 'BBON' of 'INKP' zijn")
+	do ##class(TECH.ExceptionHandler).Throw(Exception)
+	
+	Quit 0
+]]></Implementation>
+</Method>
+
+<Method name="ValideerWebGroepOrder">
+<FormalSpec>WebGroepOrder:WS.TBX.GroepOrder</FormalSpec>
+</Method>
+
+<Method name="VerwerkWebOrder">
+<FormalSpec>WebOrder:WS.TBX.Order</FormalSpec>
+<Implementation><![CDATA[
+	
+	Set TBXContext=##class(APPS.TBXWeb.TBXContext).InitFromHttpRequest()
+	
+	set $ztrap="onErrorPrepare"
+  
+	if $$$Not(##class(TECH.Config.ConfigMgr).Instance().GetBoolean("cspBasis.GAProdTBox_AllowOrderImportIntoAdmin")) {
+		set Exception = ##class(TECH.Exception.InvalidInputException).%New("Import from this namespace ("_$$$NSpace_")_is not allowed !!!")
+		do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+	
+	do ..ValideerWebOrder(WebOrder)
+	
+	set Client= ##class(WS.TBX.CalcSoap).%New()
+	set Result=Client.PrepareVerwerkWebOrder(.lbLocations,.locNdx) ; No PeekServer, only one location
+	
+	set $ztrap="onErrorSoap"
+	
+	set WebClient = ##class(WS.TBX.CalcSoap).%New()
+	set OfferteID = WebClient.VerwerkWebOrder(WebOrder)
+	
+	do WebOrder.AddToTransferLog(1,WebClient.Location,OfferteID)
+	set WebOrder.BonType = ""
+	do WebOrder.Save()
+	
+onErrorPrepare
+	set $ztrap=""
+	set Exception = ##class(TECH.ExceptionHandler).Catch()
+	do ##class(TECH.ExceptionHandler).Rethrow(Exception)
+	quit
+
+onErrorSoap
+	set $ztrap=""
+	set Exception = ##class(TECH.ExceptionHandler).Catch()
+	do Weborder.AddToTransferLog(0,WebClient.Location,Exception.GeefOmschrijving())
+	do ##class(TECH.ExceptionHandler).Rethrow(Exception)
+	quit
+]]></Implementation>
+</Method>
+
+<Method name="VerwerkWebGroepOrder">
+<FormalSpec>WebGroepOrder:WS.TBX.GroepOrder</FormalSpec>
+</Method>
+
+<Method name="VoegToeWebOrderAanWebGroepOrder">
+<FormalSpec>WebGroepOrder:WS.TBX.Order,WebOrderID:%String</FormalSpec>
+<Implementation><![CDATA[
+	set WebOrder = ##class(WS.TBX.Order).%OpenId(WebOrderID)
+	set BezwarenTegenToevoegen = ..GeefBezwarenTegenToevWOAanWGO( WebGroepOrder , WebOrder )
+	if BezwarenTegenToevoegen.Count() = 0 {
+		if WebGroepOrder.Orders.Count() = 0 {
+			do ..KopieerBasisGegevensNaarWGO( WebGroepOrder , WebOrder )
+		}
+		do WebGroepOrder.Orders.Insert( WebOrder )
+	} else {
+		
+		set Info = ##class(TECH.ListUtils).ListToPieces(Bezwaren,$$$CRLF)
+		set Exception = ##class(TECH.Exceptions.InvalidInputException).%New("Kan weborder niet toevoegen : "_$$$CRLF_Info)
+		do ##class(TECH.ExceptionHandler).Throw(Exception)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="GeefBezwarenTegenToevWOAanWGO">
+<FormalSpec>WebGroepOrder:WS.TBX.GroepOrder,WebOrder:WS.TBX.Order</FormalSpec>
+<Private>1</Private>
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	set Bezwaren = ##class(%ListOfDataTypes).%New()
+	
+	if WebGroepOrder.WebDomain '= WebOrder.WebDomain do Bezwaren.Insert("web domain verschillend : "_WebGroepOrder.WebDomain_ " <> " _ WebOrder.WebDomain )
+	if WebGroepOrder.KLNummer '= WebOrder.KLNummer do Bezwaren.Insert("klant is verschillend : "_WebGroepOrder.KLNummer_ " <> " _ WebOrder.KLNummer )
+	
+	quit Bezwaren
+]]></Implementation>
+</Method>
+
+<Method name="KopieerBasisGegevensNaarWGO">
+<FormalSpec>WebGroepOrder:WS.TBX.GroepOrder,WebOrder:WS.TBX.Order</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[	
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: BL/PR/GA/TandemBox.cls.xml
===================================================================
diff -u -r226 -r253
--- BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 226)
+++ BL/PR/GA/TandemBox.cls.xml	(.../TandemBox.cls.xml)	(revision 253)
@@ -1838,28 +1838,6 @@
 ]]></Implementation>
 </Method>
 
-<Method name="WSOrdToAdmin">
-<Description>
-Omzetten van WSOrder data naar Offerte.Hoofding+Lijnen 
-Geeft als resultaat $LB(OffID,"") terug
-De Kenmerken en enkele properties zijn reeds ingevuld, maar de producten (GAData+KPR) zijn nog NIET berekend.</Description>
-<ClassMethod>1</ClassMethod>
-<FormalSpec>WSOrder:%String,Opties:%String,ClientAddress:%String</FormalSpec>
-<ProcedureBlock>1</ProcedureBlock>
-<ReturnType>%List</ReturnType>
-<Implementation><![CDATA[
- Set:('$D(%ClientIP)) %ClientIP="192.168.1.97"
- $$$blFlowOfferte
- Set oHfd=##class(BL.EC.EDI).WSOrd2Offerte("",WSOrder)
- Quit:('$IsObject(oHfd)) $LB("","No OffHoofd")
- Do %blFlowOfferte.GenerateAll()
- Set sc=%blFlowOfferte.SetOfferteStatus("W")
- Set sc=%blFlowOfferte.Save()   ; oHfd.%Save()
- Set lbResult=$S($$$ISERR(sc):$LB("",sc), 1:$LB(oHfd.%Id(),""))   ; $LB("",$$ParseStatus^vhLib(sc))
- Quit lbResult
-]]></Implementation>
-</Method>
-
 <Method name="WSOrdToWWW">
 <Description>
 WSOrdToWWW stuurt een WS.TBX.Order object naar de server.
Index: cspBasis/GAProdTBox.cls.xml
===================================================================
diff -u -r230 -r253
--- cspBasis/GAProdTBox.cls.xml	(.../GAProdTBox.cls.xml)	(revision 230)
+++ cspBasis/GAProdTBox.cls.xml	(.../GAProdTBox.cls.xml)	(revision 253)
@@ -927,15 +927,15 @@
 ]]></Implementation>
 </Method>
 
-<Method name="WSOrdToAdmin">
+<Method name="VerwerkWebOrder">
 <Description>
 Transfer van een WSOrder naar ADMIN via WEB-SERVICE. Creëert daar een Flow.Offerte.Hoofding+Lijnen
 Geeft $LB(oHfd.ID,"info...") terug.</Description>
 <ClassMethod>1</ClassMethod>
 <FormalSpec>wsID:%String,OFFToAdmin:%String</FormalSpec>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%List</ReturnType>
-<Implementation><![CDATA[	Quit $$WSOrdToAdmin^cspBasis.GAProdTBox.tmpDev(.wsID,.OFFToAdmin)
+<Implementation><![CDATA[	Quit $$VerwerkWebOrder^cspBasis.GAProdTBox.tmpDev(.wsID,.OFFToAdmin)
 ]]></Implementation>
 </Method>
 
Index: BL/Prod/GAData/TBXLadeXML/pxEDIOrder.cls.xml
===================================================================
diff -u -r2 -r253
--- BL/Prod/GAData/TBXLadeXML/pxEDIOrder.cls.xml	(.../pxEDIOrder.cls.xml)	(revision 2)
+++ BL/Prod/GAData/TBXLadeXML/pxEDIOrder.cls.xml	(.../pxEDIOrder.cls.xml)	(revision 253)
@@ -179,29 +179,5 @@
 <Parameter name="XMLITEMNAME" value="ACTIONCODE"/>
 <Parameter name="XMLNAME" value="ACTIONCODES"/>
 </Property>
-
-<UDLText name="T">
-<Content><![CDATA[
-/*
-Property LeverTijdID As %String(XMLNAME = "DELIVERY_ID");
-
-Property KLPrijsKlasse As %String(XMLNAME = "KL_AFDRUKCODE");
-
-Property ShowInHist As %Integer(XMLNAME = "VISIBLE_IN_HIST");
-
-Property WebDomain As %String(XMLNAME = "WEBDOMAIN");
-
-Property WebURL As %String(MAXLEN = 500, XMLNAME = "WEBURL");
-
-Property WebQSData As %String(MAXLEN = 500, XMLNAME = "WEBQSDATA");
-
-/// Logt de WSOrdToAdmin() acties: 
-/// Format: $LB($LB($H,OffID,info),$LB(prev $H, prev OffID,...), ...)
-/// Bij een nieuwe transfer wordt de log steeds vooraan toegevoegd. Gebruik hiervoor de method AddToTransferLog()
-Property TransferLog As %List(XMLPROJECTION = "NONE");
-
-*/
-]]></Content>
-</UDLText>
 </Class>
 </Export>