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 If (Lijn.IsDirty()) { w "Save ol ", 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))) } Set ^KOD(..KlantNr, "F", ..Nr, LijnNr) = Lijn.AsString() 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