Index: vhUnitTest/EXT/Unishop/PurchaseOrder001/ProductConverter/Converteer/TestVoorgedefinieerdProduct.cls.xml
===================================================================
diff -u
--- vhUnitTest/EXT/Unishop/PurchaseOrder001/ProductConverter/Converteer/TestVoorgedefinieerdProduct.cls.xml	(revision 0)
+++ vhUnitTest/EXT/Unishop/PurchaseOrder001/ProductConverter/Converteer/TestVoorgedefinieerdProduct.cls.xml	(revision 37086)
@@ -0,0 +1,23 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="vhUnitTest.EXT.Unishop.PurchaseOrder001.ProductConverter.Converteer.TestVoorgedefinieerdProduct">
+<Super>vhUnitTest.TestCase</Super>
+
+<Method name="Test : Een voorgedefinieerd wordt goed geconverteerd van het bestel formaat naar het algemene edi formaat">
+<Implementation><![CDATA[
+	Set EXTVoorgedefinieerdProduct = ##class(EXT.Unishop.PurchaseOrder001.CreateOrder.VoorgedefinieerdProduct).%New()
+	Set EXTVoorgedefinieerdProduct.Korttekst = "TEKST"
+	
+	Set ProductConverter = ##class(EXT.Unishop.PurchaseOrder001.ProductConverter).%New()
+	#dim VoorgedefinieerdProduct As APPS.EDI.common.dto.v001.VoorgedefinieerdProduct = ProductConverter.Converteer(EXTVoorgedefinieerdProduct)
+	
+	Set Enum = ##class(DOM.PM.Maatwerk.LBX.impl.BaseEnums).%New()
+	If $$$AssertEquals($classname(VoorgedefinieerdProduct),"APPS.EDI.common.dto.v001.VoorgedefinieerdProduct") {
+		Do $$$AssertEquals(VoorgedefinieerdProduct.Korttekst,"TEKST")
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml
===================================================================
diff -u -r36969 -r37086
--- EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 36969)
+++ EXT/Unishop/PurchaseOrder001/ProductConverter.cls.xml	(.../ProductConverter.cls.xml)	(revision 37086)
@@ -77,7 +77,12 @@
 		If Product.NietMeeleveren.LadeZijkant do LadeEigenschappen.NietMeeleveren.Insert("NMBS")
 		Do ..Converter.Convert(Product,LadeEigenschappen,..LadeEigenschappenConverteerOptiesTBX)
 	}
+	ElseIf Product.%Extends(##class(EXT.Unishop.PurchaseOrder001.CreateOrder.VoorgedefinieerdProduct).%ClassName($$$True)) {
+		Set LadeEigenschappen = ##class(APPS.EDI.common.dto.v001.VoorgedefinieerdProduct).%New()
+		Do ..Converter.Convert(Product,LadeEigenschappen,..LadeEigenschappenConverteerOptiesVoorgedefinieerdProduct)
+	}
 	
+	
 	Quit LadeEigenschappen
 ]]></Implementation>
 </Method>
@@ -176,6 +181,33 @@
 	Quit ..ConverterData
 ]]></Implementation>
 </Method>
+
+<Property name="LadeEigenschappenConverteerOptiesVoorgedefinieerdProduct">
+<Type>TECH.ObjectUtils.ObjectConvertData</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="LadeEigenschappenConverteerOptiesVoorgedefinieerdProductGet">
+<Private>1</Private>
+<ReturnType>TECH.ObjectUtils.ObjectConvertData</ReturnType>
+<Implementation><![CDATA[
+	Set r%LadeEigenschappenConverteerOptiesVoorgedefinieerdProduct = $$$LazyLoad(r%LadeEigenschappenConverteerOptiesVoorgedefinieerdProduct,..VerzamelLadeEigenschappenConverteerOptiesVoorgedefinieerdProduct())
+	Quit r%LadeEigenschappenConverteerOptiesVoorgedefinieerdProduct
+]]></Implementation>
+</Method>
+
+<Method name="VerzamelLadeEigenschappenConverteerOptiesVoorgedefinieerdProduct">
+<Implementation><![CDATA[
+	#dim Properties As %ListOfDataTypes = ##class(TECH.ClassUtils).GeefProperties("APPS.EDI.common.dto.v001.VoorgedefinieerdProduct")
+	Set PropertyIterator = ##class(TECH.ListIterator).%New(Properties)
+	While PropertyIterator.HasNext() {
+		#dim PropertyName As %String = PropertyIterator.Next()		
+		Do ..ConverterData.Add(PropertyName,PropertyName)
+	}
+	
+	Quit ..ConverterData
+]]></Implementation>
+</Method>
 </Class>