Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/OrderOptiesGenerator.cls.xml
===================================================================
diff -u -r73528 -r74616
--- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/OrderOptiesGenerator.cls.xml	(.../OrderOptiesGenerator.cls.xml)	(revision 73528)
+++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/OrderOptiesGenerator.cls.xml	(.../OrderOptiesGenerator.cls.xml)	(revision 74616)
@@ -62,18 +62,22 @@
 			#dim OrderLijn As DOM.VKP.impl.DataM.DataMProductOrderlijn = OrderLijnIterator.Next()
 			Set OrderlijnReferentie = ""
 			Set PakketReferentie = ""
-				
-			If OrderLijn.GeefProductID() = ProductId {
-				Set OrderlijnReferentie = OrderLijn.GeefProjectReferentie()
-				Set PakketReferentie = OrderLijn.GeefPakketReferentie()
 			
-				Set IsGevonden = $$$True
+			If (OrderLijn.%ClassName(1) = "DOM.VKP.impl.DataM.DataMProductOrderlijn") {				
+				If OrderLijn.GeefProductID() = ProductId {
+					Set OrderlijnReferentie = OrderLijn.GeefProjectReferentie()
+					Set PakketReferentie = OrderLijn.GeefPakketReferentie()
+			
+					Set IsGevonden = $$$True
+				}
+				
+				Do ..VulAanProjectReferentieMetLadeNaamIndienSpaceTower(.OrderlijnReferentie, ProductId, OrderLijn.GeefProductID())
 			}
 			
-			Do ..VulAanProjectReferentieMetLadeNaamIndienSpaceTower(.OrderlijnReferentie, ProductId, OrderLijn.GeefProductID())
 		}
 	} Catch {
 		#dim Exception As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
+		Do ##class(vhLib.Logger).%New("OrderOptiesGenerator").ErrorMail("Bepalen orderlijnreferentie mislukt.",Exception.ToString())
 	}
 	
 	Do LijstOrderRefentieOpties.Insert(..GeefOptieVoorLade(..PrependNul(UitvoeringInfo.SequentieNummerLade), "-Orderlijnreferentie", OrderlijnReferentie))