zTryout.ARC.BASE,zTryout.ARC.DOM.OV,zTryout.ARC.BASE.impl.DataM,zTryout.ARC.TECH.Persistentie zTryout.FM.Util.Orders,%VHMacro 1 DataMOrderBase 0 GlobalNode 1 Nr:%Integer %Status %Status %Status MaxOLijn) MaxOLijn = LijnNr w "Save ol (indien gewijzigd) ", LijnNr, ! // Dirty lijnen krijgen hier een uniek nummer als ze er nog geen hebben If (Lijn.GeefOLU() = "") { Do Lijn.ZetOLU(..VolgendeOLUNrNode.GeefPiece(1) * 100) Do ..VolgendeOLUNrNode.ZetPiece(1, (1 + ..VolgendeOLUNrNode.GeefPiece(1))) } Do Lijn.GeefNode().Save() Set Lijn=..Orderlijnen.GetNext(.key) } //Set ..LeegOLijn = MaxOLijn + 1 Do ..LeegOLijnNrNode.Save() Do ..VolgendeOLUNrNode.Save() ]]> Iterator type:%String Iterator ProductOrderlijn Tekst:%String TextOrderlijn ManueleOrderlijn Lijn:Orderlijn 1 1 Adres 1 GlobalNode 1 GlobalNode 1 GlobalNode Lijn:DataMOrderlijn