Index: TECH/ObjectUtils/impl/WaardenKopieerder.cls.xml =================================================================== diff -u -r766 -r769 --- TECH/ObjectUtils/impl/WaardenKopieerder.cls.xml (.../WaardenKopieerder.cls.xml) (revision 766) +++ TECH/ObjectUtils/impl/WaardenKopieerder.cls.xml (.../WaardenKopieerder.cls.xml) (revision 769) @@ -60,11 +60,13 @@ if ##class(TECH.ClassUtils).IsDataType($listget(PropertyInfo,$$$fldClassName)) { if $length(PropertyCollection) { if PropertyValue.Count() = 0 || ( flagOverwrite ){ - if PropertyCollection = "list" set PropertyValue = ##class(TECH.ListUtils).CopyListOfDataTypes(PropertyValueDefaults) - if PropertyCollection = "array" set PropertyValue = ##class(TECH.ListUtils).CopyArrayOfDataTypes(PropertyValueDefaults) + If (PropertyValueDefaults.Count()>0) { + if PropertyCollection = "list" set PropertyValue = ##class(TECH.ListUtils).CopyListOfDataTypes(PropertyValueDefaults) + if PropertyCollection = "array" set PropertyValue = ##class(TECH.ListUtils).CopyArrayOfDataTypes(PropertyValueDefaults) + } } } elseif ( PropertyValue = "" ) || ( flagOverwrite ) { - set PropertyValue = PropertyValueDefaults + set:(PropertyValueDefaults '= "") PropertyValue = PropertyValueDefaults } If $$$Not(##class(TECH.ListUtils).Contains(..NietTeKopierenProperties,PropertyName)) {