zTryout.ARC.BASE,zTryout.ARC.DOM.OV,zTryout.ARC.BASE.impl.DataM zTryout.FM.Util.Orders,%VHMacro 1 DataMOrderBase 61828,52596.928426 0 %Boolean "0" 1 %Boolean 1 %Boolean 1 %Boolean "0" 1 %Boolean "0" 1 %Integer 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(..OLU * 100) Set ..OLU = ..OLU + 1 } Set ^KOD(..KlantNr, "F", ..Nr, LijnNr) = Lijn.AsString() } Set Lijn=..Orderlijnen.GetNext(.key) } //Set ..LeegOLijn = MaxOLijn + 1 Set ^KOD(..KlantNr, "F", ..Nr, 0) = ..LeegOLijn Set ^KOD(..KlantNr, "F", ..Nr, 4) = ..OLU ]]> Iterator type:%String Iterator ProductOrderlijn Tekst:%String TextOrderlijn ManueleOrderlijn Lijn:Orderlijn 1 1 Adres 1 %String