经常有这样的需求，一个单据上有太多要填写的内容，有时还关联多个子单据，客户不想一个一个地填写，他们想从已有的单据上复制数据，克隆成一条新的记录。本文将介绍如何克隆一条记录，包括它的子单据以生成一条新的记录。
主要用到Microsoft.Xrm.Client.EntityExtensions.Clone方法来克隆数据，以及用OrganizationServiceContext来动态复制子单据的数据。
首先在界面上新加一个Clone的按钮，加一个new_clone的字段；点击按钮时，把new_clone字段设为clone以触发插件，插件里完成数据的复制工作，并再次把new_clone字段设成新数据的id，new_clone的onchange事件会调用Xrm.Utility.openEntityForm("new_marketing_plan", cloneValue);来打开新的数据。
下面看下实现方法：
1. 界面上js：
function openNewEntity() {
var clone = Xrm.Page.getAttribute("new_clone");
var cloneValue = clone.getValue();
if (cloneValue != "clone" && cloneValue != "") {
clone.setSubmitMode("always");
clone.setValue("");
Xrm.Page.data.entity.save();
Xrm.Utility.openEntityForm("new_marketing_plan", cloneValue);
}
}
//clone button click event
function clone() {
var clone = Xrm.Page.getAttribute("new_clone");
clone.setSubmitMode("always");
clone.setValue("clone");
Xrm.Page.data.entity.save();
}
2. 主单据复制：
new_marketing_plan newMP = (new_marketing_plan)Microsoft.Xrm.Client.EntityExtensions.Clone(curEnt, true);
new_marketing_plan mp = new new_marketing_plan() { Id = newMP.Id };
Guid newMPid = Guid.NewGuid();
newMP.Attributes.Remove("new_marketing_planid");
newMP.Attributes.Remove("new_name");
newMP.new_approval_status = new OptionSetValue(1);
newMP.new_clone = "";
newMP.EntityState = null;
newMP.Id = newMPid;
adminService.Create(newMP);
3. 子表复制：
我这里有9个子表，所以抽出了一个方法以方便使用， 以后要是子单据有变化，只用改下这里的entNames就行了。
//clone field change event
string entNames = "new_print_plan,new_radio_plan,new_bill_board,new_tv_plan,new_btl_posm,new_btl_poe_fixed,new_promotion_girls,new_promotion_events,new_digital_plan";
foreach (string entName in entNames.Split(','))
{
CloneRelatedEntities(adminService, newMPid, entName, "new_marketing_planid", mp);
} curEnt["new_clone"] = newMPid.ToString();
adminService.Update(curEnt);
private void CloneRelatedEntities(IOrganizationService adminService, Guid newEntityId, string subEntityName, string filterName, Entity parentEntity)
{
using (OrganizationServiceContext svcContext = new OrganizationServiceContext(adminService))
{
var ents = svcContext.CreateQuery(subEntityName).Where(e => e[filterName] == parentEntity[filterName]).ToList();
foreach (var ent in ents)
{
var newEnt = Microsoft.Xrm.Client.EntityExtensions.Clone(ent);
newEnt.Attributes[filterName] = new EntityReference(subEntityName, newEntityId);
newEnt.Id = Guid.NewGuid();
newEnt.EntityState = null;
adminService.Create(newEnt);
}
}
}
4. 注意事项
- 当我完成Unit Test，注册完插件后，报了下面的错：
Could not load file or assembly 'Microsoft.Xrm.Client, Version=6.0.0.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35' or one of its dependencies. The system cannot find the file specified
原来这个Client dll在服务器上是没有的，需要我们手动copy上去。从我们本机的“SDK\Bin”里copy到服务器上的“program files\Microsoft Dynamics CRM\CRMWeb\bin”下即可。
- 再点击Clone按钮，又报了一个错：
This workflow job was canceled because the workflow that started it included an infinite loop. Correct the workflow logic and try again. For information about workflow logic, see Help
原来出现死循环了，解决方法很简单，在插件的开始处加上下面代码就行了：
if (context.Depth > 1)
{
return;
}