Index: APPS/PM/KenmerkenService.cls.xml =================================================================== diff -u -r1551 -r1553 --- APPS/PM/KenmerkenService.cls.xml (.../KenmerkenService.cls.xml) (revision 1551) +++ APPS/PM/KenmerkenService.cls.xml (.../KenmerkenService.cls.xml) (revision 1553) @@ -94,7 +94,7 @@ While (UnIDIt.HasNext()){ Set UnID = UnIDIt.Next() Set Kenmerken = ##class(%ListOfObjects).%New() - + Set tmpStatus=RS.Execute(KenmerkGroep) If $$$ISOK(tmpStatus) { @@ -104,12 +104,10 @@ If ##class(Prod.Kenmerk.DataDefinitie).%ExistsId(DataDefID) { Set tmpDataDef=##class(Prod.Kenmerk.DataDefinitie).%OpenId(DataDefID) - If (tmpDataDef.GeefKenmerk().Kenmerk '= "GeneratieType"){ - Set ProductKenmerk = ##class(APPS.PM.dto.Kenm.ProductKenmerk).%New() - Set ProductKenmerk.Naam = tmpDataDef.GeefKenmerk().Kenmerk - Set ProductKenmerk.Waarden = tmpDataDef.Waarden - Do Kenmerken.Insert(ProductKenmerk) - } + Set ProductKenmerk = ##class(APPS.PM.dto.Kenm.ProductKenmerk).%New() + Set ProductKenmerk.Naam = tmpDataDef.GeefKenmerk().Kenmerk + Set ProductKenmerk.Waarden = tmpDataDef.Waarden + Do Kenmerken.Insert(ProductKenmerk) } } } @@ -126,7 +124,7 @@ }Else{ Set ProductKenmerkenSet.GeneratieType = ##class(APPS.PM.enu.GeneratieType).Single() } - + Set ProductKenmerkenSet.Kenmerken = Kenmerken Do ProductKenmerkenGroep.Sets.Insert(ProductKenmerkenSet) }