Index: ECON/PM/Maatwerk/dto/TbxKenmerken.cls.xml =================================================================== diff -u -r61919 -r65311 --- ECON/PM/Maatwerk/dto/TbxKenmerken.cls.xml (.../TbxKenmerken.cls.xml) (revision 61919) +++ ECON/PM/Maatwerk/dto/TbxKenmerken.cls.xml (.../TbxKenmerken.cls.xml) (revision 65311) @@ -248,6 +248,8 @@ Set Code = "" If ((Property = "Familie") || (Property = "Variant")) { Set Code = "Set .."_Property_" = KenmerkenArray.GetAt(""Data.Kenmerken."_Property_""")" + } ElseIf (Property = "InterneBreedte") { + Set Code = "Set .."_Property_" = KenmerkenArray.GetAt(""Data.BerekendeWaarden."_Property_""")" } ElseIf (PropertyType = "ECON.Boolean") { Set Code = "Set .."_Property_" = $ZCVT(KenmerkenArray.GetAt("""_Key_"""),""L"")" } Else { @@ -270,9 +272,11 @@ set (Property,Key)="" for { set Property = $order(Properties(Property)) set Key = $order(Keys(Key)) quit:Property="" - if ((Property = "Familie") || (Property = "Variant")) { + If ((Property = "Familie") || (Property = "Variant")) { set Code = "do:$length(.."_Property_") KenmerkenArray.SetAt(.."_Property_",""Data.Kenmerken."_Property_""")" - } else { + }Elseif (Property = "InterneBreedte") { + set Code = "do:$length(.."_Property_") KenmerkenArray.SetAt(.."_Property_",""Data.BerekendeWaarden."_Property_""")" + } Else { set Code = "do:$length(.."_Property_") KenmerkenArray.SetAt(.."_Property_","""_Key_""")" } do %code.WriteLine($$$TAB_Code)