K3 BOS 报表添加菜单及权限组

/************** 添加主控台菜单 **************/
--author:cc
--create by: 2013-04-01
/*一级菜单*/
/****************BEGIN****************/
delete from t_UserTopClass where FTopClassName='结算系统'
Insert Into t_UserTopClass(FTopClassID,FUserID,FTopClassName,FTopClassName_CHT,FTopClassName_EN,FVisible,FAcctType,FIndex) 
Values(2011,16394,'结算系统','結算系統','Settlement',1,NULL,29)

Insert Into t_UserTopClass(FTopClassID,FUserID,FTopClassName,FTopClassName_CHT,FTopClassName_EN,FVisible,FAcctType,FIndex) 
Values(2011,0,'结算系统','結算系統','Settlement',1,NULL,29)
GO

delete from t_DataFlowTopClass where FTopClassName='结算系统' and FTopClassID=2011

Insert Into t_DataFlowTopClass(FTopClassID,FTopClassName,FTopClassName_EN,FTopClassName_CHT,FIndex,
FVisible,FAcctType,FToolTips,FToolTips_CHT,FToolTips_EN,FShowSysType) 
Values(2011,'结算系统','結算系統','Settlement',29,1,',1,2,3,4,9,10,11,12,13,','JS','JS','JS',0)
GO
/****************END****************/

/*二级菜单*/
/****************BEGIN****************/
delete from t_DataFlowSubSystem where FName='销售结算' and FSubSysID=201102
Insert Into t_DataFlowSubSystem(FSubSysID,FName,FName_CHT,FName_EN,FTopClassID,FClassName,FIndex,FVisible,FAcctType,FRefresh,FNote,FNote_CHT,FNote_EN,
FAppClassName,FHelpFileName,FTipID,FUpdateBaseData,FSubID,FIsEdit,FSubSystemID,FShowSysType,FUrl,FUrlType )
Values(201102,'销售结算','銷售結算','Sales',2011,'',1,1,',1,2,3,9,10,11,12,13,',0,'','','','','',80000,1,'',0,201102,0,'','')
GO

delete from t_UserSubSystem where FName='销售结算'
Insert Into t_UserSubSystem(FSubSysID,FUserID,FTopClassID,FName,FName_CHT,FName_EN,FVisible,FAcctType,FIndex)
Values(201102,16394,2011,'销售结算','銷售結算','SSales',1,NULL,1)
Insert Into t_UserSubSystem(FSubSysID,FUserID,FTopClassID,FName,FName_CHT,FName_EN,FVisible,FAcctType,FIndex)
Values(201102,0,2011,'销售结算','銷售結算','Sales',1,NULL,1)
GO

delete from t_DataFlowSubSystem where FName='采购结算' and FName_CHT='采購結算' and FSubSysID=201103
Insert Into t_DataFlowSubSystem(FSubSysID,FName,FName_CHT,FName_EN,FTopClassID,FClassName,FIndex,FVisible,FAcctType,FRefresh,FNote,FNote_CHT,FNote_EN,
FAppClassName,FHelpFileName,FTipID,FUpdateBaseData,FSubID,FIsEdit,FSubSystemID,FShowSysType,FUrl,FUrlType )
Values(201103,'采购结算','采購結算','Procurement',2011,'',2,1,',1,2,3,9,10,11,12,13,',0,'','','','','',80001,1,'',0,201103,0,'','')
GO

delete from t_UserSubSystem where FName='采购结算'
Insert Into t_UserSubSystem(FSubSysID,FUserID,FTopClassID,FName,FName_CHT,FName_EN,FVisible,FAcctType,FIndex)
Values(201103,16394,2011,'采购结算','采購結算','Procurement',1,NULL,2)
Insert Into t_UserSubSystem(FSubSysID,FUserID,FTopClassID,FName,FName_CHT,FName_EN,FVisible,FAcctType,FIndex)
Values(201103,0,2011,'采购结算','采購結算','Sales of settlement',1,NULL,2)
GO
/****************END****************/

/*三级菜单*/
/****************BEGIN****************/
delete  from t_DataFlowSubFunc where FSubFuncID=2011020
Insert INTO t_DataFlowSubFunc(FSubFuncID,FSubSysID,FIndex,FFuncName,FFuncName_CHT,FFuncName_EN,
FClassName,FClassParam,FVisible,FAcctType,FFuncType,FRefresh,FSetEnable,FSubID,FIsEdit,FShowSysType,
FUrl,FUrlType)
Values(2011020,201102,1,'销售结算','銷售結算','Sales','','',1,',1,2,3,9,10,11,12,13,',0,0,0,'XSJS',0,0,'','')
GO

