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
]]>