XinYu_RZMES/.svn/pristine/1a/1a2732bb7f32e2145c056a15fcf6d35e075b01ef.svn-base

<?xml version="1.0" encoding='UTF-8'?>
<queryMap desc="板坯号成分实绩录入">

    <query id="UIB020035_01.INITSELECT" desc="板坯号选择查询" fetchSize="10">  
        <![CDATA[
		SELECT   DISTINCT   SLAB_NO     LABEL 
				          , SLAB_NO     VALUE 
		FROM                TBG02_SLAB_COMM
		WHERE               DIFF_STL_GRD_STA_END_YN  =  '2'  --2为过渡坯
        ]]>   
    </query> 
	
	<query id="UIB020035_01_01.SELECT" desc="">
		SELECT      SUBSTR(SLAB_NO , 11)     LABEL 
				  , SUBSTR(SLAB_NO , 11)     VALUE 
		FROM        TBG02_SLAB_COMM
		WHERE      (DIFF_STL_GRD_STA_END_YN = '3' 
		OR          DIFF_STL_GRD_STA_END_YN = '2')
		AND		    SUBSTR(SLAB_NO , 1 , 10)  =  ?
	</query>
	
	<query id="UIB020035_01.SELECT" desc="">
		SELECT      decode(SC.SLAB_RT  , null , 'H' ,  SC.SLAB_RT)   SLAB_RT   --板坯去向（生产线）
         		  , SX.STL_GRD
				  , SX.PRODNM_CD   
		FROM        TBG02_SLAB_COMM  SC , (SELECT   T.STL_GRD , T.PRODNM_CD  , T.CHARGE_NO
										   FROM     TBG02_CHARGE_COMM T ) SX
		WHERE       SX.CHARGE_NO = SUBSTR(SC.SLAB_NO , 1 , 10)  
		AND         SC.SLAB_NO   =  ?
	</query>
	
	<query id="UIB020035_02.SELECT" desc="板坯信息">
		SELECT     DISTINCT
				   WIR.CHARGE_NO  SLAB_NO 
		         , WIR.CHEM_SEQ 
		FROM       TBB02_WORK_INGR  WIR 
		WHERE      WIR.CHARGE_NO   =   ?
		AND        WIR.PROC_CD     =   'SL'
	</query>
	
	<query id="UIB020035_02_1.SELECT" desc="">
		SELECT     SLAB_NO   X_SLABNO   
		         , 'N'       CHECKED
		FROM       TBG02_SLAB_COMM SC  
		WHERE      SUBSTR(SC.SLAB_NO , 1 , 10 ) =  SUBSTR(? , 1 , 10)
		AND        SC.SLAB_NO                  !=  ?
		AND       (DIFF_STL_GRD_STA_END_YN = '3' 
		OR         DIFF_STL_GRD_STA_END_YN = '2')
	</query>
	
	<query id="UIB020035_03.SELECT" desc="双击grid1时查询单一元素">
		WITH   WF   AS
		( 
		SELECT      SIR.CHEM_CD 
				  , WIR.CHEM_VAL
				  , SIR.DISPLAY_SEQ 
				  , DECODE(WIR.CHEM_CD , NULL , 'Y')    EX   --值为Y表示要进行insert，否则为update
		FROM        TBB02_WORK_INGR WIR , TBB01_SEQ_INGR SIR 
		WHERE       WIR.CHEM_CD(+)     =   SIR.CHEM_CD
		AND         SIR.COMP_YN        =   'N'               --非复合元素
		AND         WIR.CHARGE_NO(+)   =   ?
		AND         WIR.PROC_CD(+)     =   'SL'              --"SL"表示板坯
		AND         WIR.CHEM_SEQ(+)    =   ?  
		)
		SELECT      WF.* 
				  , FI.CHEM_MIN 
				  , FI.CHEM_MAX
		FROM        TBB01_FAC_INGR FI  ,  WF
		WHERE       FI.CHEM_CD(+)       =   WF.CHEM_CD         --所有元素均要显示出来
		AND         FI.FAC_STL_GRD(+)   =   ?
		AND         FI.FAC_CODE(+)      =   ?
		ORDER BY    WF.DISPLAY_SEQ
	</query>
	
	<query id="UIB020035_04.SELECT" desc="双击grid1时查询复合元素">
		WITH   WF   AS
		( 
		SELECT      SIR.CHEM_CD 
				  , WIR.CHEM_VAL
				  , SIR.DISPLAY_SEQ 
				  , SIR.COMP_CAL 
				  , SIR.COMP_DETAIL
				  , DECODE(WIR.CHEM_CD , NULL , 'Y') EX
		FROM        TBB02_WORK_INGR WIR , TBB01_SEQ_INGR SIR 
		WHERE       WIR.CHEM_CD(+)     =   SIR.CHEM_CD
		AND         SIR.COMP_YN        =   'Y'
		AND         WIR.CHARGE_NO(+)   =   ?
		AND         WIR.PROC_CD(+)     =   'SL'
		AND         WIR.CHEM_SEQ(+)    =   ?
		)
		SELECT      WF.* , FI.CHEM_MIN , FI.CHEM_MAX             --复合元素不必要所有都显示，只需要有标准的
		FROM        TBB01_FAC_INGR FI , WF
		WHERE       FI.CHEM_CD          =   WF.CHEM_CD
		AND         FI.FAC_STL_GRD      =   ?
		AND         FI.FAC_CODE         =   ?
		ORDER BY    WF.DISPLAY_SEQ 
	</query>
	
	<query id="UIB020035_05.SELECT" desc="增加航时候使用，单一元素增加">
		SELECT   
		SIR.CHEM_CD  
	  , AAA.CHEM_MIN 
	  , AAA.CHEM_MAX 
		FROM
	  ( SELECT          FIR.CHEM_CD 
					  , FIR.CHEM_MIN 
					  , FIR.CHEM_MAX  
		FROM            TBB01_FAC_INGR      FIR   
		WHERE           FIR.FAC_STL_GRD||FIR.FAC_CODE     =    ?
	  )  AAA ,          TBB01_SEQ_INGR      SIR
		WHERE           AAA.CHEM_CD(+)  =   SIR.CHEM_CD
		AND             SIR.COMP_YN     =   'N'
		ORDER BY        SIR.DISPLAY_SEQ
	</query>
	
	<query id="UIB020035_06.SELECT" desc="增加航时使用，复合元素增加">
		SELECT          FIR.CHEM_CD 
		              , FIR.CHEM_MIN 
		              , FIR.CHEM_MAX 
		              , SI.COMP_CAL 
		              , SI.COMP_DETAIL
		FROM            TBB01_FAC_INGR      FIR  , TBB01_SEQ_INGR SI
		WHERE           FIR.COMP_YN         =     'Y'  --复合元素
        AND             FIR.CHEM_CD         =     SI.CHEM_CD
        AND             FIR.FAC_STL_GRD||FIR.FAC_CODE     =    ?
        ORDER BY        DISPLAY_SEQ
	</query>
	
	<query id="UIB020035_01.UPDATE" desc="修改成分实绩时使用">
		UPDATE         TBB02_WORK_INGR
		SET            CHEM_VAL    =  ?  
					 , CHEM_VAL_TP = 'S'  --'S'表示更新的板坯的信息
					 , MOD_ID      =  ?
					 , MOD_DTIME   =  to_char(sysdate , 'YYYYMMDDHH24MISS')
		WHERE          CHARGE_NO   =  ?
		AND            PROC_CD     =  'SL'
		AND            CHEM_SEQ    =  ?
		AND            CHEM_CD     =  ?
	</query>
	
	<query id="UIB020035_01.INSERT" desc="插入成分实绩时使用">
		INSERT  INTO TBB02_WORK_INGR(
									CHARGE_NO  
								  , PROC_CD
								  , CHEM_SEQ 
								  , CHEM_CD 
								  , CHEM_VAL
		                          , REG_ID
		                          , REG_DTIME
		                          , CHEM_VAL_TP 
									)
		VALUES(?,'SL',?,?,? ,? , to_char(sysdate , 'YYYYMMDDHH24MISS') , 'S')     --'S'表示插入的是板坯号的信息
	</query>
	
	<query id="UIB020035_01.DELETE" desc="删除板坯成分信息">
		DELETE   FROM    TBB02_WORK_INGR    
		WHERE            CHARGE_NO   =  ?
		AND              PROC_CD     =  'SL'
		AND              CHEM_SEQ    =  ?
	</query>
	
	<query id="UIB020035_02.DELETE" desc="">
		DELETE   FROM     TBB02_WORK_INGR    WIR
		WHERE    WIR.CHARGE_NO   =       ?
		AND      WIR.PROC_CD     =       'SL'
	</query>
	
	<query id="UIB020035_02.INSERT" desc="">
		INSERT    INTO      TBB02_WORK_INGR(CHARGE_NO , PROC_CD , CHEM_SEQ , CHEM_CD , CHEM_VAL , CHEM_VAL_TP ) 
		          SELECT                    ?         , PROC_CD , CHEM_SEQ , CHEM_CD , CHEM_VAL , CHEM_VAL_TP 
		          FROM      TBB02_WORK_INGR 
		          WHERE     CHARGE_NO   =  ?
		          AND       PROC_CD     =  'SL'
		          AND       CHEM_SEQ    =  ?
	</query>
	
	<query id="UIB020035_01.CALLSTATEMENT" desc="过渡段板坯成分判定">
		{call NIB020061(?,?,?)}
	</query>
	
</queryMap>