vhLib.Macro TECH.Mockable Hier wordt bepaald welke Info items bestaan : Info1, Info2, Info3, Info4 %Integer 4 APPS.Halux.Docs.impl.AfleverAdresNaamBepaler 1 APPS.Halux.Docs.impl.OrderReferentieBepaler 1 DOM.PM.ProductTypeAPI 1 DOM.PM.ProductAPI 1 ProductTypeAPI:DOM.PM.ProductTypeAPI="",ProductApi:DOM.PM.ProductAPI="" 1 1 %Status 1 ProductieDatum:%Date %String ProductID:%String,Partij:DOM.PARTIJ.Partij,Aantal:%Integer,DnaCode:%String="",IsKlantEtiketSpaceStep:%Boolean=0 BL.Etiket.LadeKlantEtiket ProductID:%String,Partij:DOM.PARTIJ.Partij,Aantal:%Integer,DnaCode:%String="" BL.Etiket.LadeKlantEtiketVHoss Etiket:BL.Etiket.LadeKlantEtiket,ProductID:%String,Partij:DOM.PARTIJ.Partij,Aantal:%Integer,DnaCode:%String="",IsKlantEtiketSpaceStep:%Boolean=0 1 Etiket:BL.Etiket.LadeKlantEtiket,Toelevering:DOM.AKP.Toelevering,ToeleveringLijn:DOM.AKP.ProductToeleveringLijn,Partij:DOM.PARTIJ.Partij BL.Etiket.LadeKlantEtiket Etiket:BL.Etiket.LadeKlantEtiket,Order:DOM.VKP.Order,Partij:DOM.PARTIJ.Partij,ProductOrderLijn:DOM.VKP.ProductOrderlijn,ToeleveringLijn:DOM.AKP.ProductToeleveringLijn="" BL.Etiket.LadeKlantEtiket Etiket:BL.Etiket.LadeKlantEtiket,ProductID:%String,Partij:DOM.PARTIJ.Partij,IsKlantEtiketSpaceStep:%Boolean=0 1 Key:%String,Taal:%String,Default:%String="" 1 %String Partij:DOM.PARTIJ.Partij,ProductOrderlijn:DOM.VKP.ProductOrderlijn 1 %String Order:DOM.VKP.Order 1 DOM.PARTIJ.Partij 1 Order:DOM.VKP.Order 1 %String 1) { Set AfleverAdresNaam = AfleverAdresNaam_" "_Order.GeefAfleveradresID() } If AfleverAdresNaam = "" { #dim Partij As DOM.PARTIJ.Partij = ##class(DOM.DomeinContext).Instance().GeefPartijAPI().GeefPartij(Klant.GeefID()) Set AfleverAdresNaam = Partij.GeefNaam() } Quit $$TRIMNAAM^vhRtn1(AfleverAdresNaam) ]]> Etiket:BL.Etiket.LadeKlantEtiket,Partij:DOM.PARTIJ.Partij,InfoItems:%ListOfObjects InfoItems:%ListOfObjects,InfoItemID:%Integer,Etiket:BL.Etiket.LadeKlantEtiket 1 1 Partij:DOM.PARTIJ.Partij,ProductOrderLijn:DOM.VKP.ProductOrderlijn,ToeleveringLijn:DOM.AKP.ProductToeleveringLijn 1 %ListOfObjects ELEMENTTYPE="APPS.Halux.Docs.impl.InfoItem" IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken %Boolean ProductID:%String DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken