1 %RegisteredObject APPS.Halux.common.Batch 1 DOM.PM.ProductAPI 1 Batch:APPS.Halux.common.Batch 1 1 %Status 6) { Set SorteerVan = 6+Aantallen.Count() Set SorteerTot = Document.GeefKolom(1).Count() Do Document.VoegLijnToe("\\\\\\\","\") Do Document.VoegLijnToe("\\\\\\\LEGENDE","\") Do Document.VoegLijnToe("\\\\\\\","\") Do Document.VoegLijnToe("\\\\\\\ M = Montage ","\") Do Document.VoegLijnToe("\\\\\\\ P = Picking onderdelen","\") Do Document.Sorteer(##class(TECH.Comparator.StringComparator).%New(),6,SorteerVan,SorteerTot) // Nummering correct instellen na sorteren For i = 1:1:SorteerTot-SorteerVan { Do Document.GeefKolom(1).SetAt(i,SorteerVan+i) } } Else { Do Document.ClearContent() } Quit Document ]]> Nr:%Integer,Reling:DOM.PM.TBXProduct.TBXReling,Document:APPS.common.Print.Kolommen.Document,Aantal:%Integer,ToeDos:%String="",Lengte:%Integer="",Uitvoer:%String="" 1