使用SQL查询分析实现类收发存的报表,原始需求在 另外一篇文章 的第四部分。下图是实现需求。

一、准备

删除临时表


[buy]判断是否存在临时表,存在则删除[/buy] if OBJECT_ID('tempdb..#inv') is not null
drop table #inv
if OBJECT_ID('tempdb..#t_mto') is not null
drop table #t_MTO
if OBJECT_ID('tempdb..#t_mtoentry') is not null
drop table #t_MTOEntry

判断是否存在需调整记录

[buy]判断采购申请单上是否存在需要调整的记录,存在则继续。

需要满足条件是:

1.采购申请单上存在MTO计划模式的物料,计划跟踪号不为999999;

2.库存中有可调整的物料。

那么库存中哪些是可以调整的物料呢?还得满足以下条件:

2.1批号为999999;

2.2计划跟踪号为空或者999999;

3.3无浮动计量单位的,基本库存数量要大于0,有浮动计量单位的,辅助数量和基本数量的库存均需大于0;

[/buy]

declare @finterid int = 1059
if exists (select f1 from (
select case when (ti.FSecUnitID = 0 and t2.FQty > 0) OR (ti.FSecUnitID > 0 and t2.FQty > 0 and t2.FSecQty > 0 ) then 1 else 0 end as "F1"
from PORequestEntry t1
left join ICInventory t2 on t1.FItemID = t2.FItemID
left join t_ICItem ti on t1.FItemID = ti.FItemID
where t1.FInterID = @finterid
and t1.FPlanMode = '14035'
and t1.FMTONo <> '999999'
and t2.FBatchNo = '999999'
and t2.FMTONo in ('','999999')
) as t where f1 = 1
)

二、开始

begin

寻找内码

查询mto调整单的内码

	declare @maxNum int
select @maxNum = FMaxNum from ICMaxNum where FTableName = 't_MTOChange'
set @maxNum = @maxNum + 1
update ICMaxNum set FMaxNum = @maxNum

构建表结构

将采购申请、存货表、需计算的字段进行联结,并构成临时表#inv

	select
t3.FBillNo,
t1.FEntryID,
t1.FDetailID,
t1.FItemID,
t1.FMTONo as "t1FMTONo",
ti.FSecUnitID,
t1.FQty as "t1FQty",
t1.FCommitQty,
t1.FUnitID,
tm.FCoefficient,
t1.FAuxCommitQty,
t1.FAuxQty,
t1.FSecQty as "t1FSecQty",
t1.FSecCommitQty,
t1.FOrderQty,
t1.FMRPClosed,
t1.FPlanMode,
t1.FEntrySelfP0139, --辅助数量(计算)
t1.FEntrySelfP0140, --关联数量
t1.FEntrySelfP0141, --关联标志
t2.FStockID,
t2.FStockPlaceID,
t2.FKFPeriod,
t2.FKFDate,
t2.FQty as "t2FQty",
t2.FSecQty as "t2FSecQty",
case when t2.FSecQty > 0 then t2.FQty / t2.FSecQty else 0 end as "FSecCoefficient",
t2.FBatchNo,
t2.FMTONo as "t2FMTONo",
CAST(null as int) as "FMTOInterID",
CAST(null as decimal(28,10)) as "FChaQty",
cast(null as decimal(28,10)) as "FMTOChange",
cast(null as decimal(28,10)) as "FSumMTOChange",
CAST(null as decimal(28,10)) as "FBegQty",
CAST(null as decimal(28,10)) as "FEndQty", cast(null as decimal(28,10)) as "FSecChaQty",
cast(null as decimal(28,10)) as "FSecMTOChange",
cast(null as decimal(28,10)) as "FSecSumMTOChange",
CAST(null as decimal(28,10)) as "FSecBegQty",
CAST(null as decimal(28,10)) as "FSecEndQty", DENSE_RANK() OVER (ORDER BY t1.FItemID) AS RANK1,
ROW_NUMBER() over (PARTITION by t1.FDetailID order By t1.FEntryID,t2.FMTONo,t2.FQty desc) RANK2 into #inv
from PORequestEntry t1
left join ICInventory t2 on t1.FItemID = t2.FItemID
left join t_ICItem ti on t1.FItemID = ti.FItemID
left join t_MeasureUnit tm on t1.FUnitID = tm.FMeasureUnitID
left join PORequest t3 on t1.FInterID =t3.FInterID
where t1.FInterID = @finterid
and t1.FPlanMode = '14035'
and t1.FMTONo <> '999999'
and t2.FBatchNo = '999999'
and t2.FMTONo in ('','999999')
and t2.FQty > 0
and ((ti.FSecUnitID = 0 and t2.FQty > 0) OR (ti.FSecUnitID > 0 and t2.FQty > 0 and t2.FSecQty > 0 ))

