Index: vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml =================================================================== diff -u -r71057 -r71861 --- vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml (.../Test.cls.xml) (revision 71057) +++ vhUnitTest/APPS/Halux/Docs/impl/LadeKlantEtiketBuilder/Test.cls.xml (.../Test.cls.xml) (revision 71861) @@ -479,6 +479,7 @@ Do StandaardOrder.IndienMethodCall("GeefAfleveradres").DanReturn(AfleverAdres) Do StandaardOrder.IndienMethodCall("GeefDocumentReferenties").DanReturn("UT DocumentRef") Do StandaardOrder.IndienMethodCall("GeefKlantID").DanReturn(Partij.GeefID()) + Do StandaardOrder.IndienMethodCall("GeefOorsprongKetting").DanReturn("") Set DocumentReferenties.KlantOrderNummer = KlantOrderNummer Set DocumentReferenties.OrderReferentie = "UT Order Ref" Index: APPS/Halux/Docs/impl/LadeKlantEtiketBuilder.cls.xml =================================================================== diff -u -r71855 -r71861 --- APPS/Halux/Docs/impl/LadeKlantEtiketBuilder.cls.xml (.../LadeKlantEtiketBuilder.cls.xml) (revision 71855) +++ APPS/Halux/Docs/impl/LadeKlantEtiketBuilder.cls.xml (.../LadeKlantEtiketBuilder.cls.xml) (revision 71861) @@ -220,9 +220,12 @@ Set Etiket.VerzendWijze = $P(Order.GeefVerzendingWijze(),";") Set Etiket.LblOrder = ..GeefVertalingLabel("ORDER",Partij.GeefTaal(),"Order") Set Etiket.OrderID = Order.GeefID() - Set Etiket.LogoImg = Klant.GeefLogo() - - #dim InfoItems As %ListOfObjects = ..GeefInfoItems(Partij, ProductOrderLijn, ToeleveringLijn) + Set Etiket.LogoImg = ##class(BL.Flow.Levering.LabelLogoBepaler).%New().GeefLogo(Order.GeefOorsprongKetting(), Klant.GeefCode()) + If (Etiket.LogoImg = "Logo\Logo VHZwart.svg") { + Set Etiket.LogoImg = Klant.GeefLogo() + } + + #dim InfoItems As %ListOfObjects = ..GeefInfoItems(Partij, ProductOrderLijn, ToeleveringLijn) Do ..VoegToeInfoItems(Etiket,Partij,InfoItems) Quit Etiket