Index: DOM/PM/Maatwerk/Lade/LadeUtils/impl/MVXLadeUtils.cls.xml =================================================================== diff -u -r62954 -r63180 --- DOM/PM/Maatwerk/Lade/LadeUtils/impl/MVXLadeUtils.cls.xml (.../MVXLadeUtils.cls.xml) (revision 62954) +++ DOM/PM/Maatwerk/Lade/LadeUtils/impl/MVXLadeUtils.cls.xml (.../MVXLadeUtils.cls.xml) (revision 63180) @@ -10,9 +10,9 @@ Quit $CASE(LadeHoogte, ##class(DOM.PM.enu.MVXLadeHoogte).N(): 68.5, ##class(DOM.PM.enu.MVXLadeHoogte).M(): 91, - ##class(DOM.PM.enu.MVXLadeHoogte).K(): 129, + //##class(DOM.PM.enu.MVXLadeHoogte).K(): 129, ##class(DOM.PM.enu.MVXLadeHoogte).E(): 192, - ##class(DOM.PM.enu.MVXLadeHoogte).F(): 256, + //##class(DOM.PM.enu.MVXLadeHoogte).F(): 256, :0 ) ]]> @@ -25,9 +25,9 @@ Quit $CASE(RugHoogte, ##class(DOM.PM.enu.MVXLadeHoogte).N(): 85.5, ##class(DOM.PM.enu.MVXLadeHoogte).M(): 108, - ##class(DOM.PM.enu.MVXLadeHoogte).K(): 146, + //##class(DOM.PM.enu.MVXLadeHoogte).K(): 146, ##class(DOM.PM.enu.MVXLadeHoogte).E(): 209, - ##class(DOM.PM.enu.MVXLadeHoogte).F(): 273, + //##class(DOM.PM.enu.MVXLadeHoogte).F(): 273, :0 ) ]]> @@ -43,16 +43,16 @@ Set Hoogte = $Case(LadeHoogte, ##class(DOM.PM.enu.MVXLadeHoogte).N():88.5, ##class(DOM.PM.enu.MVXLadeHoogte).M():111, - ##class(DOM.PM.enu.MVXLadeHoogte).K():149, - ##class(DOM.PM.enu.MVXLadeHoogte).E():212, - ##class(DOM.PM.enu.MVXLadeHoogte).F():276) + //##class(DOM.PM.enu.MVXLadeHoogte).K():149, + ##class(DOM.PM.enu.MVXLadeHoogte).E():212) + //##class(DOM.PM.enu.MVXLadeHoogte).F():276) } Else { Set Hoogte = $Case(LadeHoogte, ##class(DOM.PM.enu.MVXLadeHoogte).N():68.5, ##class(DOM.PM.enu.MVXLadeHoogte).M():91, - ##class(DOM.PM.enu.MVXLadeHoogte).K():129, - ##class(DOM.PM.enu.MVXLadeHoogte).E():192, - ##class(DOM.PM.enu.MVXLadeHoogte).F():256) + //##class(DOM.PM.enu.MVXLadeHoogte).K():129, + ##class(DOM.PM.enu.MVXLadeHoogte).E():192) + //##class(DOM.PM.enu.MVXLadeHoogte).F():256) } Quit Hoogte Index: APPS/Halux/PPS/Activiteit/impl/MVX/ProductieVoorbereidingZaag/Utils.cls.xml =================================================================== diff -u -r63069 -r63180 --- APPS/Halux/PPS/Activiteit/impl/MVX/ProductieVoorbereidingZaag/Utils.cls.xml (.../Utils.cls.xml) (revision 63069) +++ APPS/Halux/PPS/Activiteit/impl/MVX/ProductieVoorbereidingZaag/Utils.cls.xml (.../Utils.cls.xml) (revision 63180) @@ -94,31 +94,25 @@ #dim RugWandHouderInfo As %String = "RWH: " If (IngegevenKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.MVXRugWandMateriaal).Hout()) { - #dim RugKantHoogte As %String = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("MVX_PPS_RugWandHouder", RugWandHouderProductID, "RugKantHoogte")) + #dim RugHoogte As %String = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("MVX_PPS_RugWandHouder", RugWandHouderProductID, "RugHoogte")) - If '$Length(RugKantHoogte){ + If '$Length(RugHoogte){ Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Kenmerk 'RugKantHoogte' voor groep 'MVX_PPS_RugWandHouder' is niet ingevuld voor product '"_RugWandHouderProductID_"'")) } - #dim ZijkantHoogte As %String = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("MVX_PPS_RugWandHouder", RugWandHouderProductID, "ZijkantHoogte")) + #dim ZijkantHoogte As %String = RugHoogte // Er is maar 1 kolom aangemaakt in de PPS kenmerken omdat rughoogte en zijkanthoogte toch altijd hetzelfde zijn bij dit kenmerk - If '$Length(ZijkantHoogte){ - Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.InvalidInputException).%New("Kenmerk 'ZijkantHoogte' voor groep 'MVX_PPS_RugWandHouder' is niet ingevuld voor product '"_RugWandHouderProductID_"'")) - } - #dim RugUtils As DOM.PM.Maatwerk.Lade.RugUtils = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeRugUtils(##class(DOM.PM.enu.LadeVariant).MVX()) #dim LadeUtils As DOM.PM.Maatwerk.Lade.LadeUtils = ##class(DOM.DomeinContext).Instance().GeefMaatwerkCalcAPI().GeefLadeUtils(##class(DOM.PM.enu.LadeVariant).MVX()) - #dim RugKantHoogteInMM As %Float = RugUtils.GeefRugHoogteInMm(RugKantHoogte) + #dim RugKantHoogteInMM As %Float = RugUtils.GeefRugHoogteInMm(RugHoogte) #dim ZijkantHoogteInMM As %Float = LadeUtils.GeefLadeHoogteInMM(ZijkantHoogte) Set RugWandHouderInfo = RugWandHouderInfo_..StripVoorZaagEtiket(IngegevenKenmerken.LadeKleur)_" "_ZijkantHoogte - If ZijkantHoogteInMM > RugKantHoogteInMM{ + + If ZijkantHoogteInMM > RugKantHoogteInMM{ //Zal altijd zo zijn voor MVX Set RugWandHouderInfo = RugWandHouderInfo_".22" } - If ZijkantHoogteInMM < RugKantHoogteInMM{ - Set RugWandHouderInfo = RugWandHouderInfo_"-"_RugKantHoogte - } } ElseIf (IngegevenKenmerken.RugWandMateriaal = ##class(DOM.PM.enu.MVXRugWandMateriaal).Staal()) { Set RugWandHouderInfo = RugWandHouderInfo_"-- -- --" } Else {