[易飞]取消库位规格书

程序代号： CMSB07
程序名称： 取消库位管理
Parent Class：
系统分析代号：
信息文件：BOMTD (R/W) 组合单单头
BOMTE (R/W) 组合单单身
BOMTF (R/W) 拆解单单头
BOMTG (R/W) 拆解单单身
CMSMA (R/W) 公用参数档
CMSNI (R/W) 仓库库位档
COPTH (R/W) 销货单单身信息档
COPTJ (R/W) 销退单单身信息档
COPTO (R/W) 出货通知单身档
CUSTN (R/W) 交易单据单身档
DHQTE (R/W) 调拨出库单身档
DHQTG (R/W) 调拨出库到达单身档
DHQTM (R/W) 调拨退库到达单身档
EPSTB (R/W) 出货通知单身
EPSTC (R/W) 包装明细信息档
GMPTH (R/W) 留样单信息档
GMPTI (R/W) 留样检验单头信息档
GMPTL (R/W) 养护检验单头信息档
INVMC (R/W) 品号仓库档
INVML (R/W) 品号仓库库位批号档
INVTB (R/W) 交易单据单身档
INVTC (R/W) 盘点底稿信息档单身
INVTD (R/W) 盘点信息汇总档
INVTG (R/W) 借出入调拨单身档
INVTI (R/W) 借出入归还单身档
INVTK (R/W) 成本开账/调整单身档
INVTM (R/W) 报废单单身档
INVTO (R/W) 销毁单单身档
INVLA (R/W) 交易明细信息档
INVLE (R/W) 品号月档子单身
KBSMM (R/W) 看板序号维护单身档
KBSTF (R/W) 刷读产生生产入库单单身档
KBSTI (R/W) 刷读产生调拨单单身档
KBSTK (R/W) 刷读产生销货单单身档
MOCTE (R/W) 领/退料单身档
MOCTG (R/W) 生产入库单身档
MOCTI (R/W) 委外进货单身档
MOCTL (R/W) 委外退货单身档
PURTH (R/W) 进货单单身信息档
PURTJ (R/W) 退货单单身信息档
QMSTA (R/W) 进货检验单单头档
QMSTD (R/W) 委外进货检验单单头档
QMSTG (R/W) 生产入库检验单单头档
QMSTJ (R/W) 转移检验单单头档
RMATD (R/W) 维修单单身档
SFCTC (R/W) 转移单单身档

屏幕格式:

* 运行本作业将取消库位管理，在进行取消之前，请做好数据的备份工作，防止因误取消而带来工作不便*

信息处理:
0.开启程序时，做判断
IF 启用库位管理(CMS.MA093)<>’Y’ THEN
SHOW MSG E+200483:”共用参数中未启用库位管理，不可运行该作业!”，不开启该程序
ENDIF

按「直接处理」或「后台处理」后SHOW WARNING MSG
MSG CODE:W+200253,”运行本作业将取消库位管理，在进行取消之前，请做好数据的备份工作，防止因误取消而带来工作不便!确定开始取消?”

1.BOM系统
1.1 BOMTD(组合单单头)
UPDATE BOMTD SET TD022=’##########’

1.2 BOMTE(组合单单身)
UPDATE BOMTE SET TE015=’##########’

1.3 BOMTF(拆解单单头)
UPDATE BOMTF SET TF021=’##########’

1.4 BOMTG(拆解单单身)
UPDATE BOMTG SET TG015=’##########’

2.CMS系统
2.1 CMSMA(公用参数档)
UPDATE CMSMA SET MA093=’N’,MA096=’Y’

2.2 CMSNI(仓库库位档)

  DELETE CMSNI     

  关联 仓库信息档(CMSMC) 得到QureyA
  逐笔INSERT
  WHILE NOT QueryA.EOF DO
    INSERT CMSNI
    NI001    仓库编号  =  QueryA.MC001
    NI002    库位编号  =  ‘##########‘
    NI003    库位说明  =  ‘‘
    NI004    有效码    =  QueryA.MC018
    NI005    备注      =  ‘‘
    NI006    传送码    =  ‘N‘
    NI007    传送日期  =  ‘‘

    QueryA.NEXT
  END

3.COP系统
3.1 COPTH(销货单单身信息档)
UPDATE COPTH SET TH056=’##########’

3.2 COPTJ(销退单单身信息档)
UPDATE COPTJ SET TJ057=’##########’

3.3 COPTO(出货通知单身档)
UPDATE COPTO SET TO039=’##########’

4.CUS系统
4.1 CUSTN(交易单据单身档)
UPDATE CUSTN SET TN013=’##########’

