Index: BL/Flow/Levering/Label.cls.xml =================================================================== diff -u -r67345 -r67600 --- BL/Flow/Levering/Label.cls.xml (.../Label.cls.xml) (revision 67345) +++ BL/Flow/Levering/Label.cls.xml (.../Label.cls.xml) (revision 67600) @@ -163,6 +163,9 @@ 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()){ + Set KlantNaam = "TRST" + } #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())