[易飞]复检流程纳入系统管理

前言：

随着企业发展，越来越多客户对供应商审计并且审计越来越严格。因材料复检涉及到材料供应的品质，故对供应商复检事项尤其关注。

现状：

前提系统启用批号管理，启用保质期管理。目前做法：系统外复检。呆滞物料从原材料仓或成品仓分别调拨到呆滞仓。

作业方式：

仓库导出复检日期即将到期的批次物料，提供给质量。质量在系统外进行复检，不合格产品直接报废调入不良品仓，合格产品调拨回原材料仓或者成品仓。同时在产品或者材料标签上盖复检章。同时告知仓库，仓库通过录入批号直接修改有效期和复检日期。

存在问题：

系统外复检：查询复检记录麻烦，纸质也容易丢失。

为规避一些呆滞物料，通常会调拨一些呆滞物料到原材料仓，待审计通过后调 回。作业不规范

无法通过系统直接输出复检标签。客户重点考察复检标签的有效日期与复检日期与系统的一致性。

仓库退料复检合格优先发料。通过手工控制，容易失控。

两个月内预警领用，优先使用呆滞仓复检合格料件。

解决办法：

ERP系统启用复检流程&WMS系统配合管控

(1) ERP系统启用料件在库检验单，进行记录复检。仓库通过近期料件检验单批量生成在库料件检验单，QC进行复检。自动回写ERP系统最近养护日期。

(2) WMS系统启用条码变更:QC复检后直接根据产品条码值变更料件的有效日期与复检日期，系统自动回写ERP系统录入批号

(3) 仓库退料复检合格后，对退料的料件批次进行优先封存。后续发料优先发。

(4) 呆滞物料预计报表：纳入材料仓，成品仓，呆滞仓过滤最近养护日期60天内料件。

(5) 仓库系统内根据呆滞物料预计报表录入复检料件，QC复检合格及时调拨到成品仓或材料仓。

作业流程如下：

(1)仓库定期执行料件检验通知表并生成复检单，采用系统作业方式。





(2)IQC执行复检审核



(3)IQC变更产品条码有效期与复检日期，并重新打印复检标签



标签输出覆盖原始标签。使得标签数据与ERP系统,WMS系统数据一致性。

符合外部审计工作。提高客户满意度。



(4)同步ERP系统录入批号，触发器。减少仓库工作量。

-- =============================================
-- Author:      <David Gong>
-- Create date: <2018-01-12>
-- Description: <修改复检日期回写ERP录入批号>
-- =============================================
ALTER TRIGGER [dbo].[SyncERPLot] ON [dbo].[HY_BARTMC]
FOR UPDATE
AS
declare
@Item AS CHAR(20), --品号
@Lot  AS CHAR(20), --批号
@YXDate AS CHAR(8), --有效日期
@FJDate AS CHAR(8) --复检日期

--TMC053 有效日期  TMC080 -复检日期
BEGIN TRANSACTION
SET NOCOUNT ON
SELECT @Item=TMC003,@Lot=TMC006,@FJDate=CONVERT(CHAR(8),CAST(TMC080 AS datetime),112),@YXDate=CONVERT(CHAR(8),CAST(TMC053 AS datetime),112) FROM INSERTED
IF UPDATE(TMC080)
BEGIN
UPDATE INVME
SET ME010=@FJDate,ME009=@YXDate
FROM INVME
WHERE ME001=@Item AND ME002=@Lot

END
SET NOCOUNT OFF
COMMIT TRANSACTION

(5)邮件预警报表-》呆滞预计领用报表

呆滞仓料件未进行复检(最近养护日期为空)或最近养护在60天内未复检，以便QC进行检验合格调拨到材料仓或成品仓

declare @startdate as nvarchar(8),@enddate as nvarchar(8)
set @startdate=Convert(varchar(10),Getdate(),112)
set @enddate=Convert(varchar(10),dateadd(MONTH,2,Getdate()),112) ;
WITH CT AS
(
--呆滞仓数据
SELECT A.品号,A.品名,A.规格,A.批号,SUM(A.呆滞数量) 呆滞数量 FROM (
SELECT ML001 品号,MB002 品名,MB003 规格,ME002 批号,cast(ML005 as decimal(16,2)) 呆滞数量
FROM INVML INNER JOIN INVME ON ML001=ME001 AND ME002=ML004
INNER JOIN INVMB ON ML001=MB001
where (ML004<>'********************' AND ML002='04' AND ML005>0 AND ME012='') OR
(ML004<>'********************' AND ML002='04' AND ML005>0 AND ME012<>'' AND ME012<CONVERT(CHAR(8),DATEADD(DAY,-60,GETDATE()),112))

) A
GROUP BY A.品号,A.品名,A.规格,A.批号
),CT2 AS(
---订单预计领用--------
select a.Item,sum(a.Qty) as Qty from (
select TD004 as Item,sum(cast(TD008-TD009+TD024-TD025 as int)) as Qty from COPTD
where TD013>=@startdate and TD013<=@enddate  and TD016<>'y'
group by TD004
--工单预计领用-------
UNION ALL
select TB003 as Item,sum(cast(TB004-TB005 as decimal(16,2))) AS Qty
from MOCTA inner join MOCTB on TA001=TB001 AND TA002=TB002
where TA009>=@startdate and TA009<=@enddate AND TA011 NOT IN ('Y','y')
GROUP BY TB003
) a
group by a.Item)

SELECT CT.品号,CT.品名,CT.批号,CT.规格,CT.呆滞数量,CT2.Qty AS 两个月内预计领用量
FROM CT LEFT JOIN CT2 ON CT.品号=CT2.Item
ORDER BY CT.品号,CT.批号 ASC