Index: cspBasis/GAProdTBox.cls.xml
===================================================================
diff -u -r320 -r324
--- cspBasis/GAProdTBox.cls.xml	(.../GAProdTBox.cls.xml)	(revision 320)
+++ cspBasis/GAProdTBox.cls.xml	(.../GAProdTBox.cls.xml)	(revision 324)
@@ -688,6 +688,36 @@
 ]]></Implementation>
 </Method>
 
+<Method name="CalcDataWSviaID">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>wsID:%String</FormalSpec>
+<ProcedureBlock>0</ProcedureBlock>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Set:('$IsObject($G(%session))) %session=##class(%CSP.Session).%New(1)  set blnNewSession=1
+	Set:('$IsObject($G(%request))) %request=##class(%CSP.Request).%New()
+	Set:($G(blnNewSession)) %session.EndSession=1
+
+	Set:($G(%request.CgiEnvs("REMOTE_ADDR"))="") %request.CgiEnvs("REMOTE_ADDR")=$G(ClientIP,"192.168.1.97")
+	;Set:($G(Domain)="") Domain=$G(%session.Data("DOMAIN"),"www.tandem-box.com")
+	
+	New WSOrd,KLNr,lbTransferLog,blnCalcPrs,PreCalcID,SaveOK
+	Set WSOrd=##class(WS.TBX.Order).%OpenId(wsID)
+	Set KLNr=WSOrd.KLNummer
+	Set lbTransferLog=WSOrd.TransferLog
+	Set blnCalcPrs=1
+	Set PreCalcID=WSOrd.%Id()
+	Do cdwBuildFromWS
+	Do:(WSOrd.mID=PreCalcID) WSOrd.OverwriteOID(PreCalcID)
+	Do cdwBuildPricesArray   ; + calc TotAantal
+	Set WSOrd.TransferLog=lbTransferLog
+	Set SaveOK=WSOrd.%Save()
+	Do cdwAddToLog
+	
+	Quit SaveOK
+]]></Implementation>
+</Method>
+
 <Method name="CalcDataWS">
 <Description>
 Creëert een WS-object van de array arFullData (als .local doorgeven) en berekent de prijzen via WEB-SERVICE