Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/MVX/MatUitsparingSnijPositieBepaler.cls.xml
===================================================================
diff -u -r65059 -r65067
--- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/MVX/MatUitsparingSnijPositieBepaler.cls.xml (.../MatUitsparingSnijPositieBepaler.cls.xml) (revision 65059)
+++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/MVX/MatUitsparingSnijPositieBepaler.cls.xml (.../MatUitsparingSnijPositieBepaler.cls.xml) (revision 65067)
@@ -31,12 +31,12 @@
Set LadeUitsparingHelper = ##class(DOM.PM.Maatwerk.Calc.Common.impl.LadeUitsparingHelper).%New()
If (..IsSpoelbakLade(IngegevenKenmerken)) {
- Set MatLinksX = ..GeefMatRechtsY(IngegevenKenmerken) + LadeUitsparingHelper.GeefBreedteUitsparingZ1(IngegevenKenmerken.UitsparingData) +..#ExtraBreedteTussenstukVoorSpoelbak - 6
+ Set MatLinksX = ..GeefMatRechtsY(IngegevenKenmerken) + LadeUitsparingHelper.GeefBreedteUitsparingZ1(IngegevenKenmerken.UitsparingData) + ..#ExtraBreedteTussenstukVoorSpoelbak
} ElseIf (..IsSifonLade(IngegevenKenmerken)) {
If IngegevenKenmerken.UitsparingData.AantalUitsparingen = ##class(DOM.PM.enu.AantalUitsparingen).Enkel() {
- Set MatLinksX = ..GeefMatRechtsY(IngegevenKenmerken) + LadeUitsparingHelper.GeefBreedteUitsparingZ1(IngegevenKenmerken.UitsparingData) + 17 + 1 // 17 afkomsting van sifonkap (Breedte z1 + 17 = 177), productie telt er dan nog 1 bij om zeker te zijn
+ Set MatLinksX = ..GeefMatRechtsY(IngegevenKenmerken) + LadeUitsparingHelper.GeefBreedteUitsparingZ1(IngegevenKenmerken.UitsparingData) + 17 + 0.5 // 17 afkomsting van sifonkap (Breedte z1 + 17 = 177), productie telt er dan nog 0.5 bij om zeker te zijn
} Else {
- Set MatLinksX = ..GeefMatMiddenM1(IngegevenKenmerken) + LadeUitsparingHelper.GeefBreedteUitsparingZ1(IngegevenKenmerken.UitsparingData) + 17 + 1
+ Set MatLinksX = ..GeefMatMiddenM1(IngegevenKenmerken) + LadeUitsparingHelper.GeefBreedteUitsparingZ1(IngegevenKenmerken.UitsparingData) + 17 + 0.5
}
} Else {
Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Toepassing '"_IngegevenKenmerken.Toepassing_"' is niet geïmplementeerd."))
@@ -53,9 +53,9 @@
#dim MatVooraanQ As %Decimal
If (..IsSpoelbakLade(IngegevenKenmerken)) {
- Set MatVooraanQ = (IngegevenKenmerken.LadeDiepte - ..#AftrekDiepteVoorMat - ..GeefUitsparingDiepte(IngegevenKenmerken) - 1)
+ Set MatVooraanQ = (IngegevenKenmerken.LadeDiepte - ..#AftrekDiepteVoorMat - ..GeefUitsparingDiepte(IngegevenKenmerken) + 10 - 1)
} ElseIf (..IsSifonLade(IngegevenKenmerken)) {
- Set MatVooraanQ = (IngegevenKenmerken.LadeDiepte - ..#AftrekDiepteVoorMat - ..GeefUitsparingDiepte(IngegevenKenmerken))
+ Set MatVooraanQ = (IngegevenKenmerken.LadeDiepte - ..#AftrekDiepteVoorMat + 1 - ..GeefUitsparingDiepte(IngegevenKenmerken) - 8 + 16 + 0.5)
} Else {
Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Toepassing '"_IngegevenKenmerken.Toepassing_"' is niet geïmplementeerd."))
}
@@ -74,14 +74,14 @@
IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken
%Decimal
-
IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.LBXKenmerken
%Decimal
-
@@ -101,7 +101,7 @@
If (..IsSpoelbakLade(IngegevenKenmerken)) {
Set MatRechtsY = IngegevenKenmerken.UitsparingData.RugDeelY - ..#AftrekRugBreedteVoorSpoelbaklade - 6
} ElseIf (..IsSifonLade(IngegevenKenmerken)) {
- Set MatRechtsY = IngegevenKenmerken.UitsparingData.RugDeelY - ..#AftrekRugBreedteVoorSifonlade
+ Set MatRechtsY = IngegevenKenmerken.UitsparingData.RugDeelY - ..#AftrekRugBreedteVoorSifonlade - 2.5 - (2*0.5)
} Else {
Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Toepassing '"_IngegevenKenmerken.Toepassing_"' is niet geïmplementeerd."))
}
@@ -118,6 +118,10 @@
Set LadeUitsparingHelper = ##class(ECONimpl.PM.Maatwerk.LadeUitsparingHelper).%New()
#dim UitsparingDiepte As %Decimal = LadeUitsparingHelper.GeefUitsparingDiepte(IngegevenKenmerken.UitsparingData.UitsparingZ1)
+ If ..IsVoorwandTypeGlas(IngegevenKenmerken) {
+ Set UitsparingDiepte = UitsparingDiepte + 13
+ }
+
Quit UitsparingDiepte
]]>
@@ -137,6 +141,14 @@
+
+
+IngegevenKenmerken:DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken
+1
+%Boolean
+
+
Index: APPS/Halux/PPS/Document/ProductieDetailDocument/impl/MVX/BladInhoudBuilder.cls.xml
===================================================================
diff -u -r65059 -r65067
--- APPS/Halux/PPS/Document/ProductieDetailDocument/impl/MVX/BladInhoudBuilder.cls.xml (.../BladInhoudBuilder.cls.xml) (revision 65059)
+++ APPS/Halux/PPS/Document/ProductieDetailDocument/impl/MVX/BladInhoudBuilder.cls.xml (.../BladInhoudBuilder.cls.xml) (revision 65067)
@@ -62,7 +62,7 @@
If ..InputParameters.Layout = ##class(APPS.Halux.PPS.Document.ProductieDetailDocument.enu.Layout).MVXAlleGroepen() {
- If (..HeeftMat(IngegevenKenmerken) && $$$Not(..IsMatUit3of5Stukken(IngegevenKenmerken)) && ..IngegevenKenmerkenTypeAPI.IsSifonlade(IngegevenKenmerken)) {
+ If (..HeeftMat(IngegevenKenmerken) && $$$Not(..IsMatUit3of5Stukken(IngegevenKenmerken))) {
#dim ProductDetailDataLijn As APPS.Halux.PPS.Document.ProductieDetailDocument.impl.common.ProductDetailDataLijn = ""