Index: APPS/PM/Maatwerk/impl/VhConfig/Converter/EncowayNaarDom/PpsKenmerken.cls.xml =================================================================== diff -u -r73866 -r74323 --- APPS/PM/Maatwerk/impl/VhConfig/Converter/EncowayNaarDom/PpsKenmerken.cls.xml (.../PpsKenmerken.cls.xml) (revision 73866) +++ APPS/PM/Maatwerk/impl/VhConfig/Converter/EncowayNaarDom/PpsKenmerken.cls.xml (.../PpsKenmerken.cls.xml) (revision 74323) @@ -33,6 +33,7 @@ ElseIf (CharacteristicKey = "Print") { Do PpsKenmerken.SetAt(CharacteristicValue, "Print") } ElseIf (CharacteristicKey = "SideHeight") { Do PpsKenmerken.SetAt(CharacteristicValue, "ZijkantHoogte") } ElseIf (CharacteristicKey = "Groove") { Do PpsKenmerken.SetAt(CharacteristicValue, "Groef") } + ElseIf (CharacteristicKey = "GrossDimensionDepth") { Do PpsKenmerken.SetAt(CharacteristicValue, "OrigineleMatDiepte") } Else { do ##class(vhLib.Logger).%New("VhConfig.Converter").Error("EncowayNaarDom", "Geen vertaling gevonden voor PpsKenmerk '" _ CharacteristicKey _ "'.") } Index: APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml =================================================================== diff -u -r74257 -r74323 --- APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml (.../ProductOptiesGenerator.cls.xml) (revision 74257) +++ APPS/Halux/PPS/Document/impl/common/BatchNaarObjective/OptieGenerator/ProductOptiesGenerator.cls.xml (.../ProductOptiesGenerator.cls.xml) (revision 74323) @@ -121,7 +121,9 @@ #dim IsLegrabox As %Boolean = (..ProductTypeAPI.IsLegraboxProduct(Product.GeefID())) #dim IsMerivobox As %Boolean = (..ProductTypeAPI.IsMerivoboxProduct(Product.GeefID())) #dim IsTandembox As %Boolean = (..ProductTypeAPI.IsTandemboxProduct(Product.GeefID())) - + Set OmleidingNaarEncowayBepaler = ##class(DOM.PM.Maatwerk.Calc.Common.impl.OmleidingNaarEncowayBepaler).%New() + #dim IsMaatwerkCalculatieInEncoway As %Boolean = OmleidingNaarEncowayBepaler.IsMaatwerkCalculatieInEncoway(IngegevenKenmerken.GeefVariant(), IngegevenKenmerken.GeefVersieNr()) + Set Opties = ##class(%ListOfObjects).%New() #dim MatOriginalDepth As %Integer = 0 #dim MatOriginalWidth As %Integer = 0 @@ -171,12 +173,25 @@ Set MatX = HalffabItemMat If MatX.%Extends(##class(DOM.PM.Maatwerk.Calc.HF.StandaardHalffabItem).%ClassName(1)) { Set MatHalffab = MatX.GeefHalffab() - Set MatOriginalDepth = +MatHalffab.Diepte - Set MatOriginalWidth = +MatHalffab.Breedte + + If (IsMaatwerkCalculatieInEncoway) { + Set MatOriginalDepth = MatHalffab.OrigineleMatDiepte + Set MatOriginalWidth = MatHalffab.OrigineleMatBreedte + } Else { + Set MatOriginalDepth = +MatHalffab.Diepte + Set MatOriginalWidth = +MatHalffab.Breedte + } } ElseIf HalffabItemMat.%Extends(##class(DOM.PM.Maatwerk.Calc.HF.BewerktHalffabItem).%ClassName(1)) { Set MatHalffab = MatX.GeefHalffab() - Set MatOriginalDepth = +MatHalffab.Diepte - Set MatOriginalWidth = +MatHalffab.Breedte + + If (IsMaatwerkCalculatieInEncoway) { + Set MatOriginalDepth = MatHalffab.OrigineleMatDiepte + Set MatOriginalWidth = MatHalffab.OrigineleMatBreedte + } Else { + Set MatOriginalDepth = +MatHalffab.Diepte + Set MatOriginalWidth = +MatHalffab.Breedte + } + 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()) } @@ -189,22 +204,37 @@ Set MatZ = HalffabItem.GeefHalffabItem(##class(DOM.PM.Maatwerk.Calc.Common.enu.GekoppeldIKType).MatZ()) Set MatHalffab = MatX.GeefHalffab() - Set MatXOriginalDepth = +MatHalffab.Diepte - Set MatXOriginalWidth = +MatHalffab.Breedte + If (IsMaatwerkCalculatieInEncoway) { + Set MatOriginalDepth = MatHalffab.OrigineleMatDiepte + Set MatOriginalWidth = MatHalffab.OrigineleMatBreedte + } Else { + Set MatOriginalDepth = +MatHalffab.Diepte + Set MatOriginalWidth = +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() - Set MatYOriginalDepth = +MatHalffab.Diepte - Set MatYOriginalWidth = +MatHalffab.Breedte + If (IsMaatwerkCalculatieInEncoway) { + Set MatOriginalDepth = MatHalffab.OrigineleMatDiepte + Set MatOriginalWidth = MatHalffab.OrigineleMatBreedte + } Else { + Set MatOriginalDepth = +MatHalffab.Diepte + Set MatOriginalWidth = +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())) MatYDepthToBe = MatY.GeefBewerkteDimensie(##class(DOM.PM.enu.BewerkingDimensie).Breedte()) If $$$Not(MatZ = "") { Set MatHalffab = MatZ.GeefHalffab() - Set MatZOriginalDepth = +MatHalffab.Diepte - Set MatZOriginalWidth = +MatHalffab.Breedte + If (IsMaatwerkCalculatieInEncoway) { + Set MatOriginalDepth = MatHalffab.OrigineleMatDiepte + Set MatOriginalWidth = MatHalffab.OrigineleMatBreedte + } Else { + Set MatOriginalDepth = +MatHalffab.Diepte + Set MatOriginalWidth = +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())) MatZDepthToBe = MatZ.GeefBewerkteDimensie(##class(DOM.PM.enu.BewerkingDimensie).Breedte()) } Index: DOM/PM/Maatwerk/Calc/HF/Halffab/Encoway.cls.xml =================================================================== diff -u -r74287 -r74323 --- DOM/PM/Maatwerk/Calc/HF/Halffab/Encoway.cls.xml (.../Encoway.cls.xml) (revision 74287) +++ DOM/PM/Maatwerk/Calc/HF/Halffab/Encoway.cls.xml (.../Encoway.cls.xml) (revision 74323) @@ -38,6 +38,14 @@ %String + +%String + + + +%String + + %Library.CacheStorage EncowayDefaultData @@ -64,6 +72,12 @@ LiRe + +OrigineleMatBreedte + + +OrigineleMatDiepte + PpsKenmerken Index: APPS/PM/Maatwerk/impl/VhConfig/Converter/HalffabItemsBoom.cls.xml =================================================================== diff -u -r74287 -r74323 --- APPS/PM/Maatwerk/impl/VhConfig/Converter/HalffabItemsBoom.cls.xml (.../HalffabItemsBoom.cls.xml) (revision 74287) +++ APPS/PM/Maatwerk/impl/VhConfig/Converter/HalffabItemsBoom.cls.xml (.../HalffabItemsBoom.cls.xml) (revision 74323) @@ -280,6 +280,11 @@ Set:(Rol = "BackWood") Halffab.RugWandMateriaal = "Hout" Set:(Rol = "BackSteel") Halffab.RugWandMateriaal = "Staal" + If (Rol = "Mat") { + Set Halffab.OrigineleMatBreedte = Halffabrikaat.GrossDimensionSemiFinishedProduct + Set Halffab.OrigineleMatDiepte = Halffabrikaat.PpsCharacteristics.GetAt("GrossDimensionDepth") + } + Quit Halffab ]]>