更新

更新#inv表的MTO调整单内码

	update #inv set FMtoInterID = @maxNum

构建临时表

用来存放mto调整单的表头数据

	create table #t_MTO(
FID int,
FClassTypeID int,
FTranType int,
FBillNo nvarchar(255),
FDate datetime,
FNote nvarchar(255),
FBillerID int,
FCheckDate datetime,
FEmpID int,
FCheckerID int,
FDeptID int,
FStatus smallint,
FUpStockWhenSave bit,
FPrintCount int,
FSourceBillNo nvarchar(50),
FSourceTranType int
)

用来存放mto调整单的表体数据

	create table #t_MTOEntry(
FID int,
FIndex int,
FItemID int,
FAuxPropID int,
FBatchNo varchar(255),
FStockID int,
FSPID int,
FBaseQty decimal(23,10),
FSecUnitID int,
FUnitID int,
FQty decimal(23,10),
FSecCoefficient decimal(23,10),
FSecQty decimal(23,10),
FChangeQty_Base decimal(23,10),
FChangeQty decimal(23,10),
FChangeSecQty decimal(23,10),
FKFDate datetime,
FKFPeriod int,
FPeriodDate datetime,
FFromMTONo nvarchar(50),
FToMTONo nvarchar(50),
FChangeBaseQty decimal(23,10),
FSelectedProcID int,
FEntrySupply int,
FStockTypeID int,
FMrpNo nvarchar(50)
)

三、计算

	declare @R1 int = 1
