Index: cspBasis/GAProdTBox.cls.xml
===================================================================
diff -u -r553 -r557
--- cspBasis/GAProdTBox.cls.xml	(.../GAProdTBox.cls.xml)	(revision 553)
+++ cspBasis/GAProdTBox.cls.xml	(.../GAProdTBox.cls.xml)	(revision 557)
@@ -718,19 +718,23 @@
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	New arFullData,arPrices,wsID,WSOrd,sBonType
+	New arFullData,arPrices,wsID,WSOrd,sBonType,OrderBevatActies
 	  s:('$D(%ClientIP)) %ClientIP="192.168.1.97"
 	  ;d DbgWrite("TEST PData:") 
 	  ;d DbgWrite("PData:"_$$ArrayToText^vhLib("pdlPData"))
 	Set wsID=$G(%session.Data("WSID"),"")
 	Set:($L($G(pdlPData))) $P(pdlPData,"`",2)=$G(%session.Data("KLNR"),"")
+	Set OrderBevatActies=""
 	Do ##class(cspBasis.GAProdTBox).FullDataFromPDLs(.arFullData, .pdlPData, .pdlKleurKeuze, .pdlMData)   ; build FullData from Klr+MData+PData
 	Set wsID=##class(cspBasis.GAProdTBox).CalcDataWS(.arFullData, .arPrices, .wsID)
 	Set %session.Data("WSID")=wsID
 	Do cldTotAantalAdd()
 	Write "window.document.TagPrintRef = "_$$$QuoteJS($$CreateHashedRef^cspBasis.TBX.DecodeURL.tmpDev($LB(,,wsID,"PUA")))_";"   ; Print UnAuthorized
 	Write "window.document.TagNewFormType = "_$$$QuoteJS($G(sBonType))_";"
 	Write "window.document.TagMainRefTo = "_$$$QuoteJS($$cldBuildRef2Main)_";"
+	If OrderBevatActies {
+		Write "window.document.TagWSID = "_$$$QuoteJS(wsID)_";"
+	}
 	Quit $$cldCacheArrayToPDL(.arPrices)
 cldTotAantalAdd(D2)
 	Quit:('$$$aHasData(arPrices(0)))||(wsID="")
@@ -739,6 +743,7 @@
 	Set sBonType=WSOrd.BonType
 	Set D2=$G(D2,"`")
 	Set $P(arPrices(0),D2,2)=WSOrd.TotAantal
+	Set OrderBevatActies=(WSOrd.BevatActies())
 	Quit
 cldBuildRef2Main()
 	Quit:($G(%session.Data("REFMN"))="") ""