Index: Prod/Kenmerk/DataDefinitieRepository.cls.xml
===================================================================
diff -u -r63402 -r63412
--- Prod/Kenmerk/DataDefinitieRepository.cls.xml (.../DataDefinitieRepository.cls.xml) (revision 63402)
+++ Prod/Kenmerk/DataDefinitieRepository.cls.xml (.../DataDefinitieRepository.cls.xml) (revision 63412)
@@ -4,6 +4,12 @@
1
TECH.Interface
+
+1
+UnID:%String,KenmerkGroep:%String
+TECH.Iterator
+
+
TECH.Iterator
Index: Prod/Kenmerk/impl/DataDefinitieRepository.cls.xml
===================================================================
diff -u -r63402 -r63412
--- Prod/Kenmerk/impl/DataDefinitieRepository.cls.xml (.../DataDefinitieRepository.cls.xml) (revision 63402)
+++ Prod/Kenmerk/impl/DataDefinitieRepository.cls.xml (.../DataDefinitieRepository.cls.xml) (revision 63412)
@@ -8,6 +8,13 @@
Prod.Kenmerk.DataDefinitie
+
+UnID:%String,KenmerkGroep:%String
+TECH.Iterator
+
+
+
TECH.Iterator
+
+
+TECH.RegisteredObject
+
+
+%SQLGatewayConnection
+1
+
+
+
+vhLib.Logger
+1
+
+
+
+TECH.DateTime.impl.DateTimeAPI
+1
+
+
+
+Prod.Kenmerk.impl.DataDefinitieRepository
+1
+
+
+
+%Library.Status
+
+
+
+
+TeControlerenUnId,BewerkteKenmerkGroep
+
+
+
+
+UnID:%String,KenmerkGroep:%String
+1
+
+
+
+
+UnID:%String,KenmerkGroep:%String
+1
+
+
+
+
+UnID:%String,KenmerkGroep:%String
+1
+
+
+
+
+UnID:%String,KenmerkGroep:%String
+1
+
+
+
+1
+%String
+
+
+
+
+1
+%String
+
+
+
+
+Rolstukje:%String,Variant:%String
+1
+%String
+
+
+
+
+Statement:%String
+%ResultSet
+
+
+
+
+
+
Index: APPS/PM/KenmMWFPlugin.cls.xml
===================================================================
diff -u -r62549 -r63412
--- APPS/PM/KenmMWFPlugin.cls.xml (.../KenmMWFPlugin.cls.xml) (revision 62549)
+++ APPS/PM/KenmMWFPlugin.cls.xml (.../KenmMWFPlugin.cls.xml) (revision 63412)
@@ -96,6 +96,9 @@
Do ##class(vhLib.Logger).%New(..#ApplicatieNaam).ErrorMail("Kon halffabs niet maken voor product "_UnID,Exception.ToString())
Do ##class(TECH.ExceptionHandler).Rethrow(Exception)
}
+ If (..GeefProductGroep(KenmerkGroep) = "MVX") {
+ Do ##class(DOM.PM.Maatwerk.Syncs.DotNet.MaatwerkCalculator.impl.VerwijderKenmerken).%New().VerwijderKenmerkenInDotNetIndienNodig(UnID, KenmerkGroep)
+ }
}
]]>
@@ -107,6 +110,7 @@
#dim HeeftEenHalffabGemaakt As %Boolean = 0
#dim HalffabClassName As %String = ..GeefHalffabClassNameVoor(KenmerkGroep)
#dim SQLTableName As %String = ..GeefSQLTableNameVoorHalffabKlasse(HalffabClassName)
+ #dim IsMVXKenmerk As %Boolean = (..GeefProductGroep(KenmerkGroep) = "MVX")
Set HalffabObjecten = ##class(%ListOfObjects).%New()
Do HalffabObjecten.Insert($zobjclassmethod(HalffabClassName,"%New",$P(UnID,".")))
@@ -168,8 +172,10 @@
Do Halffab.Save()
Do EventData.Halffabs.Insert(Halffab)
}
- Set Event = ##class(TECH.Events.HalffabsGemaaktEvent).%New(EventData)
- Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(Event)
+ If (IsMVXKenmerk) {
+ Set Event = ##class(TECH.Events.HalffabsGemaaktEvent).%New(EventData)
+ Do ##class(TECH.Context).Instance().GeefPubSubAPI().GeefEventRaiser().RaiseEventAsync(Event)
+ }
}
Lock -^HalffabSelectie(SQLTableName)