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 = ""