XinYu_LZMES/WebRoot/WEB-INF/query/M/M02/UIM020060-query.xml

<?xml version="1.0" encoding="UTF-8"?>
<queryMap desc="包装作业管理">
	<query id="UIM020060_01.SELECT"  desc="查询待包装钢卷">
		<![CDATA[
SELECT         'FALSE'            CHK
               ,A.ORG_ORD_NO
               ,A.ORG_ORD_SEQ
               ,A.PRINT_TP
               ,A.OLD_SAMPL_NO --PACKAGE_LEVEL
               ,A.SPEC_STL_GRD
               ,nvl(c.DDC_STL_GRD,a.SPEC_STL_GRD) DDC_STL_GRD
               ,A.COIL_THK
               ,A.COIL_WTH
               ,C.MK_COIL ORD_SB
               ,A.INSTR_COIL_THK
               ,A.INSTR_COIL_WTH
               ,A.ACT_WGT
               ,DECODE(A.ORD_FL, '1', '订单材', '2', '余材', '', '未判') ORD_FL
               ,A.ORD_NO
               ,A.ORD_SEQ
               ,A.CUR_LOAD_LOC
               ,A.DLIV_DIRNO
               ,DECODE(A.TOT_DEC_GRD, '1','合格','2', '不合格', '3','次品','4','废品')    TOT_DEC_GRD
               ,DECODE(A.INGR_DEC_GRD,'0','综合判定取消','1','合格','2','不合格')         INGR_DEC_GRD
               ,DECODE(A.MATLQLTY_DEC_GRD,'0','无性能要求','1','合格','2','不合格')       MATRL_END_CAUSE_CD
               ,DECODE(A.SIZE_DEC_RST, '1', '合格', '2', '不合格')                        SIZE_DEC_RST
               ,DECODE(A.EXTSHAPE_DEC_GRD,'1','合格','2','订单外合格','3','次品','4','废品','待判') EXTSHAPE_DEC_GRD
               ,DECODE(A.WGT_DEC_RST, '1', '合格', '2', '不合格')                         WGT_DEC_RST
               ,C_PKG_UIM.GET_STDDATESTR(A.YARD_ENTRY_DTIME)                              YARD_ENTRY_DTIME
               ,C_PKG_UIM.GET_STDTIMESTR(A.YARD_ENTRY_USE_TIME)                           YARD_ENTRY_USE_TIME
               ,(SELECT USERNAME FROM CORE_APP_USER U  WHERE U.USERID = A.YARD_ENTRY_REG) YARD_ENTRY_REG
               ,DECODE(A.YARD_ENTRY_SHIFT, '0', '常白班','1','早班','2','中班','3','晚班') YARD_ENTRY_SHIFT
               ,DECODE(A.YARD_ENTRY_GROUP,'1','甲班','2','乙班','3','丙班','4','丁班')     YARD_ENTRY_GROUP
               ,SUBSTR(B.SLAB_NO, 0, 10) CHARGE_NO
               ,(SELECT T.SM_CFNM FROM TBZ00_COMMCD T    WHERE T.LG_CD = 'A01012'  AND T.SM_CD = C.DLIV_TP) DLIV_TP
               ,(SELECT T.CUST_NM FROM TBZ00_CUSTOMER T  WHERE T.CUST_CD = D.ORDCUST_CD) ORDCUST_CD
       
               /*decode(A.CUR_PROG_CD,'DRC','充当待机','DBA','重卷指示待机','DBB','重卷作业待机'
              ,'DCA','包装指示待机','DCB','包装作业待机','DED','综合判定待机','DFA','发货指示待机'
              ,'DFB','发货待机','CCA','连退作业指示待机','CCB','连退作业待机','CCC','连退卷取待机'
                 )*/
                 
               ,(CASE WHEN  XB_PACKAGE.GF_COMNNAME_FIND('E01002', A.CUR_PROG_CD) = '连退成品充当待机' 
                      AND   A.DEFECTIVE   = 'Y'     THEN   '二级库存'
                      ELSE  XB_PACKAGE.GF_COMNNAME_FIND('E01002', A.CUR_PROG_CD)
                END)  CUR_PROG_CD
                
               ,C_PKG_UIM.GET_STDDATESTR(C.ORD_DEVLMT_DATE) ORD_DEVLMT_DATE
               ,C_PKG_UIM.GET_STDTIMESTR(A.MILL_DTIME) MILL_DTIME
               ,C.XSQY
               ,NVL(C.BUY_ABBSYM,A.SPEC_ABBSYM) SPEC_ABBSYM
                --,''||'/'||'' AFFIRMTIME
               ,C_PKG_UIM.GET_STDDATESTR(C.ORD_PLAN_DATA) ORD_PLAN_DATA
               ,PKG_QUALITY_COMM.PK00_COMM('A01010' ,C.PAKMTH_TP ) PAKMTH_TP
               ,(SELECT C.SM_CFNM FROM TBZ00_COMMCD C WHERE C.LG_CD = 'A01010' AND SM_CD = A.PACKAGE_LEVEL) PACKAGE_LEVEL
               --,TO_CHAR(C_PKG_UIM.GET_REAL_ORDTHICK(A.OLD_SAMPL_NO, '3') ,'FM990.099') || '*' || C_PKG_UIM.GET_REAL_ORDWIDTH(A.OLD_SAMPL_NO, '3') PRINT_SIZE
               ,(SELECT  TO_CHAR(T.C_ORD_THK,'FM990.099')||'*'||T.C_ORD_WTH   FROM TBE02_ORD_PRC T  WHERE T.ORD_NO = A.ORD_NO AND T.ORD_SEQ = A.ORD_SEQ )  PRINT_SIZE
               ,A.LINE_TP
FROM            C_TBC02_COIL_COMM                    A
               ,TBG02_SLAB_COMM                      B
               ,TBA01_ORD_LINE                       C
               ,TBA01_ORD_COMM                       D
               ,TBB02_LOT_COM                        E
WHERE           A.SLAB_NO                            =            B.SLAB_NO(+)
AND             A.ORD_NO                             =            C.ORD_NO(+)
AND             A.ORD_SEQ                            =            C.ORD_SEQ(+)
AND             A.ORD_NO                             =            D.ORD_NO(+)
AND             A.SMP_NO                             =            E.SMP_NO(+)
AND             A.COIL_STAT                          =            '2'
AND            (A.CUR_PROG_CD = 'DCB' OR (A.CUR_PROG_CD IN ('DED', 'DRC','DBA','DBB') AND NVL(A.PACKAGE_FL , 0)  <> 1))--20170324新增重卷作业进程
AND             A.ORD_NO || '&'                       LIKE         ? || '%'
AND             A.ORD_SEQ || '&'                      LIKE         ? || '%'
AND             A.OLD_SAMPL_NO || '&'                 LIKE         ? || '%'
AND             A.DLIV_DIRNO || '&'                   LIKE         ? || '%'
and 			SUBSTR(A.MILL_DTIME,1,8) BETWEEN nvl(?,SUBSTR(A.MILL_DTIME,1,8)) AND nvl(?,SUBSTR(A.MILL_DTIME,1,8))
AND				((CASE WHEN A.CUR_PROG_CD = 'DRC' AND A.DEFECTIVE = 'Y' THEN 'DDD' ELSE
        A.CUR_PROG_CD END) LIKE ? || '%')
		 ]]>
	</query>
	<query id="UIM020060_02.SELECT"  desc="查询已包装钢卷">
		<![CDATA[
SELECT         'FALSE'            CHK
               ,A.ORG_ORD_NO
               ,A.ORG_ORD_SEQ
               ,A.PRINT_TP
               ,A.OLD_SAMPL_NO --PACKAGE_LEVEL
               ,A.SPEC_STL_GRD
               ,nvl(c.DDC_STL_GRD,a.SPEC_STL_GRD) DDC_STL_GRD
               ,A.COIL_THK
               ,A.COIL_WTH
               ,C.MK_COIL ORD_SB
               ,A.INSTR_COIL_THK
               ,A.INSTR_COIL_WTH
               ,A.ACT_WGT
               ,DECODE(A.ORD_FL, '1', '订单材', '2', '余材', '', '未判') ORD_FL
               ,A.ORD_NO
               ,A.ORD_SEQ
               ,A.CUR_LOAD_LOC
               ,A.DLIV_DIRNO
               ,DECODE(A.TOT_DEC_GRD, '1','合格','2', '不合格', '3','次品','4','废品')    TOT_DEC_GRD
               ,DECODE(A.INGR_DEC_GRD,'0','综合判定取消','1','合格','2','不合格')         INGR_DEC_GRD
               ,DECODE(A.MATLQLTY_DEC_GRD,'0','无性能要求','1','合格','2','不合格')       MATRL_END_CAUSE_CD
               ,DECODE(A.SIZE_DEC_RST, '1', '合格', '2', '不合格')                        SIZE_DEC_RST
               ,DECODE(A.EXTSHAPE_DEC_GRD,'1','合格','2','订单外合格','3','次品','4','废品','待判') EXTSHAPE_DEC_GRD
               ,DECODE(A.WGT_DEC_RST, '1', '合格', '2', '不合格')                         WGT_DEC_RST
               ,C_PKG_UIM.GET_STDDATESTR(A.YARD_ENTRY_DTIME)                              YARD_ENTRY_DTIME
               ,C_PKG_UIM.GET_STDTIMESTR(A.YARD_ENTRY_USE_TIME)                           YARD_ENTRY_USE_TIME
               ,(SELECT USERNAME FROM CORE_APP_USER U  WHERE U.USERID = A.YARD_ENTRY_REG) YARD_ENTRY_REG
               ,DECODE(A.YARD_ENTRY_SHIFT, '0', '常白班','1','早班','2','中班','3','晚班') YARD_ENTRY_SHIFT
               ,DECODE(A.YARD_ENTRY_GROUP,'1','甲班','2','乙班','3','丙班','4','丁班')     YARD_ENTRY_GROUP
               ,SUBSTR(B.SLAB_NO, 0, 10) CHARGE_NO
               ,(SELECT T.SM_CFNM FROM TBZ00_COMMCD T    WHERE T.LG_CD = 'A01012'  AND T.SM_CD = C.DLIV_TP) DLIV_TP
               ,(SELECT T.CUST_NM FROM TBZ00_CUSTOMER T  WHERE T.CUST_CD = D.ORDCUST_CD) ORDCUST_CD
               
               /*decode(A.CUR_PROG_CD,'DRC','充当待机','DBA','重卷指示待机','DBB','重卷作业待机'
              ,'DCA','包装指示待机','DCB','包装作业待机','DED','综合判定待机','DFA','发货指示待机'
              ,'DFB','发货待机','CCA','连退作业指示待机','CCB','连退作业待机','CCC','连退卷取待机'
                )*/
                   
               ,(CASE WHEN  XB_PACKAGE.GF_COMNNAME_FIND('E01002', A.CUR_PROG_CD) = '连退成品充当待机' 
                      AND   A.DEFECTIVE    =   'Y'   THEN   '二级库存'
                      ELSE  XB_PACKAGE.GF_COMNNAME_FIND('E01002', A.CUR_PROG_CD)
                END) CUR_PROG_CD
                
               ,C_PKG_UIM.GET_STDDATESTR(C.ORD_DEVLMT_DATE) ORD_DEVLMT_DATE
               ,C_PKG_UIM.GET_STDTIMESTR(A.MILL_DTIME) MILL_DTIME
               ,C.XSQY
               ,NVL(C.BUY_ABBSYM,A.SPEC_ABBSYM) SPEC_ABBSYM
               --,''||'/'||'' AFFIRMTIME
               ,C_PKG_UIM.GET_STDDATESTR(C.ORD_PLAN_DATA) ORD_PLAN_DATA
               ,PKG_QUALITY_COMM.PK00_COMM('A01010' ,C.PAKMTH_TP ) PAKMTH_TP
               ,(SELECT C.SM_CFNM FROM TBZ00_COMMCD C WHERE C.LG_CD = 'A01010' AND SM_CD = A.PACKAGE_LEVEL) PACKAGE_LEVEL
               --,TO_CHAR(C_PKG_UIM.GET_REAL_ORDTHICK(A.OLD_SAMPL_NO, '3') ,'FM990.099') || '*' || C_PKG_UIM.GET_REAL_ORDWIDTH(A.OLD_SAMPL_NO, '3') PRINT_SIZE
               ,(SELECT  TO_CHAR(T.C_ORD_THK,'FM990.099')||'*'||T.C_ORD_WTH   FROM TBE02_ORD_PRC T  WHERE T.ORD_NO = A.ORD_NO AND T.ORD_SEQ = A.ORD_SEQ )  PRINT_SIZE
               ,A.LINE_TP
FROM            C_TBC02_COIL_COMM                    A
               ,TBG02_SLAB_COMM                      B
               ,TBA01_ORD_LINE                       C
               ,TBA01_ORD_COMM                       D
               ,TBB02_LOT_COM                        E
WHERE           A.SLAB_NO                            =            B.SLAB_NO(+)
AND             A.ORD_NO                             =            C.ORD_NO(+)
AND             A.ORD_SEQ                            =            C.ORD_SEQ(+)
AND             A.ORD_NO                             =            D.ORD_NO(+)
AND             A.SMP_NO                             =            E.SMP_NO(+)
AND             A.COIL_STAT                          =            '2'
AND             A.CUR_PROG_CD                        <>           'DCB'
AND             A.PACKAGE_FL                         =            1
AND             A.ORD_NO || '&'                      LIKE         ? || '%'
AND             A.ORD_SEQ || '&'                     LIKE         ? || '%'
AND             A.OLD_SAMPL_NO || '&'                LIKE         ? || '%'
AND             A.DLIV_DIRNO || '&'                  LIKE         ? || '%'
and 			SUBSTR(A.MILL_DTIME,1,8) BETWEEN nvl(?,SUBSTR(A.MILL_DTIME,1,8)) AND nvl(?,SUBSTR(A.MILL_DTIME,1,8))
AND				((CASE WHEN A.CUR_PROG_CD = 'DRC' AND A.DEFECTIVE = 'Y' THEN 'DDD' ELSE
        A.CUR_PROG_CD END) LIKE ? || '%')
		 ]]>
	</query>
	
	<query id="UIM020060_03.SELECT"  desc="查询包装钢卷卷数和重量">
		<![CDATA[
		select count(1) packageCount,sum(t.ACT_WGT) packageAct_Wgt from C_TBC02_COIL_COMM t where t.PACKAGE_DTIME like ? ||'%' and t.PACKAGE_FL = '1'
		]]>
	</query>
	
	<query id="UIM020060_11.SELECT"  desc="查询包装方法">
		<![CDATA[
		select '0' SM_CD,'撤销' SM_CFNM from  dual
    	UNION ALL
		select c.SM_CD,c.SM_CFNM from tbz00_commcd c where c.LG_CD = 'A01010'
		]]>
	</query>
	<query id="UIM020060_01.UPDATE"  desc="包装作业">
		<![CDATA[
    UPDATE C_TBC02_COIL_COMM    L 
      SET L.CUR_PROG_CD         =    CASE  WHEN L.TOT_DEC_GRD IS NULL  AND L.ORD_NO IS NOT NULL  THEN 'DED' 
                                           WHEN L.ORD_NO IS NULL  THEN 'DRC'
                                           WHEN L.ORD_NO IS NOT NULL AND L.CUR_PROG_CD =  'DCB'   THEN 'DFA' 
                                           ELSE L.CUR_PROG_CD  END
      ,L.CUR_PROG_CD_PGM        =    'UIM020060'
      ,L.CUR_PROG_CD_DTIME      =     TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS')      
      ,L.PACKAGE_FL             =     '1'
      ,L.PACKAGE_LEVEL          =     ?
      ,L.PACKAGE_SHIFT          =     ?
      ,L.PACKAGE_GROUP          =     ?
      ,L.PACKAGE_REG            =     ?
      ,L.PACKAGE_DTIME          =     TO_CHAR(SYSDATE,'YYYYMMDD')
      ,L.PACKAGE_USE_TIME       =     TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS')
      WHERE L.OLD_SAMPL_NO      =     ?
      AND   L.COIL_STAT         =     '2'
      AND   L.SHIP_PROG_CD      IS NULL
		]]>
	</query>
	<query id="UIM020060_04.UPDATE"  desc="修改包装作业">
		<![CDATA[
		UPDATE C_TBC02_COIL_COMM L 
		  SET L.PACKAGE_LEVEL = ?
		  ,L.PACKAGE_FL = '0'
		  ,L.CUR_PROG_CD = CASE WHEN L.TOT_DEC_GRD IS NULL AND L.ORD_FL ='1'  THEN 'DED'
                                WHEN L.ORD_FL = '2'  THEN 'DRC'
                                ELSE 'DCB'  END
		  ,L.CUR_PROG_CD_PGM = 'UIM020060'
		  ,L.CUR_PROG_CD_DTIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS')
		  ,L.PACKAGE_SHIFT = ?
		  ,L.PACKAGE_GROUP = ?
		  ,L.PACKAGE_REG = ?
		  ,L.PACKAGE_DTIME = TO_CHAR(SYSDATE,'YYYYMMDD')
		  ,L.PACKAGE_USE_TIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS')
		  WHERE L.OLD_SAMPL_NO = ?
		  AND   L.COIL_STAT = '2'
		  AND   L.SHIP_PROG_CD  IS NULL
		]]>
	</query>
	<query id="UIM020060_02.UPDATE"  desc="撤销包装作业">
		<![CDATA[
		UPDATE C_TBC02_COIL_COMM L 
		  SET L.PACKAGE_LEVEL = ?
		  ,L.PACKAGE_SHIFT = ?
		  ,L.PACKAGE_GROUP = ?
		  ,L.PACKAGE_REG = ?
		  ,L.PACKAGE_DTIME = TO_CHAR(SYSDATE,'YYYYMMDD')
		  ,L.PACKAGE_USE_TIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS')
		  WHERE L.OLD_SAMPL_NO = ?
		  AND   L.COIL_STAT = '2'
		  AND   L.SHIP_PROG_CD  IS NULL
		]]>
	</query>
	<query id="UIM020060_03.UPDATE"  desc="修改包装计划状态">
		<![CDATA[
		UPDATE L_TBF03_SPEC_PACK L 
		   SET L.STATUS_CD = 'D'
		 WHERE L.C_COIL_NO = ?
		   AND L.PKG_NO = (SELECT MAX(PKG_NO) FROM L_TBF03_SPEC_PACK 
		                   WHERE C_COIL_NO = ?)
		]]>
	</query>
</queryMap>