Index: ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEcon/Mat.cls.xml
===================================================================
diff -u
--- ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEcon/Mat.cls.xml	(revision 0)
+++ ECONimpl/PM/Maatwerk/KenmerkenConverter/AppsNaarEcon/Mat.cls.xml	(revision 66664)
@@ -0,0 +1,86 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="ECONimpl.PM.Maatwerk.KenmerkenConverter.AppsNaarEcon.Mat">
+<CompileAfter>ECON.PM.Maatwerk.dto.MatKenmerken,APPS.PM.Maatwerk.dto.MATKenmerken</CompileAfter>
+<Super>ECONimpl.PM.Maatwerk.KenmerkenConverter.AppsNaarEcon,DOM.PM.Maatwerk.MAT.impl.Base</Super>
+
+<Method name="Converteer">
+<FormalSpec>AppsKenmerken:APPS.PM.Maatwerk.dto.MATKenmerken</FormalSpec>
+<ReturnType>ECON.PM.Maatwerk.dto.MatKenmerken</ReturnType>
+<Implementation><![CDATA[
+	// lijn om tot compileren te dwingen wanneer er een kenmerk is bijgekomen - Teller 001
+	
+	#dim EconKenmerken As ECON.PM.Maatwerk.dto.MatKenmerken = ..ConverteerGegenereerdeProperties(AppsKenmerken)
+	
+	Set EconKenmerken.Variant = "MAT_Standaard"
+	
+	Set EconKenmerken.NettoBreedte = AppsKenmerken.Breedte
+	Set EconKenmerken.NettoDiepte = AppsKenmerken.Diepte
+	Set EconKenmerken.VerpakkingType = AppsKenmerken.Type
+	Set EconKenmerken.CorpusWandDikte = AppsKenmerken.WandDikte 
+	
+	Do ..ConverteerUitsparingData(AppsKenmerken, .EconKenmerken)	
+		
+	Quit EconKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerGegenereerdeProperties">
+<CodeMode>objectgenerator</CodeMode>
+<FormalSpec>Kenmerken:APPS.PM.Maatwerk.dto.MATKenmerken</FormalSpec>
+<ReturnType>ECON.PM.Maatwerk.dto.MatKenmerken</ReturnType>
+<Implementation><![CDATA[
+	#dim Properties
+	Do arrProperties^vhLib.Class("APPS.PM.Maatwerk.dto.MATKenmerken",.Properties,"A","A","A",1)
+	
+	Do %code.WriteLine($$$TAB_"Set MatKenmerken = ##class(ECON.PM.Maatwerk.dto.MatKenmerken).%New()")
+	
+	#dim Property As %String = ""
+	For { Set Property = $Order(Properties(Property)) Quit:Property=""
+		
+		Continue:##class(TECH.StringUtils).Contains(Property,"NietMeeleveren","NietIngegeven","ExplicietGekozenKenmerken","GekoppeldeIngegevenKenmerken","Omschrijving","VersieNr")
+		Continue:##class(TECH.StringUtils).Contains(Property,"UitsparingData","UitsparingCode")
+		Continue:##class(TECH.StringUtils).Equals(Property,"Familie","Variant","WandDikte","Breedte","Diepte","Type")
+		
+		If $ListGet(Properties(Property),1)="%Library.Boolean" { 
+			Do %code.WriteLine($$$TAB_"Set MatKenmerken."_Property_" = $select(Kenmerken."_Property_":""true"",1:""false"")")
+		} Else {
+			Do %code.WriteLine($$$TAB_"Set MatKenmerken."_Property_" = Kenmerken."_Property)
+		}
+		
+	}
+	
+	Do %code.WriteLine($$$TAB_"Quit MatKenmerken")
+
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
+<Method name="ConverteerUitsparingData">
+<FormalSpec><![CDATA[Kenmerken:APPS.PM.Maatwerk.dto.MATKenmerken,&MatKenmerken:ECON.PM.Maatwerk.dto.MatKenmerken]]></FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	If Kenmerken.UitsparingDataAantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Enkel() {
+		Set MatKenmerken.UitsparingData.UitsparingAantal = ##class(DOM.PM.enu.AantalUitsparingen).Enkel()
+		;Set MatKenmerken.UitsparingData.M.Breedte = 0
+		;Set MatKenmerken.UitsparingData.Z2.Breedte = ""
+	}
+	
+	Set MatKenmerken.UitsparingData.X.Breedte = Kenmerken.UitsparingDataBreedteX
+	Set MatKenmerken.UitsparingData.Y.Breedte = Kenmerken.UitsparingDataBreedteY
+	Set MatKenmerken.UitsparingData.Z1.Breedte = Kenmerken.UitsparingDataBreedteZ1
+	Set MatKenmerken.UitsparingData.Z1.Diepte = Kenmerken.UitsparingDataDiepte
+	Set MatKenmerken.UitsparingData.Z1.UitsparingCode = Kenmerken.UitsparingCodeZ1
+	
+	If Kenmerken.UitsparingDataAantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel() {
+		Set MatKenmerken.UitsparingData.UitsparingAantal = ##class(DOM.PM.enu.AantalUitsparingen).Dubbel()
+		Set MatKenmerken.UitsparingData.M.Breedte = Kenmerken.UitsparingDataBreedteM
+		Set MatKenmerken.UitsparingData.Z2.Breedte = Kenmerken.UitsparingDataBreedteZ2
+		Set MatKenmerken.UitsparingData.Z2.UitsparingCode = Kenmerken.UitsparingCodeZ2
+	}
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>