Index: APPS/OV/impl/OrgaluxVerpakkingControle.cls.xml
===================================================================
diff -u -r2622 -r3374
--- APPS/OV/impl/OrgaluxVerpakkingControle.cls.xml	(.../OrgaluxVerpakkingControle.cls.xml)	(revision 2622)
+++ APPS/OV/impl/OrgaluxVerpakkingControle.cls.xml	(.../OrgaluxVerpakkingControle.cls.xml)	(revision 3374)
@@ -5,36 +5,65 @@
 <Super>%RegisteredObject</Super>
 <ClassDefinitionError>0</ClassDefinitionError>
 
+<Property name="OrgaluxClassificatie">
+<Type>DOM.PM.SubgroepClassificatie</Type>
+<Private>1</Private>
+</Property>
+
+<Method name="%OnNew">
+<Private>1</Private>
+<ProcedureBlock>1</ProcedureBlock>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Set ..OrgaluxClassificatie = ##class(DOM.DomeinContext).Instance().GeefProductAPI().GeefOrgaluxClassificatie()
+	Quit $$$OK
+]]></Implementation>
+</Method>
+
 <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())
+		If ('..IsGeldigProduct(Product))
 		{
-			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 '= "") { 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)
+		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 of volume gedefinieerd voor product(en) "_ProductenZonderVerpakking)
 	}
 ]]></Implementation>
 </Method>
 
+<Method name="IsGeldigProduct">
+<FormalSpec>Product:DOM.PM.Product</FormalSpec>
+<Private>1</Private>
+<Implementation><![CDATA[
+	Set IsGeldig = 1
+		
+	If (Product.GeefClassificatie().GeefGroepClassificatie().GeefHoofdgroepClassificatie().GeefID() = ..OrgaluxClassificatie.GeefID())
+	{
+		Set HeeftOptiboxData = ##class(BL.Prod.OptiBox.Optimize).HasOptiData("PR",Product.GeefPRNr())
+		Set (B,D,H) = ""
+		Do ##class(BL.Prod.OptiBox.Optimize).%New().GetVolume(Product.GeefPRNr(),1,.B,.D,.H)
+		Set HeeftOptiboxVolume = (B'="")
+		Set IsGeldig = (HeeftOptiboxData || HeeftOptiboxVolume)
+	}
+	
+	Quit IsGeldig
+]]></Implementation>
+</Method>
+
 <Method name="OnOrderGeslotenEvent">
 <ClassMethod>1</ClassMethod>
 <FormalSpec>OrderGeslotenEvent:DOM.VKP.event.OrderGeslotenEvent</FormalSpec>