De halffab-objecten die gemaakt zijn. Deze moeten allemaal dezelfde UnID hebben. serial 1 TECH.PubSub.EventData %String TECH.Events.HalffabsGemaaktEventData DOM.PM.Maatwerk.Calc.HF.Halffab list 1 %Status 1 DO NOT USE this method, because it is not supported on this class. Maak gebruik van de method VoegToeXmlAanStream(), die een zelfgemaakte xml-implementatie bevat. %Status 1 DataAsXmlStream:%Stream 1 ") If $IsObject(..Halffabs) { Do ..VoegToeListOfHalffabs(DataAsXmlStream) } Do DataAsXmlStream.WriteLine("") ]]> DataAsXmlStream:%Stream 1 ") Do DataAsXmlStream.WriteLine(" ") Set HalffabIterator = ##class(TECH.ListIterator).%New(..Halffabs) While (HalffabIterator.HasNext()) { Do ..VoegToeHalffab(DataAsXmlStream, HalffabIterator.Next()) } Do DataAsXmlStream.WriteLine("") ]]> DataAsXmlStream:%Stream,Halffab:DOM.PM.Maatwerk.Calc.HF.Halffab 1 ") Do DataAsXmlStream.WriteLine(" ") Do DataAsXmlStream.WriteLine(" ") ]]> %Library.CacheSerialState HalffabsGemaaktEventDataState "HalffabsGemaaktEventData" Halffabs "HalffabsGemaaktEventData" Halffabs