Index: BL/Flow/Levering/Label.cls.xml
===================================================================
diff -u -r63374 -r73961
--- BL/Flow/Levering/Label.cls.xml	(.../Label.cls.xml)	(revision 63374)
+++ BL/Flow/Levering/Label.cls.xml	(.../Label.cls.xml)	(revision 73961)
@@ -45,14 +45,27 @@
 <Type>BL.Flow.Levering.LabelLogoBepaler</Type>
 </Property>
 
+<Property name="ExtraInfoVoorSubmagazijnBepaler">
+<Type>BL.Flow.Levering.ExtraInfoVoorSubmagazijnBepaler</Type>
+<Private>1</Private>
+</Property>
+
+<Property name="OrderApi">
+<Type>DOM.VKP.OrderAPI</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")
+	set ..OrderApi = ##class(DOM.DomeinContext).Instance().GeefOrderAPI()
+	
 	Quit $$$OK
 ]]></Implementation>
 </Method>
@@ -100,8 +113,9 @@
 <FormalSpec>BONNr:%Numeric,PRNr:%Numeric,PalID:%String</FormalSpec>
 <Implementation><![CDATA[
 	Set ..BONNr=BONNr
+	Set PalID= $Get(PalID)
 	If $G(PRNr) Set ..PRNr=PRNr
-	If $G(PalID) Set ..PalID=PalID
+	If $Length(PalID) Set ..PalID=PalID
 ]]></Implementation>
 </Method>
 
@@ -115,13 +129,9 @@
 ]]></Implementation>
 </Method>
 
-<Method name="PrintLabelKlantAdres">
-<Description>
-Afdruk van een label voor een klantpallet</Description>
-<FormalSpec>Printer:%String="0",Aantal:%Numeric=1,MagazijnID:%String=""</FormalSpec>
-<ReturnType>%Status</ReturnType>
+<Method name="HaalopLabelKlantAdresData">
+<FormalSpec>Printer:%String="0",Aantal:%Numeric=1,MagazijnID:%String="",UserIdPicker:%String="",Positie:%String=""</FormalSpec>
 <Implementation><![CDATA[
-	Set UserIDPicker = ""
     If ..BONNr="" Quit $$$ERROR($$$GeneralError,"BONNr is leeg")
     If Printer="" Quit $$$ERROR($$$GeneralError,"Printer is niet ingevuld")
 	If $D(^ORDW("D",..BONNr))
@@ -144,7 +154,7 @@
 		    	}
 		    	If (Sublijn.VerwerkingSoftware = MagazijnID)
 		    	{
-			    	Set UserIDPicker = Sublijn.UserID
+			    	Set UserIdPicker = Sublijn.UserID
 		    	}
 	    	}
     	}
@@ -158,40 +168,80 @@
     	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 LegacyPartijApi As DOM.PARTIJ.LegacyPartijAPI = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI()
