Index: DOTNET/PM/Maatwerk/Converter/DomNaarDotnet/TbxKenmerken.cls.xml
===================================================================
diff -u
--- DOTNET/PM/Maatwerk/Converter/DomNaarDotnet/TbxKenmerken.cls.xml	(revision 0)
+++ DOTNET/PM/Maatwerk/Converter/DomNaarDotnet/TbxKenmerken.cls.xml	(revision 64501)
@@ -0,0 +1,247 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOTNET.PM.Maatwerk.Converter.DomNaarDotnet.TbxKenmerken">
+<Description>
+Legacy naar bruikbare DOM kenmerken voor .NET convertor</Description>
+<Super>TECH.RegisteredObject</Super>
+
+<Property name="TbxKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</Type>
+</Property>
+
+<Property name="LegacyKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerkenLegacy</Type>
+</Property>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Property LadeType As %String [ Private ];
+
+Property Toepassing As %String [ Private ];
+
+Property ZijkantHoogte As %String [ Private ];
+
+Property LadeHoogte As %String [ Private ];
+*/
+]]></Content>
+</UDLText>
+
+<Method name="Convert">
+<FormalSpec>TbxKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken</FormalSpec>
+<ReturnType>DOTNET.PM.Maatwerk.dto.TbxKenmerken</ReturnType>
+<Implementation><![CDATA[
+	Set ..TbxKenmerken = TbxKenmerken
+	Set ..LegacyKenmerken = TbxKenmerken.LegacyKenmerken
+	Set DotNetKenmerken = ##class(DOTNET.PM.Maatwerk.dto.TbxKenmerken).%New()
+	
+	//Do ..HaalInformatieUitLadeCode()
+	
+	Set DotNetKenmerken.LadeDesign 				= ..GeefLadeDesign()
+	Set DotNetKenmerken.Toepassing 				= TbxKenmerken.Toepassing
+	Set DotNetKenmerken.IsBinnenlade 			= TbxKenmerken.IsBinnenlade
+	Set DotNetKenmerken.ZijkantHoogte 			= TbxKenmerken.ZijkantHoogte	
+	Set DotNetKenmerken.LadeHoogte 				= TbxKenmerken.LadeHoogte
+	Set DotNetKenmerken.RugHoogte 				= TbxKenmerken.RugHoogte
+	Set DotNetKenmerken.FrontBevestiging 		= TbxKenmerken.FrontBevestiging
+	Set DotNetKenmerken.LadeDiepte		 		= TbxKenmerken.LadeDiepte
+	//Set DotNetKenmerken.CorpuswandDikte		 = ..GeefCorpuswandDikte() // Property nog niet in gebruik
+	//Set DotNetKenmerken.CorpusBreedte		 	= ....GeefCorpusBreedte() // Property nog niet in gebruik
+	//Set DotNetKenmerken.MinTolerantieOpIB 	= ..LegacyKenmerken.
+	
+	
+	//Set DotNetKenmerken.UitsparingData 			= ..GeefUitsparingData()	//nog verder uit te werken
+	Set DotNetKenmerken.HeeftOpvullijstLinks 	= TbxKenmerken.HeeftOpvullijstLinks
+	Set DotNetKenmerken.HeeftOpvullijstRechts 	= TbxKenmerken.HeeftOpvullijstRechts
+	Set DotNetKenmerken.Draagkracht 			= TbxKenmerken.Draagkracht
+	
+	Set DotNetKenmerken.ZijwandVerhogingInschuifElementKleur 	= ..LegacyKenmerken.ItemKV
+	Set DotNetKenmerken.ZijwandVerhogingMateriaal 				= TbxKenmerken.ZijwandVerhogingMateriaal
+	Set DotNetKenmerken.ZijwandVerhogingRelingKleur 			= ..LegacyKenmerken.ItemRK
+	Set DotNetKenmerken.ZijwandVerhogingType			 		= TbxKenmerken.ZijwandVerhogingType
+	
+	Set DotNetKenmerken.BodemKleur		 		= TbxKenmerken.BodemKleur
+	Set DotNetKenmerken.FrontKleur		 		= TbxKenmerken.FrontHouderKleur
+	Set DotNetKenmerken.LadeKleur		 		= TbxKenmerken.LadeKleur
+	Set DotNetKenmerken.OpvullijstKleur		 	= TbxKenmerken.OpvullijstKleur
+	Set DotNetKenmerken.GeleiderTechnologie		= TbxKenmerken.GeleiderTechnologie
+	Set DotNetKenmerken.HeeftZijstabilisering	= TbxKenmerken.HeeftZijstabilisering
+	Set DotNetKenmerken.FrontOndersteuningAantal= TbxKenmerken.FrontOndersteuningAantal
+	Set DotNetKenmerken.FrontOndersteuningType	= TbxKenmerken.FrontOndersteuningType
+	Set DotNetKenmerken.RugwandMateriaal		= TbxKenmerken.RugwandMateriaal
+	Set DotNetKenmerken.GekoppeldeIngegevenKenmerken	=  TbxKenmerken.GekoppeldeIngegevenKenmerken
+	Set DotNetKenmerken.HangmapBoringAantal		= TbxKenmerken.HangmapBoringAantal
+	Set DotNetKenmerken.GreepEnMeenemer			= ..GeefGreepEnMeenemer()		//Moet deze wel in convertor? Zie notities @@@@@@@@@@@@@@
+	Set DotNetKenmerken.DwarsverdelingAantal	= TbxKenmerken.DwarsverdelingAantal
+	Set DotNetKenmerken.Plaatmateriaal			= TbxKenmerken.PlaatMateriaal
+	Set DotNetKenmerken.Productiewijze			= TbxKenmerken.ProductieWijze
+	//Set DotNetKenmerken.HeeftAfwijkendeRugHoogte	= ..LegacyKenmerken.ItemRSTL
+	Set DotNetKenmerken.VerpakkingType			= TbxKenmerken.VerpakkingType
+	Set DotNetKenmerken.LadeDesignCode			= ..GeefLadeDesignCode()
+	Set DotNetKenmerken.InterneBreedte			= TbxKenmerken.InterneBreedte
+	//Set DotNetKenmerken.NietMeeleveren			= ..
+		
+	Quit DotNetKenmerken
+]]></Implementation>
+</Method>
+
+<Method name="GeefLadeDesign">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit $Case(..TbxKenmerken.LadeKleur, "BZ":"ZA", "SW":"WA", "MG":"GA","IN":"IA", "OG":"OMT",:"")
+]]></Implementation>
+</Method>
+
+<Method name="GeefLadeKleur">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..LegacyKenmerken.ItemKL
+]]></Implementation>
+</Method>
+
+<Method name="GeefLadeCode">
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[	Quit ..LegacyKenmerken.ItemLT
+]]></Implementation>
+</Method>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method HaalInformatieUitLadeCode() As %String [ Private ]
+{
+	#dim LCode As %String = ..GeefLadeCode()
+	Quit:('LCode)
+	#dim Key As %String = ""
+	#dim TBVal As %String = ""
+	#dim arKenm
+	For  Set TBVal = LCode.TBKenm.GetNext(.Key) Quit:(Key="")  Do
+	. Set arKenm(Key) = TBVal
+	
+	Set ..Toepassing = arKenm("TBKlasse")
+	Set ..LadeType = arKenm("TBLadeType")
+	Set ..ZijkantHoogte = arKenm("TBZijwand")
+	Set ..LadeHoogte = arKenm("TBRugHoogte")
+}
+*/
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Nog verder uit te werken
+
+]]></Content>
+</UDLText>
+
+<UDLText name="T">
+<Content><![CDATA[
+/*
+Method GeefUitsparingData(Product As APPS.PM.Maatwerk.dto.TBXKenmerkenLegacy, ByRef TBXProduct As APPS.EDI.common.dto.v001.LadeTBX) [ Private ]
+{
+	Set UitsparingDataObject = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingData).%New()
+	
+	If $$$Not(..LegacyKenmerken.ItemSPZK = "") {
+		#dim UitsparingData As %List = $ListFromString(Product.ItemSPZK,";")
+		Set UitsparingDataObject.AantalUitsparingen = $$$If($ListLength(UitsparingData)=6,2,1)
+		
+		If ..Toepassing = ##class(DOM.PM.enu.TBXToepassing).SifonType3() {
+			If (TBXProduct.UitsparingDataAantalUitsparingen = 1) {
+				Set UitsparingDataObject.RugDeelX = $ListGet(UitsparingData,2)
+				Set UitsparingDataObject.RugDeelY = $ListGet(UitsparingData,3)
+				Set UitsparingDataObject.RugDeelZ1 = $ListGet(UitsparingData,4) //Moet Code zijn!
+			} Else {
+				Set UitsparingDataObject.RugDeelX = $ListGet(UitsparingData,2)
+				Set UitsparingDataObject.RugDeelY = $ListGet(UitsparingData,3)
+				Set UitsparingDataObject.RugDeelM = $ListGet(UitsparingData,4)
+				Set UitsparingDataObject.RugDeelZ1 = $ListGet(UitsparingData,5) //Moet Code zijn!
+				Set UitsparingDataObject.RugDeelZ2 = $ListGet(UitsparingData,6) //Moet Code zijn!
+			}
+		} ElseIf ..Toepassing = ##class(DOM.PM.enu.TBXToepassing).SifonType2() {
+			If (TBXProduct.UitsparingDataAantalUitsparingen = 1) {
+				Set UitsparingDataObject.RugDeelX = $ListGet(UitsparingData,2)
+				Set UitsparingDataObject.RugDeelY = $ListGet(UitsparingData,3)
+				Set UitsparingDataObject.RugDeelZ1 = $ListGet(UitsparingData,4) //Moet Code zijn!
+				If ##class(TECH.StringUtils).Equals(TBXProduct.UitsparingDataBreedteZ1,"150","250") && $$$Not($$$StartsWith($ListGet(UitsparingData,1),"M")){
+					Set TBXProduct.TussenrugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()
+				}
+				Set TBXProduct.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()
+			} Else {
+				Set UitsparingDataObject.RugDeelX = $ListGet(UitsparingData,2)
+				Set UitsparingDataObject.RugDeelY = $ListGet(UitsparingData,3)
+				Set UitsparingDataObject.RugDeelM = $ListGet(UitsparingData,4)
+				Set UitsparingDataObject.RugDeelZ1 = $ListGet(UitsparingData,5) //Moet Code zijn!
+				Set UitsparingDataObject.RugDeelZ2 = $ListGet(UitsparingData,6) //Moet Code zijn!
+				If (##class(TECH.StringUtils).Equals(TBXProduct.UitsparingDataBreedteZ1,"150","250") && ##class(TECH.StringUtils).Equals(TBXProduct.UitsparingDataBreedteZ2,"150","250")) && $$$Not($$$StartsWith($ListGet(UitsparingData,1),"M")){
+					Set TBXProduct.TussenrugMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()
+				}
+				Set TBXProduct.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()
+			}
+		} ElseIf ..Toepassing = ##class(DOM.PM.enu.TBXToepassing).Spoelbak() {
+			Set TBXProduct.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()
+			If $Piece(..LegacyKenmerken.ItemSPZK,";",1)="SA" {
+				Set TBXProduct.UitsparingDataBreedteX = 143
+				Set TBXProduct.UitsparingDataBreedteY = 143
+				Set TBXProduct.UitsparingDataBreedteZ1 = ..GeefInterneBreedte(Product) - 143 - 143
+				Set TBXProduct.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()
+			} ElseIf $Piece(..LegacyKenmerken.ItemSPZK,";",1)="S2" {
+				Set TBXProduct.UitsparingDataBreedteX = 147
+				Set TBXProduct.UitsparingDataBreedteY = 147
+				Set TBXProduct.UitsparingDataBreedteZ1 = ..GeefInterneBreedte(Product) - 147 - 147
+				Set TBXProduct.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()
+			} ElseIf $Piece(..LegacyKenmerken.ItemSPZK,";",1)="B2" {
+				Set TBXProduct.UitsparingDataBreedteX = 197
+				Set TBXProduct.UitsparingDataBreedteY = 197
+				Set TBXProduct.UitsparingDataBreedteZ1 = ..GeefInterneBreedte(Product) - 197 - 197
+				Set TBXProduct.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Staal()
+			} Else {
+				Set TBXProduct.UitsparingDataBreedteX = $ListGet(UitsparingData,2)
+				Set TBXProduct.UitsparingDataBreedteY = $ListGet(UitsparingData,3)
+				Set TBXProduct.UitsparingDataBreedteZ1 = ..GeefInterneBreedte(Product) - $ListGet(UitsparingData,2) - $ListGet(UitsparingData,3)
+			}
+		}
+	}
+	
+	Quit UitsparingDataObject
+}
+*/
+]]></Content>
+</UDLText>
+
+<Method name="GeefLadeDesignCode">
+<Private>1</Private>
+<ReturnType>%Decimal</ReturnType>
+<Implementation><![CDATA[
+	#dim LadeDesignCode As %String = ""
+	
+	If ..GeefLadeDesign() = "OMT" {
+		Set LadeDesignCode = "MT"
+	} Else {
+		Set LadeDesignCode = "A"
+	}
+	
+	Quit LadeDesignCode
+]]></Implementation>
+</Method>
+
+<Method name="GeefGreepEnMeenemer">
+<Private>1</Private>
+<Implementation><![CDATA[
+	#dim GreepEnMeenemer As %String = ""
+	
+	If ##class(TECH.StringUtils).Equals(..LegacyKenmerken.ItemBGRP,"Z","R","X") {
+	 	Set GreepEnMeenemer = "Zonder"
+	} ElseIf ..LegacyKenmerken.ItemBGRP = "G" {
+		Set GreepEnMeenemer = "Greep"
+	} ElseIf ..LegacyKenmerken.ItemBGRP = "M" {
+		Set GreepEnMeenemer = "Meenemer"
+	}
+	
+	Quit GreepEnMeenemer
+]]></Implementation>
+</Method>
+</Class>
+
+
+</Export>
Index: DOTNET/PM/Maatwerk/dto/TbxKenmerken.cls.xml
===================================================================
diff -u
--- DOTNET/PM/Maatwerk/dto/TbxKenmerken.cls.xml	(revision 0)
+++ DOTNET/PM/Maatwerk/dto/TbxKenmerken.cls.xml	(revision 64501)
@@ -0,0 +1,200 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="24">
+<Class name="DOTNET.PM.Maatwerk.dto.TbxKenmerken">
+<Super>%RegisteredObject</Super>
+
+<Property name="LadeDesign">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="Toepassing">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="IsBinnenlade">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="ZijkantHoogte">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="LadeHoogte">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="RugHoogte">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="FrontBevestiging">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="LadeDiepte">
+<Type>TECH.String</Type>
+</Property>
+
+<UDLText name="T">
+<Content><![CDATA[
+// GUIkenmerk CorpuswandDikte, CorpusBreedte
+
+]]></Content>
+</UDLText>
+
+<Property name="MinTolerantieOpIB">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="UitsparingData">
+<Type>DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingData</Type>
+</Property>
+
+<Property name="HeeftOpvullijstLinks">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="HeeftOpvullijstRechts">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="Draagkracht">
+<Type>%Decimal</Type>
+</Property>
+
+<UDLText name="T">
+<Content><![CDATA[
+// datatype draagkracht?
+
+]]></Content>
+</UDLText>
+
+<Property name="ZijwandVerhogingRelingKleur">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="ZijwandVerhogingInschuifElementKleur">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="ZijwandVerhogingMateriaal">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="ZijwandVerhogingType">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="BodemKleur">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="FrontKleur">
+<Type>TECH.String</Type>
+</Property>
+
+<UDLText name="T">
+<Content><![CDATA[
+// TBC
+
+]]></Content>
+</UDLText>
+
+<Property name="LadeKleur">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="OpvullijstKleur">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="GeleiderTechnologie">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="HeeftZijstabilisering">
+<Type>%Boolean</Type>
+</Property>
+
+<Property name="FrontOndersteuningAantal">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="FrontOndersteuningType">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="RugwandMateriaal">
+<Type>TECH.String</Type>
+</Property>
+
+<UDLText name="T">
+<Content><![CDATA[
+// GekoppeldeKenmerken
+
+]]></Content>
+</UDLText>
+
+<Property name="HangmapBoringAantal">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="GreepEnMeenemer">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="DwarsverdelingAantal">
+<Type>%Decimal</Type>
+</Property>
+
+<Property name="Plaatmateriaal">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="Productiewijze">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="HeeftAfwijkendeRugHoogte">
+<Type>%Boolean</Type>
+</Property>
+
+<UDLText name="T">
+<Content><![CDATA[
+// moet deze mee?
+
+]]></Content>
+</UDLText>
+
+<Property name="VerpakkingType">
+<Type>TECH.String</Type>
+</Property>
+
+<UDLText name="T">
+<Content><![CDATA[
+// Niet Meeleverens
+
+]]></Content>
+</UDLText>
+
+<Property name="LadeDesignCode">
+<Type>TECH.String</Type>
+</Property>
+
+<Property name="InterneBreedte">
+<Type>%Float</Type>
+</Property>
+
+<Property name="NietMeeleveren">
+<Type>DOM.PM.Maatwerk.Calc.HF.enu.HalffabRol</Type>
+<Collection>list</Collection>
+</Property>
+
+<Property name="GekoppeldeIngegevenKenmerken">
+<Type>DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken</Type>
+<Collection>array</Collection>
+</Property>
+</Class>
+
+
+</Export>