DECLARE @needNum DECIMAL(23,6)
,@sDate varchar(100)
,@eDate varchar(100)
,@dbName varchar(100)
SET @needNum = 20
SET @sDate = '2024-02-24'
SET @eDate = '2024-03-24'

select @dbName = db_name()

SELECT t0.FMATERIALID
	,ISNULL(t3.sumQTY,0) AS 即时库存
	,ISNULL(t4.sumBASENOPICKEDQTY,0) AS 未发数
	,ISNULL(t5.sumNoStockInQty,0) AS 在制数
	,CASE WHEN CHARINDEX('TC',t0.FNUMBER) = 1 THEN 0 ELSE ISNULL(t1.数量 - t1.未发数量,0) END AS '受订量'
	,ISNULL(t2.数量 - t2.入库数量,0) AS '在途量'
	,(ISNULL(t3.sumQTY,0) - ISNULL(t4.sumBASENOPICKEDQTY,0) + ISNULL(t5.sumNoStockInQty,0) - ISNULL(t1.数量 - t1.未发数量,0) + ISNULL(t2.数量 - t2.入库数量,0)) AS '可用库存'
	,ISNULL(t6.进检量,0) AS '进检量'
	INTO #Material_Stock_Statu
FROM T_BD_MATERIAL t0
	LEFT JOIN (
		SELECT 
			t0e.FMATERIALID,SUM(t0e.FQTY) AS '数量'
			,SUM((t0e_r.FBASEREMAINOUTQTY + t0e_r.FBASERETURNQTY)) AS '未发数量'
		FROM T_SAL_ORDER t0
			INNER JOIN T_SAL_ORDERENTRY t0e on t0.FID = t0e.FID
			INNER JOIN T_SAL_ORDERENTRY_R t0e_r on t0e.FID = t0e_r.FID AND t0e_r.FENTRYID = t0e.FENTRYID
		WHERE t0.FDOCUMENTSTATUS = 'C'
			AND t0.FCANCELSTATUS = 'A'
			AND t0.FCLOSESTATUS =  'A'
			AND t0.FDATE between @sDate AND @eDate
		GROUP BY t0e.FMATERIALID
	) t1 on t1.FMATERIALID = t0.FMATERIALID 
	LEFT JOIN (
		SELECT 
			t0e.FMATERIALID,SUM(t0e.FQTY) AS '数量'
			,SUM(t0e_r.FREMAINSTOCKINQTY) AS '剩余入库数量'
			,SUM(t0e_r.FBASESTOCKINQTY) AS '入库数量'
		FROM T_PUR_POORDER t0
			INNER JOIN T_PUR_POORDERENTRY t0e on t0.FID = t0e.FID AND t0.FBUSINESSTYPE != 'ZCCG' AND t0.FBUSINESSTYPE != 'FYCG'
			INNER JOIN T_PUR_POORDERENTRY_R t0e_r on t0e.FID = t0e_r.FID AND t0e_r.FENTRYID = t0e.FENTRYID
		WHERE t0.FDOCUMENTSTATUS = 'C'
			AND t0.FCANCELSTATUS = 'A'
			AND t0.FCLOSESTATUS =  'A' 
			AND t0.FDATE BETWEEN @sDate AND @eDate
		GROUP BY t0e.FMATERIALID
	) t2 on t2.FMATERIALID = t0.FMATERIALID
	LEFT JOIN (
		SELECT tt0.FMATERIALID,tt0.FSTOCKORGID,SUM(tt0.FBASEQTY) AS sumQTY
		FROM T_STK_INVENTORY tt0
		GROUP BY tt0.FMATERIALID,tt0.FSTOCKORGID
	) t3 on t3.FMATERIALID = t0.FMASTERID AND t3.FSTOCKORGID = t0.FUSEORGID
	LEFT JOIN (
		SELECT t0e.FMATERIALID,SUM(t0e_q.FNOPICKEDQTY) sumBASENOPICKEDQTY --未发量
		FROM T_PRD_PPBOMENTRY t0e
			INNER JOIN T_PRD_PPBOMENTRY_Q t0e_q on t0e.FENTRYID = t0e_q.FENTRYID
			INNER JOIN T_PRD_MOENTRY_A t0e_a on t0e_a.FENTRYID = t0e.FMOENTRYID
		WHERE t0e_a.FSTATUS = 4
		GROUP BY t0e.FMATERIALID
	) t4 on t4.FMATERIALID = t0.FMATERIALID 
	LEFT JOIN (
		SELECT t0e.FMATERIALID,SUM(t0e_q.FNOSTOCKINQTY) AS sumNoStockInQty
		FROM T_PRD_MOENTRY t0e
			INNER JOIN T_PRD_MOENTRY_Q t0e_q on t0e.FENTRYID = t0e_q.FENTRYID
			INNER JOIN T_PRD_MOENTRY_A t0e_a on t0e_a.FENTRYID = t0e.FENTRYID
		WHERE t0e_a.FSTATUS = 4
		GROUP BY t0e.FMATERIALID
	) t5 on t5.FMATERIALID = t0.FMATERIALID
	LEFT JOIN (
		SELECT t0e.FMATERIALID,SUM(FBASEUNITQTY-FINSTOCKBASEQTY + FRETURNBASEQTY) AS '进检量'
		FROM T_PUR_RECEIVE t0
			INNER JOIN T_PUR_RECEIVEENTRY t0e on t0.FID = t0e.FID
			INNER JOIN T_PUR_RECEIVEENTRY_R t0e_r on t0e.FID = t0e_r.FID AND t0e.FENTRYID = t0e_r.FENTRYID
			INNER JOIN T_PUR_RECEIVEENTRY_S t0e_s on t0e.FID = t0e_s.FID AND t0e.FENTRYID = t0e_s.FENTRYID
		WHERE t0.FDOCUMENTSTATUS = 'C'
			AND t0.FCANCELSTATUS = 'A'
			AND t0.FCLOSESTATUS =  'A' 
			AND t0.FDATE BETWEEN @sDate AND @eDate
		GROUP BY t0e.FMATERIALID
	) t6 on t6.FMATERIALID = t0.FMATERIALID
