ServiceMesToJh/WebRoot/WEB-INF/query/UIB010180-query.xml

<?xml version="1.0" encoding='UTF-8'?>
<queryMap desc="生产规范实绩值获得及判定">
  
	<query id="UIB010180_01.INITSELECT" desc="">
		SELECT T.SM_CD VALUE , T.SM_CFNM LABEL FROM TBZ00_COMMCD T WHERE T.LG_CD = 'E01002'
	</query>
     <query id="UIB010180_01.SELECT" desc="获得有对应规范标准的钢卷" fetchSize="10">  
        <![CDATA[
		 SELECT A.COIL_NO,
       A.SLAB_NO,
       B.SM_CSNM CUR_PROG_CD,
       A.CUR_LOAD_LOC,
       A.STL_GRD SPEC_STL_GRD,
       A.COIL_THK,
       A.COIL_WTH,
       A.COIL_LEN,
       A.ACT_WGT,
       C.C_SPEC_STL_GRD,
       C.C_ORD_THK,
       C.C_ORD_WTH,
       C.C_ORD_LEN,
       C.C_PRODNM_CD PRODNM_CD,
       C.C_EXTSHAPE_REQ,
       F.SM_CFNM PACK_METHOD,
       C.ORD_NO,
       C.ORD_SEQ,
       C.ORD_UNIT_WGT_MIN,
       C.ORD_UNIT_WGT_MAX,
       C.DEL_TO_DATE,
       DECODE(C.ORD_PROG_CD, 'G', 0, C.ORD_REM_WGT) ORD_REM_WGT,
       C.ORD_WGT,
       D.CUST_NM ORDCUST_CD,
       E.SM_CFNM DEST_CD,
       ROUND(SYSDATE - TO_DATE(A.RECEIVE_TIME, 'YYYY-MM-DD HH24:MI:SS'), 1) COLDTIME,
       'FALSE' FLAG,
       C.PROD_LINE,
       C_PKG_UIF.F_FUN_GET_FACEBUG(CRK_CD1,
                                   CRK_CD2,
                                   CRK_CD3,
                                   CRK_CD4,
                                   CRK_CD5) BUG,
       DECODE(C.EDGE_PROC_YN, 'Y', '√', NULL) EDGE_PROC_YN,
       H.C_ORD_INDIA,
       DECODE((SELECT COUNT(COIL_NO)
                FROM C_TBK02_COIL_COMM_D
               WHERE COIL_NO = A.COIL_NO),
              '0',
              '',
              '1',
              '',
              '2','2','3','3','大于三') CUT,
       C.MK_CONTENT,
       a.LZREMARK,
        XB_PACKAGE.GF_COMNNAME_FIND('A01004', C.PRD_TY) CPLX,
        (SELECT T1.SPM_RMK FROM TBH02_COIL_COMM T1 WHERE T1.OLD_SAMPL_NO=A.OLD_SAMPL_NO AND ROWNUM=1) RZBZ,
        (SELECT T1.SLAB_DCS_DETAIL FROM TBG02_SLAB_COMM T1 WHERE T1.SLAB_NO=A.SLAB_NO AND ROWNUM=1) BPBZ
  FROM C_TBK02_COIL_COMM A,
       TBE02_ORD_PRC     C,
       TBZ00_COMMCD      B,
       TBZ00_CUSTOMER    D,
       TBZ00_COMMCD      E,
       TBZ00_COMMCD      F,
       TBA01_ORD_LINE    H
       
 WHERE A.ORD_NO = C.ORD_NO
   AND A.ORD_SEQ = C.ORD_SEQ
   AND A.ORD_NO = H.ORD_NO
   AND A.ORD_SEQ = H.ORD_SEQ
   AND A.CUR_PROG_CD = B.SM_CD
   AND C.ORDCUST_CD = D.CUST_CD
   AND C.DEST_CD = E.SM_CD(+)
   AND F.LG_CD = 'A01010'
   AND C.PACK_METHOD = F.SM_CD(+)
   AND A.COIL_STAT = '2'
   AND A.ORD_FL = '1'
   AND A.FL = '0'
   AND A.FB_YN='N'--20220314封闭卷不允许
   AND A.CUR_LOAD_LOC LIKE '1%'
   AND C.PROD_LINE IN ('C', 'P') 
        ]]>   
    </query>
	
	<query id="UIB010180_02.SELECT" desc="通过钢卷号获取对应的规范标准信息及实绩值">
	 	  SELECT C.OLD_SAMPL_NO, --钢卷号
       AA.DSN_KIND,
       AA.PROD_CD,
       AA.PROD_CD_CFNM,
       AA.PROD_TYPE,
       AA.DCS_SYM,
       AA.PROD_VAL,
       AA.PROD_VAL_EXP1,
       AA.PROD_VAL_EXP2,
       AA.PROD_VAL_EXP3,
       AA.MEMO
  FROM (SELECT  ORD.ORD_NO ORD_NO,
               ORD.ORD_SEQ ORD_SEQ,
               ORD.DSN_KIND DSN_KIND,
               ORD.PROD_CD PROD_CD,
               SP.PROD_CD_CFNM PROD_CD_CFNM,
               SP.DISPLAY_SEQ,
               SUBSTR(ORD.PROD_CD, 1, 4) PROD_CD_4,
               ORD.PROD_TYPE PROD_TYPE,
               ORD.DCS_SYM DCS_SYM,
               ORD.PROD_VAL PROD_VAL,
               ORD.PROD_VAL_EXP1 PROD_VAL_EXP1,
               ORD.PROD_VAL_EXP2 PROD_VAL_EXP2,
               ORD.PROD_VAL_EXP3 PROD_VAL_EXP3,
               ORD.MEMO MEMO
          FROM TBA01_ORD_LINE LIN,
               TBB01_ORD_TECH ORD,
               TBB01_ORD_HEAD OHD,
               TBB01_SEQ_PROD SP
         WHERE LIN.ORD_NO = ORD.ORD_NO
           AND LIN.ORD_SEQ = ORD.ORD_SEQ
           AND ORD.ORD_NO = OHD.ORD_NO
           AND ORD.ORD_SEQ = OHD.ORD_SEQ
           AND ORD.PROD_CD = SP.PROD_CD
           AND ORD.DSN_KIND = '2') AA,
           C_TBK02_COIL_COMM C
 WHERE AA.ORD_NO = C.ORD_NO
 AND AA.ORD_SEQ = C.ORD_SEQ
 AND C.OLD_SAMPL_NO = 
	</query>
	
	<query id="UIB010180_03.SELECT" desc="判断某钢卷项目是否存在">
			SELECT  *   FROM    TBB02_DCS_TECH     T 
						WHERE      T.COIL_NO   =   ? 
						AND        T.PROD_CD   =   ? 
	</query>
	
	<query id="UIB010180_01.INSERT" fetchSize="" desc="生产规范判定结果录入">
		INSERT   INTO   TBB02_DCS_TECH(  
    	                COIL_NO,
		                PROD_CD,
						PROD_DCS_RST,
						PROD_DCS_TP,
						PROD_DCS_DTIME,
						REG_ID,
						REG_DTIME  
		) VALUES(?,?,?,?,TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS'),?,TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS'))
	</query>
	<query id="UIB010180_01.UPDATE" fetchSize="" desc="生产规范判定结果修改">
		 UPDATE         TBB02_DCS_TECH SET 
		               	PROD_DCS_RST    = ?  --判定结果
		               ,PROD_DCS_TP     = ?  --判定类型
		               ,PROD_DCS_DTIME  = TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS')  --判定时间
					   ,REG_ID          = ?  --修改人
					   ,MOD_DTIME       =    TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS')  --修改日期
		 WHERE          COIL_NO         = ?  --钢卷号
		 AND            PROD_CD         = ?  --规范代码
	</query>
	
	<query id="UIB010180_01.CALLSTATEMENT" desc="成分判定">
		{call ZL_HOST_DCS01.NIB028010(?,?,?,?,?,?,?)}
	</query>
	
	<query id="UIB010180_06.UPDATE" desc="更新ASK_TP">
	<![CDATA[
		UPDATE       TBG02_SLAB_COMM 	T
		SET          T.ASK_TP='0'
		WHERE        T.SLAB_NO=? AND (T.ASK_TP IS NULL OR T.ASK_TP!='1') AND T.SLAB_STAT='2'
	]]>
	</query>
</queryMap>