declare @maxR int = (select MAX(RANK1) from #inv)
while @R1 <= @maxR begin
if OBJECT_ID('tempdb..#inv2') is not null
drop table #inv2
select *,DENSE_RANK() OVER (ORDER BY FDetailID) AS RANK3 into #inv2 from #inv where RANK1 = @R1 declare @FSecUnitID int = (select top(1) FSecUnitID from #inv2 where RANK1 = @R1) if @FSecUnitID = 0 begin --没有辅助单位的
declare @R2 int = 1
declare @maxR2 int = (select MAX(RANK2) from #inv2 where RANK3 = 1)
declare @FChaQty decimal(28,10) = (select t1FQty from #inv2 where RANK2 = 1 and RANK3 = 1)
while @R2 <= @maxR2 begin
set @FChaQty = @FChaQty - (select t2FQty from #inv2 where RANK2 = @R2 and RANK3 = 1)
update #inv2 set FChaQty = @FChaQty where RANK2 = @R2 and RANK3 = 1
if @FChaQty > 0 update #inv2 set FMTOChange = t2FQty where RANK2 = @R2 and RANK3 = 1
if @FChaQty <=0 update #inv2 set FMTOChange = t2FQty + FChaQty where RANK2 = @R2 and RANK3 = 1
update #inv2 set FSumMTOChange = (select SUM(FMTOChange) from #inv2 where RANK3 = 1 and FMTOChange > 0) where RANK3 = 1
update #inv2 set FMRPClosed = case when (FSumMTOChange - t1FQty >= 0 ) then 1 else 0 end where RANK3 = 1
update #inv2 set FEndQty = t2FQty - FMTOChange where RANK3 = 1 and FMTOChange > 0
update #inv2 set FEndQty = t2FQty where RANK3 = 1 and FMTOChange <= 0
set @R2 = @R2 +1
end declare @R3 int = 1
declare @maxR3 int = (select MAX(RANK3) from #inv2)
while @R3 <= @maxR3 begin declare @i int = 1
declare @maxI int = (select MAX(rank2) from #inv2 where RANK3 = @R3)
while @i <= @maxI begin
update #inv2 set FBegQty = t2FQty where RANK2 = @i and RANK3 = 1
update #inv2 set FBegQty = (select FEndQty from #inv2 where RANK2 = @i and RANK3 = @R3 and FEndQty >0) where RANK2 = @i and RANK3 = @R3+1
set @i = @i + 1
end declare @R31 int = 2
while @R31 <= @maxR3 begin declare @j int = (select min(RANK2) from #inv2 where FBegQty >0 and RANK3 = @R31)
declare @maxJ int = (select max(RANK2) from #inv2 where FBegQty >0 and RANK3 = @R31)
declare @FChaQty2 decimal(28,10)= (select t1FQty from #inv2 where RANK2 = 1 and RANK3 = @R31)
while @j <= @maxJ begin
set @FChaQty2 = @FChaQty2 - (select FBegQty from #inv2 where RANK2 = @j and RANK3 = @R31)
update #inv2 set FChaQty = @FChaQty2 where RANK2 = @j and RANK3 = @R31
if @FChaQty2 > 0 update #inv2 set FMTOChange = FBegQty where RANK2 = @j and RANK3 = @R31
if @FChaQty2 <=0 update #inv2 set FMTOChange = FBegQty + FChaQty where RANK2 = @j and RANK3 = @R31
update #inv2 set FSumMTOChange = (select SUM(FMTOChange) from #inv2 where RANK3 = @R31 and FMTOChange >0) where RANK3 = @R31
update #inv2 set FMRPClosed = case when (FSumMTOChange - t1FQty >= 0 ) then 1 else 0 end where RANK3 = @R31
update #inv2 set FEndQty = FBegQty - FMTOChange where RANK3 = @R31 and FMTOChange > 0
update #inv2 set FEndQty = FBegQty where RANK3 = @R31 and FMTOChange <= 0
set @j = @j+1
end
set @R31 = @R31 +1
end
set @R3 = @R3 + 1
end
end if @FSecUnitID >0 begin --有辅助单位的
declare @R2s int = 1
declare @maxR2s int = (select MAX(RANK2) from #inv2 where RANK3 = 1)
declare @FSecChaQty decimal(28,10) = (select FEntrySelfP0139 from #inv2 where RANK2 = 1 and RANK3 = 1)
while @R2s <= @maxR2s begin
set @FSecChaQty = @FSecChaQty - (select t2FSecQty from #inv2 where RANK2 = @R2s and RANK3 = 1)
update #inv2 set FSecChaQty = @FSecChaQty where RANK2 = @R2s and RANK3 = 1
if @FSecChaQty > 0 update #inv2 set FSecMTOChange = t2FSecQty where RANK2 = @R2s and RANK3 = 1
if @FSecChaQty <=0 update #inv2 set FSecMTOChange = t2FSecQty + FSecChaQty where RANK2 = @R2s and RANK3 = 1
update #inv2 set FSecSumMTOChange = (select SUM(FSecMTOChange) from #inv2 where RANK3 = 1 and FSecMTOChange > 0) where RANK3 = 1
update #inv2 set FMRPClosed = case when (FSecSumMTOChange - FEntrySelfP0139 >= 0 ) then 1 else 0 end where RANK3 = 1
update #inv2 set FSecEndQty = t2FSecQty - FSecMTOChange where RANK3 = 1 and FSecMTOChange > 0
update #inv2 set FSecEndQty = t2FSecQty where RANK3 = 1 and FSecMTOChange <= 0 update #inv2 set FMTOChange = FSecMTOChange * FSecCoefficient where RANK2 = @R2s and RANK3 = 1
update #inv2 set FSumMTOChange = (select SUM(FMTOChange) from #inv2 where RANK3 = 1 and FMTOChange > 0) where RANK3 = 1
update #inv2 set FEndQty = t2FQty - FMTOChange where RANK3 = 1 and FMTOChange > 0
update #inv2 set FEndQty = t2FQty where RANK3 = 1 and FMTOChange <= 0
set @R2s = @R2s +1
end declare @R3s int = 1
declare @maxR3s int = (select MAX(RANK3) from #inv2)
while @R3s <= @maxR3s begin declare @is int = 1
declare @maxIs int = (select MAX(rank2) from #inv2 where RANK3 = @R3s)
while @is <= @maxIs begin
update #inv2 set FSecBegQty = t2FSecQty where RANK2 = @is and RANK3 = 1
update #inv2 set FSecBegQty = (select FSecEndQty from #inv2 where RANK2 = @is and RANK3 = @R3s and FSecEndQty >0) where RANK2 = @is and RANK3 = @R3s+1 update #inv2 set FBegQty = t2FQty where RANK2 = @is and RANK3 = 1
update #inv2 set FBegQty = (select FEndQty from #inv2 where RANK2 = @is and RANK3 = @R3s and FEndQty >0) where RANK2 = @is and RANK3 = @R3s+1
set @is = @is + 1
end declare @R31s int = 2
while @R31s <= @maxR3s begin declare @js int = (select min(RANK2) from #inv2 where FSecBegQty >0 and RANK3 = @R31s)
declare @maxJs int = (select max(RANK2) from #inv2 where FSecBegQty >0 and RANK3 = @R31s)
declare @FSecChaQty2 decimal(28,10)= (select FEntrySelfP0139 from #inv2 where RANK2 = 1 and RANK3 = @R31s)
while @js <= @maxJs begin
set @FSecChaQty2 = @FSecChaQty2 - (select FSecBegQty from #inv2 where RANK2 = @js and RANK3 = @R31s)
update #inv2 set FSecChaQty = @FSecChaQty2 where RANK2 = @js and RANK3 = @R31s
if @FSecChaQty2 > 0 update #inv2 set FSecMTOChange = FSecBegQty where RANK2 = @js and RANK3 = @R31s
if @FSecChaQty2 <=0 update #inv2 set FSecMTOChange = FSecBegQty + FSecChaQty where RANK2 = @js and RANK3 = @R31s
update #inv2 set FSecSumMTOChange = (select SUM(FSecMTOChange) from #inv2 where RANK3 = @R31s and FSecMTOChange >0) where RANK3 = @R31s
update #inv2 set FMRPClosed = case when (FSecSumMTOChange - FEntrySelfP0139 >= 0 ) then 1 else 0 end where RANK3 = @R31s
update #inv2 set FSecEndQty = FSecBegQty - FSecMTOChange where RANK3 = @R31s and FSecMTOChange > 0
update #inv2 set FSecEndQty = FSecBegQty where RANK3 = @R31s and FSecMTOChange <= 0 update #inv2 set FMTOChange = FSecMTOChange * FSecCoefficient where RANK2 = @js and RANK3 = @R31s
update #inv2 set FSumMTOChange = (select SUM(FMTOChange) from #inv2 where RANK3 = @R31s and FMTOChange > 0 ) where RANK3 = @R31s
update #inv2 set FEndQty = FBegQty - FMTOChange where RANK3 = @R31s and FMTOChange > 0
update #inv2 set FEndQty = FBegQty where RANK3 = @R31s and FMTOChange <= 0
set @js = @js+1
end
set @R31s = @R31s +1
end
set @R3s = @R3s + 1
end
end select * from #inv2

四、结束

反写采购申请明细表

		update te set
te.FMRPClosed = ti.FMRPClosed,
te.FCommitQty = ti.FSumMTOChange,
te.FAuxCommitQty = ti.FSumMTOChange / ti.FCoefficient,
te.FSecCommitQty = case when ti.FSecSumMTOChange IS null then 0 else ti.FSecSumMTOChange end,
te.FOrderQty = ti.FSumMTOChange,
te.FEntrySelfP0140 = case when ti.FSecUnitID = 0 then ti.FSumMTOChange else ti.FSecSumMTOChange end,
te.FEntrySelfP0141 = 1
from PORequestEntry te,#inv2 ti where te.FDetailID = ti.FDetailID

插入MTO单据体临时表

		insert into #t_MTOEntry
select
FMTOInterID,
'' as "FIndex",
FItemID,
'0' as "FAuxPropID",
FBatchNo,
FStockID,
FStockPlaceID,
FBegQty,
null as "FSecUnitID",
FUnitID,
FBegQty / FCoefficient as "FQty",
FSecCoefficient,
case when FSecBegQty is null then 0 else FSecBegQty end as "FSecQty",
'0' as FChangeQty_Base,
FMTOChange / FCoefficient as "FChangeQty",
case when FSecMTOChange is null then 0 else FSecMTOChange end as "FChangeSecQty",
case when (FKFDate = '') then null else FKFDate end AS "FKFDate",
FKFPeriod,
case when (FKFDate = '') then null else FKFDate + FKFPeriod end AS "FPeriodDate",
t2FMTONo,
t1FMTONo,
FMTOChange,
'',
'',
'',
''
from #inv2 where FMTOChange > 0
set @R1 = @R1+1
end

插入MTO单据头临时表

	insert into #t_MTO
select
FMTOInterID,
1107011,
1107011,
'MTOAUTO'+LTRIM(str(FMTOInterID)),
CONVERT(varchar(10),getdate(),23)+' 00:00:00.000',
'',
16394,
GETDATE(),
2649,
16394,
277,
1,
0,
0,
FBillNo,
70
from #inv2

插入数据表

	insert into t_MTOChange select * from #t_MTO
insert into t_MTOChangeEntry select * from #t_MTOEntry

插入审批流

	Insert Into ICClassCheckRecords1107011(FPage,FBillID,FBillEntryID,FBillNo, FBillEntryIndex,FCheckLevel,FCheckLevelTo,FMode,FCheckMan, FCheckIdea,FCheckDate,FDescriptions)
Values (1,@maxnum,0,'MTOAUTO'+ltrim(str(@maxnum)),0,-99,-1,0,16394,'',GetDate(),'审核')
Insert Into ICClassCheckRecords1107011(FPage,FBillID,FBillEntryID,FBillNo, FBillEntryIndex,FCheckLevel,FCheckLevelTo,FMode,FCheckMan, FCheckIdea,FCheckDate,FDescriptions)
Values (1,@maxnum,0,'MTOAUTO'+ltrim(str(@maxnum)),0,-1,1,0,16394,'',GetDate(),'审核')

校对即时库存

	EXEC CheckInventory

更新采购申请单单据头MTO内码

	update PORequest set FChildren = FChildren + 1,FHeadSelfP0134 = @maxNum where FInterID = @finterid

结束

end

用SQL查询分析实现类似金蝶K3的收发存明细表的更多相关文章

  1. Red Gate系列之七 SQL Search 1.1.6.1 Edition SQL查询分析工具使用教程

    原文:Red Gate系列之七 SQL Search 1.1.6.1 Edition SQL查询分析工具使用教程 Red Gate系列之七 SQL Search 1.1.6.1 Edition SQL ...

  2. SQL查询性能分析

    http://blog.csdn.net/dba_huangzj/article/details/8300784 SQL查询性能的好坏直接影响到整个数据库的价值,对此,必须郑重对待. SQL Serv ...

  3. [转]一个用户SQL慢查询分析,原因及优化

    来源:http://blog.rds.aliyun.com/2014/05/23/%E4%B8%80%E4%B8%AA%E7%94%A8%E6%88%B7sql%E6%85%A2%E6%9F%A5%E ...

  4. MyBatis原理分析之四:一次SQL查询的源码分析

    上回我们讲到Mybatis加载相关的配置文件进行初始化,这回我们讲一下一次SQL查询怎么进行的. 准备工作 Mybatis完成一次SQL查询需要使用的代码如下: ) { ); ) { throw ne ...

  5. SQL查询性能分析之(not in)、(and not)、()、(!=)性能比较

    SQL查询性能分析之(not in).(and not).().(!=)性能比较 SQL Server Bruce 3年前 (2013-01-08) 3284浏览 0评论 <:article c ...

  6. sql查询未走索引问题分析之查询数据量过大

    前因: 客户咨询,有一个业务sql(代表经常被执行且重要),全表扫描在系统占用资源很高(通过ash报告查询得到信息) 思路: 1.找到sql_text,sql_id 2.查看执行计划 3.查询sql涉 ...

  7. MySQL与OLAP:分析型SQL查询最佳实践探索

    搞点多维分析,糙快猛的解决方式就是使用ROLAP(关系型OLAP)了.数据经维度建模后存储在MySQL,ROLAP引擎(比方开源的Mondrian)负责将OLAP请求转化为SQL语句提交给数据库.OL ...

  8. sql优化 慢查询分析

    查询速度慢的原因很多,常见如下几种 SQL慢查询分析 转自:https://www.cnblogs.com/firstdream/p/5899383.html 1.没有索引或者没有用到索引(这是查询慢 ...

  9. SQL查询速度慢的原因分析和解决方案

    SQL查询速度慢的原因分析和解决方案 查询速度慢的原因很多,常见如下几种: 1.没有索引或者没有用到索引(这是查询慢最常见的问题,是程序设计的缺陷) 2.I/O吞吐量小,形成了瓶颈效应. 3.没有创建 ...

随机推荐

  1. 阿里开源首个移动AI项目,淘宝同款推理引擎

    淘宝上用的移动AI技术,你也可以用在自己的产品中了. 刚刚,阿里巴巴宣布,开源自家轻量级的深度神经网络推理引擎MNN(Mobile Neural Network),用于在智能手机.IoT设备等端侧加载 ...

  2. Java基础语法(11)-面向对象之关键字

    title: Java基础语法(11)-面向对象之关键字 blog: CSDN data: Java学习路线及视频 1.this this是什么 它在方法内部使用,即这个方法所属对象的引用: clas ...

  3. 深入理解Java AIO(三)—— Linux中的AIO实现

    我们调用的Java AIO底层也是要调用OS的AIO实现,而OS主要也就Windows和Linux这两大类,当然还有Solaris和mac这些小众的. 在 Windows 操作系统中,提供了一个叫做 ...

  4. RFID 有源,半源和无源的区别

    RFID电子标签是由标签.解读器和数据传输和处理系统组成.内存带有天线的芯片,芯片中存储有能够识别目标的信息,主要作用都是为了识别货物.(更具体的自行搜索,本文单独讲三种的区别) RFID分为三种 有 ...

  5. Python——NumPy数据存取与函数

    1.数据csv文件存贮 1.1 CSV文件写入 CSV (Comma‐Separated Value, 逗号分隔值)CSV是一种常见的文件格式,用来存储批量数据 np.savetxt(frame, a ...

  6. 关于k12领域Lucene.net+pangu搜索引擎设计开发的一些回顾

    在中国最大的教育资源门户网站两年期间, 黄药师负责学科网搜吧的设计与开发…正好赶上了公司飞速发展的阶段.. 作为专注于k12领域内容与服务的互联网公司的一员,同时整个公司又在积极提升用户体验的氛围中, ...

  7. Blazor入门笔记(6)-组件间通信

    1.环境 VS2019 16.5.1.NET Core SDK 3.1.200Blazor WebAssembly Templates 3.2.0-preview2.20160.5 2.简介 在使用B ...

  8. Pytest系列(9) - 参数化@pytest.mark.parametrize

    如果你还想从头学起Pytest,可以看看这个系列的文章哦! https://www.cnblogs.com/poloyy/category/1690628.html 前言 pytest允许在多个级别启 ...

  9. MES Auto Logout

    如果您在车间使用MES,可能存在这种情况有人在仍然登录的情况下偶尔离开终端.如果一段时间不使用终端,我们是否可以让用户自动注销. 1 首先,我们有一条using语句: using System.Run ...

  10. 10.2 io流 之字节流和字符流

    FileWriter 用于写入字符流.要写入原始字节流,请考虑使用 FileOutputStream. io流相关文档: https://www.cnblogs.com/albertrui/p/836 ...