TECH.Error 1 %RegisteredObject 1 LadeVariant:DOM.PM.enu.LadeVariant,IsBinnenlade:%Boolean,LadeDiepte:%Integer,LadeHoogte:%String,LadeZijkantHoogte:%String %Float 1 LadeBreedte:%Float %Float 600 { Set HoogteAandeel = $$$MinHoogteAandeel } Else { Set HoogteAandeel = ((LadeBreedte-600)*(1/3000)) + $$$MinHoogteAandeel } Set:(HoogteAandeel>1) HoogteAandeel=1 Quit HoogteAandeel ]]> 1 LadeVariant:DOM.PM.enu.LadeVariant,IsBinnenlade:%Boolean,LadeDiepte:%Integer,LadeHoogte:%String,LadeZijkantHoogte:%String,LadeBreedte:%Float %Float 1 Lade:DOM.PM.TBXProduct.TBXLade %Float 1 LadeVariant:DOM.PM.enu.LadeVariant,IsBinnenlade:%Boolean,LadeHoogte:%String,LadeZijkantHoogte:%String %Float 1 LadeVariant:DOM.PM.enu.LadeVariant,IsBinnenlade:%Boolean,LadeHoogte:%String,LadeZijkantHoogte:%String,LadeBreedte:%Float,LadeDiepte:%Float=0 APPS.PM.Maatwerk.TBX.Probox.dto.WikkelInfo 900 { Set:((LadeDiepte '< 700)) Aantal = 2 Set WikkelInfo=##class(APPS.PM.Maatwerk.TBX.Probox.dto.WikkelInfo).%New(900,Aantal) } ElseIf WikkelLengte '> 1250 { Set:((LadeDiepte '< 700)) Aantal = 2 Set WikkelInfo=##class(APPS.PM.Maatwerk.TBX.Probox.dto.WikkelInfo).%New(1250,Aantal) } Else { Set Aantal = 2 Set:((LadeDiepte '< 700)) Aantal = 4 Set WikkelInfo=##class(APPS.PM.Maatwerk.TBX.Probox.dto.WikkelInfo).%New(900,Aantal) } Quit WikkelInfo ]]> 1 Lade:DOM.PM.TBXProduct.TBXLade APPS.PM.Maatwerk.TBX.Probox.dto.WikkelInfo 1 LadeDiepte:%Integer %Float 500 { Set WikkelDiepte = 520 } ElseIf (LadeDiepte'>700) { Set WikkelDiepte = 650 } Else { Set WikkelDiepte = 520 } Quit WikkelDiepte ]]>