%RegisteredObject 1 MoederProductID:%String,MatType:DOM.PM.enu.MatType kenmerkeneditor op dit product te zoeken en het kenmerk 'Hoogte' in te vullen in de kenmerkgroep 'MAT_PPS_Hoogte'") Do Mail.VoegToeLijn("Hierdoor werd géén verpakking data aangemaakt voor maatwerk product "_MaatwerkProduct.GeefKorttekst()) Do MailAPI.VerstuurMail(Mail) } Else { Set BoxData = ##class(DS.Prod.OptiBox.BoxData).%New() Set BoxData.Aantal = "Aantal" Set BoxData.AantalExec = "Params(""AANTAL"")" Set BoxData.Breedte = MATKenmerken.Breedte Set BoxData.BreedteExec = BoxData.Breedte Set BoxData.CutOrder = 1 Set BoxData.Diepte = MATKenmerken.Diepte Set BoxData.DiepteExec = BoxData.Diepte Set BoxData.Hoogte = HoogteMat Set BoxData.HoogteExec = BoxData.Hoogte Set BoxData.ObjRef = MoederProductID Set BoxData.ObjType = "PR" Set BoxData.PPSSubgroep = "MAT" Set BoxData.Positie = "B" If (MatType = ##class(DOM.PM.enu.MatType).TAOR()) { Do BoxData.MetaSetObjectId( ##class(DOM.PM.enu.VerpakkingBoxMeta).TaorIndelingenSubvolume() ) Set BoxData.PPSGroep = "TAOR INDELINGEN" Do BoxData.VolumeVanSetObjectId("TAOR indelingen||Mat groep||1") } ElseIf (MatType = ##class(DOM.PM.enu.MatType).ORGALUX()) { Do BoxData.MetaSetObjectId( ##class(DOM.PM.enu.VerpakkingBoxMeta).OrgaluxSubvolume()) Set BoxData.PPSGroep = "OL" Do BoxData.VolumeVanSetObjectId("OL||Antislipmat groep||1") } #dim Status As %Status = BoxData.%Save() If ($$$ISERR(Status)) Do ##class(TECH.ExceptionHandler).Throw(##class(TECH.Exceptions.SaveFailedException).%New("Optibox data kan niet worden opgeslagen",Status)) } ]]>