注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

微软MVP罗勇的博客

微软MVP罗勇,www.luoyong.me

 
 
 

日志

 
 

为Dynamics 365写一个简单程序实现解决方案一键迁移  

2017-06-27 23:54:45|  分类: CRM探索 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
关注本人微信和易信公众号: 微软动态CRM专家罗勇 ,回复258或者20170627可方便获取本文,同时可以在第一间得到我发布的最新的博文信息,follow me!我的网站是 www.luoyong.me 。
在我们做项目的过程中,一般会涉及到多个Dynamics 365环境,一般包括一个开发环境、一个SIT环境,一个UAT环境和一个生产环境,经常涉及到解决方案从开发环境迁移到SIT环境,从开发环境迁移到UAT环境,从开发环境迁移到UAT环境等等。一般手工操作是先更改解决方案版本,保存后发布解决方案,再导出解决方案,再导入解决方案到目标环境。一个解决方案还好,解决方案多了麻烦,容易手误或者漏操作,可以写个程序来做这些繁杂的事情吗?Follow me。
直接上代码,代码中有注释说明,注意我这里是导入到同一个环境,你使用我的代码的时候要改动到其他CRM环境,我这里的示例是迁移一个解决方案包,项目中很一般是迁移多个。我这里导出解决方案是放在电脑的下载文件夹中:

        public static IServiceManagement<IOrganizationService> sm;
        static void Main(string[] args)
        {
            try
            {
                sm = ServiceConfigurationFactory.CreateManagement<IOrganizationService>(new Uri("https://demo.luoyong.me/XRMServices/2011/Organization.svc"));
                ClientCredentials credentials = new ClientCredentials();
                credentials.UserName.UserName = "crmadmin@luoyong.me";
                credentials.UserName.Password = "Pass";
                using (var _serviceProxy = new OrganizationServiceProxy(sm, credentials))
                {
                    _serviceProxy.Timeout = new TimeSpan(0, 20, 0);//默认为两分钟,这里设置为20分钟
                    _serviceProxy.EnableProxyTypes();
                    Console.WriteLine("Dynamics 365中可见的解决方案列表:" + DateTime.Now.ToLongTimeString());
                    QueryExpression qe = new QueryExpression("solution");
                    qe.ColumnSet = new ColumnSet("uniquename", "friendlyname", "version", "solutionpackageversion", "ismanaged");
                    qe.Criteria.AddCondition("isvisible", ConditionOperator.Equal, true);
                    qe.AddOrder("uniquename", OrderType.Ascending);
                    var solutions = _serviceProxy.RetrieveMultiple(qe);
                    foreach(var item in solutions.Entities)
                    {
                        Console.WriteLine(string.Format("uniquename={0};friendlyname={1};version={2};solutionpackageversion={3};ismanaged={4}",
                            item.GetAttributeValue<string>("uniquename"),
                            item.GetAttributeValue<string>("friendlyname"),
                            item.GetAttributeValue<string>("version"),
                            item.GetAttributeValue<string>("solutionpackageversion"),
                            item.GetAttributeValue<bool>("ismanaged")));
                        Console.WriteLine(new String('-',80));
                    }
                    Console.WriteLine("开始查询要导出的解决方案并更改版本信息" + DateTime.Now.ToLongTimeString());
                    var toExpSolutionUniqueName = "DemoSolution";
                    qe = new QueryExpression("solution");
                    qe.ColumnSet = new ColumnSet("version");
                    qe.Criteria.AddCondition("uniquename", ConditionOperator.Equal, toExpSolutionUniqueName);
                    qe.TopCount = 1;
                    solutions = _serviceProxy.RetrieveMultiple(qe);
                    if(solutions.Entities.Count >= 1)
                    {
                        var solution = solutions.Entities[0];
                        solution["version"] = string.Format("8.2.{0}.{1}", DateTime.Now.Month, DateTime.Now.Day);
                        _serviceProxy.Update(solution);
                    }
                    Console.WriteLine("开始发布所有自定义项" + DateTime.Now.ToLongTimeString());
                    PublishAllXmlRequest pubReq = new PublishAllXmlRequest();
                    _serviceProxy.Execute(pubReq);
                    Console.WriteLine("开始导出" + DateTime.Now.ToLongTimeString());
                    ExportSolutionRequest exportSolutionRequest = new ExportSolutionRequest();
                    exportSolutionRequest.Managed = false;
                    exportSolutionRequest.SolutionName = toExpSolutionUniqueName;
                    exportSolutionRequest.TargetVersion = "8.2";//Dynamics 365导出时候可以选择目标环境用什么版本
                    ExportSolutionResponse exportSolutionResponse = (ExportSolutionResponse)_serviceProxy.Execute(exportSolutionRequest);
                    byte[] exportXml = exportSolutionResponse.ExportSolutionFile;
                    string filename = string.Format("{0}_{1}.zip", toExpSolutionUniqueName, solutions.Entities[0].GetAttributeValue<string>("version").Replace('.','_'));
                    File.WriteAllBytes(System.Environment.GetFolderPath(System.Environment.SpecialFolder.MyDocuments).Replace("Documents", "Downloads") + "\\" + filename, exportXml);
                    Console.WriteLine("开始导入" + DateTime.Now.ToLongTimeString());
                    byte[] fileBytes = File.ReadAllBytes(System.Environment.GetFolderPath(System.Environment.SpecialFolder.MyDocuments).Replace("Documents", "Downloads") + "\\" + filename);
                    ImportSolutionRequest impReq = new ImportSolutionRequest()
                    {
                        CustomizationFile = fileBytes
                    };
                    _serviceProxy.Execute(impReq);
                    Console.WriteLine("开始发布所有自定义项" + DateTime.Now.ToLongTimeString());
                    pubReq = new PublishAllXmlRequest();
                    _serviceProxy.Execute(pubReq);
                    Console.WriteLine("程序运行成功!");
                    Console.ReadKey();
                }
            }
            catch (FaultException ex)
            {
                Console.WriteLine("程序出现异常:ex.Message=" + ex.Message);
                Console.ReadKey();
            }
        }


展示效果如下图:
为Dynamics 365写一个简单程序实现解决方案一键迁移 - 罗勇 - 微软MVP罗勇的博客
 
可能你会对PublishAllXmlRequest这个消息产生疑问,这个是发布哪个解决方案的所有自定义项,实验证明应该是发布所有解决方案的所有自定义项。在导出解决方案之前请执行下这个消息确保所有的自定义项都发布了,在导入解决方案之后也执行下这个消息导入后的解决方案生效。
Dynamics 365的一个新增功能是导出解决方案时候可以指定解决方案的版本,可以选择 8.0, 8.1或者8.2,我这个导出程序使用了默认的 8.2.
值得说明的是高级查找并不能查询解决方案这个实体,所以我这里用的是QueryExpression这种查询方法,而不是时候用FetchXml来查询。当然两者是可以互相转换的。查看这个实体的元数据还是使用Dynamics 365提供的Metadata Browser这个解决方案吧。
素格格新疆特产店--做新疆特产的搬运工。
本店由博主的新疆老婆开设,搬运各种上等的新疆特产,是自用,送礼,年货,孝敬长辈特别是(岳)父母的首选。
Dynamics CRM中的地址知多D? - 罗勇 - 微软MVP-罗勇的博客

  评论这张
 
阅读(121)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017