Index: APPS/Halux/PPS/Document/impl/TBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml =================================================================== diff -u -r73426 -r74384 --- APPS/Halux/PPS/Document/impl/TBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml (.../AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml) (revision 73426) +++ APPS/Halux/PPS/Document/impl/TBX/BatchNaarObjective/OptieGenerator/AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml (.../AlgemeneKenmerkenOptiesGeneratorTbx.cls.xml) (revision 74384) @@ -68,18 +68,25 @@ #dim HalffabItemsBoom As DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom = Product.GeefHalffabItemsBoom() If (IngegevenKenmerken.RugwandMateriaal = ##class(DOM.PM.enu.TBXRugwandMateriaal).Hout()) { - If ((..IngegevenKenmerkenTypeApi.IsSifonlade(Product.GeefIngegevenKenmerken())) || (..IngegevenKenmerkenTypeApi.IsSpoelbaklade(Product.GeefIngegevenKenmerken()))) { + If ((..IngegevenKenmerkenTypeApi.IsSifonlade(IngegevenKenmerken)) || (..IngegevenKenmerkenTypeApi.IsSpoelbaklade(Product.GeefIngegevenKenmerken()))) { #dim RugBreedteX As %Decimal = ..GeefRugBreedte("X", HalffabItemsBoom) Do LijstOptiesVoorRugBreedte.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Rugxbreedte", RugBreedteX)) #dim RugBreedteY As %Decimal = ..GeefRugBreedte("Y", HalffabItemsBoom) Do LijstOptiesVoorRugBreedte.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Rugybreedte", RugBreedteY)) + #dim RugBreedteM As %Decimal #dim SifonType As %String = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("TBX", Product.GeefID(), "SPZK")) - If $$$Not(SifonType = ##class(DOM.PM.enu.TBXSifonType).EnkeleDiepeSifon()) { - #dim RugBreedteM As %Decimal = ..GeefRugBreedte("M", HalffabItemsBoom) + If (IngegevenKenmerken.UitsparingPositie2 > 0) { //Dubbele uitsparing + Set RugBreedteM = ..GeefRugBreedte("M", HalffabItemsBoom) Do LijstOptiesVoorRugBreedte.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Rugmbreedte", RugBreedteM)) } + + If (..IngegevenKenmerkenTypeApi.IsSpoelbaklade(Product.GeefIngegevenKenmerken())) { + Set RugBreedteM = ..GeefTussenrugBreedte(HalffabItemsBoom) + Do LijstOptiesVoorRugBreedte.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Rugmbreedte", RugBreedteM)) + } + } Else { #dim RugBreedte As %Decimal = ..GeefRugBreedte("X", HalffabItemsBoom) Do LijstOptiesVoorRugBreedte.Insert(..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Rugbreedte", RugBreedte)) @@ -184,6 +191,21 @@ Quit ..GeefOptieVoorLade(SequentieNummerLade, "-" _ "Zijkanthoogteinmm", ZijkanthoogteInMm) ]]> + + +HalffabItemsBoom:DOM.PM.Maatwerk.Calc.HF.HalffabItemsBoom +1 +%Decimal + +