Index: APPS/PM/Maatwerk/impl/TBX/WebOrderNaarGADataConverter.cls.xml
===================================================================
diff -u -r51520 -r51529
--- APPS/PM/Maatwerk/impl/TBX/WebOrderNaarGADataConverter.cls.xml	(.../WebOrderNaarGADataConverter.cls.xml)	(revision 51520)
+++ APPS/PM/Maatwerk/impl/TBX/WebOrderNaarGADataConverter.cls.xml	(.../WebOrderNaarGADataConverter.cls.xml)	(revision 51529)
@@ -4,30 +4,36 @@
 <IncludeCode>APPS.TBXWeb.DomeinNamen</IncludeCode>
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="blTandemBox">
+<Type>BL.PR.GA.TandemBox</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="Convert">
 <FormalSpec>WebOrder:WS.TBX.Order</FormalSpec>
 <ReturnType>Prod.GAData.Product</ReturnType>
 <Implementation><![CDATA[
-	Do ..ValideerWebOrder(WebOrder)
-	#dim GADataProduct As Prod.GAData.Product = ..GeefGADataProduct(WebOrder)
+	Set ..WebOrder = WebOrder
+	
+	Do ..ValideerWebOrder()
+	#dim GADataProduct As Prod.GAData.Product = ..GeefGADataProduct()
 	Do ..BerekenGADataProduct(GADataProduct)
 	Quit GADataProduct
 ]]></Implementation>
 </Method>
 
 <Method name="ValideerWebOrder">
