Index: APPS/EDI/common/impl/LegacyConverter/EdiNaarLegacy.cls.xml
===================================================================
diff -u -r39210 -r39215
--- APPS/EDI/common/impl/LegacyConverter/EdiNaarLegacy.cls.xml	(.../EdiNaarLegacy.cls.xml)	(revision 39210)
+++ APPS/EDI/common/impl/LegacyConverter/EdiNaarLegacy.cls.xml	(.../EdiNaarLegacy.cls.xml)	(revision 39215)
@@ -47,6 +47,7 @@
 	Do ..ConvertFrontBevestiging(Product,TBXProduct)
 	Do ..ConvertUitsparingen(Product,TBXProduct)
 	Do ..ConvertVerlaagdeRug(Product,TBXProduct)
+	Do ..ConvertNietMeeleveren(Product,TBXProduct)
 	
 	Quit TBXProduct
 ]]></Implementation>
@@ -240,6 +241,27 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ConvertNietMeeleveren">
+<FormalSpec><![CDATA[Product:APPS.EDI.common.dto.v001.LadeTBX,&TBXProduct:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim NietMeeleveren As %String = ""
+	
+	Set:Product.NietMeeleveren.Find("NMAK") NietMeeleveren=NietMeeleveren_"NMAK;"
+	Set:Product.NietMeeleveren.Find("NMBS") NietMeeleveren=NietMeeleveren_"NMBS;"
+	Set:Product.NietMeeleveren.Find("NMBDS") NietMeeleveren=NietMeeleveren_"NMBDS;"
+	Set:Product.NietMeeleveren.Find("NMCP") NietMeeleveren=NietMeeleveren_"NMCP;"
+	Set:Product.NietMeeleveren.Find("NMFB") NietMeeleveren=NietMeeleveren_"NMFB;"
+	Set:Product.NietMeeleveren.Find("NMOVL") NietMeeleveren=NietMeeleveren_"NMOVL;"
+	Set:Product.NietMeeleveren.Find("NMRL") NietMeeleveren=NietMeeleveren_"NMRL;"
+	Set:Product.NietMeeleveren.Find("NMTOBSET") NietMeeleveren=NietMeeleveren_"NMTOBSET;"
+	Set:Product.NietMeeleveren.Find("NMTOBSTG") NietMeeleveren=NietMeeleveren_"NMTOBSTG;"
+	Set:Product.NietMeeleveren.Find("NMTOBTOEB") NietMeeleveren=NietMeeleveren_"NMTOBTOEB;"
+	
+	Set TBXProduct.NietMeeleveren = ##class(TECH.StringUtils).RightTrim(NietMeeleveren,";")
+]]></Implementation>
+</Method>
+
 <Method name="GeefConvertDataTBX">
 <Private>1</Private>
 <ReturnType>TECH.ObjectUtils.ObjectConvertData</ReturnType>