delete from t_UserSubFunc where FFuncName='销售结算'
Insert Into t_UserSubFunc(FSubFuncID,FUserID,FSubSysID,FFuncName,FFuncName_CHT,FFuncName_EN,FVisible,FIndex) 
Values(2011020,16394,201102,'销售结算','銷售結算','Sales of settlement',1,1)
Insert Into t_UserSubFunc(FSubFuncID,FUserID,FSubSysID,FFuncName,FFuncName_CHT,FFuncName_EN,FVisible,FIndex) 
Values(2011020,0,201102,'销售结算','銷售結算','Sales of settlement',1,1)
GO

delete from t_DataFlowSubFunc where FSubFuncID=2011021
Insert INTO t_DataFlowSubFunc(FSubFuncID,FSubSysID,FIndex,FFuncName,FFuncName_CHT,FFuncName_EN,
FClassName,FClassParam,FVisible,FAcctType,FFuncType,FRefresh,FSetEnable,FSubID,FIsEdit,FShowSysType,
FUrl,FUrlType)
Values(2011021,201103,1,'采购结算','采購結算','Procurement','','',1,',1,2,3,9,10,11,12,13,',0,0,0,'CGJS',0,0,'','')
GO

delete from t_UserSubFunc where FFuncName='采购结算'
Insert Into t_UserSubFunc(FSubFuncID,FUserID,FSubSysID,FFuncName,FFuncName_CHT,FFuncName_EN,FVisible,FIndex) 
Values(2011021,16394,201103,'采购结算','采購結算','Procurement',1,1)
Insert Into t_UserSubFunc(FSubFuncID,FUserID,FSubSysID,FFuncName,FFuncName_CHT,FFuncName_EN,FVisible,FIndex) 
Values(2011021,0,201103,'采购结算','采購結算','Procurement',1,1)
GO
/****************END****************/

 

/*四级菜单*/
/****************BEGIN****************/
--================销售结算报表==============
delete from t_UserSubFunc where FFuncName='销售结算报表'
Insert Into t_UserSubFunc(FSubFuncID,FUserID,FSubSysID,FFuncName,FFuncName_CHT,FFuncName_EN,FVisible,FIndex) 
Values(2011022,16394,201102,'销售结算报表','销售结算报表','销售结算报表',1,2)
Insert Into t_UserSubFunc(FSubFuncID,FUserID,FSubSysID,FFuncName,FFuncName_CHT,FFuncName_EN,FVisible,FIndex) 
Values(2011022,0,201102,'销售结算报表','销售结算报表','销售结算报表',1,2)
GO

Delete FROM t_DataFlowDetailFunc  where FDetailFuncID in (30801,30802,30803)
DELETE FROM ICReport WHERE FTemplateID in (30801,30802,30803)

--四级菜单
Delete FROM t_DataFlowDetailFunc  where FDetailFuncID in (30801,30802,30803)
DELETE FROM ICReport WHERE FTemplateID in (30801,30802,30803)

--四级菜单-作物销售汇总表
insert into t_DataFlowDetailFunc values(30801,'作物销售汇总表','作物销售汇总表','作物销售汇总表',2011022,'101','K3ShopFloor.Application','Rpt30801','0',30801,1,',1,2,3,9,10,11,12,13,',-1,1,'','','',0,0,'','')
insert into ICReport values('作物销售汇总表','作物销售汇总表','作物销售汇总表','B_LKBOMItemRpt.Rpt20110501','30801','FUnitName','FSumSort',5,104,1,1,12,3,'','','',1,30801,0,2,0,0,0,'','')
GO

--四级菜单-产品销售汇总表
insert into t_DataFlowDetailFunc values(30802,'产品销售汇总表','产品销售汇总表','产品销售汇总表',2011022,'102','K3ShopFloor.Application','Rpt30802','0',30802,1,',1,2,3,9,10,11,12,13,',-1,1,'','','',0,0,'','')
insert into ICReport values('产品销售汇总表','产品销售汇总表','产品销售汇总表','B_LKBOMItemRpt.Rpt20110502','30802','FUnitName','FSumSort',5,104,1,1,12,4,'','','',1,30802,0,2,0,0,0,'','')
GO

--四级菜单-退款结算汇总表
insert into t_DataFlowDetailFunc values(30803,'退款结算汇总表','退款结算汇总表','退款结算汇总表',2011022,'103','K3ShopFloor.Application','Rpt30803','0',30803,1,',1,2,3,9,10,11,12,13,',-1,1,'','','',0,0,'','')
insert into ICReport values('退款结算汇总表','退款结算汇总表','退款结算汇总表','B_LKBOMItemRpt.Rpt20110503','30803','FUnitName','FSumSort',5,104,1,1,12,4,'','','',1,30803,0,2,0,0,0,'','')
GO
/****************END****************/

