#Dim businessHost as Ens.Config.Item = ##class(Ens.Config.Item).%New()
#Dim setting as Ens.Config.Setting = ##class(Ens.Config.Setting).%New()
#Dim production as Ens.Config.Production = ##class(Ens.Config.Production).%OpenId("MyPkg.DemoProduction")
Set setting.Name="WebServiceURL"
Set setting.Value="http://localhost:52773/MyWS/Demo.Test.cls"
Set businessHost.ClassName="MyPkg.Operation.HISWSOperation"
Set businessHost.Name ="HIS web 服务"
Set businessHost.Production = production
Do businessHost.Settings.Insert(setting)
Do production.Items.Insert(businessHost)
Set tsc = production.%Save()
选择合适的适配器,开发代码。
在组件注册时选择开发的代码,按照业务逻辑配置即可。
可以通过Ens.Config.Production 的 %OpenId 方法打开现有的Production,
新建一个Ens.Config.Item的对象,该对象对应于Production界面中的各个组件(BusinessHost)
再使用production.Items.Insert方法将该Item对象插入到现有Production中,就可实现使用代码的方式创建Production 的 BusinessHost。
同时可以通过创建Ens.Config.Setting的实例以及设置相关属性的方式,对创建的BusinessHost中的配置在代码中进行设定,比如设定加载BO的URL、凭据等。