1 TECH.Exceptions.Exception DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder 1 DOM.PM.Maatwerk.Calc.HF.Halffab list 1 DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken 1 %Date 1 HFItemBuilder:DOM.PM.Maatwerk.Calc.HF.IHalffabItemBuilder,HalffabLijst:%ListOfObjects,InnerException:TECH.IException,IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken="",BerekenDatum:%Date="" 1 1 %Status %String %String %GlobalCharacterStream 0 { do Detail.Write("Geselecteerde halffabrikaten (ID's):") Set HalffabIterator = ##class(TECH.ListIterator).%New(..HalffabLijst) #dim ToonKomma As %Boolean = $$$False While (HalffabIterator.HasNext()) { #dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = HalffabIterator.Next() Do:(ToonKomma) Detail.Write(", ") Do Detail.Write(Halffab.GeefProductID()) Set ToonKomma = $$$True } } If ("" '= ..IngegevenKenmerken) { Do Detail.Write(" IngegevenKenmerken:{" ) Do Detail.CopyFrom(##class(Tools.ObjectDumper.Dumper).%New(..IngegevenKenmerken,$$$True).ToStream()) Do Detail.WriteLine("}") } If ("" '= ..BerekenDatum) { Do Detail.WriteLine(" BerekenDatum:{" _ ##class(TECH.DateTime).HorologToTimeStamp(..BerekenDatum) _ "} ") } Quit Detail ]]> TECH.enu.ExceptionCode %GlobalCharacterStream 1 %Boolean