XinYu_LZMES/WebRoot/WEB-INF/query/B03/UIB030240-query.xml

<?xml version="1.0" encoding='UTF-8'?>

<queryMap desc="改判申请">

<query id="UIB030230_01.SELECT"  desc="查询可进行改判的钢卷（只查材质不合格的）">
	SELECT      T.OLD_SAMPL_NO    COIL_NO
	           ,T.PRODNM_CD
	           ,T.SPEC_STL_GRD
	           ,T.SPEC_ABBSYM
	           ,T.COIL_THK
	           ,T.DCS_THK
	           ,T.SMP_NO
	           ,T.SMP_CUT_LOC
	           ,T.EXTSHAPE_QUALITY
	           ,T.MATLQLTY_DEC_GRD 
	           ,T.ORD_USE_CD
	           ,ZL_NORM_COMM.FZ00_COMM('A01007' , T.ORD_USE_CD)  ORD_USE_NM
	FROM        C_TBC02_COIL_COMM         T 
	WHERE       T.ORD_FL                  =     '2'  
	AND         T.COIL_STAT               =     '2'  
	AND 		T.OLD_SAMPL_NO			 LIKE   ?||'%'
	AND         T.MATLQLTY_DEC_GRD        =     '2'
	AND	        T.SMP_STATS      IS  NULL 
</query>
<query id="UIB030240_YC.SELECT"  desc="查询可进行改判的钢卷（余材充当改判查询）">
	SELECT      T.OLD_SAMPL_NO    COIL_NO
	           ,T.PRODNM_CD
	           ,T.SPEC_STL_GRD
	           ,T.SPEC_ABBSYM
	           ,T.COIL_THK
	           ,T.DCS_THK
	           ,T.SMP_NO
	           ,T.SMP_CUT_LOC
	           ,T.EXTSHAPE_QUALITY
	           ,T.MATLQLTY_DEC_GRD 
	           ,T.ORD_USE_CD
	           ,ZL_NORM_COMM.FZ00_COMM('A01007' , T.ORD_USE_CD)  ORD_USE_NM
	FROM        C_TBl02_COIL_COMM         T 
	WHERE       T.ORD_FL                  =     '2'  
	AND         T.COIL_STAT               =     '2'  
	AND 		T.OLD_SAMPL_NO			 LIKE   ?||'%'
	AND	        (T.SMP_STATS      IS  NULL OR T.SMP_STATS='3')
	ORDER  BY     T.OLD_SAMPL_NO
</query>

<query id="UIB030240_YC_02.SELECT"  desc="查询已改判待确认的钢卷（余材充当改判查询）">
	SELECT    T.OLD_SAMPL_NO
	         ,T.PRODNM_CD
             ,T.SPEC_ABBSYM
             ,T.SPEC_STL_GRD
             ,T.ORD_USE_CD
             ,ZL_NORM_COMM.FZ00_COMM('A01007' , T.ORD_USE_CD)  ORD_USE_NM 
             ,T.COIL_THK
             ,T.COIL_WTH
             ,T.SMP_NO
             ,T.SMP_CUT_LOC
             ,T.SMP_STATS
             ,LM.PRDNM_CD OLD_PRDNM_CD  --原交货状态
             ,LM.SPEC_ABBSYM OLD_SPEC_ABBSYM  --原标准号
             ,LM.SPEC_STL_GRD OLD_SPEC_STL_GRD  --原牌号
             ,LM.ORD_USE_TP OLD_ORD_USE_CD  --原订单用途
             ,ZL_NORM_COMM.FZ00_COMM('A01007' , LM.ORD_USE_TP)  OLD_ORD_USE_NM
             ,T.SMP_DIR_PIC_YN
             ,T.SMP_PICK_YN
             ,LC.ORD_NO     --改判合同号
             ,LC.ORD_SEQ	--改判订单号
             ,LC.ORG_SMP_NO   --原试样号
             ,LC.ORG_SMP_CUT_LOC  --原试样位置
             ,LC.REG_ID   ---改判人
             ,LC.REG_DTIME  -- 改判时间
             ,T.TOT_DEC_GRD
             ,T.TOT_DEC_DTIME
             ,T.EXTSHAPE_QUALITY
             ,T.MATLQLTY_DEC_GRD 
             ,T.ACT_WGT
             ,T.COIL_STAT
             ,TO_CHAR(T.DCS_THK,'FM9999990.00099')||'*'||T.DCS_WTH DCS_GUIGE
	  FROM        C_TBl02_COIL_COMM         T 
	              ,TBB02_LOT_COIL           LC
	              ,TBB02_LOT_COM            LM
	  WHERE       T.ORD_FL                  =        '2'  
	  AND         T.COIL_STAT               =        '2'  
	  AND         T.OLD_SAMPL_NO            LIKE     ?||'%'
	  AND         T.SMP_STATS       IS NOT NULL
	  AND         T.SMP_STATS      		   !=   '3'
	  AND         T.SMP_NO                  =        LC.SMP_NO
	  AND         T.SMP_CUT_LOC             =        LC.SMP_CUT_LOC 
	  AND         LC.ORG_SMP_NO             =        LM.SMP_NO
	  AND         LC.ORG_SMP_CUT_LOC        =        LM.SMP_CUT_LOC
	  ORDER  BY     T.OLD_SAMPL_NO

