Index: vhConsistency/Checks/Events/ProductToelevLijn.cls.xml
===================================================================
diff -u
--- vhConsistency/Checks/Events/ProductToelevLijn.cls.xml (revision 0)
+++ vhConsistency/Checks/Events/ProductToelevLijn.cls.xml (revision 3787)
@@ -0,0 +1,146 @@
+
+
+
+persistent
+1
+TECH.Persistent
+0
+
+
+%String
+1
+
+
+
+%String
+1
+
+
+
+%String
+1
+
+
+
+%String
+1
+
+
+
+%Date
+1
+
+
+
+1
+ToeleveringID,ToeleveringLijnCode
+1
+
+
+
+ToeleveringID:%String,ToeleveringLijnCode:%String
+1
+1
+%Status
+
+
+
+
+%String
+
+
+
+
+Waarde:%String
+
+
+
+
+%String
+
+
+
+
+Waarde:%String
+
+
+
+
+%String
+
+
+
+
+Waarde:%String
+
+
+
+
+%String
+
+
+
+
+Waarde:%String
+
+
+
+
+%Date
+
+
+
+
+Waarde:%Date
+
+
+
+
+%Library.CacheStorage
+^vhConsistenA92.ProductToele6DDD
+ProductToelevLijnDefaultData
+^vhConsistenA92.ProductToele6DDD
+^vhConsistenA92.ProductToele6DDI
+^vhConsistenA92.ProductToele6DDS
+
+listnode
+
+
+%%CLASSNAME
+
+
+ToeleveringID
+
+
+ToeleveringLijnCode
+
+
+Aantal
+
+
+Leverdag
+
+
+ProductID
+
+
+Leverdatum
+
+
+
+
+
Index: vhConsistency/Checks/Events/ControleToeleveringen.cls.xml
===================================================================
diff -u
--- vhConsistency/Checks/Events/ControleToeleveringen.cls.xml (revision 0)
+++ vhConsistency/Checks/Events/ControleToeleveringen.cls.xml (revision 3787)
@@ -0,0 +1,218 @@
+
+
+
+1
+vhConsistency.Check
+0
+
+
+%String
+csc@vanhoecke.be
+
+
+
+
+Do ##class(vhConsistency.ConsistencyCheck).VoerUit(1,1,"vhConsistency.Checks.Events.ControleToeleveringen")
+%Status
+0)
+ {
+ Quit $$$ERROR($$$GeneralError,"Tralala")
+ }
+ Else
+ {
+ Quit $$$OK
+ }
+]]>
+
+
+
+ToeleveringLijn:DOM.LEV.ProductToeleveringLijn
+1
+
+
+
+
+ToeleveringLijn:DOM.LEV.ProductToeleveringLijn
+1
+ 0)
+ {
+ Set EventData = ##class(DOM.AKP.event.ProductToelevLijnWijzigEventData).%New(ToeleveringID, ToeleveringLijnCode, ProductID, WijzigingTypes)
+ Set Event = ##class(DOM.AKP.event.ProductToelevLijnGewijzigd).%New(EventData)
+ Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(Event)
+
+ Set Wijzigingen = ""
+ Set WijzigingIterator = ##class(TECH.ListIterator).%New(WijzigingTypes)
+ While (WijzigingIterator.HasNext())
+ {
+ Set Wijziging = WijzigingIterator.Next()
+ Set Wijzigingen = Wijzigingen_Wijziging
+ If (WijzigingIterator.HasNext()) { Set Wijzigingen = Wijzigingen_", " }
+ }
+
+ Do ..VoegMeldingToe("Toeleveringlijn gewijzigd ("_ToeleveringID_", "_ToeleveringLijnCode_"): "_Wijzigingen)
+ }
+]]>
+
+
+
+Lijn:vhConsistency.Checks.Events.ProductToelevLijn
+1
+
+
+
+
+1
+ProductToeleveringLijnGemaakt:DOM.AKP.event.ProductToelevLijnGemaakt
+
+
+
+
+1
+ProductToeleveringLijnGewijzigd:DOM.AKP.event.ProductToelevLijnGewijzigd
+
+
+
+
+1
+ProductToeleveringLijnAnnulatie:DOM.AKP.event.ProductToelevLijnAnnulatie
+
+
+
+
+1
+ProductToeleveringLijnIngeboekt:DOM.AKP.event.ProductToelevLijnIngeboekt
+
+
+
+
Index: vhDeploy/CSC/Deploy20111216x0930.cls.xml
===================================================================
diff -u
--- vhDeploy/CSC/Deploy20111216x0930.cls.xml (revision 0)
+++ vhDeploy/CSC/Deploy20111216x0930.cls.xml (revision 3787)
@@ -0,0 +1,41 @@
+
+
+
+1
+svn.Deploy
+0
+
+
+%String
+Subscriptions opzetten controle KOD/KTO events
+
+
+
+1
+
+
+
+
Index: vhConsistency/Checks/Events/ProductOrderLijn.cls.xml
===================================================================
diff -u
--- vhConsistency/Checks/Events/ProductOrderLijn.cls.xml (revision 0)
+++ vhConsistency/Checks/Events/ProductOrderLijn.cls.xml (revision 3787)
@@ -0,0 +1,168 @@
+
+
+
+persistent
+1
+TECH.Persistent
+0
+
+
+%String
+1
+
+
+
+%String
+1
+
+
+
+%String
+1
+
+
+
+%String
+1
+
+
+
+%Integer
+1
+
+
+
+%Date
+1
+
+
+
+%Boolean
+1
+
+
+
+1
+OrderID,OrderLijnCode
+1
+
+
+
+OrderID:%String,OrderLijnCode:%String
+1
+1
+%Status
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+%String
+
+
+
+
+Waarde:%String
+
+
+
+
+%String
+
+
+
+
+Waarde:%String
+
+
+
+
+%Integer
+
+
+
+
+Waarde:%Integer
+
+
+
+
+%Date
+
+
+
+
+Waarde:%Date
+
+
+
+
+%Boolean
+
+
+
+
+Waarde:%Boolean
+
+
+
+
+%Library.CacheStorage
+^vhConsistenA92.ProductOrder66AD
+ProductOrderLijnDefaultData
+^vhConsistenA92.ProductOrder66AD
+^vhConsistenA92.ProductOrder66AI
+^vhConsistenA92.ProductOrder66AS
+
+listnode
+
+
+%%CLASSNAME
+
+
+KlantID
+
+
+ProductID
+
+
+Aantal
+
+
+Leverdatum
+
+
+IsDoorgestuurdVoorPicking
+
+
+IsWachtendOpPicking
+
+
+
+
+
Index: vhConsistency/Checks/Events/ControleOrders.cls.xml
===================================================================
diff -u
--- vhConsistency/Checks/Events/ControleOrders.cls.xml (revision 0)
+++ vhConsistency/Checks/Events/ControleOrders.cls.xml (revision 3787)
@@ -0,0 +1,266 @@
+
+
+
+1
+vhConsistency.Check
+0
+
+
+%String
+csc@vanhoecke.be
+
+
+
+
+Do ##class(vhConsistency.ConsistencyCheck).VoerUit(1,1,"vhConsistency.Checks.Events.ControleOrders")
+%Status
+ 0)
+ {
+ Do ..ControleerGemaakt(ProductLijn)
+ Do ..ControleerGewijzigd(ProductLijn)
+ Do ..ControleerPickingStatus(ProductLijn)
+ }
+ }
+ }
+
+ Set ResultSet = ##class(%ResultSet).%New("vhConsistency.Checks.Events.ProductOrderLijn:Extent")
+ Do ResultSet.Execute()
+ While (ResultSet.Next())
+ {
+ Do ..ControleerVerwijderd(##class(vhConsistency.Checks.Events.ProductOrderLijn).OpenId(ResultSet.Data("ID")))
+ }
+
+ If (..GeefAantalMeldingen()>0)
+ {
+ Quit $$$ERROR($$$GeneralError,"Tralala")
+ }
+ Else
+ {
+ Quit $$$OK
+ }
+]]>
+
+
+
+ProductLijn:DOM.OV.ProductOrderlijn
+1
+
+
+
+
+ProductLijn:DOM.OV.ProductOrderlijn
+1
+ 0)
+ {
+ Set EventData = ##class(DOM.VKP.event.ProductOrderLijnWijzigEventData).%New(OrderID, OrderLijnCode, KlantID, ProductID, WijzigingTypes)
+ Set Event = ##class(DOM.VKP.event.ProductOrderLijnGewijzigd).%New(EventData)
+ Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(Event)
+
+ Set Wijzigingen = ""
+ Set WijzigingIterator = ##class(TECH.ListIterator).%New(WijzigingTypes)
+ While (WijzigingIterator.HasNext())
+ {
+ Set Wijziging = WijzigingIterator.Next()
+ Set Wijzigingen = Wijzigingen_Wijziging
+ If (WijzigingIterator.HasNext()) { Set Wijzigingen = Wijzigingen_", " }
+ }
+
+ Do ..VoegMeldingToe("Productorderlijn gewijzigd ("_OrderID_", "_OrderLijnCode_"): "_Wijzigingen)
+ }
+]]>
+
+
+
+Lijn:vhConsistency.Checks.Events.ProductOrderLijn
+1
+
+
+
+
+ProductLijn:DOM.OV.ProductOrderlijn
+1
+ 0)
+ If (Lijn.IsWachtendOpPicking() '= IsWachtendOpPicking)
+ {
+ If (IsWachtendOpPicking)
+ {
+ Set WachtendOpPickingEventData = ##class(DOM.MAG.event.WachtendOpPickingEventData).%New(OrderID, OrderLijnCode, ConsolidatieID)
+ Set WachtendOpPickingEvent = ##class(DOM.MAG.event.WachtendOpPickingEvent).%New(WachtendOpPickingEventData)
+ Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(WachtendOpPickingEvent)
+
+ Do ..VoegMeldingToe("Productorderlijn naar wachtend op picking gewijzigd ("_OrderID_", "_OrderLijnCode_")")
+ }
+ Else
+ {
+ // consolidatie id zal hier "" zijn vermits we niet meer kunnen achterhalen over welke bon het ging
+ Set PickingAnnulatieEventData = ##class(DOM.MAG.event.PickingAnnulatieEventData).%New(OrderID, OrderLijnCode, ConsolidatieID)
+ Set PickingAnnulatieEvent = ##class(DOM.MAG.event.PickingAnnulatieEvent).%New(PickingAnnulatieEventData)
+ Do ##class(TECH.PubSub.OrchestrationContext).GetEventRaiser().RaiseEventAsync(PickingAnnulatieEvent)
+
+ Do ..VoegMeldingToe("Productorderlijn naar geannuleerd voor picking ("_OrderID_", "_OrderLijnCode_")")
+ }
+ }
+]]>
+
+
+
+1
+Event:DOM.VKP.event.ProductOrderLijnGemaakt
+
+
+
+
+1
+ProductOrderLijnGewijzigdEvent:DOM.VKP.event.ProductOrderLijnGewijzigd
+
+
+
+
+1
+ProductOrderLijnAnnulatieEvent:DOM.VKP.event.ProductOrderLijnAnnulatie
+
+
+
+
+1
+ProductLijnOpBonEvent:DOM.VKP.event.ProductLijnOpBonEvent
+
+
+
+
+1
+WachtendOpPickingEvent:DOM.MAG.event.WachtendOpPickingEvent
+
+
+
+
+1
+PickingAnnulatieEvent:DOM.MAG.event.PickingAnnulatieEvent
+
+
+
+