5.DHQ系统
5.1 DHQTE(调拨出库单身档)
UPDATE DHQTE SET TE032=’##########’

5.2 DHQTG(调拨出库到达单身档)
UPDATE DHQTG SET TG029=’##########’

5.3 DHQTM(调拨退库到达单身档)
UPDATE DHQTM SET TM024=’##########’

6.EPS系统
6.1 EPSTB(出货通知单身)
UPDATE EPSTB SET TB041=’##########’

6.2 EPSTC(包装明细信息档)
UPDATE EPSTC SET TC037=’##########’

7.GMP系统
7.1 GMPTH(留样单信息档)
UPDATE GMPTH SET TH027=’##########’

7.2 GMPTI(留样检验单头信息档)
UPDATE GMPTI SET TI038=’##########’

7.3 GMPTL(养护检验单头信息档)
UPDATE GMPTL SET TL038=’##########’

8.INV系统
8.1 INVMC(品号仓库档)
UPDATE INVMC SET MC015=’##########’

8.2 INVML(品号仓库库位批号档)

  IF 数量表达方式(CMS.MA024)=‘1‘单单位  OR ‘3‘制造双单位 THEN
     关联:品号仓库库位档.品号+仓库(INV.ML001+ML002) *= 品号仓库档.品号+仓库(INV.MC001+MC002)
          品号仓库库位档.品号+批号(INV.ML001+ML004) *= 品号批号档.品号+批号(INV.ME001+ME002)

     GROUP BY 品号(ML001)+仓库(ML002)+批号(ML004)

     排序:品号(ML001)+仓库(ML002)+批号(ML004)

     Qty     = SUM(INV.ML005)
     QtyPack = SUM(INV.ML006)

  ELSE 
     关联:品号仓库库位档.品号+仓库(INV.ML001+ML002)   *= 品号仓库档.品号+仓库(INV.MC001+MC002)
          品号仓库库位档.品号+批号(INV.ML001+ML004)   *= 品号批号档.品号+批号(INV.ME001+ME002)
          品号仓库库位档.品号(INV.ML001)              *= 品号基本信息档.品号(INV.MB001)
          品号基本信息档.品号+小单位(INV.MB001+MB072) *= 品号换算单位档.品号+换算单位(INV.MD001+MD002)

     GROUP BY 品号(ML001)+仓库(ML002)+批号(ML004)

     排序:品号(ML001)+仓库(ML002)+批号(ML004)

     IF 换算率分子(MD003) is null OR 换算率分子(MD003)=0 OR 换算率分母(MD004)=0
        Qty = SUM(INV.ML005)
     ELSE
        SIGN(INV.ML005)*FLOOR(ABS(INV.ML005)) AS ML005A                    库存数量整数位
        INV.ML005-(SIGN(INV.ML005)*FLOOR(ABS(INV.ML005))) AS ML005B        库存数量小数位
        INVML_库存量 = SUM((ML005A*MD003/MD004)+(ML005B*1000))             加总换算成小单位数量
        INVML_库存量/MD003*MD004 ，取整数 AS ML005_A，取余数 AS ML005_B    换算成大单位数量
        Qty = ML005_A+(ML005_B/1000,取小数三位)
     ENDIF

     QtyPack = 0
  ENDIF

  得到 QueryA

  关联 QueryA.品号+仓库+批号(ML001+ML002+ML004) *= 品号仓库库位档.品号+仓库+批号(INV.ML001+ML002+ML004)
  ORDER BY 品号(ML001)+仓库(ML002)+批号(ML004)
  GET MAX(ML008) AS ML008A, MAX(ML009) AS ML009A, MAX(ML010) AS ML010A

  得到 QueryB

  DELETE INVML

  逐笔 INSERT 品号仓库库位批号档(INVML)
  ML001    品号          =   QueryB.ML001
  ML002    仓库          =   QueryB.ML002
  ML003    库位          =   ‘##########‘
  ML004    批号          =   QueryB.ML004
  ML005    库存数量      =   QueryB.Qty
  ML006    库存包装数量  =   QueryB.QtyPack
  ML007    预留字段      =
  ML008    上次盘点日    =   QueryB.ML008A 
  ML009    最近入库日    =   QueryB.ML009A 
  ML010    最近出库日    =   QueryB.ML010A 
  ML011    备注          =

8.3 INVTB(交易单据单身档)
UPDATE INVTB SET TB029=’##########’
UPDATE INVTB SET TB030=’##########’ WHERE TB013<>”

8.4 INVTC(盘点底稿信息档单身)
UPDATE INVTC SET TC014=’##########’

