Index: AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml
===================================================================
diff -u -r44844 -r44848
--- AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml	(.../VrijgegProductDixfConverter.cls.xml)	(revision 44844)
+++ AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter.cls.xml	(.../VrijgegProductDixfConverter.cls.xml)	(revision 44848)
@@ -826,15 +826,15 @@
 </Method>
 
 <Method name="BepaalIntraUnit">
-<Description>
-Wordt wellicht aangepakt in sprint 11</Description>
 <FormalSpec>Product:AX.Uitgaand.PM.Product.impl.Product</FormalSpec>
 <Private>1</Private>
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
-	#dim IntraUnit As %String
+	#dim IntraUnit As %String = ""
 	
-	Set IntraUnit = ""
+	If (..Intracode = "84659500"){
+		Set IntraUnit = "1"
+	}
 	
 	Quit IntraUnit
 ]]></Implementation>
Index: vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml
===================================================================
diff -u -r44433 -r44848
--- vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 44433)
+++ vhUnitTest/AX/Uitgaand/PM/VrijgegProduct/impl/VrijgegProductDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 44848)
@@ -31,6 +31,7 @@
 <Method name="OnBeforeAllTests">
 <Implementation><![CDATA[
  	Do ##super()
+ 	Do ##class(vhTest.Utils.DOM.PM.Product).VerwijderProduct(..#ProductId)
  	Do ##class(vhTest.Utils.DOM.PM.Product).CreeerProduct(..#ProductId)
 ]]></Implementation>
 </Method>
@@ -1262,16 +1263,23 @@
 ]]></Implementation>
 </Method>
 
-<UDLText name="T">
-<Content><![CDATA[
-/*
-/// Wordt wellicht aangepakt in sprint 11
-Method "Test: IntraUnit nog uit te werken"()
-{
-}
-*/
-]]></Content>
-</UDLText>
+<Method name="Test: IntraUnit is 1 als Intracode 84659500 is">
+<Implementation><![CDATA[
+	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
+	do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(6332)
+	
+	#dim Firma As AXimpl.InterneFirmaInitialen = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv()
+	
+	#dim AxProduct As AX.Uitgaand.PM.Product.impl.Product = ..GeefTeConverterProduct()
+	Set AxProduct.Basis.IntrastatID = "09"
+	
+	#dim Converter As AX.Uitgaand.PM.VrijgegProduct.impl.VrijgegProductDixfConverter = ..GeefConverter()
+	
+	#dim ConvertedProduct As %String = Converter.Convert(AxProduct,Firma)
+	
+	Do $$$AssertEquals(ConvertedProduct.IntraUnit,"1")
+]]></Implementation>
+</Method>
 
 <Method name="GeefTeConverterProduct">
 <Private>1</Private>