Index: APPS/Halux/PPS/Activiteit/impl/MVX/PickingStalenRuggen.cls.xml =================================================================== diff -u -r62594 -r63121 --- APPS/Halux/PPS/Activiteit/impl/MVX/PickingStalenRuggen.cls.xml (.../PickingStalenRuggen.cls.xml) (revision 62594) +++ APPS/Halux/PPS/Activiteit/impl/MVX/PickingStalenRuggen.cls.xml (.../PickingStalenRuggen.cls.xml) (revision 63121) @@ -50,17 +50,17 @@ #dim IngegevenKenmerken As DOM.PM.Maatwerk.Calc.Common.impl.MVXKenmerken = Item.GeefIngegevenKenmerken() #dim RugItem As DOM.PM.Maatwerk.Calc.HF.ConcreetHalffabItem = RugUtils.GeefRugX(HalffabItemsBoom) - #dim ProductID As %String = RugItem.GeefHalffab().GeefProductID() - #dim AdministratiefProduct As DOM.PM.AdministratiefProduct = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(ProductID) - #dim Kleur As %String = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("MVX_PPS_Rug", ProductID, "Kleur")) - #dim Hoogte As %String = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("MVX_PPS_Rug", ProductID, "Hoogte")) + #dim HalffabProductID As %String = RugItem.GeefHalffab().GeefProductID() + #dim AdministratiefProduct As DOM.PM.AdministratiefProduct = ##class(DOM.DomeinContext).Instance().GeefProductRolAPI().GeefAdministratiefProduct(HalffabProductID) + #dim Kleur As %String = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("MVX_PPS_Rug", HalffabProductID, "BodemKleur")) + #dim Hoogte As %String = $LG(##class(Prod.Kenmerk.DataDefinitie).Get("MVX_PPS_Rug", HalffabProductID, "RugHoogte")) #dim UitvoeringInfo As APPS.Halux.PPS.Activiteit.impl.common.dto.StalenRuggenUitvoeringInfo = WerklijstItem.UitvoeringInfo Set UitvoeringInfo.Kleur = Kleur Set UitvoeringInfo.RugHoogte = Hoogte - Set UitvoeringInfo.Breedte = RugUtils.GeefStalenRugBreedte(ProductID) + Set UitvoeringInfo.Breedte = RugUtils.GeefStalenRugBreedte(HalffabProductID) Set UitvoeringInfo.Korttekst = AdministratiefProduct.GeefKorttekst() - Set UitvoeringInfo.HalffabProductID = ProductID + Set UitvoeringInfo.HalffabProductID = HalffabProductID Do WerklijstItem.Save() ]]>