Index: BL/Flow/Levering/Label.cls.xml
===================================================================
diff -u -r70296 -r70299
--- BL/Flow/Levering/Label.cls.xml	(.../Label.cls.xml)	(revision 70296)
+++ BL/Flow/Levering/Label.cls.xml	(.../Label.cls.xml)	(revision 70299)
@@ -45,14 +45,21 @@
 <Type>BL.Flow.Levering.LabelLogoBepaler</Type>
 </Property>
 
+<Property name="ExtraInfoVoorSubmagazijnBepaler">
+<Type>BL.Flow.Levering.ExtraInfoVoorSubmagazijnBepaler</Type>
+<Private>1</Private>
+</Property>
+
 <Method name="%OnNew">
 <FormalSpec>initvalue:%CacheString,LabelLogoBepaler:BL.Flow.Levering.LabelLogoBepaler</FormalSpec>
 <Private>1</Private>
 <ProcedureBlock>1</ProcedureBlock>
 <ReturnType>%Status</ReturnType>
 <Implementation><![CDATA[
 	Set ..LabelLogoBepaler = $$$Inject(LabelLogoBepaler, ##class(BL.Flow.Levering.LabelLogoBepaler).%New())
+	Set ..ExtraInfoVoorSubmagazijnBepaler = ##class(BL.Flow.Levering.ExtraInfoVoorSubmagazijnBepaler).%New()
 	Set ..Logger = ##class(vhLib.Logger).%New("LeveringLabels")
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -195,8 +202,19 @@
 	If (..pxLabelKlant.Layout = "KlantAdres 8x11") {
 		Set ..pxLabelKlant.Layout = "KlantAdresTemp 8x11"
 	}
-	Set ..pxLabelKlant.VerzendwijzeExtraInfo = ##class(BL.Flow.Levering.ExtraInfoVoorSubmagazijnBepaler).%New().GeefExtraInfoVoorSubmagazijn("")
 	
+	Try {
+		#dim Submagazijn As %String = ..ExtraInfoVoorSubmagazijnBepaler.GeefSubmagazijnVoorBon(..BONNr)
+		Set ..pxLabelKlant.VerzendwijzeExtraInfo = ..ExtraInfoVoorSubmagazijnBepaler.GeefExtraInfoVoorSubmagazijn(Submagazijn)
+	} 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 _ "'.")
+		Do NewException.VoegToeInnerExceptie(GecatchteException)
+		Do ..Logger.LogExceptie(NewException)
+		
+		Set ..pxLabelKlant.VerzendwijzeExtraInfo = ""
+	}
+	
     Set blPrint = ##class(APPS.ApplicatieContext).Instance().GeefPrintAPI().GeefLabelPrinter("EWMSKlant",Printer)
     If $$$ISERR(blPrint)||('$IsObject(blPrint)) Do  Quit $$$ERROR($$$GeneralError,"Afdruk mislukt: Toepassing niet geregistreerd")
     . Do ..Logger.ErrorMail("PrintLabelKlantAdres - GetPrinter","Failed : "_$$ParseStatus^vhLib(blPrint))