Index: vhDeploy/CSC/Deploy20111102x0943.cls.xml
===================================================================
diff -u
--- vhDeploy/CSC/Deploy20111102x0943.cls.xml	(revision 0)
+++ vhDeploy/CSC/Deploy20111102x0943.cls.xml	(revision 2622)
@@ -0,0 +1,16 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="vhDeploy.CSC.Deploy20111102x0943">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>svn.Deploy</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="ExecCode">
+<ClassMethod>1</ClassMethod>
+<Implementation><![CDATA[
+	Set Subscription = ##class(TECH.PubSub.EventSubscription).%New("OrderGeslotenEvent","APPS.OV.impl.OrgaluxVerpakkingControle","OnOrderGeslotenEvent")
+	Do Subscription.%Save()
+]]></Implementation>
+</Method>
+</Class>
+</Export>
Index: APPS/OV/impl/OrgaluxVerpakkingControle.cls.xml
===================================================================
diff -u
--- APPS/OV/impl/OrgaluxVerpakkingControle.cls.xml	(revision 0)
+++ APPS/OV/impl/OrgaluxVerpakkingControle.cls.xml	(revision 2622)
@@ -0,0 +1,49 @@
+<?xml version="1.0" encoding="UTF-8"?>
+<Export generator="Cache" version="9">
+<Class name="APPS.OV.impl.OrgaluxVerpakkingControle">
+<ProcedureBlock>1</ProcedureBlock>
+<Super>%RegisteredObject</Super>
+<ClassDefinitionError>0</ClassDefinitionError>
+
+<Method name="ControleerOrder">
+<FormalSpec>Order:DOM.OV.Order</FormalSpec>
+<Implementation><![CDATA[
+	Set ProductAPI = ##class(DOM.DomeinContext).Instance().GeefProductAPI()
+	Set OrgaluxClassificatie = ProductAPI.GeefOrgaluxClassificatie()
+	Set ProductenZonderVerpakking = ""
+	
+	Set ProductLijnIterator = Order.GeefTypeOrderLijnIterator(##class(DOM.OV.enu.OrderLijnType).Product())
+	While (ProductLijnIterator.HasNext())
+	{
+		Set ProductLijn = ProductLijnIterator.Next()
+		Set Product = ProductLijn.GeefProduct()
+		If (Product.GeefClassificatie().GeefGroepClassificatie().GeefHoofdgroepClassificatie().GeefID() = OrgaluxClassificatie.GeefID())
+		{
+			Set HeeftOptiboxData=##class(BL.Prod.OptiBox.Optimize).HasOptiData("PR",Product.GeefPRNr())
+			If ('HeeftOptiboxData)
+			{
+				If (ProductenZonderVerpakking '= "") { Set ProductenZonderVerpakking = ProductenZonderVerpakking_", " }
+				Set ProductenZonderVerpakking = ProductenZonderVerpakking_Product.GeefKorttekst()
+			}
+		}
+	}
+	
+	If (ProductenZonderVerpakking '= "")
+	{
+		Do SendMiniMail^vhLib("Order controleur<reports@vanhoecke.be>",$LB("jb@vanhoecke.be"),"Ontbrekende verpakkingsproducten voor ORGALUX","Probleem in order "_Order.GeefOrderNr()_". Er is geen verpakkingsproduct gedefinieerd voor product(en) "_ProductenZonderVerpakking)
+	}
+]]></Implementation>
+</Method>
+
+<Method name="OnOrderGeslotenEvent">
+<ClassMethod>1</ClassMethod>
+<FormalSpec>OrderGeslotenEvent:DOM.VKP.event.OrderGeslotenEvent</FormalSpec>
+<Implementation><![CDATA[
+	Set OrderID = OrderGeslotenEvent.Data.GeefOrderID()
+	Set Order = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefOrder(OrderID)
+	Set OrgaluxVerpakkingControle = ..%New()
+	Do OrgaluxVerpakkingControle.ControleerOrder(Order)
+]]></Implementation>
+</Method>
+</Class>
+</Export>