SAP License：SBO BOM 查询代码分享

_declare@Itemcode nvarchar(20)
_declare@WL_COMP nvarchar(20)
_declare@WL__countint
_declare@u_wl_item nvarchar(20)
_declare@U_WL_QTY numeric(19,6)
_declare@WL_QTY numeric(19,6)
_declare@PAR nvarchar(20)
_declare@COM nvarchar(20)
_declare@LVL int
_declare@WL_QTY1 numeric(19,6)
_declare@PAR1 nvarchar(20)
_declare@COM1 nvarchar(20)
_declare@LVL1 int
_declare@kk int
_declare@numstr nvarchar(100)
_declare@Name nvarchar(120)
_declare@Name1 nvarchar(120)
_declare@WL_Record_countint
_declare@_countint

_declare@WL_result table (PAR nvarchar(20),COMP nvarchar(20),QTY numeric(19,6),LVL INT,numstr nvarchar(100))
_declare@WL_result1 table (PAR nvarchar(20),COMP nvarchar(20),QTY numeric(19,6),LVL INT,numstr nvarchar(100))
_declare@WL_parent table (PAR nvarchar(20),COMP nvarchar(20),QTY numeric(19,6),LVL INT,numstr nvarchar(100))
_declare@WL_child table (PAR nvarchar(20),COMP nvarchar(20),QTY numeric(19,6),LVL INT,numstr nvarchar(100))

_select@_count=count(t0.itemcode) from OITM T0 where T0.itemcode= ‘[%0]’
set @Itemcode= ‘[%0]’
_insertinto @WL_parent(PAR,COMP,QTY,LVL,numstr) _selectCODE,”,Qauntity,1,’1′ FROM OITT where code=@Itemcode
_select@WL_Record_count= COUNT(FATHER)from ITT1 where (FATHER = @Itemcode)
_delete@WL_child
_insertinto @WL_result(PAR,COMP,QTY,LVL,numstr) _selectPAR,@Itemcode,QTY,LVL,numstr from @WL_parent
while @WL_Record_count<> 0
begin
_declareGET_0 CURSOR
FOR _selectPAR,COMP,QTY,LVL,numstr
FROM @WL_parent
OPEN GET_0
FETCH GET_0 INTO @PAR,@COM,@WL_QTY,@LVL,@numstr
WHILE @@fetch_status=0
begin
set @kk=1
_declareGET_2 CURSOR
FOR _selecti.FATHER,i.CODE,(i.Quantity/o.Qauntity)*@WL_QTY, @LVL +1
from ITT1 i,oitt o
where (i.FATHER =@PAR)and(o.code =@PAR)and(i.FATHER=o.code)
OPEN GET_2
FETCH GET_2 INTO @PAR1,@COM1,@WL_QTY1,@LVL1
WHILE @@fetch_status=0
begin
_insertinto @WL_child(PAR,COMP,QTY,LVL,numstr)
values(@PAR1,@COM1,@WL_QTY1,@LVL1,@numstr + CASE WHEN @kk<10 THEN ’00’+_cast(@kk AS NVARCHAR(3)) WHEN @kk<100 AND @kk>9 THEN
‘0’ +_cast(@kk AS NVARCHAR(3)) ELSE _cast(@kk AS NVARCHAR(3)) END )
FETCH next from GET_2 INTO @PAR1,@COM1,@WL_QTY1,@LVL1
set @kk=@kk+1
end
CLOSE GET_2
DEALLOCATE GET_2
FETCH next from GET_0 INTO @PAR,@COM,@WL_QTY,@LVL, @numstr
end
CLOSE GET_0
DEALLOCATE GET_0

_declareGET_1 CURSOR
FOR _selectPAR,COMP,QTY,LVL,numstr
FROM @WL_parent
OPEN GET_1
FETCH GET_1 INTO @PAR,@COM,@WL_QTY,@LVL,@numstr
WHILE @@fetch_status=0
begin
_insertinto @WL_result(PAR,COMP,QTY,LVL,numstr)VALUES(@PAR,@COM,@WL_QTY,@LVL,@numstr)
FETCH next from GET_1 INTO @PAR,@COM,@WL_QTY,@LVL,@numstr
end
CLOSE GET_1
DEALLOCATE GET_1
_delete@WL_parent
_insertinto @WL_parent(PAR,COMP,QTY,LVL,numstr)
_selectCOMP,PAR,QTY,LVL,numstr from @WL_child
_delete@WL_child
_select@WL_Record_count= COUNT(PAR) from @WL_parent
end

_select’.’+space(4*(m.lvl-1))+t0.itemcode as ‘结构’,t0.itemname ‘名称’,m.QTY as ‘数量’,
t0.invntryuom as ‘单位’,m.lvl as ‘深度’ from @WL_result m,OITM T0 where m.comp collate latin1_general_cs_as <>”
and m.par collate latin1_general_cs_as =t0.itemcode order by m.numstr collate latin1_general_cs_as

SAP相关产品：

SAP GRC权限合规检查系统（简称AMS-R系统）是SAP ERP应用企业进行权限合规检查、违规数据抓取和IT审计的理想工具。

AMS-V SAP License 资产优化管理系统产品：是应用于SAP系统权限风险控制及注册用户账号管理为目标的SAP软件资产精益化管理方案。

SAP 日志堡垒机安全管理系统（简称AMS-L系统）是一款面向SAP ERP 系统的网络安全管理工具，提供基于SAP系统用户业务行为的常态化监管，是对SAP现有日志体系的有效增强管理。

SAP 运维管理平台系统（简称AMS-Ops）旨在确保企业SAP应用系统健康、稳定运行的基础上，持续性的改进、优化，从而满足其业务发展需要的企业级SAP系统运维管理服务。

AMS SAP 商超订单统一管理系统以商超平台订单集中管理为核心，系统支持多平台、多店铺、全渠道系统采购订单、验收单、结算单等业务单据的统一管理；商超订单统一管理系统支持与 SAP ERP 系统的无缝衔接，在SAP ERP系统中自动生成销售订单、外向交货单，核对验收单、结算单等 SD 模块业务操作，有效的简化企业商超订单管理工作流程，保证订单数据处理的统一、准确、高效，实现跨系统、组织的协同管理，提升企业营销效率。

关于赛锐信息

河南赛锐信息科技有限公司（简称“赛锐信息”）是一家致力于SAP ERP系统应用的服务商，公司立足打造基于AMS产品套件的企业信息化解决方案，结合前沿技术追求最佳用户体验、企业信息化优秀解决方案和企业级产品应用的供应商。公司自主研发的AMS系列软件产品是国内首个用于SAP权限风险识别的增强系统，也是同行业用户精益化管理解决方案中最优的解决方案，作为用户管理、风险规避和信息审计的辅助工具，其有助于规范企业的管理行为，帮助建立合规的管控流程，有效提高企业IT资产投资回报率；AMS系列产品在各项技术指标上拥有完全的、独立的领先优势，可以满足市场竞争、技术许可和标准制定等方面的需要。

作者：SAP权限管理 QQ:2651000673