1 APPS.Halux.PPS.Document.impl.BulkTekstDocumentAfdrukker %String %String APPS.Halux.common.impl.ProductieAansturingService 1 APPS.Halux.common.impl.ProductieAansturingIngegevenKenmerkenBepaler 1 APPS.Halux.common.BatchService 1 APPS.Halux.PPS.DocumentService 1 APPS.common.Print.Kolommen.Document 1 APPS.Halux.common.Batch 1 DOM.PM.ProductAPI 1 1 1 %Status 1 UitvoeringInfoLijst:APPS.Halux.PPS.dto.UitvoeringInfoLijst 1 %ListOfObjects ELEMENTTYPE="APPS.common.Print.Kolommen.Document" 0) && $$$Not(..Batch.GeefCategorie() = ##class(APPS.Halux.common.enu.Categorie).Merivobox())) { Set GesorteerdeLijst = ..ZetOpeenvolgendeSequentienummers(RijenLijst) Set GesorteerdeLijst = ..SorteerVolgensLoopvolgordeNr(RijenLijst) Set GesorteerdeLijst = ..SorteerPerVeertig(GesorteerdeLijst) Set GesorteerdeLijst = ..SorteerVolgensSequentieNr(GesorteerdeLijst) Set GesorteerdeLijst = ..GroepeerEenBladzijdePerLijstPerKar(GesorteerdeLijst) } #dim Product As DOM.PM.Product = ..ProductAPI.GeefProduct(UitvoeringInfoLijst.GetAt(1).ProductID) Set ..Document = ##class(APPS.common.Print.Kolommen.Document).%New(..#DocumentID,..#Titel_" "_Product.GeefVerpakking(),SubTitel) Do ..VoegDataToeAanDocument(GesorteerdeLijst) quit ##class(TECH.ListUtils).CreateListOfObjects(..Document) ]]> RijenLijst:%ListOfObjects(ELEMENTTYPE="APPS.Halux.common.dto.LadeZijkanten") 1 %ListOfObjects ELEMENTTYPE="APPS.Halux.common.dto.LadeZijkanten" 1 Item:DOM.PM.Maatwerk.Calc.HF.IHalffabItem 1 %Boolean Zijkant:DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem 1 %Boolean 1 LadeZijkant:APPS.Halux.common.dto.LadeZijkanten 1 RijenLijst:APPS.Halux.common.dto.LadeZijkanten 1 1 1 1 1 %String