Index: APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml
===================================================================
diff -u -r39696 -r39710
--- APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml	(.../LegacyNaarEdi.cls.xml)	(revision 39696)
+++ APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml	(.../LegacyNaarEdi.cls.xml)	(revision 39710)
@@ -60,6 +60,7 @@
 	Do ..ConvertVerlaagdeRug(Product,TBXProduct)
 	Do ..ConvertUitsparingen(Product,TBXProduct)
 	Do ..ConvertNietMeeleveren(Product,TBXProduct)
+	Do ..ConvertVerpakkingZonderOnderdelen(Product,TBXProduct)
 	
 	Quit TBXProduct
 ]]></Implementation>
@@ -317,6 +318,26 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ConvertVerpakkingZonderOnderdelen">
+<FormalSpec><![CDATA[Product:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy,&TBXProduct:APPS.EDI.common.dto.v001.LadeTBX]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If ##class(TECH.StringUtils).Equals(Product.ItemVPK,"A","C","Y","Z"){
+		Do TBXProduct.NietMeeleveren.InsertOrdered("NMFB")
+		Do TBXProduct.NietMeeleveren.InsertOrdered("NMCP")
+		Do TBXProduct.NietMeeleveren.InsertOrdered("NMAK")
+		Do TBXProduct.NietMeeleveren.InsertOrdered("NMRL")
+		Do TBXProduct.NietMeeleveren.InsertOrdered("NMTOBSET")
+		Do TBXProduct.NietMeeleveren.InsertOrdered("NMTOBTOEB")
+		Do TBXProduct.NietMeeleveren.InsertOrdered("NMTOBSTG")
+		Do TBXProduct.NietMeeleveren.InsertOrdered("NMBDS")
+		Do TBXProduct.NietMeeleveren.InsertOrdered("NMOVL")
+		Do TBXProduct.NietMeeleveren.InsertOrdered("NMBS")
+		Do TBXProduct.NietMeeleveren.InsertOrdered("NMASM")		
+	}
+]]></Implementation>
+</Method>
+
 <Method name="ConvertNietMeeleveren">
 <FormalSpec><![CDATA[Product:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy,&TBXProduct:APPS.EDI.common.dto.v001.LadeTBX]]></FormalSpec>
 <Private>1</Private>
Index: vhUnitTest/APPS/EDI/common/impl/LegacyConverter/ConverteerLegacyNaarEdi/Test.cls.xml
===================================================================
diff -u -r39696 -r39710
--- vhUnitTest/APPS/EDI/common/impl/LegacyConverter/ConverteerLegacyNaarEdi/Test.cls.xml	(.../Test.cls.xml)	(revision 39696)
+++ vhUnitTest/APPS/EDI/common/impl/LegacyConverter/ConverteerLegacyNaarEdi/Test.cls.xml	(.../Test.cls.xml)	(revision 39710)
@@ -534,6 +534,21 @@
 	Do $$$AssertEquals(GeconverteerdProduct.UitsparingDataBreedteY,140)
 ]]></Implementation>
 </Method>
+
+<Method name="Test: Verpakking zonder onderdelen zet alle niet-meeleverens op true">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy = ##class(vhTest.Utils.APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy).StandaardLade()
+	Set TeConverterenProduct.ItemVPK = "C"
+	
+	Set ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New()
+	#dim GeconverteerdProduct As APPS.EDI.common.dto.v001.LadeTBX = ProductConverter.ConverteerLegacyNaarEdi(TeConverterenProduct)
+	
+	If $$$AssertEquals(GeconverteerdProduct.NietMeeleveren.Count(),"11") {
+		Do $$$AssertEquals(GeconverteerdProduct.NietMeeleveren.GetAt(1),"NMAK")
+		Do $$$AssertEquals(GeconverteerdProduct.NietMeeleveren.GetAt(11),"NMTOBTOEB")
+	}
+]]></Implementation>
+</Method>
 </Class>