8.5 INVTD(盘点信息汇总档)
UPDATE INVTD SET TD017=’##########’

8.6 INVTG(借出入调拨单身档)
UPDATE INVTG SET TG033=’##########’,TG034=’##########’

8.7 INVTI(借出入归还单身档)
UPDATE INVTI SET TI026=’##########’,TI027=’##########’

8.8 INVTK(成本开账/调整单身档)
UPDATE INVTK SET TK026=’##########’

8.9 INVTM(报废单单身档)
UPDATE INVTM SET TM026=’##########’ WHERE TM014<>”
UPDATE INVTM SET TM027=’##########’

8.10 INVTO(销毁单单身档)
UPDATE INVTO SET TO016=’##########’

8.11 INVLA(交易明细信息档)
UPDATE INVLA SET LA023=’##########’

8.12 INVLE(品号月档子单身)
IF 数量表达方式(CMS.MA024)=’1’单单位 OR ‘3’制造双单位 THEN

     关联:品号月档子单身.品号+库存年月+仓库+批号(INV.LE001+LE002+LE003+LE005)

     条件:库存年月(LE002)<=库存现行年月(CMS.MA011)

     GROUP BY 品号(LE001)+库存年月(LE002)+仓库(LE003)+批号(LE005)
     ORDER BY 品号(LE001)+库存年月(LE002)+仓库(LE003)+批号(LE005)

     Q006 = SUM(INV.LE006)
     Q008 = SUM(INV.LE008)
     Q010 = SUM(INV.LE010)
     Q012 = SUM(INV.LE012)
     Q014 = SUM(INV.LE014)
     Q016 = SUM(INV.LE016)
     Q018 = SUM(INV.LE018)
     Q020 = SUM(INV.LE020)
     Q022 = SUM(INV.LE022)
     Q024 = SUM(INV.LE024)
     Q026 = SUM(INV.LE026)

     Q032 = SUM(INV.LE032)
     Q033 = SUM(INV.LE033)
     Q034 = SUM(INV.LE034)
     Q035 = SUM(INV.LE035)
     Q036 = SUM(INV.LE036)
     Q037 = SUM(INV.LE037)
     Q038 = SUM(INV.LE038)
     Q039 = SUM(INV.LE039)
     Q040 = SUM(INV.LE040)
     Q041 = SUM(INV.LE041)
     Q042 = SUM(INV.LE042)

  ELSE 
     关联:品号月档子单身.品号(INV.LE001)              *= 品号基本信息档.品号(INV.MB001)
          品号基本信息档.品号+小单位(INV.MB001+MB072) *= 品号换算单位档.品号+换算单位(INV.MD001+MD002)

     条件:库存年月(LE002)<=库存现行年月(CMS.MA011)

     GROUP BY 品号(LE001)+库存年月(LE002)+仓库(LE003)+批号(LE005)
     ORDER BY 品号(LE001)+库存年月(LE002)+仓库(LE003)+批号(LE005)

     IF 换算率分子(MD003) is null OR 换算率分子(MD003)=0 OR 换算率分母(MD004)=0
        Q006 = SUM(INV.LE006)
        Q008 = SUM(INV.LE008)
        Q010 = SUM(INV.LE010)
        Q012 = SUM(INV.LE012)
        Q014 = SUM(INV.LE014)
        Q016 = SUM(INV.LE016)
        Q018 = SUM(INV.LE018)
        Q020 = SUM(INV.LE020)
        Q022 = SUM(INV.LE022)
        Q024 = SUM(INV.LE024)
        Q026 = SUM(INV.LE026)           
     ELSE
        SIGN(INV.LE006)*FLOOR(ABS(INV.LE006)) AS LE006A                    库存数量整数位
        INV.LE006-(SIGN(INV.LE006)*FLOOR(ABS(INV.LE006))) AS LE006B        库存数量小数位
        INVLE_LE006 = SUM((LE006A*MD003/MD004)+(LE006B*1000))              加总换算成小单位数量
        INVLE_LE006/MD003*MD004 ，取整数 AS LE006_A，取余数 AS LE006_B     换算成大单位数量
        Q006 = LE006_A+(LE006_B/1000,取小数三位)

        Q008 ,Q010 ,Q012 ,Q014 ,Q016 ,Q018 ,Q020 ,Q022 ,Q024 ,Q026分别对应于
        LE008,LE010,LE012,LE014,LE016,LE018,LE020,LE022,LE024,LE026同上处理
     ENDIF

        Q032 = 0
        Q033 = 0
        Q034 = 0
        Q035 = 0
        Q036 = 0
        Q037 = 0
        Q038 = 0
        Q039 = 0
        Q040 = 0
        Q041 = 0
        Q042 = 0       
  ENDIF

  得到 QueryA

  DELETE INVLE 

  WHILE NOT QueryA.EOF DO
    LE001    品号                  =   QueryA.LE001
    LE002    库存年月              =   QueryA.LE002
    LE003    仓库                  =   QueryA.LE003
    LE004    库位                  =   ‘##########‘
    LE005    批号                  =   QueryA.LE005
    LE006    月初数量              =   QueryA.Q006
    LE007    预留字段              =    
    LE008    本月入库数量          =   QueryA.Q008
    LE009    预留字段              =    
    LE010    本月销货数量          =   QueryA.Q010
    LE011    预留字段              =    
    LE012    本月领料数量          =   QueryA.Q012
    LE013    预留字段              =    
    LE014    本月调拨(入)数量      =   QueryA.Q014
    LE015    预留字段              =    
    LE016    本月调整(入)数量      =   QueryA.Q016
    LE017    预留字段              =    
    LE018    本月出库数量          =   QueryA.Q018
    LE019    预留字段              =    
    LE020    本月销退数量          =   QueryA.Q020
    LE021    预留字段              =    
    LE022    本月退料数量          =   QueryA.Q022
    LE023    预留字段              =    
    LE024    本月调拨(出)数量      =   QueryA.Q024
    LE025    预留字段              =    
    LE026    本月调整(出)数量      =   QueryA.Q026
    LE027    预留字段              =   
    LE028    预留字段              =   
    LE029    预留字段              =   
    LE030    预留字段              =   
    LE031    预留字段              =   
    LE032    月初包装数量          =   QueryA.Q032
    LE033    本月入库包装数量      =   QueryA.Q033
    LE034    本月销货包装数量      =   QueryA.Q034
    LE035    本月领料包装数量      =   QueryA.Q035
    LE036    本月调拨(入)包装数量  =   QueryA.Q036
    LE037    本月调整(入)包装数量  =   QueryA.Q037
    LE038    本月出库包装数量      =   QueryA.Q038
    LE039    本月销退包装数量      =   QueryA.Q039
    LE040    本月退料包装数量      =   QueryA.Q040
    LE041    本月调拨(出)包装数量  =   QueryA.Q041
    LE042    本月调整(出)包装数量  =   QueryA.Q042     
    LE043    预留字段              =
    LE044    预留字段              =
    LE045    预留字段              =
    LE046    预留字段              =
    LE047    预留字段              =
    LE048    预留字段              =  

    QueryA.NEXT  
  ENDDO 

