Index: APPS/EDI/common/impl/LegacyConverter/EdiNaarLegacy.cls.xml
===================================================================
diff -u -r41443 -r42103
--- APPS/EDI/common/impl/LegacyConverter/EdiNaarLegacy.cls.xml	(.../EdiNaarLegacy.cls.xml)	(revision 41443)
+++ APPS/EDI/common/impl/LegacyConverter/EdiNaarLegacy.cls.xml	(.../EdiNaarLegacy.cls.xml)	(revision 42103)
@@ -48,6 +48,7 @@
 	Do ..ConvertUitsparingen(Product,TBXProduct)
 	Do ..ConvertVerlaagdeRug(Product,TBXProduct)
 	Do ..ConvertNietMeeleveren(Product,TBXProduct)
+	Do ..ConvertVerpakkingZonderOnderdelen(Product,TBXProduct)
 	Do ..ConverteerProductieWijze(Product,TBXProduct)
 	
 	Quit TBXProduct
@@ -314,6 +315,39 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ConvertVerpakkingZonderOnderdelen">
+<FormalSpec><![CDATA[Product:APPS.EDI.common.dto.v001.LadeTBX,&TBXProduct:APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Quit:($$$Not(##class(TECH.StringUtils).Equals(TBXProduct.ItemVPK, "B", "O", "X")))
+	
+	#dim IsVerpakkingZonderOnderdelen As %Boolean = ..BepaalVerpakkingZonderOnderdelen(##class(TECH.ListUtils).PiecesToList(TBXProduct.NietMeeleveren,";"))
+	If IsVerpakkingZonderOnderdelen  {
+		Set:(TBXProduct.ItemVPK = "B") TBXProduct.ItemVPK = "A"   ; VHoss zonder onderdelen
+		Set:(TBXProduct.ItemVPK = "O") TBXProduct.ItemVPK = "C"   ; Commissie zonder onderdelen
+	}
+]]></Implementation>
+</Method>
+
+<Method name="BepaalVerpakkingZonderOnderdelen">
+<FormalSpec>NietMeeleverenItems:%ListOfDataTypes</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim IsVerpakkingZonderOnderdelen As %Boolean = $$$True
+	
+	Set NietMeeleverenKenmerkIterator=##class(TECH.ListIterator).%New(##class(BL.PR.GA.TandemBox).GeefNietMeeleverenOnderdelenKenmerkNamen())
+	While (NietMeeleverenKenmerkIterator.HasNext()) && (IsVerpakkingZonderOnderdelen) {
+		#dim KenmerkNaam As %String = NietMeeleverenKenmerkIterator.Next()
+		Continue:(KenmerkNaam="NMSPDL")
+		If $$$Not(##class(TECH.ListUtils).Contains(NietMeeleverenItems, KenmerkNaam)) {
+			Set IsVerpakkingZonderOnderdelen = $$$False
+		}
+	}
+	
+	Quit IsVerpakkingZonderOnderdelen
+]]></Implementation>
+</Method>
+
 <Method name="GeefConvertDataTBX">
 <Private>1</Private>
 <ReturnType>TECH.ObjectUtils.ObjectConvertData</ReturnType>