-<FormalSpec>WebOrder:WS.TBX.Order</FormalSpec>
 <Private>1</Private>
 <Implementation><![CDATA[
-	If $$$Not(WebOrder.Lijnen.Count() = 1) {
-		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Dit WebOrder bevat geen geldige data (Aantal Lijnen = "_WebOrder.Lijnen.Count()_").")
+	If $$$Not(..WebOrder.Lijnen.Count() = 1) {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Dit WebOrder bevat geen geldige data (Aantal Lijnen = "_..WebOrder.Lijnen.Count()_").")
 	}
 
-	If $$$Not(WebOrder.WebDomain = $$$TBoxWebDomeinVHEPN) {
-		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Het WebDomein '"_WebOrder.WebDomain_"' van de order is niet geldig voor de GAData-converter.")
+	If $$$Not(..WebOrder.WebDomain = $$$TBoxWebDomeinVHEPN) {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Het WebDomein '"_..WebOrder.WebDomain_"' van de order is niet geldig voor de GAData-converter.")
 	}
 	
-	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = WebOrder.Lijnen.GetNext("")
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ..WebOrder.Lijnen.GetNext("")
 	If $$$Not(WebOrderLijn.GAMeta = "TBX") {
 		Do ##class(TECH.Exceptions.InvalidInputException).Throw("De WebOrderLijn bevat ongeldige data (GAMeta = "_WebOrderLijn.GAMeta_").")
 	}
@@ -38,28 +44,27 @@
 </Method>
 
 <Method name="GeefGADataProduct">
-<FormalSpec>WebOrder:WS.TBX.Order</FormalSpec>
 <Private>1</Private>
 <ReturnType>Prod.GAData.Product</ReturnType>
 <Implementation><![CDATA[
 	Set blTandemBox = ##class(BL.PR.GA.TandemBox).%New()
-	Do blTandemBox.Initialize($LG(WebOrder.DCsFromLijnen(),1))
+	Do blTandemBox.Initialize($LG(..WebOrder.DCsFromLijnen(),1))
 	
-	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = WebOrder.Lijnen.GetNext("")
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ..WebOrder.Lijnen.GetNext("")
 	
-	#dim GADataTemplate As Prod.GAData.Template = ..GeefGADataTemplate(blTandemBox, WebOrder)
+	#dim GADataTemplate As Prod.GAData.Template = ..GeefGADataTemplate(blTandemBox)
 	
 	Set blTandemBox.Qty=WebOrderLijn.Qty
 	Do blTandemBox.ResetTB()
-	Do ..VulBTItemsFromWSLijn(WebOrderLijn, blTandemBox, WebOrder)
+	Do ..VulBTItemsFromWSLijn(WebOrderLijn, blTandemBox)
 	
 	#dim GADataProduct As Prod.GAData.Product = ##class(Prod.GAData.Product).BuildFromTemplate(GADataTemplate.%Id())
 	Do GADataProduct.TemplateTmpInit()
 	Do GADataProduct.AutosFromTemplate(,"FILL")
-	Do GADataProduct.KlantSetObjectId(WebOrder.KLNummer)
+	Do GADataProduct.KlantSetObjectId(..WebOrder.KLNummer)
 	Do blTandemBox.BTValues.SetAt(GADataProduct.TemplateCode,"TemplateCode")
 	
-	Do ..VulInBTItemsNietMeeleveren(blTandemBox, WebOrder)
+	Do ..VulInBTItemsNietMeeleveren(blTandemBox)
 	
 	Do blTandemBox.BTValuesToProduct(GADataProduct)
 	Do blTandemBox.BWValuesToProduct(GADataProduct)
@@ -87,14 +92,14 @@
 </Method>
 
 <Method name="GeefGADataTemplate">
-<FormalSpec>blTandemBox:BL.PR.GA.TandemBox,WebOrder:WS.TBX.Order</FormalSpec>
+<FormalSpec>blTandemBox:BL.PR.GA.TandemBox</FormalSpec>
 <Private>1</Private>
 <ReturnType>Prod.GAData.Template</ReturnType>
 <Implementation><![CDATA[
 	#dim GADataTemplate As Prod.GAData.Template
 	#dim TemplateErrorMessage As %String = ""
 	
-	Set GADataTemplate = ..GeefGADataTemplateViaLadeKL(blTandemBox, WebOrder, .TemplateErrorMessage)
+	Set GADataTemplate = ..GeefGADataTemplateViaLadeKL(blTandemBox, .TemplateErrorMessage)
 	
 	If $$$HasLength(TemplateErrorMessage) {
 		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Kon GADataTemplate niet ophalen : "_TemplateErrorMessage)
@@ -108,37 +113,37 @@
 </Method>
 
 <Method name="GeefGADataTemplateViaLadeKL">
-<FormalSpec><![CDATA[blTandemBox:BL.PR.GA.TandemBox,WebOrder:WS.TBX.Order,&TemplateErrorMessage:%String]]></FormalSpec>
+<FormalSpec><![CDATA[blTandemBox:BL.PR.GA.TandemBox,&TemplateErrorMessage:%String]]></FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>0</ProcedureBlock>
 <ReturnType>%RegisteredObject</ReturnType>
 <Implementation><![CDATA[
 	New Templ
 	New sDbg  Set sDbg=""
 	
-	Set TemplateErrorMessage = $$bfwTemplateViaLadeKL^BL.PR.GA.TB.tmpDev2(blTandemBox, WebOrder, "")   ; Opvragen van blTandemBox.GetKlantBeperkDesign() is niet meer nodig. 
+	Set TemplateErrorMessage = $$bfwTemplateViaLadeKL^BL.PR.GA.TB.tmpDev2(blTandemBox, ..WebOrder, "")   ; Opvragen van blTandemBox.GetKlantBeperkDesign() is niet meer nodig. 
 	Quit $G(Templ)
 ]]></Implementation>
 </Method>
 
 <Method name="VulBTItemsFromWSLijn">
-<FormalSpec>WebOrderLijn:WS.TBX.EM.OrderLijn,blTandemBox:BL.PR.GA.TandemBox,WebOrder:WS.TBX.Order</FormalSpec>
+<FormalSpec>WebOrderLijn:WS.TBX.EM.OrderLijn,blTandemBox:BL.PR.GA.TandemBox</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
 	New sDomVERW  Set sDomVERW = "VHEPN"
-	New KLNrProd  Set KLNrProd = WebOrder.KLNummer
+	New KLNrProd  Set KLNrProd = ..WebOrder.KLNummer
 	
 	Do bfwBTItemsFromWSLijn^BL.PR.GA.TB.tmpDev2(WebOrderLijn, blTandemBox)
 ]]></Implementation>
 </Method>
 
 <Method name="VulInBTItemsNietMeeleveren">
-<FormalSpec>blTandemBox:BL.PR.GA.TandemBox,WebOrder:WS.TBX.Order</FormalSpec>
+<FormalSpec>blTandemBox:BL.PR.GA.TandemBox</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>0</ProcedureBlock>
 <Implementation><![CDATA[
-	Do bfwSetNietMeeItems^BL.PR.GA.TB.tmpDev2(blTandemBox,WebOrder.NietMeeleveren)
+	Do bfwSetNietMeeItems^BL.PR.GA.TB.tmpDev2(blTandemBox,..WebOrder.NietMeeleveren)
 	Do bfwFBevestNML^BL.PR.GA.TB.tmpDev2(blTandemBox)
 	Do bfwResetNMItemsBinnenlade^BL.PR.GA.TB.tmpDev2(blTandemBox)
 ]]></Implementation>