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