320 lines
23 KiB
Transact-SQL
320 lines
23 KiB
Transact-SQL
/****** Object: StoredProcedure [dbo].[p_生成同巷道多托盘深浅存放的转库指令] Script Date: 2017/9/30 星期六 13:48:30 ******/
|
||
SET ANSI_NULLS ON
|
||
GO
|
||
SET QUOTED_IDENTIFIER ON
|
||
GO
|
||
ALTER PROC [dbo].[p_生成同巷道多托盘深浅存放的转库指令]
|
||
(
|
||
@操作用户名 varchar(20),
|
||
@排除巷道列表 VARCHAR(50),
|
||
@限定存放分区 VARCHAR(50),
|
||
@转移指令个数 INT,
|
||
@成功转库数 INT OUTPUT,
|
||
@转库指令号 INT OUTPUT -- 生成多条转库指令时，返回第一条转库指令号
|
||
)
|
||
AS
|
||
/**
|
||
* 将分布在不配对的深浅货位托盘归并到一对深浅货位存放
|
||
* 转出库位要么在深货位，要么在浅货位。
|
||
* Created by jzx on 2015-9-16
|
||
* Used by CkczManager类
|
||
* Modified by jzx on 2015-10-15 转出库位增加“库位个数”字段筛选，以及是否被未审核出入库单据占用
|
||
* Modified by jzx on 2017-9-30 之前未考虑qysx字段值为null的库位
|
||
*/
|
||
BEGIN
|
||
|
||
IF LEN(@排除巷道列表)>0
|
||
BEGIN
|
||
IF @排除巷道列表 NOT LIKE ',%'
|
||
SET @排除巷道列表 = ',' + @排除巷道列表;
|
||
IF @排除巷道列表 NOT LIKE '%,'
|
||
SET @排除巷道列表 = @排除巷道列表 + ',';
|
||
END;
|
||
|
||
SET NOCOUNT ON
|
||
|
||
DECLARE c CURSOR FOR
|
||
SELECT x.kwbh,x.hdh,r.cpbh,ISNULL(r.lpxx, ''),r.zlzt,r.rksj,cpxx.cfkwFqsx,x.qysx,x.kfwpgd,x.kfwpzl
|
||
, '将分布在不配对的深浅货位托盘归并到一对深浅货位存放' bz
|
||
FROM kwjbxx x join (select kwbh kw, max(b.cpbh)cpbh,max(b.lpxx)lpxx,max(b.zlzt)zlzt,count(*)jls, min(rksj) rksj
|
||
from cpkcxx b where b.zlzt='2' and b.sl > 0 and isnumeric(b.cpbh)=1
|
||
group by kwbh
|
||
having count(*)=1 -- 库位上值存放了一种产品
|
||
)r on x.kwbh=r.kw
|
||
join cpxx on r.cpbh=cpxx.cpbh
|
||
WHERE x.zsl>0 AND x.sfsd=0 AND x.xnkw=0
|
||
AND (wckw IS NOT NULL OR nckw IS NOT NULL)
|
||
AND x.双伸位都有货 = 0
|
||
AND (@排除巷道列表 IS NULL OR @排除巷道列表 NOT LIKE '%,'+CAST(hdh AS varchar(2))+',%')
|
||
AND (@限定存放分区 IS NULL OR @限定存放分区=x.qysx)
|
||
AND x.托盘个数>0 -- 确保托盘在库位上
|
||
AND NOT EXISTS(SELECT 2 FROM v_未完成指令 v WHERE v.kwbh=x.kwbh) -- 确保没有其他未审核单据操作此库位
|
||
|
||
ORDER BY storeDist desc;
|
||
|
||
DECLARE @zckw VARCHAR(20), @zrkw VARCHAR(20), @hdh TINYINT, @zlbh INT
|
||
, @cpbh type_cpbh, @lpxx type_ph, @zlzt char(1), @限定存放分区值 varchar(20)
|
||
, @kfwpgd int, @kfwpzl int, @match char(1), @cntRows INT, @zcyy VARCHAR(200)
|
||
, @rksj DATE, @库位分区值 varchar(20);
|
||
|
||
SET @cntRows = 0;
|
||
SET @成功转库数 = 0;
|
||
SET @转库指令号 = NULL;
|
||
IF ISNULL(@转移指令个数, 0) < 1
|
||
SET @转移指令个数 = 1;
|
||
|
||
OPEN c;
|
||
WHILE 1=1
|
||
BEGIN
|
||
FETCH c INTO @zckw, @hdh, @cpbh, @lpxx, @zlzt, @rksj, @限定存放分区值, @库位分区值, @kfwpgd, @kfwpzl, @zcyy;
|
||
IF @@FETCH_STATUS <> 0
|
||
BREAK;
|
||
|
||
SET @cntRows = @cntRows + 1;
|
||
|
||
-- 遍历库位所在巷道必有存放有同产品的多个库位
|
||
IF NOT EXISTS(select count(*)jls
|
||
from cpkcxx b join kwjbxx k on b.kwbh=k.kwbh
|
||
where b.zlzt='2'
|
||
AND b.sl > 0 -- 入库指令完成后，入库单没有审核前，会出现sl=0的情形
|
||
AND b.sl=k.zsl -- 库位上只存放一种产品是成立
|
||
AND (wckw IS NOT NULL OR nckw IS NOT NULL)
|
||
AND k.双伸位都有货 = 0
|
||
AND k.hdh=@hdh AND b.cpbh=@cpbh AND ISNULL(b.lpxx,'')=@lpxx AND b.zlzt=@zlzt
|
||
having count(*) > 1)
|
||
begin
|
||
PRINT '找不到和出库库位' + @zckw + '上存放产品相同的库位'
|
||
CONTINUE;
|
||
end;
|
||
|
||
SET @zrkw = NULL;
|
||
SET @zlbh = NULL;
|
||
SET @match = 0
|
||
SELECT TOP 1 @zrkw=kwbh
|
||
,@match = case when k.kw is not null and substring(kwbh,3,4)=substring(kw,3,4) AND hdh=@hdh and nckw is null then 4
|
||
when k.kw is not null and substring(kwbh,3,4)=substring(@zckw,3,4) AND hdh=@hdh and nckw is null then 3
|
||
when k.kw is not null then 2
|
||
when substring(kwbh,3,4)=substring(@zckw,3,4) then 1
|
||
else 0 end
|
||
FROM kwjbxx m left join (select distinct k.kwbh kw from cpkcxx k join kwjbxx r on k.kwbh=r.kwbh
|
||
-- 浅货位有先入库的同物资深库位，优先存放
|
||
where k.rksj < @rksj and cpbh=@cpbh and ISNULL(lpxx,'')=@lpxx and k.zlzt=@zlzt and nckw is not null
|
||
and ISNULL(r.qysx, @限定存放分区值)=@限定存放分区值 and xnkw=0 and r.hdh=@hdh
|
||
)k
|
||
on m.wckw=k.kw
|
||
WHERE hdh=@hdh AND (ISNULL(qysx,@限定存放分区值)=@限定存放分区值) AND zsl=0 AND sfsd=0 AND xnkw=0
|
||
AND isnull(kfwpgd,0)>=isnull(@kfwpgd,0) AND isnull(kfwpzl,0)>=isnull(@kfwpzl,0)
|
||
AND EXISTS(SELECT 2 FROM cpkcxx x JOIN kwjbxx k ON x.kwbh=k.kwbh
|
||
WHERE x.kwbh IN(m.wckw,m.nckw) AND x.kwbh != @zckw
|
||
AND x.sl=k.zsl AND x.sl>0
|
||
AND k.sfsd = 0
|
||
AND x.cpbh=@cpbh AND ISNULL(x.lpxx,'')=@lpxx AND x.zlzt=@zlzt
|
||
)
|
||
|
||
ORDER BY 2 desc -- 浅货位存放同物资库位最优先，其次同列层库位优先
|
||
, case when wckw is null then 0 else 1 end -- 浅货位优先
|
||
, storeDist;
|
||
|
||
IF @zrkw IS NOT NULL
|
||
BEGIN
|
||
EXEC p_生成整托盘转库指令 @zlbh output, @zckw, @zrkw, @操作用户名, null, @zcyy;
|
||
SET @成功转库数 = @成功转库数 + 1;
|
||
IF @转库指令号 IS NULL
|
||
SET @转库指令号 = @zlbh;
|
||
print @zckw + '>>' + @zrkw;
|
||
END
|
||
SET @cntRows = @cntRows + 1;
|
||
--PRINT CAST(@cntRows AS CHAR(4)) + '. ' + @zckw + ' > ' + ISNULL(@zrkw, ' ') + ' 配对=' + @match + ',' + @zcyy + ', 分区匹配？' + @限定存放分区值 + ' ' + @库位分区值
|
||
-- + ',hdh=' + cast(@hdh as varchar(2)) + ',cffq=' + @限定存放分区值 + ',cpbh=' + @cpbh + ',lpxx=' + @lpxx + ',zlzt=' + @zlzt;
|
||
|
||
IF @转移指令个数 <= @成功转库数
|
||
BREAK;
|
||
END;
|
||
CLOSE c;
|
||
DEALLOCATE c;
|
||
|
||
END
|
||
go
|
||
/****** Object: StoredProcedure [dbo].[p_自动生成有货库位的转库指令] Script Date: 2017/9/30 星期六 15:01:43 ******/
|
||
SET ANSI_NULLS ON
|
||
GO
|
||
SET QUOTED_IDENTIFIER ON
|
||
GO
|
||
ALTER PROC [dbo].[p_自动生成有货库位的转库指令]
|
||
(
|
||
@操作用户名 varchar(20),
|
||
@转出库位限定条件 INT, -- 1（深浅货位存放物资不同，将深货位货物转走）|2（浅货位为空库位时，深货位托盘转出）|4（将分区不匹配的托盘转走）
|
||
@转出产品限定条件 VARCHAR(50),
|
||
@排除巷道列表 VARCHAR(50),
|
||
@限定存放分区 VARCHAR(50),
|
||
@转移指令个数 INT,
|
||
@成功转库数 INT OUTPUT,
|
||
@转库指令号 INT OUTPUT -- 生成多条转库指令是，返回第一条转库指令号
|
||
)
|
||
AS
|
||
/**
|
||
* 将深浅货位上存放不同货物的深货位或分区不匹配的浅货位托盘转走
|
||
* Created by jzx on 2015-9-16
|
||
* Used by CkczManager类
|
||
* Modified by jzx on 2015-10-15 转出库位增加“库位个数”字段筛选，以及是否被未审核出入库单据占用
|
||
* Modified by jzx on 2017-9-30 之前未考虑qysx字段值为null的情况；另增加一个深货位托盘转入浅货位的分支
|
||
*/
|
||
BEGIN
|
||
|
||
IF LEN(@排除巷道列表) > 0
|
||
BEGIN
|
||
IF @排除巷道列表 NOT LIKE ',%'
|
||
SET @排除巷道列表 = ',' + @排除巷道列表;
|
||
IF @排除巷道列表 NOT LIKE '%,'
|
||
SET @排除巷道列表 = @排除巷道列表 + ',';
|
||
END;
|
||
|
||
SET NOCOUNT ON
|
||
|
||
DECLARE c CURSOR FOR
|
||
SELECT kwbh,hdh,r.cpbh,ISNULL(r.lpxx, ''),r.zlzt,rksj,cpxx.cfkwFqsx,x.qysx,x.kfwpgd,x.kfwpzl
|
||
,CASE WHEN wckw IS NOT NULL AND (r.cpbh <> r2.cpbh OR ISNULL(r.lpxx,'')<>ISNULL(r2.lpxx,'') OR r.zlzt<>r2.zlzt) THEN '深浅货位存放物资不同，将深货位货物转走'
|
||
WHEN wckw IS NOT NULL AND r2.cpbh IS NULL AND r2.zsl=0 THEN '浅货位为空库位时，深货位托盘转出'
|
||
ELSE '将分区不匹配的托盘转走' END bz
|
||
FROM kwjbxx x join (select kwbh kw, max(b.cpbh)cpbh,max(b.lpxx)lpxx,max(b.zlzt)zlzt,count(*)jls, min(rksj) rksj
|
||
from cpkcxx b where zlzt='2' and sl > 0 and isnumeric(cpbh)=1
|
||
group by kwbh
|
||
having count(*)=1
|
||
)r
|
||
on x.kwbh=r.kw
|
||
LEFT join (select a.kwbh 浅货位, a.zsl, a.sfsd, max(b.cpbh)cpbh,max(b.lpxx)lpxx,max(b.zlzt)zlzt,count(*)jls
|
||
from kwjbxx a LEFT join cpkcxx b on a.kwbh = b.kwbh
|
||
where nckw is not null
|
||
group by a.kwbh, a.zsl, a.sfsd
|
||
)r2
|
||
on x.wckw=r2.浅货位
|
||
join cpxx on r.cpbh=cpxx.cpbh
|
||
WHERE x.zsl>0 AND x.sfsd=0 AND x.xnkw=0
|
||
-- 存放不同物资的转走
|
||
AND ( (x.wckw IS NOT NULL AND ((@转出库位限定条件&1) != 0) AND (r.cpbh <> isnull(r2.cpbh,'') OR r.lpxx<>isnull(r2.lpxx,'') OR r.zlzt<>isnull(r2.zlzt,3)))
|
||
-- 浅货位没货物的转走
|
||
OR (x.wckw IS NOT NULL AND ((@转出库位限定条件&2) != 0) AND r2.cpbh IS NULL AND r2.zsl=0 AND r2.sfsd=0)
|
||
-- 存放同物资，但分区不匹配的也转走
|
||
OR (x.qysx<>cpxx.cfkwFqsx AND ((@转出库位限定条件&4) != 0))
|
||
)
|
||
AND (@转出产品限定条件 IS NULL OR r2.cpbh+'.'+ISNULL(r2.lpxx,'')=@转出产品限定条件)
|
||
AND (@排除巷道列表 IS NULL OR @排除巷道列表 NOT LIKE '%,'+CAST(hdh AS varchar(2))+',%')
|
||
AND (@限定存放分区 IS NULL OR @限定存放分区=ISNULL(x.qysx,@限定存放分区))
|
||
AND x.托盘个数>0 -- 确保托盘在库位上
|
||
AND NOT EXISTS(SELECT 2 FROM v_未完成指令 v WHERE v.kwbh=x.kwbh) -- 确保没有其他未审核单据操作此库位
|
||
|
||
ORDER BY CASE WHEN (x.wckw IS NOT NULL AND r.cpbh <> r2.cpbh OR ISNULL(r.lpxx,'')<>ISNULL(r2.lpxx,'') OR r.zlzt<>r2.zlzt) THEN 0
|
||
WHEN ISNULL(x.qysx,'')<>ISNULL(cpxx.cfkwFqsx,'') THEN 1
|
||
WHEN (x.wckw IS NOT NULL AND r2.cpbh IS NULL AND r2.zsl=0) THEN 2
|
||
ELSE 3 END
|
||
, CASE WHEN wckw IS NOT NULL THEN 0 ELSE 1 END, storeDist desc;
|
||
|
||
DECLARE @zckw VARCHAR(20), @zrkw VARCHAR(20), @hdh TINYINT, @zlbh INT
|
||
, @cpbh type_cpbh, @lpxx type_ph, @zlzt char(1), @限定存放分区值 varchar(20)
|
||
, @kfwpgd int, @kfwpzl int, @match char(1), @cntRows INT, @zcyy VARCHAR(200)
|
||
, @rksj DATE, @库位分区值 varchar(20);
|
||
|
||
SET @cntRows = 0;
|
||
SET @成功转库数 = 0;
|
||
SET @转库指令号 = NULL;
|
||
IF ISNULL(@转移指令个数, 0) < 1
|
||
SET @转移指令个数 = 1;
|
||
|
||
OPEN c;
|
||
WHILE 1=1
|
||
BEGIN
|
||
FETCH c INTO @zckw, @hdh, @cpbh, @lpxx, @zlzt, @rksj, @限定存放分区值, @库位分区值, @kfwpgd, @kfwpzl, @zcyy;
|
||
IF @@FETCH_STATUS <> 0
|
||
BREAK;
|
||
|
||
SET @cntRows = @cntRows + 1;
|
||
|
||
SET @zrkw = NULL;
|
||
SET @zlbh = NULL;
|
||
SET @match = 0
|
||
SELECT TOP 1 @zrkw=kwbh
|
||
,@match = case when k.kw is not null and substring(kwbh,3,4)=substring(kw,3,4) AND hdh=@hdh and nckw is null then 4
|
||
when k.kw is not null and substring(kwbh,3,4)=substring(@zckw,3,4) AND hdh=@hdh and nckw is null then 3
|
||
when k.kw is not null then 2
|
||
when substring(kwbh,3,4)=substring(@zckw,3,4) then 1
|
||
else 0 end
|
||
FROM kwjbxx m left join (select distinct k.kwbh kw from cpkcxx k join kwjbxx r on k.kwbh=r.kwbh
|
||
-- 浅货位有先入库的同物资深库位，优先存放
|
||
where k.rksj < @rksj and cpbh=@cpbh and ISNULL(lpxx,'')=@lpxx and k.zlzt=@zlzt and nckw is not null
|
||
and r.qysx=@限定存放分区值 and xnkw=0 and r.hdh=@hdh
|
||
)k
|
||
on m.wckw=k.kw
|
||
WHERE hdh>=@hdh AND (ISNULL(qysx,@限定存放分区值)=@限定存放分区值 OR @限定存放分区值 IS NULL)
|
||
AND zsl=0 AND sfsd=0 AND xnkw=0
|
||
AND isnull(kfwpgd,0)>=isnull(@kfwpgd,0) AND isnull(kfwpzl,0)>=isnull(@kfwpzl,0)
|
||
AND NOT EXISTS(SELECT 2 FROM cpkcxx x WHERE x.kwbh IN(m.wckw,m.nckw)
|
||
AND (x.cpbh<>@cpbh OR x.lpxx<>@lpxx OR x.zlzt<>@zlzt))
|
||
|
||
ORDER BY case hdh when @hdh then 0 else 1 end
|
||
, 2 desc -- 浅货位存放同物资库位最优先，其次同列层库位优先
|
||
, case when wckw is null then 0 else 1 end -- 浅货位优先
|
||
, storeDist;
|
||
|
||
IF @zrkw IS NOT NULL
|
||
BEGIN
|
||
EXEC p_生成整托盘转库指令 @zlbh output, @zckw, @zrkw, @操作用户名, null, @zcyy;
|
||
SET @成功转库数 = @成功转库数 + 1;
|
||
IF @转库指令号 IS NULL
|
||
SET @转库指令号 = @zlbh;
|
||
PRINT @zckw + '>>' + @zrkw;
|
||
END
|
||
ELSE
|
||
PRINT @zckw + '>>NULL';
|
||
|
||
SET @cntRows = @cntRows + 1;
|
||
--PRINT CAST(@cntRows AS CHAR(4)) + '. ' + @zckw + ' > ' + ISNULL(@zrkw, ' ') + ' 配对=' + @match + ',' + @zcyy + ', 分区匹配？' + @限定存放分区值 + ' ' + @库位分区值
|
||
-- + ',hdh=' + cast(@hdh as varchar(2)) + ',cffq=' + @限定存放分区值 + ',cpbh=' + @cpbh + ',lpxx=' + @lpxx + ',zlzt=' + @zlzt;
|
||
|
||
IF @转移指令个数 <= @成功转库数
|
||
BREAK;
|
||
END;
|
||
CLOSE c;
|
||
DEALLOCATE c;
|
||
|
||
-- 2017-9-30 新增分支：如果没有的，则自动将深货位有货，浅货位没有货的托盘转走
|
||
IF @成功转库数 = 0
|
||
BEGIN
|
||
|
||
DECLARE c2 CURSOR FOR
|
||
SELECT x.kwbh, x.nckw,x.hdh,r.cpbh,ISNULL(r.lpxx, ''),r.zlzt,rksj,x.kfwpgd,x.kfwpzl, '自动将浅货位托盘转入深货位' AS bz
|
||
FROM kwjbxx x JOIN cpkcxx r ON x.kwbh=r.kwbh
|
||
WHERE x.zsl>0 AND x.sfsd=0 AND x.xnkw=0 AND x.nckw IS NOT NULL
|
||
AND x.双伸位都有货 = 0
|
||
AND x.托盘个数>0 -- 确保托盘在库位上
|
||
AND NOT EXISTS(SELECT 2 FROM v_未完成指令 v WHERE v.kwbh=x.kwbh) -- 确保没有其他未审核单据操作此库位
|
||
AND NOT EXISTS(SELECT 2 FROM kwjbxx n WHERE n.kwbh=x.nckw AND n.zsl=0 AND n.sfsd=0 AND n.托盘个数=0)
|
||
|
||
ORDER BY r.rksj DESC, storeDist desc;
|
||
|
||
OPEN c2;
|
||
WHILE 1=1
|
||
BEGIN
|
||
FETCH c2 INTO @zckw, @zrkw, @hdh, @cpbh, @lpxx, @zlzt, @rksj, @kfwpgd, @kfwpzl, @zcyy;
|
||
IF @@FETCH_STATUS <> 0
|
||
BREAK;
|
||
|
||
SET @zlbh = NULL;
|
||
|
||
EXEC p_生成整托盘转库指令 @zlbh output, @zckw, @zrkw, @操作用户名, null, @zcyy;
|
||
SET @成功转库数 = @成功转库数 + 1;
|
||
IF @转库指令号 IS NULL
|
||
SET @转库指令号 = @zlbh;
|
||
PRINT @zckw + '>>>' + @zrkw;
|
||
|
||
SET @cntRows = @cntRows + 1;
|
||
|
||
IF @转移指令个数 <= @成功转库数
|
||
BREAK;
|
||
END;
|
||
CLOSE c2;
|
||
DEALLOCATE c2;
|
||
|
||
END;
|
||
END
|
||
go
|