Index: BL/Flow/Proxy/pxLevering.cls.xml
===================================================================
diff -u -r71219 -r71669
--- BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 71219)
+++ BL/Flow/Proxy/pxLevering.cls.xml	(.../pxLevering.cls.xml)	(revision 71669)
@@ -336,8 +336,9 @@
 	#dim OrderAPI As DOM.VKP.OrderAPI = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
 	#dim Bon As DOM.VKP.Bon = OrderAPI.GeefBon(BONNr)
 	#dim Oorsprong As BL.Flow.Offerte.enu.Oorsprong = Bon.GeefOorsprong()
+	#dim OorsprongKetting As %String = ..GeefOorsprongKetting(BONNr)
 	
-	Set LeverbonHoofdingBepaler = ##class(BL.Flow.Proxy.impl.LeverbonHoofdingBepaler).%New()
+	Set LeverbonHoofdingBepaler = ##class(BL.Flow.Proxy.impl.LeverbonHoofdingBepaler).%New(,OorsprongKetting)
 	#dim AfzenderHoofdingDto As BL.Flow.Proxy.dto.AfzenderHoofdingDto = LeverbonHoofdingBepaler.BepaalLeverbonHoofding(##class(DOM.common.impl.PersonalityRepository).%New().GeefViaID(..GeefPersonalityId(Bon)), KLNr)
 	
 	#dim HeeftEigenHoofding As %Boolean = $$$False
@@ -923,5 +924,25 @@
 	}
 ]]></Implementation>
 </Method>
+
+<Method name="GeefOorsprongKetting">
+<FormalSpec>BONNr:%Integer</FormalSpec>
+<Private>1</Private>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	#dim OorsprongKetting As %String
+	
+	Try {
+		#dim KlantNummer As %Integer = $Piece(^ORDW("D",BONNr),"\",1)
+		#dim OrderNr As %String = $Order(^ORDW("D",BONNr,"D",""))
+		
+		Set OorsprongKetting = $Piece(^KOD(KlantNummer,"F",OrderNr,1),"\",59)
+	} Catch {
+		Set OorsprongKetting = ""
+	}
+	
+	Quit OorsprongKetting
+]]></Implementation>
+</Method>
 </Class>
 </Export>
Index: BL/Flow/Levering/Label.cls.xml
===================================================================
diff -u -r71664 -r71669
--- BL/Flow/Levering/Label.cls.xml	(.../Label.cls.xml)	(revision 71664)
+++ BL/Flow/Levering/Label.cls.xml	(.../Label.cls.xml)	(revision 71669)
@@ -431,12 +431,14 @@
 <ReturnType>%String</ReturnType>
 <Implementation><![CDATA[
 	#dim OorsprongKetting As %String
-	#dim Bon As DOM.VKP.Bon = ..OrderApi.GeefBon(..BONNr)
-	#dim OrderIterator As TECH.Iterator = Bon.GeefOrderIterator()
 	
-	If (OrderIterator.HasNext()) {
-		#dim Order As DOM.VKP.Order = OrderIterator.Next()
-		Set OorsprongKetting = Order.GeefOorsprongKetting()
+	Try {
+		#dim KlantNummer As %Integer = $Piece(^ORDW("D",..BONNr),"\",1)
+		#dim OrderNr As %String = $Order(^ORDW("D",..BONNr,"D",""))
+		
+		Set OorsprongKetting = $Piece(^KOD(KlantNummer,"F",OrderNr,1),"\",59)
+	} Catch {
+		Set OorsprongKetting = ""
 	}
 	
 	Quit OorsprongKetting