WHERE t0.FDOCUMENTSTATUS = 'C'
	AND t0.FFORBIDSTATUS = 'A'

UPDATE #Material_Stock_Statu SET 可用库存 = 即时库存 - 未发数 - 受订量 + 在制数 + 在途量;

WITH #TMPMATERIALNUM AS (
	--把需要分析的物料id跟数据量分组统计
	SELECT tt.MATERIALID,SUM(tt.needNum) needNum
	FROM (
		SELECT 
		CASE @dbName WHEN 'AIS20231110222743' THEN 101521 ELSE 782449 END AS 'MATERIALID'
		,10 needNum
		--UNION ALL
		--SELECT 
		--CASE @dbName WHEN 'AIS20231110222743' THEN 101530 ELSE 808372 END AS 'MATERIALID'
		--,30 needNum
	) tt
	GROUP BY tt.MATERIALID
), #ProMaterial AS(
	SELECT t0.FMASTERID
		,t0.FMATERIALID
		,t0.FNUMBER
		,t0.FUSEORGID
		,CAST(t1.needNum  AS decimal(23,6)) AS 'ProMaterialQty'
	FROM T_BD_MATERIAL t0 
		INNER JOIN #TMPMATERIALNUM t1 on t0.FMATERIALID = t1.MATERIALID
	WHERE t0.FDOCUMENTSTATUS = 'C'
), #T_ENG_BOM_TOP1 AS(
	--获取最新层级物料的最新BOM
	SELECT 
		t1.FMATERIALID AS 'EMaterialId',t1.FNUMERATOR,t1.FDENOMINATOR
		,ISNULL(t0.FID,0) AS 'BomId',ISNULL(t0.FNUMBER,'') AS 'FNUMBER'
		,ISNULL(t0.FMATERIALID,0) AS 'FMATERIALID',t1.FID AS 'BOMCHILD_FID'
	FROM T_ENG_BOMCHILD t1
		OUTER APPLY (
			SELECT TOP 1 t0.FID,t0.FNUMBER,t0.FMATERIALID
			FROM T_ENG_BOM t0 
			WHERE t0.FMATERIALID = t1.FMATERIALID 
				AND t0.FDOCUMENTSTATUS = 'C' AND t0.FFORBIDSTATUS = 'A'
			ORDER BY t0.FID DESC
		) t0 
), #MATERIAL_LACKANALYE AS(
	SELECT 
		t0.FMATERIALID AS 'MATERIALID'
		,t1.BomId AS 'BomId'
		,t0.ProMaterialQty  AS '物料_分析需求数'
		,t3.可用库存
		,CAST((CASE CHARINDEX('TC',t0.FNUMBER)
			WHEN 1 THEN 0 - t0.ProMaterialQty
			ELSE (CASE WHEN t3.可用库存 > t0.ProMaterialQty THEN 0 ELSE t3.可用库存 - t0.ProMaterialQty END)
		END) AS decimal(23,6)) AS '物料_实际需求数'
		,0 'BOMLEVEL',1 'IsProduct',1 '物料个数分组合计'
	FROM #ProMaterial t0
		CROSS APPLY (
			SELECT TOP 1 tt.BomId,tt.FMATERIALID FROM #T_ENG_BOM_TOP1 tt 
			WHERE 1 = 1 AND t0.FMATERIALID = tt.FMATERIALID ORDER BY tt.BomId DESC
		) t1
		INNER JOIN #Material_Stock_Statu t3 on t1.FMATERIALID = t3.FMATERIALID
	UNION ALL
	SELECT t1.EMaterialId AS 'MATERIALID'
		,t1.BomId
		,CAST(t0.物料_分析需求数 * (t1.FNUMERATOR / t1.FDENOMINATOR) AS decimal(23,6)) AS '物料_分析需求数'
		,t0.可用库存
		,CAST(t0.物料_实际需求数 * (t1.FNUMERATOR / t1.FDENOMINATOR) AS decimal(23,6)) AS '物料_实际需求数'
		,t0.BOMLEVEL + 1 AS 'BOMLEVEL',0 AS 'IsProduct',1 AS '物料个数分组合计'
	FROM #MATERIAL_LACKANALYE t0
		INNER JOIN #T_ENG_BOM_TOP1 t1 on t0.BomId = t1.BOMCHILD_FID
)
SELECT 
	ROW_NUMBER() OVER (ORDER BY t0.BOMLEVEL,t1.FNumber) 'FIDENTITYID'
	,t0.MATERIALID,t0.IsProduct,t1_l.FNAME,t1.FNUMBER
	,t0.物料_分析需求数--,t0.物料_实际需求数
	,t2.即时库存 AS '物料_即时库存',t2.未发数 AS '物料_未发数',t2.在制数 AS '物料_在制数'
	,t2.受订量 AS '物料_受订量',t2.在途量 AS '物料_在途量',t2.可用库存 AS '物料_可用库存数',t2.进检量 AS '物料_进检量'
	,t0.物料个数分组合计
FROM (
	SELECT t0.MATERIALID
		--,SUM(t0.物料_实际需求数) AS '物料_实际需求数'
		,SUM(t0.物料_分析需求数) AS '物料_分析需求数'
		,MAX(t0.BOMLEVEL) AS 'BOMLEVEL'
		,MAX(t0.IsProduct) AS 'IsProduct'
		,SUM(t0.物料个数分组合计) AS '物料个数分组合计'
	FROM #MATERIAL_LACKANALYE t0
	GROUP BY t0.MATERIALID
) t0 
	INNER JOIN T_BD_MATERIAL t1 on t0.MaterialId = t1.FMATERIALID
	INNER JOIN T_BD_MATERIAL_L t1_l on t0.MaterialId = t1_l.FMATERIALID AND t1_l.FLOCALEID = 2052
	INNER JOIN #Material_Stock_Statu t2 on t2.FMATERIALID = t0.MATERIALID
OPTION (MAXRECURSION 30)

DROP TABLE #Material_Stock_Statu