Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml =================================================================== diff -u -r74450 -r74602 --- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml (.../ProductOptiesGenerator.cls.xml) (revision 74450) +++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml (.../ProductOptiesGenerator.cls.xml) (revision 74602) @@ -207,49 +207,48 @@ Set:(MatX.IsBewerktInDimensie(##class(DOM.PM.enu.BewerkingDimensie).Diepte())) MatDepthToBe = MatX.GeefBewerkteDimensie(##class(DOM.PM.enu.BewerkingDimensie).Diepte()) Set:(MatX.IsBewerktInDimensie(##class(DOM.PM.enu.BewerkingDimensie).Breedte())) MatWidthToBe = MatX.GeefBewerkteDimensie(##class(DOM.PM.enu.BewerkingDimensie).Breedte()) } - } ElseIf $$$Not(HalffabItemMatUitStukken = "") { - Set HalffabItem = HalffabItemMatUitStukken - - If HalffabItem.%Extends(##class(DOM.PM.Maatwerk.Calc.HF.SamengesteldHalffabItem).%ClassName(1)) { - Set MatX = HalffabItem.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatX()) - Set MatY = HalffabItem.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatY()) - Set MatZ = HalffabItem.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatZ()) - - Set MatHalffab = MatX.GeefHalffab() + } Else { + If $$$Not(HalffabItemMatUitStukken = "") { + Set HalffabItem = HalffabItemMatUitStukken + } + Set MatX = HalffabItem.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatX()) + Set MatY = HalffabItem.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatY()) + Set MatZ = HalffabItem.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatZ()) + + Set MatHalffab = MatX.GeefHalffab() + If (IsMaatwerkCalculatieInEncoway) { + Set MatXOriginalDepth = MatHalffab.OrigineleMatDiepte + Set MatXOriginalWidth = MatHalffab.OrigineleMatBreedte + } Else { + Set MatXOriginalDepth = +MatHalffab.Diepte + Set MatXOriginalWidth = +MatHalffab.Breedte + } + + Set:(MatX.IsBewerktInDimensie(##class(DOM.PM.enu.BewerkingDimensie).Diepte())) MatXDepthToBe = MatX.GeefBewerkteDimensie(##class(DOM.PM.enu.BewerkingDimensie).Diepte()) + Set:(MatX.IsBewerktInDimensie(##class(DOM.PM.enu.BewerkingDimensie).Breedte())) MatXWidthToBe = MatX.GeefBewerkteDimensie(##class(DOM.PM.enu.BewerkingDimensie).Breedte()) + + Set MatHalffab = MatY.GeefHalffab() + If (IsMaatwerkCalculatieInEncoway) { + Set MatYOriginalDepth = MatHalffab.OrigineleMatDiepte + Set MatYOriginalWidth = MatHalffab.OrigineleMatBreedte + } Else { + Set MatYOriginalDepth = +MatHalffab.Diepte + Set MatYOriginalWidth = +MatHalffab.Breedte + } + Set:(MatY.IsBewerktInDimensie(##class(DOM.PM.enu.BewerkingDimensie).Diepte())) MatYDepthToBe = MatY.GeefBewerkteDimensie(##class(DOM.PM.enu.BewerkingDimensie).Diepte()) + Set:(MatY.IsBewerktInDimensie(##class(DOM.PM.enu.BewerkingDimensie).Breedte())) MatYWidthToBe = MatY.GeefBewerkteDimensie(##class(DOM.PM.enu.BewerkingDimensie).Breedte()) + + If $$$Not(MatZ = "") { + Set MatHalffab = MatZ.GeefHalffab() If (IsMaatwerkCalculatieInEncoway) { - Set MatXOriginalDepth = MatHalffab.OrigineleMatDiepte - Set MatXOriginalWidth = MatHalffab.OrigineleMatBreedte + Set MatZOriginalDepth = MatHalffab.OrigineleMatDiepte + Set MatZOriginalWidth = MatHalffab.OrigineleMatBreedte } Else { - Set MatXOriginalDepth = +MatHalffab.Diepte - Set MatXOriginalWidth = +MatHalffab.Breedte + Set MatZOriginalDepth = +MatHalffab.Diepte + Set MatZOriginalWidth = +MatHalffab.Breedte } - - Set:(MatX.IsBewerktInDimensie(##class(DOM.PM.enu.BewerkingDimensie).Diepte())) MatXDepthToBe = MatX.GeefBewerkteDimensie(##class(DOM.PM.enu.BewerkingDimensie).Diepte()) - Set:(MatX.IsBewerktInDimensie(##class(DOM.PM.enu.BewerkingDimensie).Breedte())) MatXWidthToBe = MatX.GeefBewerkteDimensie(##class(DOM.PM.enu.BewerkingDimensie).Breedte()) - - Set MatHalffab = MatY.GeefHalffab() - If (IsMaatwerkCalculatieInEncoway) { - Set MatYOriginalDepth = MatHalffab.OrigineleMatDiepte - Set MatYOriginalWidth = MatHalffab.OrigineleMatBreedte - } Else { - Set MatYOriginalDepth = +MatHalffab.Diepte - Set MatYOriginalWidth = +MatHalffab.Breedte - } - Set:(MatY.IsBewerktInDimensie(##class(DOM.PM.enu.BewerkingDimensie).Diepte())) MatYDepthToBe = MatY.GeefBewerkteDimensie(##class(DOM.PM.enu.BewerkingDimensie).Diepte()) - Set:(MatY.IsBewerktInDimensie(##class(DOM.PM.enu.BewerkingDimensie).Breedte())) MatYWidthToBe = MatY.GeefBewerkteDimensie(##class(DOM.PM.enu.BewerkingDimensie).Breedte()) - - If $$$Not(MatZ = "") { - Set MatHalffab = MatZ.GeefHalffab() - If (IsMaatwerkCalculatieInEncoway) { - Set MatZOriginalDepth = MatHalffab.OrigineleMatDiepte - Set MatZOriginalWidth = MatHalffab.OrigineleMatBreedte - } Else { - Set MatZOriginalDepth = +MatHalffab.Diepte - Set MatZOriginalWidth = +MatHalffab.Breedte - } - Set:(MatZ.IsBewerktInDimensie(##class(DOM.PM.enu.BewerkingDimensie).Diepte())) MatZDepthToBe = MatZ.GeefBewerkteDimensie(##class(DOM.PM.enu.BewerkingDimensie).Diepte()) - Set:(MatZ.IsBewerktInDimensie(##class(DOM.PM.enu.BewerkingDimensie).Breedte())) MatZWidthToBe = MatZ.GeefBewerkteDimensie(##class(DOM.PM.enu.BewerkingDimensie).Breedte()) - } + Set:(MatZ.IsBewerktInDimensie(##class(DOM.PM.enu.BewerkingDimensie).Diepte())) MatZDepthToBe = MatZ.GeefBewerkteDimensie(##class(DOM.PM.enu.BewerkingDimensie).Diepte()) + Set:(MatZ.IsBewerktInDimensie(##class(DOM.PM.enu.BewerkingDimensie).Breedte())) MatZWidthToBe = MatZ.GeefBewerkteDimensie(##class(DOM.PM.enu.BewerkingDimensie).Breedte()) } } @@ -259,14 +258,17 @@ Set MatWithCutOutInFrontQ1 = MatUitsparingSnijPositieBepaler.GeefMatVooraanQ1(IngegevenKenmerken) Set MatWithCutOutM1 = MatUitsparingSnijPositieBepaler.GeefMatMiddenM1(IngegevenKenmerken) Set MatWithCutOutM2 = MatUitsparingSnijPositieBepaler.GeefMatMiddenM2(IngegevenKenmerken) - Set MatWithCutOutInFrontQ2 = MatUitsparingSnijPositieBepaler.GeefMatVooraanQ1(IngegevenKenmerken) + Set MatWithCutOutInFrontQ2 = MatUitsparingSnijPositieBepaler.GeefMatVooraanQ2(IngegevenKenmerken) } } Else { - Set MatWithCutOutInFrontQ = MatUitsparingSnijPositieBepaler.GeefMatVooraanQ1(IngegevenKenmerken) + If $$$Not(..IngegevenKenmerkenTypeAPI.IsSpoelbaklade(IngegevenKenmerken) && IsLegrabox) { + Set MatWithCutOutInFrontQ = MatUitsparingSnijPositieBepaler.GeefMatVooraanQ1(IngegevenKenmerken) + } } - - Set MatWithCutOutLeftX = MatUitsparingSnijPositieBepaler.GeefMatLinksX(IngegevenKenmerken) - Set MatWithCutOutRightY = MatUitsparingSnijPositieBepaler.GeefMatRechtsY(IngegevenKenmerken) + If $$$Not(..IngegevenKenmerkenTypeAPI.IsSpoelbaklade(IngegevenKenmerken) && IsLegrabox) { + Set MatWithCutOutLeftX = MatUitsparingSnijPositieBepaler.GeefMatLinksX(IngegevenKenmerken) + Set MatWithCutOutRightY = MatUitsparingSnijPositieBepaler.GeefMatRechtsY(IngegevenKenmerken) + } } }