[易飞]包材Forcast四周滚动需求

时间:2022-09-12 13:12:56

【背景】整理整顿, 仓库最大的库容占用在于包装材料, 特别是纸箱,托盘,泡沫片,包装管等,价值不高, 但占用面积比较大。
【解决方案】
1. 此类材料, 不走LRP请购即不在合同评审时下请购单。
2. 补货将按库存补货点补货,补货点库存, 初步将设定为3天平均用 量。物控一,三,五定期跑补货报表。
3. 采购按补货请购单的数量通知进货。即我们的采购订单就是供应商的进货通知单。
因我们包材种类比较多,需求波动也比较大, 为方便供应商提前备他们的原材料, 及供应商建一定的安全库存, 这边会和IT小龚沟通一下, 专门这对此类材料开发滚动1个月的需求报表给采购, 由采购转供应商备料和备成品。
要压缩此类材料库存, 关键在于供应商要有一定的备料库存, 我们的补货点是基于平均用量来算, 不排除个别时间段, 实际用量会超过平均用量比较多造成紧急进料, 请采购提前和供应商探讨备料的可行性。


-- =============================================
-- Author: <David Gong>
-- Create date: <2015-12-22>
-- Modify by:
-- Description: <forcast for purchase>
-- =============================================

ALTER PROC [dbo].[UP_ForcastForPur]
as
declare @NEEDAFTER BIT --需求日期后的需求是否纳入计算:1->是;0->否
declare @now as char(8), @wkdate1 as char(8), @wkdate2 as char(8), @wkdate3 as char(8), @wkdate4 as char(8)

set @NEEDAFTER=1
set @now=convert(char(8),getdate(),112)
set @wkdate1=convert(char(8),dateadd(week,1,getdate()),112)
set @wkdate2=convert(char(8),dateadd(week,2,getdate()),112)
set @wkdate3=convert(char(8),dateadd(week,3,getdate()),112)
set @wkdate4=convert(char(8),dateadd(week,4,getdate()),112)
;
with A --计算预计领用需求
as(
select TB003 品号,ISNULL(SUM(TB004-TB005)*ISNULL(MD004,1)/ISNULL(MD003,1),0) as 预计领用,TA009 as 领用日期
from MOCTA INNER JOIN MOCTB ON TA001=TB001 AND TA002=TB002
LEFT JOIN INVMD ON MD001=TB003 AND MD002=TB007 AND MD007='Y'
WHERE UPPER(TA011)<>'Y' AND TB018='Y'
AND LEFT(TB003,3)='312'
AND TB015 >=@now AND TB015 <@wkdate4 --TB015<=(CASE @NEEDAFTER WHEN 1 THEN '99991231' ELSE @NEEDDATE END)
--AND TA009 >=@now AND TA009 <@wkdate4
group by TB003,TA009,MD004,MD003
),
B --计算安全库存量与现有库存量
as(
select MC001 品号,MC004 安全库存,MC007 现有库存 from INVMC WHERE MC002='01' and left(MC001,3)='312'
)
, C --计算4周预计领用分布
as(
SELECT A.品号,预计领用,
case when A.领用日期 >=@now AND A.领用日期 <@wkdate1 then '第一周'
when A.领用日期 >=@wkdate1 AND A.领用日期 <@wkdate2 then '第二周'
when A.领用日期 >=@wkdate2 AND A.领用日期 <@wkdate3 then '第三周'
when A.领用日期 >=@wkdate3 AND A.领用日期 <@wkdate4 then '第四周'
else '其他' END 所属周

FROM A

)
--计算结果
select pvt.品号,MB002 AS 品名,MB003 AS 规格,MA002 AS 主供应商,
isnull(pvt.第一周,0) as 第一周,
isnull(pvt.第二周,0) as 第二周,
isnull(pvt.第三周,0) as 第三周,
isnull(pvt.第四周,0) as 第四周,
isnull(pvt.第一周,0)+isnull(pvt.第二周,0)+isnull(pvt.第三周,0)+isnull(pvt.第四周,0) 总需求,
case when (isnull(pvt.第一周,0)+isnull(pvt.第二周,0)+isnull(pvt.第三周,0)+isnull(pvt.第四周,0)-现有库存)<=0 then 0 else (isnull(pvt.第一周,0)+isnull(pvt.第二周,0)+isnull(pvt.第三周,0)+isnull(pvt.第四周,0)-现有库存) END as 缺料情况,现有库存,
CASE WHEN MB034='R' then '按补货点'
WHEN MB034='M' then '按MRP需求'
WHEN MB034='L' then '按LRP需求'
WHEN MB034='N' then '不需'
else '按历史销售' END as 补货政策,
@now+'~'+@wkdate4 as 日期
from ( select 品号,预计领用,所属周 from C) p PIVOT(SUM(预计领用) FOR 所属周 in([第一周],[第二周],[第三周],[第四周])) as pvt
INNER JOIN INVMB ON pvt.品号=MB001
LEFT JOIN PURMA ON MB032=MA001
INNER JOIN B ON pvt.品号=B.品号

order by pvt.品号

[易飞]包材Forcast四周滚动需求