Please be aware that client in most cases will not show actual model on a project just after successful run. In that case AOS restart is required.
static void UpdateProjectModel(Args _args) { // Project to move TreeNode treeNode = TreeNode::findNode(@"\Projects\Private\PendingObjects"); str g; SysModelElement sysModelElement; SysModelElementData sysModelElementData; UtilElementType projectType = UtilElementType::PrivateProject; // Project type, shared/private ModelRecId modelIdFrom = 1662, // ModelId source modelIdTo = 11, // ModelId target modelRecId; if (!SysModelStore::modelId2Name(modelIdFrom)) { throw error('Incorrect source model id'); } if (!SysModelStore::modelId2Name(modelIdTo)) { throw error('Incorrect target model id'); } g = treeNode.AOTgetProperty('Origin'); if ('{00000000-0000-0000-0000-000000000000}' != g) { select sysModelElement where sysModelElement.Origin == treeNode.AOTgetProperty('Origin') &&sysModelElement.ElementType == projectType; if (sysModelElement.RecId) { ttsBegin; select forUpdate sysModelElementData where sysModelElementData.ModelElement == sysModelElement.RecId &&sysModelElementData.ModelId == modelIdFrom; if (sysModelElementData.RecId && modelIdTo) { sysModelElementData.ModelId = modelIdTo; sysModelElementData.update(); info(strFmt("Moved from %1 to %2", SysModelStore::modelId2Name(modelIdFrom), SysModelStore::modelId2Name(modelIdTo))); } ttsCommit; } } }
DaxOnline.org is free platform that allows you to quickly store and reuse snippets, notes, articles related to Dynamics AX.
Authors are allowed to set their own AdSense units and "buy me a coffee" link.
Join us.