BOS基础资料视图封装示例(合同种类封装成基础资料)

--先在BOS集成开发工具里新增BOS基础资料，直接保存即可
--比如新建出来的BOS基础资料名称为：“基础资料200000130”，类型ID为：200000130
--然后按BOS基础资料表的结构分别封装两个视图vw_RP_ContactType、vw_RP_ContactTypeEntry
--该视图取的数据来源就是合同种类信息存储的物理表t_rp_systemenum
--在实际操作时需要将以下SQL语句中的200000130更换成你实际新建的BOS基础资料的类型ID

IF EXISTS(SELECT 1 FROM sysobjects WHERE name='vw_RP_ContactType' AND type='v')
DROP VIEW vw_RP_ContactType 
GO
CREATE VIEW vw_RP_ContactType
As  
SELECT 200000130 AS FClassTypeID,FItemID AS FID,FNumber,FName,0 AS FParentID, -1 AS FLogic,1 AS FDetail,0 AS FDiscontinued,0 AS FLevels, '' AS FFullNumber
FROM t_rp_systemenum WHERE ftype=2 and fitemid<>2
GO

IF EXISTS(SELECT 1 FROM sysobjects WHERE name='vw_RP_ContactTypeEntry' AND type='v')
DROP VIEW vw_RP_ContactTypeEntry 
GO
CREATE VIEW vw_RP_ContactTypeEntry
As  
SELECT 200000130 AS FClassTypeID,FItemID AS FID,0 AS FIndex,FNumber,FName
FROM t_rp_systemenum WHERE ftype=2 and fitemid<>2
GO

--将封装好的BOS基础资料视图表更新到基础资料200000130的模板中去
UPDATE ICClassType SET FTableName = 'vw_RP_ContactType' WHERE FID=200000130
UPDATE ICClassTypeEntry SET FTableName = 'vw_RP_ContactType' WHERE FParentID=200000130 AND FIndex=1
UPDATE ICClassTypeEntry SET FTableName = 'vw_RP_ContactTypeEntry' WHERE FParentID=200000130 AND FIndex=2
--将基础资料200000130的表头字段(FPage=1)指向视图vw_RP_ContactType
UPDATE icclasstableinfo SET FTableName='vw_RP_ContactType' WHERE FClassTypeID=200000130 AND FPage=1
--将基础资料200000130的表体字段(FPage=2)指向视图vw_RP_ContactTypeEntry
UPDATE icclasstableinfo SET FTableName='vw_RP_ContactTypeEntry' WHERE FClassTypeID=200000130 AND FPage=2

--以上操作请先在测试帐套中执行，验证无误后方可到正式帐套中执行，谢谢！