德仔

工作学习之笔记

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

前言:
随着企业发展,越来越多客户对供应商审计并且审计越来越严格。因材料复检涉及到材料供应的品质,故对供应商复检事项尤其关注。
现状:
前提系统启用批号管理,启用保质期管理。目前做法:系统外复检。呆滞物料从原材料仓或成品仓分别调拨到呆滞仓。
作业方式:
仓库导出复检日期即将到期的批次物料,提供给质量。质量在系统外进行复检,不合格产品直接报废调入不良品仓,合格产品调拨回原材料仓或者成品仓。同时在产品或者材料标签上盖复检章。同时告知仓库,仓库通过录入批号直接修改有效期和复检日期。
存在问题:

  1. 系统外复检:查询复检记录麻烦,纸质也容易丢失。
  2. 为规避一些呆滞物料,通常会调拨一些呆滞物料到原材料仓,待审计通过后调 回。作业不规范
  3. 无法通过系统直接输出复检标签。客户重点考察复检标签的有效日期与复检日期与系统的一致性。
  4. 仓库退料复检合格优先发料。通过手工控制,容易失控。
  5. 两个月内预警领用,优先使用呆滞仓复检合格料件。

解决办法:
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
阅读更多

扫码向博主提问

去开通我的Chat快问

厦门德仔

博客专家

非学,无以致疑;非问,无以广识
  • 擅长领域:
  • ERP
  • .NET
  • SQL
  • Ext.Net
  • DevExpress
版权声明:本文为博主原创文章,未经博主允许不得转载。 https://blog.csdn.net/david_520042/article/details/79201816
个人分类: ERP-鼎捷
上一篇[winfrom]程序自动更新
下一篇[函数依赖]极小覆盖举例依赖
想对作者说点什么? 我来说一句

没有更多推荐了,返回首页

关闭
关闭