USE [TOPLED2015]
GO
/****** Object: StoredProcedure [dbo].[SP_配置方案庫存價] Script Date: 09/21/2019 09:42:41 ******/
SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO
--------------------------------------------------------------
ALTER PROCEDURE [dbo].[SP_配置方案庫存價]
(
@品號 CHAR(20),
@配置方案 CHAR(15),
@TD001 char(4),
@TD002 char(11),
@TD003 char(4),
@TC009 numeric(16,6),
@TD037 numeric(5,4)
)
as
BEGIN
SET NOCOUNT ON;
-----------------------------------------------------------------------
declare @UDF62 numeric(16,6),@i int,@name nvarchar(50) = ''
--取配置方案明細#A
select
COPTR.TR001 as 品號
,COPTR.TR002 as 配置方案
,COPTR.TR003 as 層級
,COPTR.TR004 as 上階主件
,a.MB025 as 屬性一
,COPTR.TR009 as 品號2
,b.MB025 as 屬性二
,COPTR.TR010/COPTR.TR011 as 用量
,COPTR.TR015 as 生效日期
,COPTR.TR016 as 失效日期
,COPTR.TR017 as 選擇
,COPTR.TR019 as 納入成本
into #A
from COPTR
left join INVMB as a on TR004 = a.MB001
left join INVMB as b on TR009 = b.MB001
where TR001 = @品號 and TR002 = @配置方案
--select * from #A
------------------------------------------------------------------------
--取配置件下的所有品號
select distinct 上階主件,屬性一 ,品號2,屬性二,選擇 into #B from #A where 屬性一 ='C'
--select * from #B
--取配置件下的所有品號用於#A反向
--1256.077988200000000000
select * into #C from
(
select a.* from #A as a
left join
(select * from #A as a where a.上階主件 in (select 品號2 from #B where 屬性二 in ('Y','M'))
union all
select a.* from #A as a left join (select * from #B where #B.屬性二 = 'P') as b on a.上階主件 = b.上階主件 and a.品號2 = b.品號2 where b.上階主件 is not null) as b
on a.層級 = b.層級
where b.上階主件 is null and a.屬性二 = 'P' and a.屬性一 = 'M'
union all
------------------------------------------------------------------------
--取虛設件下的採購品號
select * from #A as a where a.上階主件 in (select 品號2 from #B where 屬性二 in ('Y','M') and 選擇 = 'Y')
union all
select a.* from #A as a left join #B as b on a.上階主件 = b.上階主件 and a.品號2 = b.品號2 where b.選擇 = 'Y' and b.屬性二 ='P'
) as a
left join INVMB on a.品號2 = MB001
where (a.失效日期 = '' or a.失效日期 >= CONVERT(char(8),GETDATE(),112)) and (a.生效日期 = '' or a.生效日期 <= CONVERT(char(8),GETDATE(),112)) and 納入成本 = 'Y'
-----------------------------------------------------------------------------------
select @i = COUNT(1) from #C where MB050 = 0
if @i > 0
BEGIN
set @name = CONVERT(nvarchar(8),@i) + ' 個材料沒最近進價。'
end
ELSE
begin
set @name = 'OK,全都有最近進價。'
end
select @UDF62 = sum(用量 * MB050) from #C
update COPTD set UDF62 = @UDF62/@TC009*(1+@TD037), UDF12 = @name where TD001=@TD001 and TD002=@TD002 and TD003=@TD003
/*
if @i > 0
BEGIN
TRUNCATE TABLE COPTDLogLog
select * from COPTDLogLog
insert into COPTDLogLog select 品號,配置方案,品號2,MB002,用量 from #C where MB050 = 0
------
declare @SQL nvarchar(max) = CONVERT(char(8),GETDATE(),112)+CONVERT(char(15),GETDATE(),114)
--set @SQL ='D:\文件\' + rtrim(replace(@SQL,':',''))+'.xls'
set @SQL ='D:\文件\' + @TD001 + '-' + @TD002 + '-' + @TD003 + '(' + @配置方案 + ')' + rtrim(replace(@SQL,':',''))+'.xls'
SET @SQL = 'EXEC master..xp_cmdshell'+'''bcp "select * from TOPLED2015..COPTDLogLog" queryout ' + @SQL + ' -c -q -T'''
EXEC(@SQL)
end
*/
if object_id('tempdb..#A') is not null drop table #A;
if object_id('tempdb..#B') is not null drop table #B;
if object_id('tempdb..#C') is not null drop table #C;
end
SP_配置方案庫存價
發表評論
所有評論
還沒有人評論,想成為第一個評論的人麼? 請在上方評論欄輸入並且點擊發布.