Index: BL/Flow/Levering/Label.cls.xml
===================================================================
diff -u -r63503 -r64135
--- BL/Flow/Levering/Label.cls.xml	(.../Label.cls.xml)	(revision 63503)
+++ BL/Flow/Levering/Label.cls.xml	(.../Label.cls.xml)	(revision 64135)
@@ -158,22 +158,26 @@
     	Set xAdres=$G(^KUL(KLNr,FacSoort,..BONNr,3))    
     	set Verzw=$P($P($P(xHeader,"\",7),"#")," ")
     }
-#dim KLNr As %String = ..GetAfzender(..BONNr)
-#dim VerkoopAPI As DOM.VKP.VerkoopAPI = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI()
-#dim KlantOptimaPack As DOM.VKP.VanHoeckeKlant = VerkoopAPI.GeefKlant(##class(DOM.VKP.enu.Klant).OptimaPack())
+	#dim KLNr As %String = ..GetAfzender(..BONNr)
+	#Dim KlantNaam = $Piece(xAdres,"\",2)
+	If Verzw = "AFH" {
+		Set KlantNaam = $P(^KKL(^KK1(KLNr),0),"\",2)
+	}
+	#dim VerkoopAPI As DOM.VKP.VerkoopAPI = ##class(DOM.DomeinContext).Instance().GeefVerkoopAPI()
+	#dim KlantOptimaPack As DOM.VKP.VanHoeckeKlant = VerkoopAPI.GeefKlant(##class(DOM.VKP.enu.Klant).OptimaPack())
     
     If KLNr="" Quit $$$ERROR($$$GeneralError,"Verkeerd bonnummer "_..BONNr_": geen data in de global.")
     Set ..pxLabelKlant=##class(BL.Flow.Levering.sub.pxKlantPallet).Create()
     If $L($TR($P(xAdres,"\",1,10),"\",""))<5 Set xAdres=^KKL(^KK1(KLNr),0)
-    Set ..pxLabelKlant.Logo = ..LabelLogoBepaler.GeefLogo(KLNr)
-    Set ..pxLabelKlant.KlantNaam=$Piece(xAdres,"\",2)
+    Set ..pxLabelKlant.Logo = ..LabelLogoBepaler.GeefLogo(KLNr)    
+	Set ..pxLabelKlant.KlantNaam=KlantNaam
+	Set ..pxLabelKlant.KlantnaamBIG=KlantNaam
     Set ..pxLabelKlant.Toenaam=$Piece(xAdres,"\",3)
     Set ..pxLabelKlant.StraatNaamNr=$Piece(xAdres,"\",5)
     Set ..pxLabelKlant.Gemeente=$Piece(xAdres,"\",6)_" "_$Piece(xAdres,"\",7)
     Set ..pxLabelKlant.Bonnr=..BONNr
     Set ..pxLabelKlant.PalID=..PalID
     Set ..pxLabelKlant.Verzendwijze = $$VerzendWijzeCompact^EWORDSW(Verzw,$$HeeftBonAndereControleWijze^EWORDSW(..BONNr))
-    Set ..pxLabelKlant.KlantnaamBIG=$Piece(xAdres,"\",2)
     Set ..pxLabelKlant.CommRef=..CommissieRef(KLNr,..BONNr)
     Set ..pxLabelKlant.UserIDPicker = UserIDPicker
     Set ..pxLabelKlant.MagazijnID = MagazijnID