Index: APPS/PM/Maatwerk/impl/TBX/WebOrderNaarGADataConverter.cls.xml
===================================================================
diff -u -r51483 -r51490
--- APPS/PM/Maatwerk/impl/TBX/WebOrderNaarGADataConverter.cls.xml	(.../WebOrderNaarGADataConverter.cls.xml)	(revision 51483)
+++ APPS/PM/Maatwerk/impl/TBX/WebOrderNaarGADataConverter.cls.xml	(.../WebOrderNaarGADataConverter.cls.xml)	(revision 51490)
@@ -25,6 +25,14 @@
 	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("")
+	If $$$Not(WebOrderLijn.GAMeta = "TBX") {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("De WebOrderLijn bevat ongeldige data (GAMeta = "_WebOrderLijn.GAMeta_").")
+	}
+	If (WebOrderLijn.ItemDS = "") {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("De WebOrderLijn bevat ongeldige data (ItemDS is leeg).")
+	}
 ]]></Implementation>
 </Method>
 
@@ -33,12 +41,58 @@
 <Private>1</Private>
 <ReturnType>Prod.GAData.Product</ReturnType>
 <Implementation><![CDATA[
-	// Hier ga ik wa routines oproepen :-P
-	#dim GADataProduct As Prod.GAData.Product = ##class(Prod.GAData.Product).%New()   ; Tijdelijk gewoon via .%New() 
+	Set blTandemBox = ##class(BL.PR.GA.TandemBox).%New()
+	Do blTandemBox.Initialize($LG(WebOrder.DCsFromLijnen(),1))
+	
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = WebOrder.Lijnen.GetNext("")
+	
+	#dim GADataTemplate As Prod.GAData.Template = ..GeefGADataTemplate(blTandemBox, WebOrder)
+	
+	Set blTandemBox.Qty=WebOrderLijn.Qty
+	Do blTandemBox.ResetTB()
+	
+	#dim GADataProduct As Prod.GAData.Product = ##class(Prod.GAData.Product).BuildFromTemplate(GADataTemplate.%Id())
+	
+	Set blTandemBox = ""   ; Close 
 
 	Quit GADataProduct
 ]]></Implementation>
 </Method>
+
+<Method name="GeefGADataTemplate">
+<FormalSpec>blTandemBox:BL.PR.GA.TandemBox,WebOrder:WS.TBX.Order</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)
+	
+	If $$$HasLength(TemplateErrorMessage) {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Kon GADataTemplate niet ophalen : "_TemplateErrorMessage)
+	}
+	If $$$Not($IsObject(GADataTemplate)) {
+		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Kon GADataTemplate niet ophalen : Template is geen Object.")
+	}
+	
+	Quit GADataTemplate
+]]></Implementation>
+</Method>
+
+<Method name="GeefGADataTemplateViaLadeKL">
+<FormalSpec><![CDATA[blTandemBox:BL.PR.GA.TandemBox,WebOrder:WS.TBX.Order,&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. 
+	Quit $G(Templ)
+]]></Implementation>
+</Method>
 </Class>