Index: APPS/PM/Maatwerk/impl/TBX/WebOrderNaarGADataConverter.cls.xml
===================================================================
diff -u -r51531 -r51533
--- APPS/PM/Maatwerk/impl/TBX/WebOrderNaarGADataConverter.cls.xml	(.../WebOrderNaarGADataConverter.cls.xml)	(revision 51531)
+++ APPS/PM/Maatwerk/impl/TBX/WebOrderNaarGADataConverter.cls.xml	(.../WebOrderNaarGADataConverter.cls.xml)	(revision 51533)
@@ -28,6 +28,7 @@
 	Do ..ValideerWebOrder()
 	Do ..MaakGADataProduct()
 	Do ..BerekenGADataProduct()
+	
 	Quit ..GADataProduct
 ]]></Implementation>
 </Method>
@@ -43,7 +44,7 @@
 		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 = ..GeefWebOrderLijn()
 	If $$$Not(WebOrderLijn.GAMeta = "TBX") {
 		Do ##class(TECH.Exceptions.InvalidInputException).Throw("De WebOrderLijn bevat ongeldige data (GAMeta = "_WebOrderLijn.GAMeta_").")
 	}
@@ -55,12 +56,11 @@
 
 <Method name="MaakGADataProduct">
 <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))
 	
-	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ..WebOrder.Lijnen.GetNext("")
+	#dim WebOrderLijn As WS.TBX.EM.OrderLijn = ..GeefWebOrderLijn()
 	
 	#dim GADataTemplate As Prod.GAData.Template = ..GeefGADataTemplate()
 	
@@ -80,7 +80,7 @@
 	Do ..blTandemBox.BWValuesToProduct(..GADataProduct)
 	Do ..blTandemBox.KMValuesToProduct(..GADataProduct,"TBR")
 	
-	Set ..blTandemBox = ""   ; Bewuste unswizzle van het blTandembox-object forceren. 
+	Set ..blTandemBox = ""   ; Bewuste unswizzle van het blTandembox-object forceren.
 ]]></Implementation>
 </Method>
 
@@ -98,6 +98,13 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefWebOrderLijn">
+<Private>1</Private>
+<ReturnType>WS.TBX.EM.OrderLijn</ReturnType>
+<Implementation><![CDATA[	Quit ..WebOrder.Lijnen.GetNext("")
+]]></Implementation>
+</Method>
+
 <Method name="GeefGADataTemplate">
 <Private>1</Private>
 <ReturnType>Prod.GAData.Template</ReturnType>