Index: vhPowerTools/DOM/VKP/Order/OrderExporteerder.cls.xml
===================================================================
diff -u -r48143 -r48615
--- vhPowerTools/DOM/VKP/Order/OrderExporteerder.cls.xml	(.../OrderExporteerder.cls.xml)	(revision 48143)
+++ vhPowerTools/DOM/VKP/Order/OrderExporteerder.cls.xml	(.../OrderExporteerder.cls.xml)	(revision 48615)
@@ -3,6 +3,11 @@
 <Class name="vhPowerTools.DOM.VKP.Order.OrderExporteerder">
 <Super>TECH.RegisteredObject</Super>
 
+<Property name="Logger">
+<Type>vhLib.Logger</Type>
+<Private>1</Private>
+</Property>
+
 <Property name="AantalGeexporteerd">
 <Type>%Numeric</Type>
 <Private>1</Private>
@@ -66,6 +71,7 @@
 <ServerOnly>1</ServerOnly>
 <Implementation><![CDATA[
 	Set ..Generator = ##class(AXimpl.Generator).%New()
+	Set ..Logger = ##class(vhLib.Logger).%New()
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -151,6 +157,7 @@
 		#Dim OrderID as %String = OrderIDIterator.Next() 
 		if OrderAPI.BestaatOrder(OrderID) {
 			Set ..TotaalAantalOrders = ..TotaalAantalOrders + 1
+			Do ..ZetOrderOpBoekhoudkundigGeblokkeerdIndienOrderpickingOpKode( OrderID )
 			#dim Order as DOM.VKP.Order = OrderAPI.GeefOrder(OrderID)
 			
 			
@@ -196,6 +203,24 @@
 ]]></Implementation>
 </Method>
 
+<Method name="ZetOrderOpBoekhoudkundigGeblokkeerdIndienOrderpickingOpKode">
+<FormalSpec>OrderID:%String</FormalSpec>
+<Implementation><![CDATA[
+	If $Data( ^ORDW("IO",OrderID) ) {
+		#dim EersteOrderLijnId As %String = $Order( ^ORDW("IO",OrderID,"0") )
+		If ($$$Not(""=EersteOrderLijnId)) {
+			#dim ConsNr As %String = $Get(^ORDW("IO",OrderID,EersteOrderLijnId))
+			If ("K" = $Piece(^ORDW("D",ConsNr), "\", 20)) {
+				Do ..Logger.Info("OrderPicking op status Kode", OrderID _ "\" _ ConsNr)
+				#dim KLNr As %String = $Piece( ^KO1(OrderID, "F"), "\", 1)
+				Set $Piece( ^KOD(KLNr, "F", OrderID, 1), "\", 22) = ""
+				Set $Piece( ^KOD(KLNr, "F", OrderID, 1), "\", 23) = "1"
+			}
+		}
+	}
+]]></Implementation>
+</Method>
+
 <Method name="TelNietGeldig">
 <FormalSpec>Order:DOM.VKP.Order</FormalSpec>
 <Private>1</Private>