</query>


<query id="UIB030230_02.SELECT"  desc="获取可改判的标准">
<![CDATA[	
	SELECT    DISTINCT
	          T.PRDNM_CD
	         ,T.SPEC_ABBSYM
	         ,T.SPEC_STL_GRD
	         ,T.ORD_USE_TP 
	         ,T.THK_MIN
           	 ,T.THK_MAX
	         ,ZL_NORM_COMM.FZ00_COMM('A01007' , T.ORD_USE_TP)  ORD_USE_NM
	FROM      TBB01_SPEC_QLTY     T 
	WHERE     T.PRDNM_CD          NOT IN ('AR' , 'CR' , 'TM')
	AND       T.THK_MIN          <=         ?
	AND       T.THK_MAX          >=         ?
	ORDER BY  T.PRDNM_CD , T.SPEC_ABBSYM , T.SPEC_STL_GRD
]]>
</query>

<query id="UIB030230_ORD.select" desc="获取可改判的订单" fetchSize="10">
        <![CDATA[
			SELECT 
				   A.ORD_NO, -- 合同号
	               A.ORD_SEQ, -- 订单号
	               XB_PACKAGE.GF_CUSTOMER_FIND(CUST_CD) CUST_CD, -- 客户代码
	               A.C_PRODNM_CD PRODNM_CD, -- 交货状态
	               A.C_SPEC_STL_GRD,
	               A.C_SPEC_ABBSYM,
	               A.ORD_USEAGE_CD,
	               XB_PACKAGE.GF_COMNNAME_FIND('A01007', A.ORD_USEAGE_CD) ORD_USEAGE_NM, -- 订单用途
	               A.C_ORD_THK  ORD_THK,
	               A.ORD_WGT, -- 订单重量
	               A.ORD_PRC_WGT, -- 生产进程重量
	               A.ORD_REM_WGT, -- 订单余重量
	               A.SHIP_END_WGT, -- 发货完重量
	               B.MK_CONTENT --订单备注
	            FROM TBE02_ORD_PRC  A,
	               TBA01_ORD_LINE B
	           WHERE A.ORD_NO = B.ORD_NO(+)
	             AND A.ORD_SEQ = B.ORD_SEQ(+)
	             AND A.ORD_PROG_CD IN ('D', 'E')
	             --AND A.RCVORD_CLF <> 'M'
	             AND A.PROD_LINE = 'C'
	             AND ('L' IN (SELECT * FROM TABLE(XB_PACKAGE.GF_TABSTR(A.ORD_PRC_LOCK,'|'))) or A.ORD_PRC_LOCK is null)
	             AND A.ORD_NO LIKE ? || '%' -- 合同号
	             AND A.OVER_ORD IS NULL 
	           ORDER BY A.DEL_TO_DATE, A.ORD_NO, A.ORD_SEQ
        ]]>
    </query>

