Index: APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml
===================================================================
diff -u -r39210 -r39219
--- APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml	(.../LegacyNaarEdi.cls.xml)	(revision 39210)
+++ APPS/EDI/common/impl/LegacyConverter/LegacyNaarEdi.cls.xml	(.../LegacyNaarEdi.cls.xml)	(revision 39219)
@@ -59,6 +59,7 @@
 	Do ..ConvertGreepEnMeenemer(Product,TBXProduct)
 	Do ..ConvertVerlaagdeRug(Product,TBXProduct)
 	Do ..ConvertUitsparingen(Product,TBXProduct)
+	Do ..ConvertNietMeeleveren(Product,TBXProduct)
 	
 	Quit TBXProduct
 ]]></Implementation>
@@ -272,6 +273,21 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ConvertNietMeeleveren">
+<FormalSpec><![CDATA[Product:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy,&TBXProduct:APPS.EDI.common.dto.v001.LadeTBX]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set NietMeeleverenIterator = ##class(TECH.ListIterator).%New(##class(TECH.ListUtils).PiecesToList(##class(TECH.StringUtils).Sort(Product.NietMeeleveren),";"))
+
+	#dim NietMeeleveren As list of %String = ##class(%ListOfDataTypes).%New()	
+	While NietMeeleverenIterator.HasNext() {
+		Do NietMeeleveren.Insert(NietMeeleverenIterator.Next())
+	}
+	
+	Set TBXProduct.NietMeeleveren = NietMeeleveren
+]]></Implementation>
+</Method>
+
 <Method name="PeuterLadeCodeOpen">
 <FormalSpec>LCodeID:%String</FormalSpec>
 <Implementation><![CDATA[
Index: vhTest/Utils/APPS/EDI/common/dto/LadeTBX.cls.xml
===================================================================
diff -u -r39208 -r39219
--- vhTest/Utils/APPS/EDI/common/dto/LadeTBX.cls.xml	(.../LadeTBX.cls.xml)	(revision 39208)
+++ vhTest/Utils/APPS/EDI/common/dto/LadeTBX.cls.xml	(.../LadeTBX.cls.xml)	(revision 39219)
@@ -142,16 +142,16 @@
 <Implementation><![CDATA[
 	#dim Resultaat As APPS.EDI.common.dto.v001.LadeTBX = ..StandaardLade()
 	
-	Do Resultaat.NietMeeleveren.Insert("NMFB") 
-	Do Resultaat.NietMeeleveren.Insert("NMCP")
-	Do Resultaat.NietMeeleveren.Insert("NMRL")
-	Do Resultaat.NietMeeleveren.Insert("NMAK")
-	Do Resultaat.NietMeeleveren.Insert("NMTOBSET")
-	Do Resultaat.NietMeeleveren.Insert("NMTOBTOEB")
-	Do Resultaat.NietMeeleveren.Insert("NMTOBSTG")
-	Do Resultaat.NietMeeleveren.Insert("NMBDS")
-	Do Resultaat.NietMeeleveren.Insert("NMOVL")
-	Do Resultaat.NietMeeleveren.Insert("NMBS")
+	Do Resultaat.NietMeeleveren.InsertOrdered("NMFB") 
+	Do Resultaat.NietMeeleveren.InsertOrdered("NMCP")
+	Do Resultaat.NietMeeleveren.InsertOrdered("NMRL")
+	Do Resultaat.NietMeeleveren.InsertOrdered("NMAK")
+	Do Resultaat.NietMeeleveren.InsertOrdered("NMTOBSET")
+	Do Resultaat.NietMeeleveren.InsertOrdered("NMTOBTOEB")
+	Do Resultaat.NietMeeleveren.InsertOrdered("NMTOBSTG")
+	Do Resultaat.NietMeeleveren.InsertOrdered("NMBDS")
+	Do Resultaat.NietMeeleveren.InsertOrdered("NMOVL")
+	Do Resultaat.NietMeeleveren.InsertOrdered("NMBS")
 	
 	Quit Resultaat
 ]]></Implementation>
Index: vhUnitTest/APPS/EDI/common/impl/LegacyConverter/AcceptatieTest.cls.xml
===================================================================
diff -u -r39215 -r39219
--- vhUnitTest/APPS/EDI/common/impl/LegacyConverter/AcceptatieTest.cls.xml	(.../AcceptatieTest.cls.xml)	(revision 39215)
+++ vhUnitTest/APPS/EDI/common/impl/LegacyConverter/AcceptatieTest.cls.xml	(.../AcceptatieTest.cls.xml)	(revision 39219)
@@ -119,6 +119,15 @@
 	Do $$$AssertObject(ProductConverter.ConverteerLegacyNaarEdi(TeConverterenProduct),##class(vhTest.Utils.APPS.EDI.common.dto.LadeTBX).SifonLadeMet2Uitsparingen())
 ]]></Implementation>
 </Method>
+
+<Method name="Test: LegacyNaarEdi StandaardLadeMetNietMeeleveren">
+<Implementation><![CDATA[
+	#dim TeConverterenProduct As vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy = ##class(vhTest.Utils.DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy).StandaardLadeMetNietMeeleveren()
+	#dim ProductConverter = ##class(APPS.EDI.common.impl.LegacyConverter).%New()
+	
+	Do $$$AssertObject(ProductConverter.ConverteerLegacyNaarEdi(TeConverterenProduct),##class(vhTest.Utils.APPS.EDI.common.dto.LadeTBX).StandaardLadeMetNietMeeleveren())
+]]></Implementation>
+</Method>
 </Class>
 
 
Index: EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml
===================================================================
diff -u -r39078 -r39219
--- EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 39078)
+++ EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 39219)
@@ -70,16 +70,16 @@
 	}
 	ElseIf Product.%Extends(##class(EXT.Unishop.PurchaseOrder001.CreateOrder.LadeEigenschappenTBX).%ClassName($$$True)) {
 		Set Eigenschappen = ##class(APPS.EDI.common.dto.v001.LadeTBX).%New()
-		If Product.NietMeeleveren.FrontBevestiging do Eigenschappen.NietMeeleveren.Insert("NMFB")
-		If Product.NietMeeleveren.Geleider do Eigenschappen.NietMeeleveren.Insert("NMCP")
-		If Product.NietMeeleveren.Reling do Eigenschappen.NietMeeleveren.Insert("NMRL")
-		If Product.NietMeeleveren.Afdekkappen do Eigenschappen.NietMeeleveren.Insert("NMAK")
-		If Product.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers do Eigenschappen.NietMeeleveren.Insert("NMTOBSET")
-		If Product.NietMeeleveren.TOBSynchronisatieToebehoren do Eigenschappen.NietMeeleveren.Insert("NMTOBTOEB")
-		If Product.NietMeeleveren.TiponBlumotionSynchronisatieStang do Eigenschappen.NietMeeleveren.Insert("NMTOBSTG")
-		If Product.NietMeeleveren.Bodemsteun do Eigenschappen.NietMeeleveren.Insert("NMBDS")
-		If Product.NietMeeleveren.Opvullijst do Eigenschappen.NietMeeleveren.Insert("NMOVL")
-		If Product.NietMeeleveren.LadeZijkant do Eigenschappen.NietMeeleveren.Insert("NMBS")
+		If Product.NietMeeleveren.FrontBevestiging do Eigenschappen.NietMeeleveren.InsertOrdered("NMFB")
+		If Product.NietMeeleveren.Geleider do Eigenschappen.NietMeeleveren.InsertOrdered("NMCP")
+		If Product.NietMeeleveren.Reling do Eigenschappen.NietMeeleveren.InsertOrdered("NMRL")
+		If Product.NietMeeleveren.Afdekkappen do Eigenschappen.NietMeeleveren.InsertOrdered("NMAK")
+		If Product.NietMeeleveren.TiponBlumotionSetEenhedenEnMeenemers do Eigenschappen.NietMeeleveren.InsertOrdered("NMTOBSET")
+		If Product.NietMeeleveren.TOBSynchronisatieToebehoren do Eigenschappen.NietMeeleveren.InsertOrdered("NMTOBTOEB")
+		If Product.NietMeeleveren.TiponBlumotionSynchronisatieStang do Eigenschappen.NietMeeleveren.InsertOrdered("NMTOBSTG")
+		If Product.NietMeeleveren.Bodemsteun do Eigenschappen.NietMeeleveren.InsertOrdered("NMBDS")
+		If Product.NietMeeleveren.Opvullijst do Eigenschappen.NietMeeleveren.InsertOrdered("NMOVL")
+		If Product.NietMeeleveren.LadeZijkant do Eigenschappen.NietMeeleveren.InsertOrdered("NMBS")
 		If Product.RugHoogte = "" {
 			Set Product.RugHoogte = Product.LadeHoogte
 		}