码迷,mamicode.com
首页 > 其他好文 > 详细

库存在各生产订单间分配

时间:2018-03-29 16:43:25      阅读:155      评论:0      收藏:0      [点我收藏+]

标签:生产订单   库存分配   

IF OBJECT_ID(‘Tempdb..#T1‘,‘U‘) IS NOT NULL DROP TABLE #T1
IF OBJECT_ID(‘Tempdb..#T1‘,‘U‘) IS NOT NULL DROP TABLE #T2
IF OBJECT_ID(‘Tempdb..#TEMP‘,‘U‘) IS NOT NULL DROP TABLE #TEMP
DECLARE @guid VARCHAR(100)
SET @guid = NEWID()
EXEC [U_P_STOCK2NEED_TABLE] @guid
SELECT * INTO #TEMP FROM U_T_STOCK2NEED WHERE [GUID] = @guid

SELECT T0.DocEntry,
ROW_NUMBER()OVER(PARTITION BY T1.ItemCode ORDER BY T0.DueDate) Lineid,
T0.Status,T0.PostDate,T0.DueDate,T0.PickRmrk ,T0.ItemCode Fanther,T0.PlannedQty FtPlanQty,T0.CmpltQty,T0.U_QtyEnd,
T1.LineNum,T1.ItemCode ChildCode,T1.PlannedQty ChdPlanQty,T1.IssuedQty,T1.PlannedQty-T1.IssuedQty OrderQty,
ISNULL(U0.可用库存,0) ValidQty,
0 AS QtyFP,
ISNULL(U0.可用库存,0) AS SurplQty,
U0.[溢缺.库存],
U0.[采购/生产在途] ,
CASE WHEN U0.[溢缺.库存]>0 THEN 0
WHEN U0.[溢缺.库存]<0 AND (U0.[溢缺.库存]+U0.[采购/生产在途])>0 THEN 0
WHEN U0.[溢缺.库存]<0 AND (U0.[溢缺.库存]+U0.[采购/生产在途])<0 THEN (U0.[溢缺.库存]+U0.[采购/生产在途])
END 待生产量

INTO #T1
FROM OWOR T0
JOIN WOR1 T1 ON T0.DocEntry =T1.DocEntry
JOIN OITM R0 ON T0.ItemCode =R0.ItemCode
JOIN OITM R1 ON T1.ItemCode =R1.ItemCode
LEFT JOIN #TEMP U0 ON T1.ItemCode =U0.物料编号
WHERE R0.QryGroup49=‘Y‘ AND T0.Status IN (‘R‘,‘P‘) AND (T1.PlannedQty-T1.IssuedQty)>0
ORDER BY T0.ItemCode,T0.DueDate

--逐行累计数量(含本行)
SELECT T0.DocEntry,
T0.Lineid,
T0.ChildCode,
MAX(T0.OrderQty) OrderQty,
MAX(T0.SurplQty) SurplQty,
SUM(T1.OrderQty) NeedQty,
CASE WHEN MAX(T0.SurplQty)-SUM(T1.OrderQty)>=0 THEN MAX(T0.SurplQty)-SUM(T1.OrderQty)
ELSE 0 END KfbQty
INTO #T2
FROM #T1 T0
LEFT JOIN #T1 T1 ON T0.ChildCode = T1.ChildCode AND T0.[Lineid] >= T1.Lineid
GROUP BY T0.DocEntry,T0.Lineid,T0.ChildCode

UPDATE #T1 SET QtyFP = CAST(T21.QtyFP AS DECIMAL(19,6)),SurplQty=T21.KfbQty
FROM #T1 T20
LEFT JOIN (
--区间划分确定是否足够分配 累计量比总量大 随便分; 总量在上行累计量和本行累计量之间 总量-上行累计量 分一点;总量小于上行累计量,没的分。
SELECT T10.DocEntry,
T10.Lineid,
T10.ChildCode,
CASE WHEN T10.KfbQty >0 THEN T10.OrderQty
WHEN T10.KfbQty >0 AND T10.KfbQty<T10.NeedQty THEN T10.KfbQty
WHEN T10.KfbQty=0 AND T10.KfbQty<T10.NeedQty THEN ISNULL(T11.KfbQty,0)
ELSE 0.00 END [QtyFP],
T10.KfbQty
FROM #T2 T10 LEFT JOIN #T2 T11 ON T10.ChildCode =T11.ChildCode AND T11.Lineid =T10.Lineid-1
)T21 ON T20.Lineid= T21.Lineid AND T20.ChildCode =T21.ChildCode

SELECT U0.DocEntry 生产订单号
,U0.Lineid 行号
,CASE WHEN U0.Status=‘R‘ THEN ‘已审核‘ ELSE ‘已计划‘ END 状态
,U0.PostDate 订单日期
,U0.DueDate 完工日期
,U0.PickRmrk 业务订单号
,U0.Fanther 产品编号
,U0.FtPlanQty 订单量
,U0.CmpltQty 完工量
,U0.U_QtyEnd 最终完工
,U0.LineNum 子件行号
,U0.ChildCode 子件料号
,U0.ChdPlanQty 计划发料
,U0.IssuedQty 实际已发
,U0.OrderQty 待发料量
,U0.ValidQty 可用库存
,U0.QtyFP 分配量
,U0.SurplQty 剩余分配量
,U0.[溢缺.库存] 总库存
,U0.[采购/生产在途] 总在途
,U0.待生产量 待补工单量
,U1.ItemName 子件名称
FROM #T1 U0
LEFT JOIN OITM U1 ON U0.ChildCode =U1.ItemCode
ORDER BY U0.DueDate

DROP TABLE #TEMP
DROP TABLE #T1
DROP TABLE #T2

库存在各生产订单间分配

标签:生产订单   库存分配   

原文地址:http://blog.51cto.com/johnny/2092500

(0)
(0)
   
举报
评论 一句话评论(0
登录后才能评论!
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码!