Index: APPS/PM/Maatwerk/impl/TBX/WebOrderNaarGADataConverter.cls.xml
===================================================================
diff -u -r51480 -r51483
--- APPS/PM/Maatwerk/impl/TBX/WebOrderNaarGADataConverter.cls.xml	(.../WebOrderNaarGADataConverter.cls.xml)	(revision 51480)
+++ APPS/PM/Maatwerk/impl/TBX/WebOrderNaarGADataConverter.cls.xml	(.../WebOrderNaarGADataConverter.cls.xml)	(revision 51483)
@@ -1,6 +1,7 @@
 <?xml version="1.0" encoding="UTF-8"?>
 <Export generator="Cache" version="24">
 <Class name="APPS.PM.Maatwerk.impl.TBX.WebOrderNaarGADataConverter">
+<IncludeCode>APPS.TBXWeb.DomeinNamen</IncludeCode>
 <Super>TECH.RegisteredObject</Super>
 
 <Method name="Convert">
@@ -20,14 +21,22 @@
 	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.")
+	}
 ]]></Implementation>
 </Method>
 
 <Method name="GeefGADataProduct">
 <FormalSpec>WebOrder:WS.TBX.Order</FormalSpec>
 <Private>1</Private>
 <ReturnType>Prod.GAData.Product</ReturnType>
-<Implementation><![CDATA[	// Hier ga ik wa routines oproepen :-P
+<Implementation><![CDATA[
+	// Hier ga ik wa routines oproepen :-P
+	#dim GADataProduct As Prod.GAData.Product = ##class(Prod.GAData.Product).%New()   ; Tijdelijk gewoon via .%New() 
+
+	Quit GADataProduct
 ]]></Implementation>
 </Method>
 </Class>
Index: vhUnitTest/APPS/PM/Maatwerk/impl/TBX/WebOrderNaarGADataConverter/Convert/Test.cls.xml
===================================================================
diff -u -r51482 -r51483
--- vhUnitTest/APPS/PM/Maatwerk/impl/TBX/WebOrderNaarGADataConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 51482)
+++ vhUnitTest/APPS/PM/Maatwerk/impl/TBX/WebOrderNaarGADataConverter/Convert/Test.cls.xml	(.../Test.cls.xml)	(revision 51483)
@@ -26,6 +26,37 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test WebOrder met foutief domein geeft error">
+<Implementation><![CDATA[
+	#dim Substrings as %ListOfDataTypes = ##class(TECH.ListUtils).CreateListOfDataTypes("Het WebDomein 'UT_FoutiefDomein' van de order is niet geldig voor de GAData-converter")
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New(##class(TECH.Exceptions.InvalidInputException).%ClassName($$$True),Substrings))
+	
+	#dim WebOrderMetFoutiefDomein As WS.TBX.Order = ..MaakWebOrderMetFoutiefDomein()
+	Set Converter = ##class(APPS.PM.Maatwerk.impl.TBX.WebOrderNaarGADataConverter).%New()
+	Do Converter.Convert(WebOrderMetFoutiefDomein)
+]]></Implementation>
+</Method>
+
+<Method name="Test WebOrder geeft GADataProduct">
+<Implementation><![CDATA[
+	#dim WebOrder As WS.TBX.Order = ..MaakTestOrder()
+	Set Converter = ##class(APPS.PM.Maatwerk.impl.TBX.WebOrderNaarGADataConverter).%New()
+	#dim GADataProduct As Prod.GAData.Product = Converter.Convert(WebOrder)
+	
+	Do ..AssertGADataProduct(GADataProduct)
+]]></Implementation>
+</Method>
+
+<Method name="AssertGADataProduct">
+<FormalSpec>GADataProduct:Prod.GAData.Product</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If $$$AssertTrue($IsObject(GADataProduct)) {
+		; Controles
+	}
+]]></Implementation>
+</Method>
+
 <Method name="MaakLeegWebOrder">
 <Private>1</Private>
 <ReturnType>WS.TBX.Order</ReturnType>
