【027】增加客开管理模块
登录
侧边栏壁纸
博主昵称
秋驰雪隙

  • 累计撰写 60 篇文章
  • 累计收到 2 条评论
用友U9

【027】增加客开管理模块

秋驰雪隙
秋驰雪隙
2025-04-08 / 0 评论 / 6 阅读 / 正在检测是否收录...

1.脚本新增客开-客开管理系统模块

Tips：执行脚本之后即可在角色菜单看到此模块，客开Code=CU，客开管理Code=CUST。如需在客开下增加其他二级模块，参照脚本举一反三即可。
-- 客开-客开管理-加新应用脚本
--此脚本用于二级应用
declare @YY0 nvarchar(10)
declare @YY1 nvarchar(10)
declare @YYID0 bigint
declare @YYID1 bigint
declare @YYShortName0 nvarchar(10)
declare @YYShortName1 nvarchar(10)
declare @YYName0 nvarchar(10)
declare @YYName1 nvarchar(10)
declare @CreatedBy nvarchar(20)
 
set @YY0='80000'
set @YY1='80005'
set @YYShortName0='CU'
set @YYShortName1='CUST'
set @YYName0='客开'
set @YYName1='客开管理'
set @YYID0 =(select top 1 id from Base_Application where Code=@YY0)
set @YYID1 =(select top 1 ID from Base_Application where Code=@YY1)
set @CreatedBy ='Peter'
 
if (@YYID0 is null)
set @YYID0=(CAST (@yy0 as bigint))
if (@YYID1 is null)
set @YYID1=(CAST (@yy1 as bigint))

--Base_Application 菜单应用
DELETE FROM Base_Application_TRL WHERE ID in(@YYID0 ,@YYID1)
DELETE FROM Base_Application WHERE ID in(@YYID0,@YYID1)
--第一级0
INSERT INTO Base_Application(ID,CreatedOn,CreatedBy,ModifiedOn,ModifiedBy,Code,ShortName,Effective_IsEffective,Effective_EffectiveDate,Effective_DisableDate,[Level],IsLeaf,ParentNode,SysVersion)
VALUES(@YYID0 ,GETDATE(),@CreatedBy ,NULL,NULL,@YY0 ,@YYShortName0 ,1,GETDATE (),'9999-12-31',1,0,NULL,0)
INSERT INTO Base_Application_TRL(ID,SysMLFlag,[Name])
VALUES(@YYID0,'zh-CN',@YYName0)
INSERT INTO Base_Application_TRL(ID,SysMLFlag,[Name])
VALUES(@YYID0,'en-US',@YYShortName0)
--第二级1
INSERT INTO Base_Application(ID,CreatedOn,CreatedBy,ModifiedOn,ModifiedBy,Code,ShortName,Effective_IsEffective,Effective_EffectiveDate,Effective_DisableDate,[Level],IsLeaf,ParentNode,SysVersion)
VALUES(@YYID1,GETDATE(),@CreatedBy,NULL,NULL,@YY1,@YYShortName1,1,GETDATE(),'9999-12-31',2,1,@YYID0,0)
INSERT INTO Base_Application_TRL(ID,SysMLFlag,[Name])
VALUES(@YYID1,'zh-CN',@YYName1)
INSERT INTO Base_Application_TRL(ID,SysMLFlag,[Name])
VALUES(@YYID1,'en-US',@YYShortName1)
 
--UBF_SM_AppOperatorMap 应用控制类分布
--仅末级需要预置
DELETE FROM UBF_SM_AppOperatorMap WHERE [Application] IN (@YYID1)
 
