Index: APPS/PM/dto/ProductAfbeeldingen.cls.xml =================================================================== diff -u -r1073 -r2160 --- APPS/PM/dto/ProductAfbeeldingen.cls.xml (.../ProductAfbeeldingen.cls.xml) (revision 1073) +++ APPS/PM/dto/ProductAfbeeldingen.cls.xml (.../ProductAfbeeldingen.cls.xml) (revision 2160) @@ -11,17 +11,8 @@ %String - -%String - - %String - - -%String -list - Index: APPS/PM/dto/Kenm/KenmerkenSetIDs.cls.xml =================================================================== diff -u --- APPS/PM/dto/Kenm/KenmerkenSetIDs.cls.xml (revision 0) +++ APPS/PM/dto/Kenm/KenmerkenSetIDs.cls.xml (revision 2160) @@ -0,0 +1,13 @@ + + + +1 +%RegisteredObject,%XML.Adaptor +0 + + +APPS.PM.dto.Kenm.KenmerkenSetID +list + + + Index: vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml =================================================================== diff -u -r2156 -r2160 --- vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml (.../TestKenmerkenService.cls.xml) (revision 2156) +++ vhUnitTest/APPS/PM/TestKenmerkenService.cls.xml (.../TestKenmerkenService.cls.xml) (revision 2160) @@ -96,8 +96,8 @@ Set AutoVariantenVoorMaster = AutoVariantenVoorMasters.GetAt(1) - Do $$$AssertEquals(AutoVariantenVoorMaster.MasterPRNr,1018,"De PRNr is ingevuld") - Do $$$AssertEquals(AutoVariantenVoorMaster.MasterUnID,1018,"De UnID is ingevuld") + Do $$$AssertEquals(AutoVariantenVoorMaster.MasterKenmerkenSetID.ProductID,1018,"De PRNr is ingevuld") + Do $$$AssertEquals(AutoVariantenVoorMaster.MasterKenmerkenSetID.UnID,1018,"De UnID is ingevuld") Do $$$AssertEquals(AutoVariantenVoorMaster.AutoVarianten.Count(),3,"Er zijn 3 auto's gevonden") Do $$$AssertEquals(AutoVariantenVoorMaster.AutoVarianten.GetAt(1).ID,1019,"De eerste auto") @@ -566,10 +566,13 @@ Set KenmerkenService = ##class(APPS.PM.KenmerkenService).%New() Set KenmerkGroep = "OL" - Set UnIDs = ##class(%ListOfDataTypes).%New() - Do UnIDs.Insert("1003.2") + Set KenmerkenSets = ##class(APPS.PM.dto.Kenm.KenmerkenSetIDs).%New() + Set KenmerkenSet = ##class(APPS.PM.dto.Kenm.KenmerkenSetID).%New() + Set KenmerkenSet.UnID = "1003.2" + Set KenmerkenSet.ProductID = "1003" + Do KenmerkenSets.Sets.Insert(KenmerkenSet) - Set GewijzigdePRNrs = KenmerkenService.VerwijderKenmerkenSets(KenmerkGroep,UnIDs) + Set GewijzigdePRNrs = KenmerkenService.VerwijderKenmerkenSets(KenmerkGroep,KenmerkenSets) Do $$$AssertEquals(GewijzigdePRNrs.Count(),1,"Er is één product gewijzigd.") @@ -589,12 +592,15 @@ Set KenmerkenService = ##class(APPS.PM.KenmerkenService).%New() Set KenmerkGroep = "OEI" - Set UnIDs = ##class(%ListOfDataTypes).%New() - Do UnIDs.Insert("1003.2") + Set KenmerkenSets = ##class(APPS.PM.dto.Kenm.KenmerkenSetIDs).%New() + Set KenmerkenSet = ##class(APPS.PM.dto.Kenm.KenmerkenSetID).%New() + Set KenmerkenSet.UnID = "1003.2" + Set KenmerkenSet.ProductID = "1003" + Do KenmerkenSets.Sets.Insert(KenmerkenSet) Set $ZTRAP = "CatchVerwijder" - Set GewijzigdePRNrs = KenmerkenService.VerwijderKenmerkenSets(KenmerkGroep,UnIDs) + Set GewijzigdePRNrs = KenmerkenService.VerwijderKenmerkenSets(KenmerkGroep,KenmerkenSets) CatchVerwijder Set $ZTRAP = "" Set Exception = ##class(TECH.ExceptionHandler).Catch() @@ -614,17 +620,22 @@ Set KenmerkGroepen = ##class(%ListOfDataTypes).%New() Do KenmerkGroepen.Insert(KenmerkGroep) - Set UnIDs = ##class(%ListOfDataTypes).%New() - Do UnIDs.Insert("1016.2") Set PRNr = 1016 + + Set KenmerkenSets = ##class(APPS.PM.dto.Kenm.KenmerkenSetIDs).%New() + Set KenmerkenSet = ##class(APPS.PM.dto.Kenm.KenmerkenSetID).%New() + Set KenmerkenSet.UnID = "1016.2" + Set KenmerkenSet.ProductID = PRNr + Do KenmerkenSets.Sets.Insert(KenmerkenSet) + Set PRNrs = ##class(%ListOfDataTypes).%New() Do PRNrs.Insert(PRNr) Set ProductenKenmerken = KenmerkenService.GeefProductKenmerken(PRNrs,KenmerkGroepen) Set Sets = ProductenKenmerken.Kenmerken.GetAt(1).KenmerkenGroepen.GetAt(1).Sets Do $$$AssertEquals(Sets.Count(),3,"Er zijn 3 productkenmerken sets gevonden voor dit product.") - Set GewijzigdePRNrs = KenmerkenService.VerwijderKenmerkenSets(KenmerkGroep,UnIDs) + Set GewijzigdePRNrs = KenmerkenService.VerwijderKenmerkenSets(KenmerkGroep,KenmerkenSets) Do $$$AssertEquals(GewijzigdePRNrs.Count(),1,"Er is één product gewijzigd.") @@ -662,12 +673,19 @@ Set KenmerkGroepen = ##class(%ListOfDataTypes).%New() Do KenmerkGroepen.Insert(KenmerkGroep) - Set UnIDs = ##class(%ListOfDataTypes).%New() - Do UnIDs.Insert(1022) - Do UnIDs.Insert(1023) + Set KenmerkenSets = ##class(APPS.PM.dto.Kenm.KenmerkenSetIDs).%New() + Set KenmerkenSet = ##class(APPS.PM.dto.Kenm.KenmerkenSetID).%New() + Set KenmerkenSet.UnID = "1022" + Set KenmerkenSet.ProductID = "1022" + Do KenmerkenSets.Sets.Insert(KenmerkenSet) - Set GewijzigdePRNrs = KenmerkenService.MaakNieuweKenmerkenSets(KenmerkGroep,UnIDs) + Set KenmerkenSet = ##class(APPS.PM.dto.Kenm.KenmerkenSetID).%New() + Set KenmerkenSet.UnID = "1023" + Set KenmerkenSet.ProductID = "1023" + Do KenmerkenSets.Sets.Insert(KenmerkenSet) + Set GewijzigdePRNrs = KenmerkenService.MaakNieuweKenmerkenSets(KenmerkGroep,KenmerkenSets) + Do $$$AssertTrue($IsObject(GewijzigdePRNrs),"Er zijn gewijzigde PRNrs na de aanmaak.") Do $$$AssertEquals(GewijzigdePRNrs.Count(),2,"Er zijn twee gewijzigde PRNrs.") @@ -699,12 +717,19 @@ Set KenmerkGroepen = ##class(%ListOfDataTypes).%New() Do KenmerkGroepen.Insert(KenmerkGroep) - Set UnIDs = ##class(%ListOfDataTypes).%New() - Do UnIDs.Insert(1022) - Do UnIDs.Insert(1023) + Set KenmerkenSets = ##class(APPS.PM.dto.Kenm.KenmerkenSetIDs).%New() + Set KenmerkenSet = ##class(APPS.PM.dto.Kenm.KenmerkenSetID).%New() + Set KenmerkenSet.UnID = "1022" + Set KenmerkenSet.ProductID = "1022" + Do KenmerkenSets.Sets.Insert(KenmerkenSet) + Set KenmerkenSet = ##class(APPS.PM.dto.Kenm.KenmerkenSetID).%New() + Set KenmerkenSet.UnID = "1023" + Set KenmerkenSet.ProductID = "1023" + Do KenmerkenSets.Sets.Insert(KenmerkenSet) + Set $ZTRAP = "CatchMaak" - Set GewijzigdePRNrs = KenmerkenService.MaakNieuweKenmerkenSets(KenmerkGroep,UnIDs) + Set GewijzigdePRNrs = KenmerkenService.MaakNieuweKenmerkenSets(KenmerkGroep,KenmerkenSets) CatchMaak Set $ZTRAP = "" Set Exception = ##class(TECH.ExceptionHandler).Catch() Do $$$AssertEquals(Exception.GeefOmschrijving(),"Deze kenmerkgroep 'OEI' bevat geen masters of auto's.","Foutieve kenmerkgroep voor aanmaken van kenmerken sets is gedetecteerd.") Index: WS/PM/KenmerkenService.cls.xml =================================================================== diff -u -r2156 -r2160 --- WS/PM/KenmerkenService.cls.xml (.../KenmerkenService.cls.xml) (revision 2156) +++ WS/PM/KenmerkenService.cls.xml (.../KenmerkenService.cls.xml) (revision 2160) @@ -116,34 +116,40 @@ -Maak nieuwe kenmerkenset voor de opgegeven UnIDs (mogen ook PRNr's zijn) +Maak nieuwe kenmerkenset voor de opgegeven KenmerkenSets Returned lijst met gewijzigde PRNr's 1 -KenmerkGroep:%String,UnIDs:%ListOfDataTypes +KenmerkGroep:%String,BronKenmerkenSets:APPS.PM.dto.Kenm.KenmerkenSetIDs %ListOfDataTypes 1 1 -KenmerkGroep:%String,UnIDs:%ListOfDataTypes +KenmerkGroep:%String,KenmerkenSets:APPS.PM.dto.Kenm.KenmerkenSetIDs %ListOfDataTypes 1 Index: APPS/PM/dto/Kenm/KenmerkenSetID.cls.xml =================================================================== diff -u --- APPS/PM/dto/Kenm/KenmerkenSetID.cls.xml (revision 0) +++ APPS/PM/dto/Kenm/KenmerkenSetID.cls.xml (revision 2160) @@ -0,0 +1,18 @@ + + + +1 +%RegisteredObject,%XML.Adaptor +0 + + +%String +1 + + + +%String +1 + + + Index: APPS/PM/KenmerkenService.cls.xml =================================================================== diff -u -r2156 -r2160 --- APPS/PM/KenmerkenService.cls.xml (.../KenmerkenService.cls.xml) (revision 2156) +++ APPS/PM/KenmerkenService.cls.xml (.../KenmerkenService.cls.xml) (revision 2160) @@ -27,10 +27,8 @@ - JBL ] -Behoort dit tot het consistenter maken van de parameters? -Ik dacht dat het de bedoeling was dat er een combinatie van ProductID/UnID werd gevraagd als input?]]> + +De auto's van de ProductID's opvragen MasterUnIDs:%ListOfDataTypes,KenmerkGroep:%String APPS.PM.dto.Kenm.AutoVariantenVanMasters Verwijder voor één KenmerkGroep de opgegeven UnIDs -KenmerkGroep:%String,UnIDs:%ListOfDataTypes +KenmerkGroep:%String,KenmerkenSets:APPS.PM.dto.Kenm.KenmerkenSetIDs %ListOfDataTypes Maak nieuwe kenmerkenset voor de opgegeven UnIDs -KenmerkGroep:%String,UnIDs:%ListOfDataTypes +KenmerkGroep:%String,BronKenmerkenSets:APPS.PM.dto.Kenm.KenmerkenSetIDs %ListOfDataTypes %RegisteredObject,%XML.Adaptor 0 - -%Integer + +APPS.PM.dto.Kenm.KenmerkenSetID +1 - -%String - - DOM.common.dto.ProductData list