Index: APPS/Halux/PPS/Verpakking/TAXFlatpackV1Controle/impl/DummyDataBepaler.cls.xml
===================================================================
diff -u -r35700 -r35701
--- APPS/Halux/PPS/Verpakking/TAXFlatpackV1Controle/impl/DummyDataBepaler.cls.xml	(.../DummyDataBepaler.cls.xml)	(revision 35700)
+++ APPS/Halux/PPS/Verpakking/TAXFlatpackV1Controle/impl/DummyDataBepaler.cls.xml	(.../DummyDataBepaler.cls.xml)	(revision 35701)
@@ -46,6 +46,18 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefForceerRedenen">
+<ReturnType>%ListOfDataTypes</ReturnType>
+<Implementation><![CDATA[
+	#dim ForceerRedenen As %ListOfDataTypes = ##class(%ListOfDataTypes).%New()
+	
+	Do ForceerRedenen.Insert(..GeefForceerRedenString(1))
+	Do ForceerRedenen.Insert(..GeefForceerRedenString(2))
+	
+	Quit ForceerRedenen
+]]></Implementation>
+</Method>
+
 <Method name="GeefOnderdeel">
 <FormalSpec>Omschrijving:TECH.String,Code:TECH.String,Aantal:TECH.Integer,Gewicht:TECH.Integer,Tolerantie:TECH.Integer,Locatie:TECH.String,Weging:TECH.String,Kleuren:TECH.String</FormalSpec>
 <Private>1</Private>
@@ -65,6 +77,20 @@
 	Quit Onderdeel
 ]]></Implementation>
 </Method>
+
+<Method name="GeefForceerRedenString">
+<FormalSpec>VolgNummer:%Integer</FormalSpec>
+<ReturnType>TECH.String</ReturnType>
+<Implementation><![CDATA[
+	#dim ForceerReden As TECH.String = ""
+	
+	Set ForceerReden = ForceerReden _ "Reden " _ VolgNummer _ ".1" _ $$$CRLF
+	Set ForceerReden = ForceerReden _ "Reden " _ VolgNummer _ ".2" _ $$$CRLF
+	Set ForceerReden = ForceerReden _ "Reden " _ VolgNummer _ ".3"
+	
+	Quit ForceerReden
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: APPS/Halux/PPS/Verpakking/TAXFlatpackV1Controle/impl/ControleService.cls.xml
===================================================================
diff -u -r35700 -r35701
--- APPS/Halux/PPS/Verpakking/TAXFlatpackV1Controle/impl/ControleService.cls.xml	(.../ControleService.cls.xml)	(revision 35700)
+++ APPS/Halux/PPS/Verpakking/TAXFlatpackV1Controle/impl/ControleService.cls.xml	(.../ControleService.cls.xml)	(revision 35701)
@@ -22,7 +22,12 @@
 
 <Method name="GeefMetaData">
 <ReturnType>WS.Halux.PPS.Verpakking.TAXFlatpackV1Controle.MetaData</ReturnType>
-<Implementation><![CDATA[	Quit ""
+<Implementation><![CDATA[
+	#dim MetaData As WS.Halux.PPS.Verpakking.TAXFlatpackV1Controle.MetaData = ##class(WS.Halux.PPS.Verpakking.TAXFlatpackV1Controle.MetaData).%New()
+	
+	Set MetaData.ForceerRedenen = ..DummyDataBepaler.GeefForceerRedenen()
+	
+	Quit MetaData
 ]]></Implementation>
 </Method>