9.KBS系统
9.1 KBSMM(看板序号维护单身档)
UPDATE KBSMM SET MM014=’##########’

9.2 KBSTF(刷读产生生产入库单单身档)
UPDATE KBSTF SET TF014=’##########’

9.3 KBSTI(刷读产生调拨单单身档)
UPDATE KBSTI SET TI015=’##########’,TI019=’##########’

9.4 KBSTK(刷读产生销货单单身档)
UPDATE KBSTK SET TK015=’##########’

10.MOC系统
10.1 MOCTE(领/退料单身档)
UPDATE MOCTE SET TE025=’##########’

10.2 MOCTG(生产入库单身档)
UPDATE MOCTG SET TG036=’##########’

10.3 MOCTI(委外进货单身档)
UPDATE MOCTI SET TI060=’##########’

10.4 MOCTL(委外退货单身档)
UPDATE MOCTL SET TL040=’##########’

11.PUR系统
11.1 PURTH(进货单单身信息档)
UPDATE PURTH SET TH072=’##########’

11.2 PURTJ(退货单单身信息档)
UPDATE PURTJ SET TJ046=’##########’

12.QMS系统
12.1 QMSTA(进货检验单单头档)
UPDATE QMSTA SET TA037=’##########’ WHERE TA036<>”

12.2 QMSTD(委外进货检验单单头档)
UPDATE QMSTD SET TD037=’##########’ WHERE TD036<>”

12.3 QMSTG(生产入库检验单单头档)
UPDATE QMSTG SET TG037=’##########’ WHERE TG036<>”

12.4 QMSTJ(转移检验单单头档)
UPDATE QMSTJ SET TJ037=’##########’ WHERE TJ036<>”

13.RMA系统
13.1 RMATD(维修单单身档)
UPDATE RMATD SET TD019=’##########’

14.SFC系统
14.1 SFCTC(转移单单身档)
UPDATE SFCTC SET TC056=’##########’