XinYu_RZMES/.svn/pristine/b4/b47eb1d6634616cb7cd0c02f7e91e8e7a8c157dd.svn-base

<?xml version="1.0" encoding='UTF-8'?>
<queryMap desc="炉次替代钢号">
	
    <query id="UIB020050_INITSELECT" desc="获取所有不合格炉次号信息">
	 	 SELECT    DISTINCT
						  CHARGE_NO   LABEL
						, CHARGE_NO   VALUE  
		  FROM            TBG02_CHARGE_COMM
		  WHERE           INGR_DEC_GRD='2'     --不合格炉次号
		  AND           ( CHARGE_STAT='2' OR CHARGE_STAT  =  '3' )    --板坯已有，但还在库中，未热轧
		  ORDER   BY      CHARGE_NO
    </query>
		  
    <query id="UIB020050_01.SELECT" desc="获得满足条件的成分">
	  	SELECT       DISTINCT
		             decode(SI.COMP_YN , 'Y' , SI.COMP_CAL , SI.CHEM_CD)   CHEMCD
				   , SI.CHEM_CD             --成分
				   , SI.DISPLAY_SEQ         --序号
				   , SI.COMP_YN             --是否复合成分
		  FROM       TBB02_WORK_INGR  WI  , TBB01_SEQ_INGR SI
		  WHERE      WI.CHEM_CD        =        SI.CHEM_CD
		  AND        WI.CHEM_VAL  IS NOT NULL
		  AND        WI.CHEM_VAL_TP    =   'L' 
		  AND        WI.CHARGE_NO    LIKE   ?
		  ORDER BY   SI.COMP_YN ASC , SI.DISPLAY_SEQ 
    </query>	
  
	<query id="UIB020050_02.SELECT" desc="不合格炉次号成分实绩查询">
		  SELECT    
		    'N'   CHK
		  , CCM.CHARGE_NO                --炉次号
          , CCM.LST_INGR_CD             --最终次数
          , CCM.STL_GRD                 --厂内钢号（可能是替代钢号，在降级的情况下）
          , CCM.BEF_STL_GRD             --原厂内钢号（即被替换后，品质设计时候的钢号）
		  , CCM.STL_GRD         H_STLGRD          
          , CCM.BEF_STL_GRD     H_BEFSTLGRD         
          , CCM.INGR_DEC_GRD            --最终成分判定等级
		  , MAX(WIR.CHEM_SEQ)   CHEM_SEQ
          {0}
          FROM      TBG02_CHARGE_COMM CCM  ,  TBB02_WORK_INGR  WIR
          WHERE     CCM.CHARGE_NO     =    WIR.CHARGE_NO
          AND       WIR.PROC_CD       =    'JJ'
          AND       WIR.CHEM_SEQ      =    SUBSTR(LST_INGR_CD , 3)
		  AND	    CCM.INGR_DEC_GRD  = '2'
		  AND     ( CCM.CHARGE_STAT   = '2'  OR CCM.CHARGE_STAT  =  '3')
          AND       CCM.CHARGE_NO     LIKE  ?
		  GROUP  BY  
		  CCM.CHARGE_NO                --炉次号
          , CCM.LST_INGR_CD             --最终次数
          , CCM.STL_GRD                 --厂内钢号（可能是替代钢号，在降级的情况下）
          , CCM.BEF_STL_GRD             --原厂内钢号（即被替换后，品质设计时候的钢号）
          , CCM.INGR_DEC_GRD            --最终成分判定等级
	</query>

	<query id="UIB020050_02SLAB.SELECT" desc="过渡段板坯成分查询">
		 SELECT    
         'N'   CHK
        , SCM.SLAB_NO        CHARGE_NO   --炉次号
        , SCM.STL_GRD                    --厂内钢号（可能是替代钢号，在降级的情况下）
        , SCM.BEF_STL_GRD                --原厂内钢号（即被替换后，品质设计时候的钢号）
        , MAX(WIR.CHEM_SEQ)  CHEM_SEQ
        , SCM.STL_GRD        H_STLGRD          
        , SCM.BEF_STL_GRD    H_BEFSTLGRD          
		  {0}        
          FROM      TBG02_SLAB_COMM SCM  ,  TBB02_WORK_INGR  WIR
          WHERE     SCM.SLAB_NO       =     WIR.CHARGE_NO
          AND       WIR.PROC_CD       =    'SL'
          AND       SCM.DIFF_STL_GRD_STA_END_YN = '2'
          AND     ( SCM.SLAB_STAT     = '2'  OR SCM.SLAB_STAT  =  '3')
          AND       SCM.SLAB_NO     LIKE  ?
          GROUP  BY  
          SCM.SLAB_NO                    --板坯号
        , SCM.STL_GRD                    --厂内钢号（可能是替代钢号，在降级的情况下）
        , SCM.BEF_STL_GRD                --原厂内钢号（即被替换后，品质设计时候的钢号）
	</query>
	
	<query id="UIB020050_02_01.LOOP" desc="用于循环部分，{1}用成分代码替代">
		   , max(decode(WIR.CHEM_CD , '{0}', CHEM_VAL , NULL)) CHEM{1}
	</query>
   
	<query id="UIB020050_03.SELECT" desc="分析替代钢号时使用">
		 SELECT      DISTINCT   
                     decode(SI.COMP_YN , 'Y' , SI.COMP_CAL , SI.CHEM_CD)   CHEMCD
                   , SI.CHEM_CD  
                   , SI.COMP_YN
                   , SI.DISPLAY_SEQ
		FROM        TBB01_FAC_INGR FI , TBB01_SEQ_INGR SI
		WHERE       EXISTS
		            (SELECT      DISTINCT    MOD_STL_GRD 
		            FROM         TBB01_MOD_STL 
		            WHERE        STL_GRD        =   ?
		            AND          FI.FAC_STL_GRD =   MOD_STL_GRD
		            )
       AND          FI.CHEM_CD     =  SI.CHEM_CD
       ORDER BY     SI.COMP_YN , SI.DISPLAY_SEQ
	</query>
   
	<query id="UIB020050_04.SELECT" desc="查询各替代钢号的成分">
		SELECT       DISTINCT  FAC_STL_GRD 
					 {1}
		FROM         TBB01_FAC_INGR     FIR
		WHERE        EXISTS(SELECT      MOD_STL_GRD 
                     FROM   TBB01_MOD_STL
                     WHERE  STL_GRD         =    ?
                     AND    FIR.FAC_STL_GRD =    MOD_STL_GRD
                           )  
		GROUP BY     FAC_STL_GRD
	</query>
	
	<query id="UIB020050_05.SELECT" desc="厂内牌号">
		SELECT	DISTINCT    'N' CHK
                           ,FIR.FAC_STL_GRD
                           ,FIR.FAC_CODE
		FROM                TBB01_FAC_INGR FIR 
		ORDER BY             FIR.FAC_CODE , FIR.FAC_STL_GRD
	</query>
	
	<query id="UIB020050_04.LOOP" desc="循环部分">
		, max(decode(CHEM_CD , '{0}' , CHEM_MIN ))  CHEM_MIN{1}
		, max(decode(CHEM_CD , '{0}' , CHEM_MAX ))  CHEM_MAX{1}
	</query>
    
	<query id="UIB020050_05.CALLSTATEMENT" desc="成分分析，返回替代钢号">
		{call ZL_HOST_DCS01.PIB020_FAC_REPL(?,?,?,?,?)}
	</query>
	
	<query id="UIB020050_01.UPDATE" desc="炉次牌号改判">
		UPDATE       TBG02_CHARGE_COMM
		SET          STL_GRD       =   ?
				   , BEF_STL_GRD   =   ?
		WHERE        CHARGE_NO     =   ?        
	</query>
	
	<query id="UIB020050_02.UPDATE" desc="">
		
		--牌号改判降余材  modify 0714 
		UPDATE       TBG02_SLAB_COMM
		SET          STL_GRD                    =   ?
				   , BEF_STL_GRD                =   ?
				   ,  ORD_FL       =   '2'
		           ,  CUR_PROG_CD  =   'RRC'
		WHERE        SUBSTR(SLAB_NO , 1 , 10)   =   ?   
	</query>
	
	
	<query id="UIB020050_03.UPDATE" desc="过渡坯牌号改判">
		--牌号改判降余材  modify 0714 
		UPDATE       TBG02_SLAB_COMM_D
		SET          ORD_FL       =   '2'
		WHERE        SLAB_NO    IN (
				                     SELECT SLAB_NO 
		                               FROM TBG02_SLAB_COMM
		                              WHERE SLAB_NO LIKE ? ||'%' 
		                           )         
	</query>
	
	<query id="UIB020050_01.CALL_CHARGENO" desc="">
		{call NIB028010(?,?,?)}
	</query>
	<query id="UIB020050_02.CALL_SLABNO" desc="">
		{call NIB020061(?,?,?,?)}
	</query>
</queryMap>