+	#Dim KlantNummerHaluxZwartePallet As %String = ##class(TECH.Config.ConfigMgr).Instance().GeefString("OBJTimpl.WMSOrder.HaluxZwartePalletKlantNummer", ##class(DOM.VKP.enu.Klant).Halux())
+
+	If ((KLNr = LegacyPartijApi.GeefKlantNummerVoorPartijID(##class(DOM.VKP.enu.Klant).Halux())) || (KLNr = KlantNummerHaluxZwartePallet)) {
+		Set KlantNaam = ""
+	}
+	
+	#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.")
+    
+    Try {
+	    #dim OorsprongKetting As %String = ..GeefOorsprongKetting()
+    } Catch {
+	    Set OorsprongKetting = ""
+    }
+    
     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(OorsprongKetting, 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.UserIDPicker = UserIdPicker
     Set ..pxLabelKlant.MagazijnID = MagazijnID
+    set ..pxLabelKlant.LPNMOP = Positie
     ; inherited properties
     Set ..pxLabelKlant.Taal=$Piece(^KKL(^KK1(KLNr),0),"\",9)
     Set ..pxLabelKlant.Aantal=Aantal
     Set ..pxLabelKlant.Layout = ..blLabelPrinter.LayoutTemplate(Printer,"KLANT_ADRES")
     
+    Set ..pxLabelKlant.MaatwerkOfSingleOrderPick = $$ExtraMagInfoViaBon^TRANSPStatusKlantVandaag(..BONNr)
+    
    	If Printer["\\" Set ..pxLabelKlant.Device=Printer  ;als het UNC-pad van de printer wordt doorgegeven vul je het rechstreeks in
    	Else  Set ..pxLabelKlant.Device=##class(BL.Sys.LabelPrinter).FullDevicePad(Printer)
+	Try {
+		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 _ "'.")
+		Do NewException.VoegToeInnerExceptie(GecatchteException)
+		Do ..Logger.LogExceptie(NewException)
 		
+		Set ..pxLabelKlant.VerzendwijzeExtraInfo = ""
+	}
+]]></Implementation>
+</Method>
+
+<Method name="PrintLabelKlantAdres">
+<FormalSpec>Printer:%String="0",Aantal:%Numeric=1,MagazijnID:%String="",UserIdPicker:%String="",LPNMOP:%String=""</FormalSpec>
+<ReturnType>%Status</ReturnType>
+<Implementation><![CDATA[
+	Do ..HaalopLabelKlantAdresData(Printer,Aantal,MagazijnID,UserIdPicker,LPNMOP)
+	
     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))
 
     Do blPrint.AddLabel(..pxLabelKlant)
     Do ..Logger.Debug("PrintLabelKlantAdres",
-    	"Klantnaam='" _ ..pxLabelKlant.KlantNaam _ "' KLNr='" _ KLNr _ "' KlantID='" _ KlantID _ "' gekozen logo:'" _ ..pxLabelKlant.Logo _ "' UserIDPicker='" _ UserIDPicker _ "'." )
+    	"Klantnaam='" _ ..pxLabelKlant.KlantNaam _" gekozen logo:'" _ ..pxLabelKlant.Logo)
     Set stPrint = blPrint.PrintLabels()
     If $$$ISERR(stPrint) Do  Quit stPrint
     . Do ..Logger.ErrorMail("PrintLabelKlantAdres - PrintLabels",$$ParseStatus^vhLib(stPrint))
@@ -200,6 +250,22 @@
 ]]></Implementation>
 </Method>
 
+<Method name="GeefKlantLabelBartenderData">
+<FormalSpec>Printer:%String="0",Aantal:%Numeric=1,MagazijnID:%String="",UserIdPicker:%String="",Positie:%String=""</FormalSpec>
+<ReturnType>%String</ReturnType>
+<Implementation><![CDATA[
+	Do ..HaalopLabelKlantAdresData(Printer,Aantal,MagazijnID,UserIdPicker,Positie)
+    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))
+	
+    Do blPrint.AddLabel(..pxLabelKlant)
+    
+    Do ..Logger.Debug("PrintLabelKlantAdres","Klantnaam='" _ ..pxLabelKlant.KlantNaam _" gekozen logo:'" _ ..pxLabelKlant.Logo)
+    Quit blPrint.GeefLabelData()
+]]></Implementation>
+</Method>
+
 <Method name="PrintProductLabel">
 <Description>
 Afdruk van een productlabel</Description>
@@ -229,13 +295,18 @@
 	Set ..pxLabelProduct.Product=$S(Taal="N":"Product",Taal="F":"Produit",Taal="D":"Product",1:"Product")
 	#dim KlantID As DOM.VKP.VanHoeckeKlantID = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantPartijID(KLNr)
 	#dim StandaardLogo As %String = "logo\Logo VHZwart.svg"
+	Try {
+	    #dim OorsprongKetting As %String = ..GeefOorsprongKetting()
+    } Catch {
+	    Set OorsprongKetting = ""
+    }
 	If (KlantID = ##class(DOM.VKP.enu.Klant).HaefeleBelgie()) && $$$Not(##class(DOM.DomeinContext).Instance().GeefProjectSettingsAPI().IsActiefHaefeleBENaarEindklant()) {
 		Set ..pxLabelProduct.Logo = StandaardLogo
 	} ElseIf(KlantID = ##class(DOM.VKP.enu.Klant).HaefeleDuitsland()) {
 		Set ..pxLabelProduct.Logo = StandaardLogo
 	}
 	Else {
-		Set ..pxLabelProduct.Logo = ..LabelLogoBepaler.GeefLogo(KLNr)
+		Set ..pxLabelProduct.Logo = ..LabelLogoBepaler.GeefLogo(OorsprongKetting, KLNr)
 	}
 	Set ..pxLabelProduct.Korttekst=$Piece(xPR0,"\")
 	Set ..pxLabelProduct.AantalTitel=$S(Taal="N":"Aantal",Taal="F":"Quantité",Taal="D":"Menge",1:"Quantity")
@@ -374,6 +445,25 @@
 	Quit $$OMSCHR^PRKLEUR(PRNr,Taal)
 ]]></Implementation>
 </Method>
+
+<Method name="GeefOorsprongKetting">
+<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>