Index: APPS/PM/KenmerkenService.cls.xml =================================================================== diff -u -r1519 -r1536 --- APPS/PM/KenmerkenService.cls.xml (.../KenmerkenService.cls.xml) (revision 1519) +++ APPS/PM/KenmerkenService.cls.xml (.../KenmerkenService.cls.xml) (revision 1536) @@ -122,6 +122,9 @@ /// Enkel Set toevoegen als er kenmerken zijn voor die set. If (Kenmerken.Count() > 0){ + + // [ Review JBL WV Kenmerken ] Code vanaf New ProductKenmerkenSet t/m GeneratieType mag naar hier (binnen de if{} ) verhuizen, denk ik. + Set ProductKenmerkenSet.Kenmerken = Kenmerken Do ProductKenmerkenGroep.Sets.Insert(ProductKenmerkenSet) } Index: vhUnitTest/DOM/PM/TestProductKenmerkenSets.cls.xml =================================================================== diff -u -r1507 -r1536 --- vhUnitTest/DOM/PM/TestProductKenmerkenSets.cls.xml (.../TestProductKenmerkenSets.cls.xml) (revision 1507) +++ vhUnitTest/DOM/PM/TestProductKenmerkenSets.cls.xml (.../TestProductKenmerkenSets.cls.xml) (revision 1536) @@ -63,6 +63,8 @@ Do $$$AssertTrue(KenmerkenSet.GeefKenmerkWaarden("MeubelToepassing"),"De aangemaakte KenmerkenSet heeft waarden voor kenmerk 'MeubelToepassing'.") Do $$$AssertEquals(KenmerkenSet.GeefKenmerkWaarden("MeubelToepassing").GetAt(1),"Keuken","De aangemaakte KenmerkenSet heeft een correcte waarde voor kenmerk 'MeubelToepassing'.") + + // [ Review JBL WV Kenmerken ] Best ook iets checken van de UnID. Is dit een test voor OneToMultiple ? } ]]> Index: APPS/PM/OL/MasterAutoGenerator.cls.xml =================================================================== diff -u -r1517 -r1536 --- APPS/PM/OL/MasterAutoGenerator.cls.xml (.../MasterAutoGenerator.cls.xml) (revision 1517) +++ APPS/PM/OL/MasterAutoGenerator.cls.xml (.../MasterAutoGenerator.cls.xml) (revision 1536) @@ -118,19 +118,21 @@ JBL + 2011-06-21 Geef voor het opgegeven UnID of PRNr de AUTO's -indien het opgegeven UnID of PRNr een MASTER is. +indien het opgegeven UnID of PRNr een MASTER is. + 1 UnID:%String %Status Maak voor een product een multiple aan. BronUnID : mag een PRNr of UnID zijn. - - Als PRNr dan word .1 en .2 aangemaakt. + - Als PRNr dan worden .1 en .2 aangemaakt. - Als UnID dan wordt bron .1 er een .2 bijgemaakt. Als BronUnID leeg is, dan wordt automatisch het PRNr gebruikt. Index: DOM/PM/impl/DataM/DataMProductAPI.cls.xml =================================================================== diff -u -r1517 -r1536 --- DOM/PM/impl/DataM/DataMProductAPI.cls.xml (.../DataMProductAPI.cls.xml) (revision 1517) +++ DOM/PM/impl/DataM/DataMProductAPI.cls.xml (.../DataMProductAPI.cls.xml) (revision 1536) @@ -233,7 +233,7 @@ Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.BaseException).%New(##class(TECH.enu.ExceptionCode).InvalidInput(),"Kon het kenmerk niet opslaan om het AUTO als GeneratieType heeft.")) } - Do ProductKenmerkenSet.ZetRaiseEvent(0) /// Geen event raisen, want is buld operatie + Do ProductKenmerkenSet.ZetRaiseEvent(0) /// Geen event raisen, want is bulk operatie Set Wijziging = ProductKenmerkenSet.ZetKenmerkWaarden(ProductKenmerk.Waarden,ProductKenmerk.Naam) If (Wijziging '= ""){