TECH.Mockable %Integer 40 %Integer 6 %String "Container" %String DOM.PM.impl.ProductAPI 1 DOM.PM.Maatwerk.Lade.impl.CorpusBreedteBepaler 1 DOM.PM.ProductTypeAPI 1 vhLib.Logger 1 DOM.PM.Maatwerk.Lade.LadeUtils.impl.MVXLadeUtils 1 DOM.PM.Maatwerk.Lade.LadeUtils.impl.LBXLadeUtils 1 DOM.PM.Maatwerk.Lade.LadeUtils.impl.TBXLadeUtils 1 1 1 %Status 1 ProductieSequentieItemIterator:TECH.Iterator APPS.Verpakking.dto.StackingSerivce.Request IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken,ProductieSequentieItem:APPS.Halux.common.ProductieSequentieItem 1 APPS.Verpakking.dto.StackingSerivce.Request.Box ProductieSequentieItem:APPS.Halux.common.ProductieSequentieItem %String PRNr:%String 1 %String IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken 1 %Decimal IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken 1 %Integer IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken 1 %Integer LadeHoogte) { Set Hoogte = RugHoogte } Else { Set Hoogte = LadeHoogte } If (..HeeftHogeRug(IngegevenKenmerken)) { If (IngegevenKenmerken.%ClassName(1) = ##class(DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken).%ClassName(1)) { Set Hoogte = ..MVXLadeUtils.GeefFysiekeLadeHoogteMM(IngegevenKenmerken.RugHoogte, IngegevenKenmerken.IsBinnenlade) } ElseIf (IngegevenKenmerken.%ClassName(1) = ##class(DOM.PM.Maatwerk.Calc.Common.impl.TBXKenmerken).%ClassName(1)) { Set Hoogte = ..TBXLadeUtils.GeefFysiekeLadeHoogteMM(IngegevenKenmerken.RugHoogte, IngegevenKenmerken.IsBinnenlade) } } Set Hoogte = Hoogte + (2 * ..#KartonDikte) Quit Hoogte ]]> IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken 1 %Boolean IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.IngegevenKenmerken 1 %Boolean