1. 程式人生 > >KIS旗艦版新增4級選單

KIS旗艦版新增4級選單

/*================================
描述:物料缺貨分析表
作者:WDZ
日期:2013-12-29
==================================*/

--四級選單
Delete FROM t_DataFlowDetailFunc  where FFuncName = '物料缺貨分析表'
DELETE FROM ICReport WHERE FRptName ='物料缺貨分析表'


--四級選單-物料缺貨分析表
INSERT INTO t_DataFlowDetailFunc (FDetailFuncID, FFuncName, FFuncName_CHT, FFuncName_EN, FSubFuncID, FIndex, FClassName, FClassParam, FIsNormal,
 FHelpCode, FVisible, FAcctType, FFuncType, FEnable, FShowName, FShowName_CHT, FShowName_EN, FIsEdit, FShowSysType, FUrl, FUrlType,FFuncGroup)
values(15055,'物料缺貨分析表','物料缺貨分析表','物料缺貨分析表',2520,'101','K3ShopFloor.Application','Rpt6000005','0',27020,
1,',1,2,3,9,10,11,12,13,',-1,1,
    '','','',0,0,'','',0)

GO
insert into ICReport
values('物料缺貨分析表','物料缺貨分析表','物料缺貨分析表','K3RptDemo.Rpt6000005','6000005',
'FUnitName','FSumSort',5,104,1,1,1008,40,'','','',1,6000005,0,2,0,0,0,'','')
GO

update t_DataFlowTimeStamp set FName=FName
GO

--=====物料缺貨分析表=====
--=====物料缺貨分析表建立關聯t_GroupAccessType t_ObjectAccess 查詢權FGroupID=67005 管理權FGroupID=67006
IF NOT EXISTS(SELECT 1 FROM t_ObjectAccess WHERE FGroupID = '67005' And FObjectType = '1008' And FObjectID = '40' And FIndex = '1')
INSERT INTO t_ObjectAccess(Fgroupid, FObjectType, FObjectID, FIndex) VALUES (67005, 1008, 40, 1)
GO
IF NOT EXISTS(SELECT 1 FROM t_ObjectAccess WHERE FGroupID = '67006' And FObjectType = '1008' And FObjectID = '40' And FIndex = '2')
INSERT INTO t_ObjectAccess(Fgroupid, FObjectType, FObjectID, FIndex) VALUES (67006, 1008, 40, 2)
GO
IF NOT EXISTS(SELECT 1 FROM t_ObjectAccess WHERE FGroupID = '67006' And FObjectType = '1008' And FObjectID = '40' And FIndex = '3')
INSERT INTO t_ObjectAccess(Fgroupid, FObjectType, FObjectID, FIndex) VALUES (67006, 1008, 40, 3)
GO

IF NOT EXISTS(SELECT * FROM t_ObjectType WHERE FObjectType = '1008' And FObjectID = '40')
INSERT INTO t_ObjectType (FObjectType,FObjectID,FName,FDescription,FName_cht,Fname_en,FDescription_cht,FDescription_en)
VALUES(1008,40,'物料缺貨分析表','Summary table ','物料缺貨分析表','Summary table ',NULL,NULL)
GO
 
--增加許可權物件功能操作 T_ObjectAccessType
if not exists (Select 1 from t_ObjectAccessType Where FObjectType=1008 AND FObjectID=40 and FIndex=1 )
INSERT INTO T_ObjectAccessType (FObjectType,FObjectID,FIndex,FAccessMask,FAccessUse,
FName,FDescription,Fname_cht,Fname_en,FDescription_cht,FDescription_en)
VALUES(1008,40,1,1048576,0,'檢視','可檢視物料缺貨分析表','檢視','View','可檢視物料缺貨分析表','View Payroll Standard Settings')
GO
if not exists (Select 1 from t_ObjectAccessType Where FObjectType=1008 AND FObjectID=40 and FIndex=2 )
INSERT INTO T_ObjectAccessType (FObjectType,FObjectID,FIndex,FAccessMask,FAccessUse,
FName,FDescription,Fname_cht,Fname_en,FDescription_cht,FDescription_en)
VALUES(1008,40,2,8192,1048576,'列印','可列印物料缺貨分析表','列印','Print','可列印物料缺貨分析表','View Payroll Standard Settings')
GO
if not exists (Select * from t_ObjectAccessType Where FObjectType=1008 AND FObjectID=40 and FIndex=3 )
INSERT INTO T_ObjectAccessType (FObjectType,FObjectID,FIndex,FAccessMask,FAccessUse,
FName,FDescription,Fname_cht,Fname_en,FDescription_cht,FDescription_en)
VALUES(1008,40,3,16384,1048576,'引出','可引出物料缺貨分析表','引出','Export','可引出物料缺貨分析表','Export Payroll Standard Settings')
GO