Index: AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter.cls.xml
===================================================================
diff -u -r45051 -r45052
--- AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter.cls.xml	(.../ExtArtOmschrLevDixfConverter.cls.xml)	(revision 45051)
+++ AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter.cls.xml	(.../ExtArtOmschrLevDixfConverter.cls.xml)	(revision 45052)
@@ -137,9 +137,10 @@
 <Implementation><![CDATA[
 	#dim ModuleType As %String = "03"
 	#dim LeverancierNummer As %String = Product.Basis.LeverancierNummer
+	#dim PRNr As %String = Product.Basis.ProductNr
 	
 	If Vestiging = ##class(AXimpl.InterneFirmaInitialen).VanHoeckeNv() {
-		If (LeverancierNummer = "5005") {
+		If ((LeverancierNummer = "5005") && (..SoprConverter.IsSOPRInCache(PRNr))) {
 			Set ModuleType = "05"
 	}}
 	
Index: vhUnitTest/AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter/Test.cls.xml
===================================================================
diff -u -r45051 -r45052
--- vhUnitTest/AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 45051)
+++ vhUnitTest/AX/Uitgaand/PM/ExtArtOmschrLev/impl/ExtArtOmschrLevDixfConverter/Test.cls.xml	(.../Test.cls.xml)	(revision 45052)
@@ -314,7 +314,7 @@
 ]]></Implementation>
 </Method>
 
-<Method name="Test: Voor Van Hoecke is ModuleType 05 als het LeverancierNummer 5005 is">
+<Method name="Test: Voor Van Hoecke is ModuleType 05 als het LeverancierNummer 5005 is en het een Sopr is">
 <Implementation><![CDATA[
 	#dim LegacyProductAPIStub As vhTest.Mock.DOM.PM.LegacyProductAPI = ##class(vhTest.Mock.DOM.PM.LegacyProductAPI).MockInstance()
 	Do LegacyProductAPIStub.IndienMethodCall("GeefLeverancierNummer",$$$ElkeWaarde).DanReturn(5005)
@@ -326,7 +326,11 @@
 	Set UtilsStub = ##class(vhTest.Mock.AXimpl.Utils).%New()
 	Do UtilsStub.IndienMethodCall("ConvertDefaultOrderType",Firma,AxProduct).DanReturn("DefaultOrderType")
 	
+	Set SoprConverterStub = ##class(vhTest.Mock.AX.Uitgaand.PM.impl.Convertor.Sopr.ProductConvertor).%New()
+	Do SoprConverterStub.IndienMethodCall("IsSOPRInCache",..#ProductId).DanReturn($$$True)
+	
 	Set ..Utils = UtilsStub
+	Set ..SoprConverter = SoprConverterStub
 	
 	#dim Converter As AX.Uitgaand.PM.ExtArtOmschrLev.impl.ExtArtOmschrLevDixfConverter = ..GeefConverter()