APPS.Halux.PPS.Activiteit.impl.common.SequentieGebaseerdeUitvoeringInfoAanvuller DOM.PM.Maatwerk.LadeInfo.BodemPlaat 1 APPS.Halux.Machine.BodemSlicing.impl.ProgrammaBepaler 1 BodemPlaat:DOM.PM.Maatwerk.LadeInfo.BodemPlaat 1 1 %Status 1 UitvoeringInfo:APPS.Halux.PPS.Activiteit.impl.TAOR.dto.BodemSlicingUitvoeringInfo,WerklijstItemMakerInput:APPS.Halux.PPS.Activiteit.impl.common.WerklijstItemMakerInput 1 { #dim Counter As %String for Counter = 1 : 1 : UitvoeringInfo.BodemSlicingData.NbrOfSlices { #dim ProfielFrontZijde As APPS.Halux.Machine.BodemSlicing.enu.SliceProfiel = $select(Counter=1:##class(APPS.Halux.Machine.BodemSlicing.enu.SliceProfiel).Recht(),1:##class(APPS.Halux.Machine.BodemSlicing.enu.SliceProfiel).Click()) #dim ProfielRugZijde As APPS.Halux.Machine.BodemSlicing.enu.SliceProfiel = $select(Counter=UitvoeringInfo.BodemSlicingData.NbrOfSlices:##class(APPS.Halux.Machine.BodemSlicing.enu.SliceProfiel).Recht(),1:##class(APPS.Halux.Machine.BodemSlicing.enu.SliceProfiel).Click()) set $property(UitvoeringInfo.BodemSlicingData,"ProgLeft"_Counter) = ..ProgrammaBepaler.BepaalProgramma(..BodemPlaat,##class(APPS.Halux.Machine.BodemSlicing.enu.SliceZijde).Rug(),ProfielRugZijde) set $property(UitvoeringInfo.BodemSlicingData,"ProgRight"_Counter) = ..ProgrammaBepaler.BepaalProgramma(..BodemPlaat,##class(APPS.Halux.Machine.BodemSlicing.enu.SliceZijde).Front(),ProfielFrontZijde) set $property(UitvoeringInfo.BodemSlicingData,"SliceWidth"_Counter) = UitvoeringInfo.BodemSlicingData.SliceWidth set $property(UitvoeringInfo.BodemSlicingData,"PrintBegin"_Counter) = "PrintBegin"_Counter set $property(UitvoeringInfo.BodemSlicingData,"PrintEnd"_Counter) = "PrintEnd"_Counter } } ]]> BodemSlicingData:APPS.Halux.PPS.Activiteit.impl.TAOR.Bodem.dto.SlicingData %Integer