<query id="UIB030230_03.SELECT"  desc="获取标准对应的材质信息">
<![CDATA[	
	SELECT          T.QLTY_CD,SQ.QLTY_CD_CFNM,T.QLTY_MIN,T.QLTY_MAX,T.QLTY_TYPE,T.QLTY_DEC_CD
	 	 FROM            TBB01_SPEC_QLTY             T
	                     ,Tbb01_Seq_Qlty           SQ
		  WHERE           T.PRDNM_CD                  =       ?
		  AND             T.SPEC_ABBSYM               =       ?
		  AND             T.SPEC_STL_GRD              =       ?
		  AND             T.ORD_USE_TP                =       ?
		  AND             T.THK_MIN                  <=       ?
		  AND             T.THK_MAX                  >=       ?
		  AND             T.QLTY_CD                  <>       'SAMP'
		  AND             T.QLTY_CD                   =        SQ.QLTY_CD
    ORDER     BY    SQ.DISPLAY_SEQ 
]]>
</query>
<query id="UIB030230_ord_03.SELECT"  desc="获取订单对应的材质信息">
<![CDATA[	
	SELECT     OQ.QLTY_MIN 
          ,OQ.QLTY_MAX 
          ,OQ.QLTY_DEC_CD 
          ,OQ.QLTY_TYPE
          ,SQ.QLTY_CD_CFNM 
          ,OQ.QLTY_CD 
	FROM       TBB01_ORD_QLTY   OQ  , TBB01_SEQ_QLTY  SQ 
	WHERE      OQ.QLTY_CD   =   SQ.QLTY_CD  
	AND        OQ.ORD_NO    =   ? 
	AND        OQ.ORD_SEQ   =   ? 
	AND        OQ.DSN_KIND  =   PKG_QUALITY_COMM.FIB010202(?,?)
	ORDER     BY    SQ.DISPLAY_SEQ 
]]>
</query>
<query id="UIB030230_04.SELECT" desc="改判前后的材质实绩数据" fetchSize="10">
	<![CDATA[
	SELECT        WQ.QLTY_CD
                ,WQ.QLTY_VAL_WK
                ,WQ.QLTY_UNIT_WK
                ,WQ.QLTY_TYPE_WK
                ,WQ.QLTY_WK_TP
                ,WQ.UPDATE_NO_TP
                ,WQ.QLTY_CD_AFTER
                ,IQ.QLTY_MIN
                ,IQ.QLTY_MAX
                ,IQ.QLTY_DEC_CD
                ,SQ.QLTY_CD_CFNM 
    FROM         TBB02_WORK_QLTY WQ  , TBB01_SEQ_QLTY  SQ  ,  TBB02_INS_QLTY IQ
    WHERE        WQ.SMP_NO           =    ?
    AND          WQ.SMP_CUT_LOC      =    ?
    AND          WQ.QLTY_CD          =    SQ.QLTY_CD
    AND          WQ.SMP_NO           =    IQ.SMP_NO
    AND          WQ.SMP_CUT_LOC      =    IQ.SMP_CUT_LOC
    AND          WQ.QLTY_CD          =    IQ.QLTY_CD
    ORDER        BY              SQ.DISPLAY_SEQ
	]]>
</query>

<query id="UIB030230_01.CALL"  desc="钢卷材质不合格改判">
 {call ZL_LIANT_DCS01.DCS_STL_GRD(?,?,?,?,?,?,?)}
</query>
<query id="UIB030240_YCCD_GP.CALL" desc="余材充当按牌号改判">
 {call SX_LIANT_DCS01.YUCAI_DCS_STL_GRD(?,?,?,?,?,?,?,?,?)}
</query>
<query id="UIB030240_YCCD_GP_ORD.CALL" desc="余材充当改判：根据GP_FLAG标识区分按订单或牌号改判">
 {call SX_LIANT_DCS01.UIB030230_LTGP_YCGP_ORD(?,?,?,?,?,?,?,?,?,?,?,?)}
</query>
<query id="UIB030240_YCCD_FS.CALL" desc="发送指示到检化验中心">
 {call SX_LIANT_DCS01.UIB030230_LTGP_SEND_L2INSMP(?,?)}
</query>
<query id="UIB030240_YCCD_XMTH.CALL" desc="项目替换">
 {call SX_LIANT_DCS01.UIB030230_LTGP_XMTH(?,?,?,?,?)}
</query>
<query id="UIB030240_YCCD_CANCER.CALL" desc="取消改判">
 {call SX_LIANT_DCS01.UIB030230_LTGP_CANCER(?,?,?,?,?,?,?,?,?,?)}
</query>
<query id="UIB030240_CDGP_DCS.CALL" desc="连退改判后的材质判定">
 {call SX_LIANT_DCS01.UIB030230_LTGP_DCS_QLTY(?,?)}
</query>
</queryMap>