@@ -42,7 +73,67 @@
 	Set WebOrder = ##class(WS.TBX.Order).%New()
 	Do WebOrder.Lijnen.SetAt(##class(WS.TBX.EM.OrderLijn).%New() , "1")
 	Do WebOrder.Lijnen.SetAt(##class(WS.TBX.EM.OrderLijn).%New() , "2")
+	Quit WebOrder
+]]></Implementation>
+</Method>
+
+<Method name="MaakWebOrderMetFoutiefDomein">
+<Private>1</Private>
+<ReturnType>WS.TBX.Order</ReturnType>
+<Implementation><![CDATA[
+	Set WebOrder = ##class(WS.TBX.Order).%New()
+    Set WebOrder.WebDomain = "UT_FoutiefDomein"
+	Do WebOrder.Lijnen.SetAt(##class(WS.TBX.EM.OrderLijn).%New() , "2")
+	Quit WebOrder
+]]></Implementation>
+</Method>
+
+<Method name="MaakTestOrder">
+<Private>1</Private>
+<ReturnType>WS.TBX.Order</ReturnType>
+<Implementation><![CDATA[
+	#dim AantalStuks As %Integer = 1
 	
+	Set WebOrder = ##class(WS.TBX.Order).%New()	
+    Set WebOrder.WebDomain = $$$TBoxWebDomeinVHEPN
+    Set WebOrder.KLNummer = 1000
+    Set WebOrder.Taal= "N"
+    
+    Set WebOrderLijn = ##class(WS.TBX.EM.OrderLijn).%New()
+    Set WebOrderLijn.Exclude=0
+	Set WebOrderLijn.ItemSTDL=""
+	Set WebOrderLijn.Qty = AantalStuks
+	Set WebOrderLijn.GAMeta="TBX"
+	Set WebOrderLijn.ItemDC="S"
+	Set WebOrderLijn.ItemDS="GS"
+	Set WebOrderLijn.ItemKL="MG"
+	Set WebOrderLijn.ItemKB="LG"   ; TBBodemKleur
+	Set WebOrderLijn.ItemRK="MG"   ; TBRelingKleur
+	Set WebOrderLijn.ItemKX="MG"   ; Kleur Boxside
+	Set WebOrderLijn.ItemKV="FG"   ; TBVulstukKleur
+
+	Set WebOrderLijn.ItemLT="M"    ; LadeCode
+ 	Set WebOrderLijn.ItemBX="ZR"   ; Verhoogde zijwand (=Reling/Boxside)
+	Set WebOrderLijn.ItemFB="S"    ; FrontBevestiging : "Z" voor binnenlades
+	Set WebOrderLijn.ItemCB=900
+	Set WebOrderLijn.ItemWD=16     ; of "B" voor Binnenmaat 
+	Set WebOrderLijn.ItemOPVL=""   ; of "LR" voor opvullijst li+re
+	Set WebOrderLijn.ItemLD=500	   ; TBLadeDiepte
+	Set WebOrderLijn.ItemDK=30	   ; TBDraagKracht
+	Set WebOrderLijn.ItemBM="I"    ; TBBlumotion
+	Set WebOrderLijn.ItemVPK="S"   ; Verpakking
+ 
+	Set WebOrderLijn.ItemSB=0      ; TBStabilisator
+	Set WebOrderLijn.ItemSPZK=""   ; voor sifon- en spoelbaklades een ";"-delimited string
+	Set WebOrderLijn.ItemBGRP="X"  ; TBBinnenGreep
+	Set WebOrderLijn.ItemFS=""     ; TBFrontSteun
+	Set WebOrderLijn.ItemASM=""    ; TBMAt
+	Set WebOrderLijn.ItemDWV=0     ; TBDwarsVerdeling
+	
+	Set WebOrderLijn.LijnNr=1      ; increment
+	
+	Do WebOrder.Lijnen.SetAt(WebOrderLijn,WebOrderLijn.LijnNr)
+	
 	Quit WebOrder
 ]]></Implementation>
 </Method>