INSERT INTO UBF_SM_AppOperatorMap (ID,CreatedOn,CreatedBy,ModifiedOn,ModifiedBy,SysVersion,[Application],OperatorLocation,EnableAppOperatorFullName,DisableAppOperatorFullName,LockAppOperatorFullName,UnlockAppOperatorFullName,EnableCheckOperatorFullName,MataDataState,MenuState,AuthorityState) 
VALUES ( (select isnull(max(id),0)+1 from ubf_sm_appoperatormap), getdate(), @createdby, NULL, NULL, 0
,@YYID1
,'UFIDA.U9.BS.AppController.AppControllerBP.dll'
,'UFIDA.U9.BS.AppController.EnableAppOperator'
,'UFIDA.U9.BS.AppController.DisableAppOperator'
,'UFIDA.U9.BS.AppController.LockAppOperator'
,'UFIDA.U9.BS.AppController.UnlockAppOperator'
,'','false','false','false'); 
 
 
--启用时不检查脚本
update UBF_SM_AppOperatorMap set MataDataState=1 ,MenuState=1 where [Application]=@YYID1
 
 
--UBF_SM_OrgTypeAppMap 组织性质与应用
--仅末级需要预置
DELETE FROM UBF_SM_OrgTypeAppMap WHERE [Application] in (@YYID1)
 
INSERT INTO UBF_SM_OrgTypeAppMap ([ID],[CreatedOn],[CreatedBy],[ModifiedOn],[ModifiedBy],[SysVersion],[OrgType],[Application])
VALUES((select isnull(max(id),0)+1 from UBF_SM_OrgTypeAppMap)
,GETDATE(),@CreatedBy,NUll,NULL,0,1,@YYID1)
 
INSERT INTO UBF_SM_OrgTypeAppMap ([ID],[CreatedOn],[CreatedBy],[ModifiedOn],[ModifiedBy],[SysVersion],[OrgType],[Application])
VALUES((select isnull(max(id),0)+1 from UBF_SM_OrgTypeAppMap)
,GETDATE(),@CreatedBy,NUll,NULL,0,2,@YYID1)
 
INSERT INTO UBF_SM_OrgTypeAppMap ([ID],[CreatedOn],[CreatedBy],[ModifiedOn],[ModifiedBy],[SysVersion],[OrgType],[Application])
VALUES((select isnull(max(id),0)+1 from UBF_SM_OrgTypeAppMap)
,GETDATE(),@CreatedBy,NUll,NULL,0,3,@YYID1)
 
INSERT INTO UBF_SM_OrgTypeAppMap ([ID],[CreatedOn],[CreatedBy],[ModifiedOn],[ModifiedBy],[SysVersion],[OrgType],[Application])
VALUES((select isnull(max(id),0)+1 from UBF_SM_OrgTypeAppMap)
,GETDATE(),@CreatedBy,NUll,NULL,0,4,@YYID1)
 
INSERT INTO UBF_SM_OrgTypeAppMap ([ID],[CreatedOn],[CreatedBy],[ModifiedOn],[ModifiedBy],[SysVersion],[OrgType],[Application])
VALUES((select isnull(max(id),0)+1 from UBF_SM_OrgTypeAppMap)
,GETDATE(),@CreatedBy,NUll,NULL,0,5,@YYID1)
 
INSERT INTO UBF_SM_OrgTypeAppMap ([ID],[CreatedOn],[CreatedBy],[ModifiedOn],[ModifiedBy],[SysVersion],[OrgType],[Application])
VALUES((select isnull(max(id),0)+1 from UBF_SM_OrgTypeAppMap)
,GETDATE(),@CreatedBy,NUll,NULL,0,6,@YYID1)
 
INSERT INTO UBF_SM_OrgTypeAppMap ([ID],[CreatedOn],[CreatedBy],[ModifiedOn],[ModifiedBy],[SysVersion],[OrgType],[Application])
VALUES((select isnull(max(id),0)+1 from UBF_SM_OrgTypeAppMap)
,GETDATE(),@CreatedBy,NUll,NULL,0,7,@YYID1)
 
INSERT INTO UBF_SM_OrgTypeAppMap ([ID],[CreatedOn],[CreatedBy],[ModifiedOn],[ModifiedBy],[SysVersion],[OrgType],[Application])
VALUES((select isnull(max(id),0)+1 from UBF_SM_OrgTypeAppMap)
,GETDATE(),@CreatedBy,NUll,NULL,0,8,@YYID1)
 
