Index: BL/Flow/Levering/ExtraInfoVoorSubmagazijnBepaler.cls.xml
===================================================================
diff -u -r70299 -r70605
--- BL/Flow/Levering/ExtraInfoVoorSubmagazijnBepaler.cls.xml	(.../ExtraInfoVoorSubmagazijnBepaler.cls.xml)	(revision 70299)
+++ BL/Flow/Levering/ExtraInfoVoorSubmagazijnBepaler.cls.xml	(.../ExtraInfoVoorSubmagazijnBepaler.cls.xml)	(revision 70605)
@@ -3,29 +3,20 @@
 <Class name="BL.Flow.Levering.ExtraInfoVoorSubmagazijnBepaler">
 <Super>TECH.RegisteredObject</Super>
 
-<Method name="GeefSubmagazijnVoorBon">
+<Method name="GeefExtraInfoVoorBon">
 <Description>
-Geeft submagazijn van eerste product op deze bon, voor TransferOrder is dit voldoende sinds deze allemaal hetzelfde submagazijn hebben.</Description>
+Geeft submagazijn via het moederproduct opgeslagen in ^ORDW voor deze bon. Voor een TransferOrder hebben alle producten op de bon hetzelfde submagazijn</Description>
 <FormalSpec>BonId:%String</FormalSpec>
 <ReturnType>TECH.String</ReturnType>
 <Implementation><![CDATA[
-	If $$$Not(##class(DOM.DomeinContext).Instance().GeefOrderAPI().BestaatBon(BonId)) {
-		Do ##class(TECH.Exceptions.InvalidInputException).Throw("Bon met nr '" _ BonId _ "' bestaat niet. GeefSubmagazijnVoorBon")
-	}
-	
-	#dim Bon As DOM.VKP.Bon = ##class(DOM.DomeinContext).Instance().GeefOrderAPI().GeefBon(BonId)
-	#dim ProductTypeAPI As DOM.PM.ProductTypeAPI = ##class(DOM.DomeinContext).Instance().GeefProductTypeAPI()
-	#dim ProductLijnen As TECH.Iterator = Bon.GeefTypeBonLijnIterator(##class(DOM.VKP.enu.BonLijnType).Product())
 	#dim Submagazijn As %String = ""
 	
-	If (ProductLijnen.HasNext()) {
-		#dim ProductLijn As DOM.VKP.ProductOrderlijn = ProductLijnen.Next()
-		If $$$Not(ProductLijn.GeefAantal() = 0) {
-			Set Submagazijn = $Piece($Get(^KPR(ProductLijn.GeefProductID(), 15)), "\", 12)
-		}
-	}
+	#dim OrderNr As %String = $Order(^ORDW("D",BonId,"D",""))
+	#dim OLUNr As %String = $Order(^ORDW("D",BonId,"D",OrderNr,""))
+	#dim ProductNr As %String = $Piece(^ORDW("D",BonId,"D",OrderNr,OLUNr),"\",1)
+	Set Submagazijn = $Piece($Get(^KPR(ProductNr,15)),"\",12)
 	
-	Quit Submagazijn
+	Quit ..GeefExtraInfoVoorSubmagazijn(Submagazijn)
 ]]></Implementation>
 </Method>
 
Index: BL/Flow/Levering/Label.cls.xml
===================================================================
diff -u -r70574 -r70605
--- BL/Flow/Levering/Label.cls.xml	(.../Label.cls.xml)	(revision 70574)
+++ BL/Flow/Levering/Label.cls.xml	(.../Label.cls.xml)	(revision 70605)
@@ -207,8 +207,7 @@
    	Else  Set ..pxLabelKlant.Device=##class(BL.Sys.LabelPrinter).FullDevicePad(Printer)
 	
 	Try {
-		#dim Submagazijn As %String = ..ExtraInfoVoorSubmagazijnBepaler.GeefSubmagazijnVoorBon(..BONNr)
-		Set ..pxLabelKlant.VerzendwijzeExtraInfo = ..ExtraInfoVoorSubmagazijnBepaler.GeefExtraInfoVoorSubmagazijn(Submagazijn)
+		Set ..pxLabelKlant.VerzendwijzeExtraInfo = ..ExtraInfoVoorSubmagazijnBepaler.GeefExtraInfoVoorBon(..BONNr)
 	} Catch {
 		#dim GecatchteException As TECH.Exceptions.Exception = ##class(TECH.ExceptionHandler).Catch()
 		Set NewException = ##class(TECH.Exceptions.GeneralErrorException).%New("Kan Submagazijn niet bepalen voor BonId '" _ ..BONNr _ "'.")