Index: APPS/Halux/PPS/TBXZaag/impl/PlaatmateriaalHelperVoorMVX.cls.xml =================================================================== diff -u -r63217 -r63220 --- APPS/Halux/PPS/TBXZaag/impl/PlaatmateriaalHelperVoorMVX.cls.xml (.../PlaatmateriaalHelperVoorMVX.cls.xml) (revision 63217) +++ APPS/Halux/PPS/TBXZaag/impl/PlaatmateriaalHelperVoorMVX.cls.xml (.../PlaatmateriaalHelperVoorMVX.cls.xml) (revision 63220) @@ -1,7 +1,7 @@ -%RegisteredObject +TECH.RegisteredObject DOM.PM.Maatwerk.Calc.HF.HalffabContext @@ -130,7 +130,7 @@ While (HalffabIterator.HasNext()) { #dim Halffab As DOM.PM.Maatwerk.Calc.HF.Halffab = HalffabIterator.Next() // TODOPA codeduplicatie tov APPS.Halux.PPS.Activiteit.impl.LBX.LBXLadePersen => MVX? - #dim AftrekDiepte = $S(Halffab.RugWandMateriaal = ##class(DOM.PM.enu.MVXRugWandMateriaal).Staal(): 21, 1: 26) + #dim AftrekDiepte = $S(Halffab.RugWandMateriaal = ##class(DOM.PM.enu.MVXRugWandMateriaal).Staal(): 22, 1: 26) #dim PlaatKleuren As %List = ##class(Prod.Kenmerk.DataDefinitie).Get("MVX_PPS_"_Rol, Halffab.GeefProductID(), "Kleur") // TODOPA FSC claim ophalen #dim PlaatClaim = "" @@ -157,7 +157,12 @@ Set PlaatMateriaal.HoogteOms = Halffab.RugHoogte _ " " _ PlaatMateriaal.Hoogte Set PlaatMateriaal.HoogteEnKleurOms = "MVX" _ " " _ PlaatMateriaal.HoogteOms_" "_PlaatMateriaal.Kleuren_" "_ PlaatClaim } - Do PlaatMateriaalLijst.Insert(PlaatMateriaal) + // QUICKFIX DIE WEG MAG ZODRA ALLE LADEDIEPTES VOOR MVX GEIMPLEMENTEERD ZIJN (PM heeft reeds data, halffabjes, voorzien ervoor, waarbij LadeDiepte daarvoor null is momenteel) + #dim IsPlaatMateriaalHoogteNegatiefOfNul As %Boolean = (+PlaatMateriaal.Hoogte <= 0) + #dim IsPlaatMateriaalHoogteLeeg As %Boolean = (PlaatMateriaal.Hoogte = "") + If ($$$Not(IsPlaatMateriaalHoogteLeeg) && $$$Not(IsPlaatMateriaalHoogteNegatiefOfNul)) { + Do PlaatMateriaalLijst.Insert(PlaatMateriaal) + } } ]]>