281 lines
7.5 KiB
Transact-SQL
281 lines
7.5 KiB
Transact-SQL
declare
|
||
@moBillNo varchar(100)
|
||
,@salesBillNo varchar(100)
|
||
,@startMaterialId int
|
||
,@endMaterialId int
|
||
,@FSDate varchar (30)
|
||
,@FEDate varchar (30)
|
||
,@FSNumber varchar (50)
|
||
,@FENumber varchar (50)
|
||
,@FSStock varchar (max)
|
||
SET @moBillNo =''
|
||
SET @salesBillNo =''
|
||
SET @moBillNo = 0
|
||
SET @moBillNo = 0
|
||
SET @FSDate = '2024-01-05'
|
||
SET @FEDate = '2024-02-05'
|
||
SET @FSNumber = '1.01'
|
||
SET @FENumber = '1.01'
|
||
--SET @FSNumber = 'TSH182H000208O'
|
||
--SET @FENumber = 'TSH182H000208O'
|
||
SET @FSStock =''
|
||
|
||
declare @FCloseBALDate varchar (30)
|
||
declare @FClosedate varchar (30)
|
||
|
||
--查询起始日期最近一期的期末结存日期
|
||
If NOT Exists(
|
||
SELECT FORGID, MAX(FCLOSEDATE) fclosedate
|
||
FROM T_STK_CLOSEPROFILE
|
||
WHERE FORGID IN (1) AND FCATEGORY = 'STK' AND (FCLOSEDATE < @FSDate)
|
||
GROUP BY FORGID)
|
||
BEGIN
|
||
SET @FClosedate='2020-01-01'
|
||
SET @FCloseBALDate='2020-01-01'
|
||
--print @FClosedate
|
||
END
|
||
ELSE
|
||
BEGIN
|
||
--SET @FClosedate='2019-07-01'
|
||
SELECT @FClosedate= CONVERT(varchar (30), DATEADD(D, 1,MAX(FCLOSEDATE)),23) FROM
|
||
T_STK_CLOSEPROFILE WHERE ((FORGID IN (1) AND FCATEGORY = 'STK') AND (FCLOSEDATE < @FSDate)) GROUP BY FORGID
|
||
SET @FCloseBALDate=CONVERT(varchar (30), DATEADD(D, -1,@FClosedate),23)
|
||
--print @FClosedat
|
||
END
|
||
|
||
DECLARE @FSWL varchar (50)
|
||
DECLARE @FEWL varchar (50)
|
||
|
||
SET @FSWL=''
|
||
SET @FEWL=''
|
||
|
||
IF @FSNumber<>'' and @FENumber<>''
|
||
BEGIN
|
||
SET @FSWL= @FSNumber
|
||
SET @FEWL= @FENumber
|
||
END
|
||
IF @FSNumber<>'' and @FENumber=''
|
||
BEGIN
|
||
SET @FSWL= @FSNumber
|
||
SELECT @FEWL=MAX(FNUMBER) FROM T_BD_MATERIAL
|
||
END
|
||
IF @FSNumber='' and @FENumber<>''
|
||
BEGIN
|
||
SET @FEWL= @FENumber
|
||
SELECT @FSWL=MIN(FNUMBER) FROM T_BD_MATERIAL
|
||
END
|
||
IF @FSNumber='' and @FENumber=''
|
||
BEGIN
|
||
SELECT @FSWL=MIN(FNUMBER) FROM T_BD_MATERIAL
|
||
SELECT @FEWL=MAX(FNUMBER) FROM T_BD_MATERIAL
|
||
END
|
||
|
||
--生成临时选取仓库
|
||
|
||
IF EXISTS(select * FROM tempdb..SYSOBJECTS WHERE id=OBJECT_ID('tempdb..#tmpStockID'))
|
||
BEGIN
|
||
DROP TABLE #tmpStockID
|
||
print '存在'
|
||
END
|
||
Create Table #tmpStockID (
|
||
FID INT IDENTITY(1,1)
|
||
,FStockID INT
|
||
)
|
||
DECLARE @Strsql varchar(max)
|
||
SET @Strsql= 'insert into #tmpStockID select distinct FSTOCKID from T_BD_STOCK where 1=1 ' +@FSStock
|
||
EXEC(@Strsql)
|
||
|
||
--库存状态报表
|
||
|
||
if exists(select * from tempdb..sysobjects where id=object_id('tempdb..#Stock_Status_temp'))
|
||
begin
|
||
drop table #Stock_Status_temp
|
||
print '存在'
|
||
end
|
||
|
||
Create Table #Stock_Status_temp (
|
||
序号 INT IDENTITY(1,1),
|
||
物料内码 INT ,
|
||
物料代码 varchar(100) null ,
|
||
物料名称 varchar(255) null ,
|
||
规格型号 varchar(255) null ,
|
||
旧编码 varchar(100) null ,
|
||
--单位 varchar(30) null ,
|
||
上期结存 DECIMAL (18, 2) Null ,
|
||
本期采购入库 DECIMAL (18, 2) Null ,
|
||
本期耗用 DECIMAL (18, 2) Null ,
|
||
期末结存 DECIMAL (18, 2) Null ,
|
||
在途量 DECIMAL (18, 2) Null ,
|
||
在制数 DECIMAL (18, 2) Null ,
|
||
进检量 DECIMAL (18, 2) Null ,
|
||
未发量 DECIMAL (18, 2) Null ,
|
||
领料数量 DECIMAL (18, 2) Null ,
|
||
销售出库数量 DECIMAL (18, 2) Null ,
|
||
仓库拨出数量 DECIMAL (18, 2) Null ,
|
||
仓库拨入数量 DECIMAL (18, 2) Null ,
|
||
申购未转数 DECIMAL (18, 2) Null,
|
||
受订量 DECIMAL (18, 2) Null ,
|
||
占用量 DECIMAL (18, 2) Null ,
|
||
可用库存 DECIMAL (18, 2) Null ,
|
||
仓库内码 INT ,
|
||
仓库代码 varchar(100) null ,
|
||
仓库名称 varchar(255) null ,
|
||
包装内码 INT ,
|
||
包装方式 varchar(255) null
|
||
)
|
||
|
||
if exists(select * from tempdb..sysobjects where id=object_id('tempdb..#TMP'))
|
||
begin
|
||
drop table #TMP
|
||
print '存在'
|
||
end
|
||
|
||
CREATE TABLE #TMP (
|
||
FID INT IDENTITY(1,1),
|
||
FSTOCKORGID INT NOT NULL DEFAULT 0,
|
||
FBILLENTRYID INT NOT NULL DEFAULT 0,
|
||
FORDERBY INT NOT NULL DEFAULT 0,
|
||
FSTOCKIO CHAR (1) NULL,
|
||
FMATERIALID INT NOT NULL DEFAULT 0,
|
||
FAUXPROPID INT NOT NULL DEFAULT 0,
|
||
FDATE DATETIME NULL,
|
||
FSTOCKID INT NOT NULL DEFAULT 0,
|
||
FSTOCKLOCID INT NOT NULL DEFAULT 0,
|
||
FSTOCKSTATUSID INT NOT NULL DEFAULT 0,
|
||
FBILLNAME NVARCHAR (100) NULL,
|
||
FBILLID INT NOT NULL DEFAULT 0,
|
||
FBILLSEQID INT NULL,
|
||
FBILLNO NVARCHAR (100) NULL,
|
||
FBASEQCQTY DECIMAL (23, 10) NOT NULL DEFAULT 0,
|
||
FBASEINQTY DECIMAL (23, 10) NOT NULL DEFAULT 0,
|
||
FBASEOUTQTY DECIMAL (23, 10) NOT NULL DEFAULT 0
|
||
)
|
||
|
||
--分析BOM层级物料
|
||
|
||
IF EXISTS(SELECT * FROM TEMPDB..SYSOBJECTS WHERE ID=OBJECT_ID('TEMPDB..#YC_T_MRP'))
|
||
BEGIN
|
||
DROP TABLE #YC_T_MRP
|
||
END
|
||
|
||
CREATE TABLE #YC_T_MRP(
|
||
FID INT IDENTITY(1,1),
|
||
FBOMNumber NVARCHAR(255),
|
||
FMATERIALID INT,
|
||
物料编码 NVARCHAR(255),
|
||
物料名称 NVARCHAR(255),
|
||
成品率 DECIMAL(28,10) DEFAULT (0),
|
||
分子 DECIMAL(28,10),--BOM分子
|
||
分母 DECIMAL(28,10),--BOM分母
|
||
FQty DECIMAL(28,10),--用量
|
||
FLevle INT ,
|
||
FERPCLSID INT,
|
||
FOrderNum NVARCHAR(255),
|
||
FBOMID INT,
|
||
BOM层级 NVARCHAR(200) NULL,
|
||
FSEQ1 INT,
|
||
FSEQ2 INT,
|
||
FSEQ3 INT,
|
||
FSEQ4 INT,
|
||
FSEQ5 INT,
|
||
FSEQ6 INT,
|
||
FParentNumber NVARCHAR(255)
|
||
)
|
||
|
||
IF EXISTS(SELECT * FROM TEMPDB..SYSOBJECTS WHERE ID=OBJECT_ID('TEMPDB..#BOMTMP'))
|
||
BEGIN
|
||
DROP TABLE #BOMTMP
|
||
END
|
||
|
||
/*取出所有审核状态的BOM，放入临时表中*/
|
||
SELECT
|
||
ID=IDENTITY(INT,1,1)
|
||
,T0.FID
|
||
,T0.FNUMBER
|
||
,T0.FMATERIALID
|
||
,ROW_NUMBER() OVER(PARTITION BY T0.FMATERIALID ORDER BY t0.FID DESC) AS ROWID
|
||
INTO #BOMTmp
|
||
FROM T_ENG_BOM T0
|
||
INNER JOIN T_BD_MATERIAL TM ON t0.FMATERIALID=TM.FMATERIALID --物料表
|
||
WHERE (t0.FDOCUMENTSTATUS = 'C') and (t0.FFORBIDSTATUS='A')
|
||
AND (TM.FNUMBER >= @FSWL AND TM.FNUMBER <=@FEWL)
|
||
ORDER BY FMATERIALID,FNUMBER
|
||
|
||
--/*在临时表中，同一个物料代码只保留一个最新版本的BOM*/
|
||
--DELETE FROM #BOMTmp WHERE id NOT IN (SELECT max(id) FROM #BOMTmp GROUP BY FMATERIALID)
|
||
DELETE FROM #BOMTmp WHERE ROWID > 1
|
||
|
||
IF EXISTS(SELECT * FROM TEMPDB..SYSOBJECTS WHERE ID=OBJECT_ID('TEMPDB..#TMP_TOP_BOM_SET'))
|
||
BEGIN
|
||
DROP TABLE #TMP_TOP_BOM_SET
|
||
END
|
||
|
||
CREATE TABLE #TMP_TOP_BOM_SET(
|
||
FID int
|
||
,FNUMBER varchar(80)
|
||
,FMATERIALID int
|
||
,FSEQ int
|
||
,BOMLEVEL int
|
||
,TOPID int
|
||
,showlevel varchar(80)
|
||
,BOMID int
|
||
,FERPCLSID int
|
||
)
|
||
CREATE INDEX [#TMP_TOP_BOM_SET_FID] ON #TMP_TOP_BOM_SET(FID);
|
||
|
||
INSERT INTO #TMP_TOP_BOM_SET
|
||
SELECT
|
||
t0.FID
|
||
,t1.FNUMBER
|
||
,t0.FMATERIALID
|
||
,ROW_NUMBER() over(partition BY t0.FID order by t0.fid)
|
||
,1 'BOMLEVEL'
|
||
,t0.FID AS 'TOPID'
|
||
,''
|
||
,t0.FID AS 'BOMID'
|
||
,t2.FERPCLSID
|
||
FROM T_ENG_BOM t0
|
||
INNER JOIN T_BD_MATERIAL t1 on t0.FMATERIALID = t1.FMATERIALID
|
||
LEFT OUTER JOIN t_BD_MaterialBase t2 ON t1.FMATERIALID = t2.FMATERIALID
|
||
INNER JOIN #BOMTmp t3 on t3.FNUMBER = t0.FNUMBER AND t3.FMATERIALID = t0.FMATERIALID
|
||
WHERE 1 = 1
|
||
AND (t0.FDOCUMENTSTATUS = 'C')
|
||
|
||
DECLARE @num INT,@level int,@LoopCount int
|
||
SET @num = 1
|
||
SET @level =1
|
||
SET @LoopCount = 0;
|
||
|
||
|
||
WHILE (@num > 0 AND @LoopCount < 10)
|
||
BEGIN
|
||
INSERT INTO #TMP_TOP_BOM_SET
|
||
SELECT
|
||
t3.FID
|
||
,t2.FNUMBER
|
||
,t1.FMATERIALID
|
||
,ROW_NUMBER() over(partition BY t0.TOPID,t0.bomid order by t0.fseq) 'FSEQ'
|
||
,@level + 1 AS 'BOMLEVEL'
|
||
,t0.TOPID
|
||
,CONCAT(t0.showlevel,'-',CAST(dense_rank() over(partition BY t0.topid,t0.bomid,t0.fid order by t1.fseq) as VARCHAR)) 'showLevel'
|
||
,0 'OID'
|
||
,t4.FERPCLSID
|
||
FROM
|
||
#TMP_TOP_BOM_SET t0
|
||
LEFT JOIN T_ENG_BOMCHILD t1 on t0.BOMID = t1.FID
|
||
INNER JOIN T_BD_MATERIAL t2 on t2.FMATERIALID = t1.FMATERIALID
|
||
LEFT JOIN T_BD_MATERIAL_L t1_l on t1_l.FMATERIALID = t1.FMATERIALID AND t1_l.FLOCALEID = 2052
|
||
LEFT JOIN T_ENG_BOM t3 on t1.FID = t3.FID--t1.FMATERIALID = t3.FMATERIALID
|
||
LEFT JOIN T_BD_MATERIALBASE t4 on t4.FMATERIALID = t1.FMATERIALID
|
||
WHERE 1 = 1
|
||
--AND (t2.FERPCLSID = 2 OR t2.FERPCLSID = 5 )
|
||
AND t0.FERPCLSID >= 2
|
||
AND t0.BOMLEVEL = @level
|
||
AND t3.FDOCUMENTSTATUS = 'C'
|
||
AND t2.FFORBIDSTATUS = 'A'
|
||
|
||
SET @num = @@ROWCOUNT
|
||
SET @level += 1
|
||
SET @LoopCount += 1
|
||
END
|
||
SELECT * FROM #TMP_TOP_BOM_SET |