APPS.Halux.PPS.Document.impl.common.LadeZijkantenPickingLijst %Integer 80000 %Integer 40 %String LBX_LadeZijkantenLijst %String LBX pickinglijst zijkanten %Integer APPS.Halux.PPS.Document.impl.LBX.LadeZijkantenRepository 1 1 %Status 1 1 LadeZijkant:APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten 1 1 %String LadeZijkant:APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten %Boolean IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken %Boolean Als er spoelbaklades en sifonlades in de batch zitten wordt soms gesprongen over sommige sequentienummer, deze method gaat alle sequentienummer opeenvolgend maken zonder gaten RijenLijst:%ListOfObjects(ELEMENTTYPE="APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten") 1 %ListOfObjects ELEMENTTYPE="APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten" RijenLijst:%ListOfObjects(ELEMENTTYPE="APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten") 1 %ListOfObjects ELEMENTTYPE="APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten" De pickingkarren voor LBX zijkanten kunnen tot 40 zijkanten per kar bevatten, daarom moet op de lijst per 40 zijkanten gegroepeerd worden zodat per volledige kar kan worden gepicked RijenLijst:%ListOfObjects(ELEMENTTYPE="APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten") 1 %ListOfObjects ELEMENTTYPE="APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten" ((HuidigeKar-1)*..#AantalZijkantenPerKar))) { Set LadeZijkantData.SequentieNummer = ..GeefVereenvoudigdSequentieNr(LadeZijkantData.SequentieNummer) Do Rijen.Insert(LadeZijkantData) } } Set TotaleLijst = ..VoegToeRijenAanTotaleLijst(Rijen, TotaleLijst) Set HuidigeKar = HuidigeKar + 1 Set Rijen = ##class(%ListOfObjects).%New() Do RijenLijstIterator.Reset() } Quit TotaleLijst ]]> RijenLijst:%ListOfObjects(ELEMENTTYPE="APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten") 1 %ListOfObjects ELEMENTTYPE="APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten" RijenLijst:%ListOfObjects(ELEMENTTYPE="APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten") 1 %ListOfObjects ELEMENTTYPE="APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten" RijenLijst:%ListOfObjects(ELEMENTTYPE="APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten") 1 %ListOfObjects ELEMENTTYPE="APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten" RijenLijst:%ListOfObjects(ELEMENTTYPE="APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten") 1 %ListOfObjects ELEMENTTYPE="APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten" LadeZijkant:APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten,IsAnderSoortZijwandType:%Boolean 1 APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten RijenLijst:%ListOfObjects(ELEMENTTYPE="APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten") 1 %ListOfObjects ELEMENTTYPE="APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten" Korttekst:%String 1 %String Rijen:%ListOfObjects(ELEMENTTYPE="APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten"),TotaleLijst:%ListOfObjects(ELEMENTTYPE="APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten") 1 %ListOfObjects ELEMENTTYPE="APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten" AantalRijen:%Integer,Rijen:%ListOfObjects(ELEMENTTYPE="APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten") 1 %ListOfObjects ELEMENTTYPE="APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten" APPS.Halux.PPS.Document.impl.LBX.dto.LadeZijkanten ProductId:%String 1 %Integer SequentieNr:%Integer 1 %Integer ..#AantalZijkantenPerKar)) { Set SequentieNr = ..#AantalZijkantenPerKar } Quit SequentieNr ]]> Index:%Integer 1 %Boolean ProductId:%String 1