INSERT INTO UBF_SM_OrgTypeAppMap ([ID],[CreatedOn],[CreatedBy],[ModifiedOn],[ModifiedBy],[SysVersion],[OrgType],[Application])
VALUES((select isnull(max(id),0)+1 from UBF_SM_OrgTypeAppMap)
,GETDATE(),@CreatedBy,NUll,NULL,0,9,@YYID1)
 
INSERT INTO UBF_SM_OrgTypeAppMap ([ID],[CreatedOn],[CreatedBy],[ModifiedOn],[ModifiedBy],[SysVersion],[OrgType],[Application])
VALUES((select isnull(max(id),0)+1 from UBF_SM_OrgTypeAppMap)
,GETDATE(),@CreatedBy,NUll,NULL,0,10,@YYID1)
 
--Base_Role 角色
--仅末级需要预置
DELETE FROM Base_Role_trl WHERE  id in (SELECT id FROM Base_Role WHERE [Application] in (@YYID1))
DELETE FROM Base_Role WHERE [Application] in (@YYID1)
 
INSERT INTO Base_Role (ID, CreatedOn, CreatedBy, ModifiedOn,ModifiedBy,Code,ShortName,[Type],Effective_IsEffective,Effective_EffectiveDate,Effective_DisableDate,[Application],IsPrefab) 
VALUES((select isnull(max(id),0)+1 from Base_Role),getdate(),@createdby,NULL,NULL,@YYShortName1+'AppAdmin','AA',4,1,GETDATE(),'9999-12-31',@YYID1,3)
INSERT INTO Base_Role_trl (ID,SysMLFlag,[Name])
VALUES((select top 1 id from Base_Role where [application]=@yyid1 ),'zh-CN',@yyname1+'应用管理员角色')
INSERT INTO Base_Role_trl (ID,SysMLFlag,[Name]) 
VALUES((select top 1 id from Base_Role where [application]=@yyid1 ),'en-US',@YYShortName1+' Manage Application Administrator')

--v2.1补充
--2.1版本一个角色可对应多个应用，所以2.1新增了角色应用表，角色-角色应用为组合关系
--所以需增加一条角色应用记录
--删除该应用的角色记录
DELETE FROM Base_RoleApplication WHERE [Application] in (@YYID1)
--新增该应用的角色
INSERT INTO Base_RoleApplication (ID,CreatedOn,CreatedBy,ModifiedOn,ModifiedBy,SysVersion,[Application],[Role])
VALUES((select isnull(max(id),0)+1 from Base_RoleApplication),getdate(),@createdby,NULL,NULL,0,@YYID1,(select top 1 id from Base_Role where [application]=@yyid1 ))

* 执行完脚本之后，在角色菜单可查（EA账号）：

89bdf4526b824efd87537f2e2af6e10a.png

830aad17d0c2411b8a392f4efa79ae3a.png

2.编辑应用组装工具的菜单读取配置文件BuildupApp.bdcfg

Tips：路径：C:\yonyou\UBFV60\U9.VOB.Product.UBF\UBFStudio\BuildupApp.bdcfg（实际路径看自己的UBF在哪个盘）。
  • 在<Apps>的节点中新增如下节点配置项（注意shortName需与上面脚本中定义的一致）：
<App id="80000" code="80000" shortName="CU" name="客开" level="1">
    <App id="80005" code="80005" shortName="CUST" name="客开管理" level="2" />
</App>

3.给相应的用户分配此模板角色（EA账号）

1559fb5bb652481c85d78361990ff389.png

4.启用系统（系统管理员账号）

1d9fa28714fb49058da9c205d3087989.png

5.发布菜单到新增的客开模块

Tips：第二步未执行配置节点的增加则无法在应用组装工具中看到客开-客开管理

2da0a3d6cec3451a95b3705c73191f28.png

6.分配菜单权限（系统管理员账号）

4035b0c384114063bc5324ccd89fe9b5.png

7.重新登录即可看到新增的客开模块

136179dc58be426a9d409aa48b5e7966.png

0
暂无标签
版权属于： 秋驰雪隙
本文链接： https://blog.pee.ee/archives/u9027.html
作品采用： 《 署名-非商业性使用-相同方式共享 4.0 国际 (CC BY-NC-SA 4.0) 》许可协议授权

评论 (0)

取消