JBL + 2011-02-28 TO DO : 2011-06-09 : JBL De controle bij BewaarKenmerk moet niet in de service controleren of een kenmerk gewijzigd is. Dit moet verplaatst worden naar het persistente Prod.DataDefinitie object. TECH.Error 1 %RegisteredObject 0 2011-03-02 : JBL : Deze ingestelde VeldBreedteInTekens is een tijdelijke oplossing. Later moet dit als data worden opgeslaan. %Integer 15 %String %ArrayOfObjects De auto's van de ProductID's opvragen KenmerkenSetIDs:APPS.PM.dto.Kenm.KenmerkenSetIDs,KenmerkGroep:%String APPS.PM.dto.Kenm.AutoVariantenVanMasters KenmerkGroep:%String BL.Kenm.ProdMulti Zoek productkenmerken aan de hand van de opgegeven PRNrs en productgroepen. PRNrs = lijst van integers KenmerkGroepen = lijst van strings PRNrs:%ListOfDataTypes,KenmerkGroepen:%ListOfDataTypes="" APPS.PM.dto.Kenm.ProductenKenmerken Omzetten van een lijst, naar een string die gebruikt kan worden voor een SQL 'IN' statement. Lijst:%ListOfDataTypes 1 %String Geeft de ProductenKenmerken voor 1 product voor 1 KenmerkGroep. Opgelet resultaat kan kenmerken voor meerdere UnID's bevatten. PRNr:%String,KenmerkGroep:%String APPS.PM.dto.Kenm.ProductenKenmerken Geeft de ProductKenmerken voor 1 UnID terug (combinatie van PRNr en SubID) UnID:%String,KenmerkGroep:%String APPS.PM.dto.Kenm.ProductKenmerkenSet Zoek metadata aan de hand van de opgegeven kenmerkengroepen. KenmerkGroepen = lijst van strings KenmerkGroepen:%ListOfDataTypes="" APPS.PM.dto.Kenm.KenmerkMetadataList Bewaar opgegeven KenmerkMetadata, indien nog niet bestaand is wordt deze aangemaakt. KenmerkMetadata:APPS.PM.dto.Kenm.KenmerkMetadata,MetaGroep:Prod.Kenmerk.MetaGroep 0)) { Set WaardenSorteringLB = ##class(TECH.ListUtils).ListToListbuild(KenmerkMetadata.Mogelijkheden) Set MetaDefinitie.WaardenSortering = WaardenSorteringLB } /// Wijzig gegevens Set MetaDefinitie.WijzigGebruiker = ##class(TECH.Context.RuntimeContext).Instance().GeefGebruikerInitialen() Set MetaDefinitie.WijzigTijdstip = ##class(TECH.DateTime).CurrentTimeStamp() Set Status = MetaDefinitie.%Save() If ($$$ISERR(Status)) { Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.SaveFailedException).%New("Kon de KenmerkMetadata niet opslaan (Naam: '"_KenmerkMetadata.Naam_"', ID: '"_KenmerkMetadata.ID_"'",Status)) } Set MetaDefinitie = "" Set Groep = "" ]]> De opgegeven KenmerkGroepMetadata bewaren, als een onbestaand KenmerkMetadata is, dan wordt een nieuwe gecreëerd. KenmerkGroepMetadata:APPS.PM.dto.Kenm.KenmerkGroepMetadata De opgegeven KenmerkGroepMetadata bewaren, als een onbestaand KenmerkMetadata is, dan wordt een nieuwe gecreëerd. KenmerkGroepMetadataLijst:APPS.PM.dto.Kenm.KenmerkMetadataList De opgegeven ProductenKenmerken bewaren ProductenKenmerken:APPS.PM.dto.Kenm.ProductenKenmerken Verwijder voor één KenmerkGroep de opgegeven UnIDs KenmerkGroep:%String,KenmerkenSets:APPS.PM.dto.Kenm.KenmerkenSetIDs %ListOfDataTypes Maak nieuwe kenmerkenset voor de opgegeven UnIDs KenmerkGroep:%String,BronKenmerkenSets:APPS.PM.dto.Kenm.KenmerkenSetIDs %ListOfDataTypes UnID:%String,KenmerkGroep:%String,KenmerkNaam:%String 1 %List KenmerkGroep:%String 1 %Boolean 1) HeeftProdMulti = 1 Quit HeeftProdMulti ]]>