Index: BL/Flow/Levering/Label.cls.xml =================================================================== diff -u -r70299 -r70571 --- BL/Flow/Levering/Label.cls.xml (.../Label.cls.xml) (revision 70299) +++ BL/Flow/Levering/Label.cls.xml (.../Label.cls.xml) (revision 70571) @@ -170,9 +170,16 @@ If Verzw = "AFH" { Set KlantNaam = $P(^KKL(^KK1(KLNr),0),"\",2) } - If KLNr = ##class(DOM.DomeinContext).Instance().GeefLegacyPartijAPI().GeefKlantNummerVoorPartijID(##class(DOM.VKP.enu.Klant).Tristar()){ + + #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).Tristar()){ Set KlantNaam = "TRST" } + 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())