Index: vhUnitTest/AX/Uitgaand/PM/Product/impl/ProductDixfConverter/Test.cls.xml
===================================================================
diff -u -r44896 -r44897
--- vhUnitTest/AX/Uitgaand/PM/Product/impl/ProductDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 44896)
+++ vhUnitTest/AX/Uitgaand/PM/Product/impl/ProductDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 44897)
@@ -52,6 +52,124 @@
 ]]></Implementation>
 </Method>
 
+<Method name="Test: ADUCertClaimLevel is 0 als FSCHout leeg is">
+<Implementation><![CDATA[
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.FSCHout = ""
+	
+	#dim Converter As AX.Uitgaand.PM.Product.impl.ProductDixfConverter = ..GeefConverter()
+	
+	#dim ConvertedProduct As %String = Converter.Convert(AxProduct)
+	
+	Do $$$AssertEquals(ConvertedProduct.ADUCertClaimLevel,"0")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ADUCertClaimLevel is 10 als FSCHout GEEN is">
+<Implementation><![CDATA[
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.FSCHout = "GEEN"
+	
+	#dim Converter As AX.Uitgaand.PM.Product.impl.ProductDixfConverter = ..GeefConverter()
+	
+	#dim ConvertedProduct As %String = Converter.Convert(AxProduct)
+	
+	Do $$$AssertEquals(ConvertedProduct.ADUCertClaimLevel,"10")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ADUCertClaimLevel is 30 als FSCHout 5050 is">
+<Implementation><![CDATA[
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.FSCHout = "5050"
+	
+	#dim Converter As AX.Uitgaand.PM.Product.impl.ProductDixfConverter = ..GeefConverter()
+	
+	#dim ConvertedProduct As %String = Converter.Convert(AxProduct)
+	
+	Do $$$AssertEquals(ConvertedProduct.ADUCertClaimLevel,"30")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ADUCertClaimLevel is 40 als FSCHout 8030 is">
+<Implementation><![CDATA[
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.FSCHout = "8030"
+	
+	#dim Converter As AX.Uitgaand.PM.Product.impl.ProductDixfConverter = ..GeefConverter()
+	
+	#dim ConvertedProduct As %String = Converter.Convert(AxProduct)
+	
+	Do $$$AssertEquals(ConvertedProduct.ADUCertClaimLevel,"40")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ADUCertClaimLevel is 50 als FSCHout CW is">
+<Implementation><![CDATA[
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.FSCHout = "CW"
+	
+	#dim Converter As AX.Uitgaand.PM.Product.impl.ProductDixfConverter = ..GeefConverter()
+	
+	#dim ConvertedProduct As %String = Converter.Convert(AxProduct)
+	
+	Do $$$AssertEquals(ConvertedProduct.ADUCertClaimLevel,"50")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ADUCertClaimLevel is 60 als FSCHout 7030 is">
+<Implementation><![CDATA[
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.FSCHout = "7030"
+	
+	#dim Converter As AX.Uitgaand.PM.Product.impl.ProductDixfConverter = ..GeefConverter()
+	
+	#dim ConvertedProduct As %String = Converter.Convert(AxProduct)
+	
+	Do $$$AssertEquals(ConvertedProduct.ADUCertClaimLevel,"60")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ADUCertClaimLevel is 80 als FSCHout RCLD is">
+<Implementation><![CDATA[
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.FSCHout = "RCLD"
+	
+	#dim Converter As AX.Uitgaand.PM.Product.impl.ProductDixfConverter = ..GeefConverter()
+	
+	#dim ConvertedProduct As %String = Converter.Convert(AxProduct)
+	
+	Do $$$AssertEquals(ConvertedProduct.ADUCertClaimLevel,"80")
+]]></Implementation>
+</Method>
+
+<Method name="Test: ADUCertClaimLevel is 90 als FSCHout MC is">
+<Implementation><![CDATA[
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.FSCHout = "MC"
+	
+	#dim Converter As AX.Uitgaand.PM.Product.impl.ProductDixfConverter = ..GeefConverter()
+	
+	#dim ConvertedProduct As %String = Converter.Convert(AxProduct)
+	
+	Do $$$AssertEquals(ConvertedProduct.ADUCertClaimLevel,"90")
+]]></Implementation>
+</Method>
+
+<Method name="Test: Als ADUCertClaimLevel door voorgaande niet geset is dan moet een exceptie geraisd worden">
+<Implementation><![CDATA[
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterenProduct()
+	Set AxProduct.Basis.FSCHout = "Z"
+	
+	#dim Converter As AX.Uitgaand.PM.Product.impl.ProductDixfConverter = ..GeefConverter()
+	
+	#dim Substrings = ##class(TECH.ListUtils).CreateListOfDataTypes("ADUCertClaimLevel kan niet worden geset voor product "_AxProduct)
+	Do ..ZetVerwachteExceptie(##class(Tools.Test.VerwachteExceptie).%New("TECH.Exceptions.IllegalArgumentException",Substrings))
+	
+	#dim ConvertedProduct As %String = Converter.Convert(AxProduct)
+]]></Implementation>
+</Method>
+
 <Method name="GeefTeConverterenProduct">
 <Private>1</Private>
 <ReturnType>AX.Uitgaand.PM.Product.impl.Product</ReturnType>