Index: vhTest/Utils/AXimpl/PM/Maatwerk/LbxKenmerken.cls.xml =================================================================== diff -u -r52869 -r52871 --- vhTest/Utils/AXimpl/PM/Maatwerk/LbxKenmerken.cls.xml (.../LbxKenmerken.cls.xml) (revision 52869) +++ vhTest/Utils/AXimpl/PM/Maatwerk/LbxKenmerken.cls.xml (.../LbxKenmerken.cls.xml) (revision 52871) @@ -42,12 +42,6 @@ #dim VoorWandTypeVanCBinnenlade As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() #dim VoorWandTypeVanMBinnenlade As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() #dim ZijWandType As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() - #dim ExplicietGekozenKenmerken As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() - #dim Familie As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() - #dim GekoppeldeIngegevenKenmerken As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() - #dim MatKleur As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() - #dim MatMateriaal As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() - #dim VoorWandTypeVanKBinnenlade As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = ##class(AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute).%New() Set Toepassing.Name = "Toepassing" Set Toepassing.ValueTxt = ##class(DOM.PM.enu.LBXKlasse).Lade() @@ -101,18 +95,6 @@ Set VoorWandTypeVanMBinnenlade.ValueTxt = "" Set ZijWandType.Name = "Zijwandtype" Set ZijWandType.ValueTxt = ##class(DOM.PM.enu.LBXZijWandType).Pure() - Set ExplicietGekozenKenmerken.Name = "Explicietgekozenkenmerken" - Set ExplicietGekozenKenmerken.ValueTxt = "" - Set Familie.Name = "Familie" - Set Familie.ValueTxt = "" - Set GekoppeldeIngegevenKenmerken.Name = "Gekoppeldeingegevenkenmerken" - Set GekoppeldeIngegevenKenmerken.ValueTxt = "" - Set MatKleur.Name = "Matkleur" - Set MatKleur.ValueTxt = "" - Set MatMateriaal.Name = "Matmateriaal" - Set MatMateriaal.ValueTxt = "" - Set VoorWandTypeVanKBinnenlade.Name = "Voorwandtypevankbinnenlade" - Set VoorWandTypeVanKBinnenlade.ValueTxt = "" Do LBXKenmerken.Insert(Toepassing) Do LBXKenmerken.Insert(BodemKleur) @@ -140,12 +122,6 @@ Do LBXKenmerken.Insert(VoorWandTypeVanCBinnenlade) Do LBXKenmerken.Insert(VoorWandTypeVanMBinnenlade) Do LBXKenmerken.Insert(ZijWandType) - Do LBXKenmerken.Insert(ExplicietGekozenKenmerken) - Do LBXKenmerken.Insert(Familie) - Do LBXKenmerken.Insert(GekoppeldeIngegevenKenmerken) - Do LBXKenmerken.Insert(MatKleur) - Do LBXKenmerken.Insert(MatMateriaal) - Do LBXKenmerken.Insert(VoorWandTypeVanKBinnenlade) Quit LBXKenmerken ]]> Index: AXimpl/PM/Maatwerk/AxNaarEconConverter.cls.xml =================================================================== diff -u -r52870 -r52871 --- AXimpl/PM/Maatwerk/AxNaarEconConverter.cls.xml (.../AxNaarEconConverter.cls.xml) (revision 52870) +++ AXimpl/PM/Maatwerk/AxNaarEconConverter.cls.xml (.../AxNaarEconConverter.cls.xml) (revision 52871) @@ -28,15 +28,15 @@ #dim EconConfiguratieArray As %ArrayOfDataTypes = ##class(%ArrayOfDataTypes).%New() #dim KenmerkenIterator As TECH.Iterator = ##class(TECH.ListIterator).%New(Kenmerken) - Do EconConfiguratieArray.SetAt("true", "Data.Lijn.Isgeldig") - While (KenmerkenIterator.HasNext()) { #dim Kenmerk As AXif.Dynamics.CalculatedProductIn.MessageParts.AxdEntityAttribute = KenmerkenIterator.Next() #dim Value As %String = Kenmerk.ValueTxt #dim Name As %String = "Data.Kenmerken."_Kenmerk.Name Do EconConfiguratieArray.SetAt(Value, Name) } + Do EconConfiguratieArray.SetAt("true", "Data.Lijn.Isgeldig") + Quit ..EconConfiguratieConverter.ConvertEconConfiguratieToObject(EconConfiguratieArray) ]]>