Index: CHUI/VKP/OrderIngave/OrderControle.cls.xml
===================================================================
diff -u -r51278 -r51795
--- CHUI/VKP/OrderIngave/OrderControle.cls.xml	(.../OrderControle.cls.xml)	(revision 51278)
+++ CHUI/VKP/OrderIngave/OrderControle.cls.xml	(.../OrderControle.cls.xml)	(revision 51795)
@@ -8,14 +8,21 @@
 <Private>1</Private>
 </Property>
 
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
-<FormalSpec>OrderApi:DOM.VKP.OrderAPI</FormalSpec>
+<FormalSpec>OrderApi:DOM.VKP.OrderAPI="",Logger:vhLib.Logger=""</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..OrderApi = $$$Inject(OrderApi, ##class(DOM.VKP.impl.DataM.DataMOrderAPI).%New())
+	Set ..Logger = $$$Inject(Logger, ##class(vhLib.Logger).%New("OrderControle"))
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -44,7 +51,14 @@
 <FormalSpec>Index:%Integer,KlantNummer:%String,OrderNummer:%Integer,OrderLijnId:%Integer</FormalSpec>
 <Private>1</Private>
 <ReturnType>%Boolean</ReturnType>
-<Implementation><![CDATA[	Quit $Data(^HULP(Index, KlantNummer,"M","A", OrderNummer, OrderLijnId))
+<Implementation><![CDATA[
+	#dim IsLijnGemarkeerd As %Boolean = $Data(^HULP(Index,KlantNummer,"M","A",OrderNummer,OrderLijnId))
+	
+	If ($$$Not(IsLijnGemarkeerd)) {
+		Do ..Logger.Info("Ongemarkeerde OrderLijn gevonden", "Op Order: '"_OrderNummer_"' van Klant: '"_KlantNummer_"' is Lijn: '"_OrderLijnId_"' niet gemarkeerd. Volgende subscript bestaat niet: '^HULP("_Index_","_KlantNummer_",""M"",""A"","_OrderNummer_","_OrderLijnId_")'.")
+	}
+	
+	Quit IsLijnGemarkeerd
 ]]></Implementation>
 </Method>
 </Class>