/*******************BEGIN*******************/
--========创建权限组=======
IF NOT EXISTS(SELECT 1 FROM t_GroupAccessType WHERE FGroupID = 67005 )
INSERT INTO t_GroupAccessType(FGroupID,FSubSys,FAccess,FMask,FSubSys_Cht,FSubSys_en,FAccess_Cht,FAccess_en)
VALUES(67005,'销售结算管理','查询权',1,'销售结算管理','Statement','查詢權','Query Authority')
GO
IF NOT EXISTS(SELECT 1 FROM t_GroupAccessType WHERE FGroupID = 67006 )
INSERT INTO t_GroupAccessType(FGroupID,FSubSys,FAccess,FMask,FSubSys_Cht,FSubSys_en,FAccess_Cht,FAccess_en)
VALUES(67006,'销售结算管理','管理权',7,'销售结算管理','Statement','管理權','Mgmt Permission')
GO

--========创建权限组(高级)=======
IF NOT EXISTS(SELECT * FROM  t_objectaccess  WHERE FGroupID = 67005 And FObjectType = 12 and FObjectID=0)
INSERT INTO t_objectaccess(FGroupID,FObjectType,FObjectID,FIndex)
VALUES(67005,12,0,0)
GO

IF NOT EXISTS(SELECT * FROM t_ObjectType WHERE FObjectType = '12' And FObjectID = '0')
INSERT INTO t_ObjectType (FObjectType,FObjectID,FName,FDescription,FName_cht,Fname_en,FDescription_cht,FDescription_en)
VALUES(12,0,'销售结算管理','Statement ','销售结算管理','Statement ',NULL,NULL)
GO

--====权限组与权限建立关联 t_GroupAccessType  t_ObjectAccess 查询权 FGroupID=67005  管理权 FGroupID=67006
IF NOT EXISTS(SELECT 1 FROM t_ObjectAccess WHERE FGroupID = '67005' And FObjectType = '12' And FObjectID = '3' And FIndex = '1')
INSERT INTO t_ObjectAccess(Fgroupid, FObjectType, FObjectID, FIndex) VALUES (67005, 12, 3, 1)
GO
IF NOT EXISTS(SELECT 1 FROM t_ObjectAccess WHERE FGroupID = '67006' And FObjectType = '12' And FObjectID = '3' And FIndex = '2')
INSERT INTO t_ObjectAccess(Fgroupid, FObjectType, FObjectID, FIndex) VALUES (67006, 12, 3, 2)
GO

IF NOT EXISTS(SELECT 1 FROM t_ObjectAccess WHERE FGroupID = '67006' And FObjectType = '12' And FObjectID = '3' And FIndex = '3')
INSERT INTO t_ObjectAccess(Fgroupid, FObjectType, FObjectID, FIndex) VALUES (67006, 12, 3, 3)
GO

--给销售结算汇总表加入权限组 (FObjectType 对应  t_ObjectAccess.FObjectType; FObjectID 对应  t_ObjectAccess.FObjectID)
IF NOT EXISTS(SELECT * FROM t_ObjectType WHERE FObjectType = '12' And FObjectID = '3')
INSERT INTO t_ObjectType (FObjectType,FObjectID,FName,FDescription,FName_cht,Fname_en,FDescription_cht,FDescription_en)
VALUES(12,3,'销售结算汇总表','Summary table ','销售结算汇总表','Summary table ',NULL,NULL)
GO
 
--增加权限对象功能操作 如：查看，打印, 引出 T_ObjectAccessType
if not exists (Select 1 from t_ObjectAccessType Where FObjectType=12 AND FObjectID=3 and FIndex=1 )
INSERT INTO T_ObjectAccessType (FObjectType,FObjectID,FIndex,FAccessMask,FAccessUse,
FName,FDescription,Fname_cht,Fname_en,FDescription_cht,FDescription_en)
VALUES(12,3,1,1048576,0,'查看','可查看销售结算汇总表','查看','View','可查看销售结算汇总表','View Payroll Standard Settings')
GO

if not exists (Select 1 from t_ObjectAccessType Where FObjectType=12 AND FObjectID=3 and FIndex=2 )
INSERT INTO T_ObjectAccessType (FObjectType,FObjectID,FIndex,FAccessMask,FAccessUse,
FName,FDescription,Fname_cht,Fname_en,FDescription_cht,FDescription_en)
VALUES(12,3,2,8192,1048576,'打印','可打印销售结算汇总表','打印','Print','可打印销售结算汇总表','View Payroll Standard Settings')
GO

if not exists (Select 1 from t_ObjectAccessType Where FObjectType=12 AND FObjectID=3 and FIndex=3 )
INSERT INTO T_ObjectAccessType (FObjectType,FObjectID,FIndex,FAccessMask,FAccessUse,
FName,FDescription,Fname_cht,Fname_en,FDescription_cht,FDescription_en)
VALUES(12,3,3,16384,1048576,'引出','可引出销售结算汇总表','引出','Export','可引出销售结算汇总表','Export Payroll Standard Settings')
GO
--=====销售结算汇总表=====
/*******************END*******************/