XinYu_RZMES/classes/query/E/E01/NI/NIE012100-query.xml

<?xml version="1.0" encoding='UTF-8'?>
<queryMap desc="ORD_PRC_DET TABLE Process">
              
   <query id="NIE012100_INIT.update" desc="it's query from TBE02_ORD_PRC_DET Table" fetchSize="10">
        <![CDATA[
			UPDATE  TBE02_ORD_PRC_DET 
			   SET  TOT_WGT     =  0                                    
             	   ,INS_WGT     =  0                                    
				   ,WRK_WGT     =  0                                    
				   ,EST_WGT     =  0                                    
				   ,END_WGT     =  0                                    
				   ,UPD_DTIME   =  ''                                   
				   ,MOD_PGM_ID  =  ''                                   
             WHERE  ORD_NO      =  ?
			   AND  ORD_SEQ     =  ?
		]]>
    </query>

   <query id="NIE012100_OrdPrcDet.insert" desc="it's query from TBE02_ORD_PRC_DET Table" fetchSize="10">
        <![CDATA[
          INSERT INTO TBE02_ORD_PRC_DET (
			          ORD_NO                                            
                     ,ORD_SEQ                                            
             	     ,PROC_CD   )                                       
              VALUES (
			          ?                                                 
                     ,?                                                  
             	     ,?   )                                             
		]]>
    </query>

   <query id="NIE012100_OrdPrcDet.update" desc="it's query from TBE02_ORD_PRC_DET Table" fetchSize="10">
        <![CDATA[
			UPDATE  TBE02_ORD_PRC_DET 
			   SET  TOT_WGT     =  ?                                     
             	   ,INS_WGT     =  ?                                    
				   ,WRK_WGT     =  ?                                    
				   ,EST_WGT     =  ?                                    
				   ,END_WGT     =  ?                                    
				   ,UPD_DTIME   =  TO_CHAR(SYSDATE,'yyyymmddhh24miss')  
				   ,MOD_PGM_ID  =  ?                                    
             WHERE  ORD_NO      =  ?
			   AND  ORD_SEQ     =  ?
			   AND  PROC_CD     =  ?
        ]]>
    </query>

   <query id="NIE012100_OrdPrc.update" desc="it's query from TBE02_ORD_PRC Table" fetchSize="10">
        <![CDATA[
			UPDATE  TBE02_ORD_PRC
			   SET  ORD_PROG_CD     =  ?                                     
             	   ,PROD_END_GP     =  ?                                    
				   ,PROD_END_DATE   =  ?                                    
				   ,ORD_PRC_WGT     =  ?                                    
				   ,ORD_REM_WGT     =  ?                                    
			       ,PROD_END_WGT    =  ?                                    
			       ,SHIP_END_WGT    =  ?
			       ,hot_roll_end_wgt=  ?                                    
			       ,SHIP_END_DATE   =  ?                                    
				   ,MOD_DTIME       =  TO_CHAR(SYSDATE,'yyyymmddhh24miss')  
			       ,MOD_ID          =  ?                                    
				   ,MOD_PGM_ID      =  ?
				   ,MILL_PROD_END_DATE = ?
				   ,MILL_SHIP_END_DATE = ?                                 
             WHERE  ORD_NO          =  ?
			   AND  ORD_SEQ         =  ?
        ]]>
    </query>

	<query id="NIE012100_OrdNoCk.select" desc="it's query from TBE02_ORD_PRC Table" fetchSize="10">
        <![CDATA[
SELECT        T1.ORD_WGT               
             ,T1.WGT_ACVAL_MIN         
             ,T1.WGT_ACVAL_MAX         
             ,T1.ORD_PROG_CD     
             ,T1.STL_GRD    
             ,T1.PROD_END_GP
             ,T1.PROD_END_DATE 
             ,T1.PROD_HOLD_CD
             ,T1.SHIP_END_DATE  --TL 091229
             ,T1.MILL_PROD_END_DATE
             ,T1.MILL_SHIP_END_DATE
             ,SUBSTR(MAX(T2.TRNF_DTIME),1,8)   COIL_TRNF_DTIME
FROM          TBE02_ORD_PRC     T1  
             ,TBH02_COIL_COMM T2
WHERE         T1.ORD_NO    =  ?
AND           T1.ORD_SEQ   =  ?
AND           T1.ORD_NO =  T2.ORD_NO(+)
AND           T1.ORD_SEQ = T2.ORD_SEQ(+)
GROUP BY      T1.ORD_WGT               
             ,T1.WGT_ACVAL_MIN         
             ,T1.WGT_ACVAL_MAX         
             ,T1.ORD_PROG_CD     
             ,T1.STL_GRD    
             ,T1.PROD_END_GP
             ,T1.PROD_END_DATE 
             ,T1.PROD_HOLD_CD
             ,T1.SHIP_END_DATE  
             ,T1.MILL_PROD_END_DATE
             ,T1.MILL_SHIP_END_DATE
		]]>
	 </query>

	<query id="NIE012100_ProgWgt.select" desc="it's query from TBF01_SPEC_SLAB,TBG02_SLAB_COMM,TBG02_COIL_COMM Table" fetchSize="10">
        <![CDATA[
		
SELECT  SUBSTR(C.PROG_CD,1,2) PROG_CD                                               
           ,TO_CHAR(SUM(DECODE(SUBSTR(C.PROG_CD,3,1),'A',NVL(A.ORD_WGT,0),0))) INS_WGT      
           ,TO_CHAR(SUM(DECODE(SUBSTR(C.PROG_CD,3,1),'B',NVL(A.ORD_WGT,0),0))) WRK_WGT      
           ,TO_CHAR(SUM(DECODE(SUBSTR(C.PROG_CD,3,1),'D',NVL(A.ORD_WGT,0),0))) EST_WGT      
           ,TO_CHAR(SUM(DECODE(SUBSTR(C.PROG_CD,3,1),'F',NVL(A.ORD_WGT,0),0))) END_WGT      
        FROM  TBF01_SPEC_SLAB_D A                                         
              ,TBF01_SPEC_SLAB   B                                
              ,TBF01_SPEC_CHARGE C                                           
           WHERE  A.ORD_NO           =  :1  --1                            
             AND  A.ORD_SEQ          =  :2  --2                                        
             AND  A.ORD_FL           =  '1'                                       
             AND  A.STATUS_CD        != 'C'                                       
             AND  B.SLAB_EDT_SEQ     =  A.SLAB_EDT_SEQ                            
             AND  B.STATUS_CD        != 'C'                                       
             AND  C.CHARGE_EDT_SEQ   =  B.CHARGE_EDT_SEQ                          
             AND  C.STATUS_CD        != 'C'   
         AND  C.PROG_CD          IS NOT NULL                                    
             GROUP  BY  SUBSTR(C.PROG_CD,1,2)                                                  
                                    
           UNION ALL     
      
       SELECT  SUBSTR(B.CUR_PROG_CD,1,2) PROG_CD                                           
                   ,TO_CHAR(ROUND(SUM(DECODE(SUBSTR(B.CUR_PROG_CD,3,1),'A',decode(NVL(A.ORD_WGT,0),0,B.SLAB_WGT,a.ORD_WGT),0)) * C.PROC_RATE/100)) INS_WGT  
                   ,TO_CHAR(ROUND(SUM(DECODE(SUBSTR(B.CUR_PROG_CD,3,1),'B',decode(NVL(A.ORD_WGT,0),0,B.SLAB_WGT,a.ORD_WGT),0)) * C.PROC_RATE/100)) WRK_WGT  
                   ,TO_CHAR(ROUND(SUM(DECODE(SUBSTR(B.CUR_PROG_CD,3,1),'D',decode(NVL(A.ORD_WGT,0),0,B.SLAB_WGT,a.ORD_WGT),0)) * C.PROC_RATE/100)) EST_WGT  
                   ,TO_CHAR(ROUND(SUM(DECODE(SUBSTR(B.CUR_PROG_CD,3,1),'F',decode(NVL(A.ORD_WGT,0),0,B.SLAB_WGT,a.ORD_WGT),0)) * C.PROC_RATE/100)) END_WGT  
              FROM  TBG02_SLAB_COMM_D A                                          
                   ,TBG02_SLAB_COMM   B
                   ,(SELECT X.PROC_RATE FROM TBE01_PROC_RATE X WHERE X.PROC_CD  = 'R' ) C                                            
             WHERE  A.ORD_NO           =  :3       --3                                  
               AND  A.ORD_SEQ          =  :4   --4                                         
               AND  A.ORD_FL           =  '1'                                       
               AND  B.SUB_SLAB_NO          =  A.SLAB_NO                                 
               AND  B.SLAB_STAT        =  '2'                                       
               AND  B.ORD_FL           =  '1' 
               AND  B.CUR_PROG_CD      IS NOT NULL                                      
             GROUP  BY  SUBSTR(B.CUR_PROG_CD,1,2),  C.PROC_RATE
      ---------------------------------------------------------------------------------------------------------------                                               
           
           UNION ALL                                                               
             --钢卷
       SELECT PROG_CD
              , TO_CHAR(SUM(INS_WGT)) INS_WGT
              , TO_CHAR(SUM(WRK_WGT)) WRK_WGT
              , TO_CHAR(SUM(EST_WGT)) EST_WGT
              , TO_CHAR(SUM(END_WGT)) END_WGT
     FROM (
           SELECT  SUBSTR(B.CUR_PROG_CD,1,2) PROG_CD                                           
                  ,SUM(DECODE(SUBSTR(B.CUR_PROG_CD,3,1),'A',decode(NVL(A.ORD_WGT,0),0,b.act_wgt,a.ORD_WGT),0)) INS_WGT  
                  ,SUM(DECODE(SUBSTR(B.CUR_PROG_CD,3,1),'B',decode(NVL(A.ORD_WGT,0),0,b.act_wgt,a.ORD_WGT),0)) WRK_WGT  
                  ,SUM(DECODE(SUBSTR(B.CUR_PROG_CD,3,1),'D',decode(NVL(A.ORD_WGT,0),0,b.act_wgt,a.ORD_WGT),0)) EST_WGT  
                  ,SUM(DECODE(SUBSTR(B.CUR_PROG_CD,3,1),'F',decode(NVL(A.ORD_WGT,0),0,b.act_wgt,a.ORD_WGT),0)) END_WGT  
          FROM  TBH02_COIL_COMM_D A                                           
                 ,TBH02_COIL_COMM   B                                             
           WHERE  A.ORD_NO           =  :5   ---5                                     
             AND  A.ORD_SEQ          =  :6  --6                                       
             AND  A.ORD_FL           =  '1'                                       
             AND  B.COIL_NO          =  A.COIL_NO                                 
             AND  B.COIL_STAT        =  '2'                                       
             AND  B.ORD_FL           =  '1'   
         AND  B.CUR_PROG_CD      IS NOT NULL                                    
           GROUP  BY  SUBSTR(B.CUR_PROG_CD,1,2)
          
           UNION ALL                                                               
          
           SELECT  SUBSTR(B.CUR_PROG_CD,1,2) PROG_CD                                                  
                  ,SUM(DECODE(SUBSTR(B.CUR_PROG_CD,3,1),'A',NVL(B.ACT_WGT,0),0)) INS_WGT  
                  ,SUM(DECODE(SUBSTR(B.CUR_PROG_CD,3,1),'B',NVL(B.ACT_WGT,0),0)) WRK_WGT  
                  ,SUM(DECODE(SUBSTR(B.CUR_PROG_CD,3,1),'D',NVL(B.ACT_WGT,0),0)) EST_WGT  
                  ,SUM(DECODE(SUBSTR(B.CUR_PROG_CD,3,1),'F',NVL(B.ACT_WGT,0),0)) END_WGT  
          FROM  TBH02_COIL_COMM_D A                                          
                 ,TBH02_COIL_COMM   B                                             
           WHERE  A.ORD_NO           =  :7  --7                                        
             AND  A.ORD_SEQ          =  :8 --8                                        
             AND  A.ORD_FL           =  '1'                                       
             AND  B.COIL_NO          =  A.COIL_NO                                 
             AND  B.COIL_STAT        =  '3'                                       
             AND  B.ORD_FL           =  '1'                                       
             AND  B.CUR_PROG_CD      =  'SFF'                                     
           GROUP  BY  SUBSTR(B.CUR_PROG_CD,1,2)
           
           UNION ALL                                                               
          
           
           SELECT  SUBSTR(B.CUR_PROG_CD,1,2) PROG_CD                 
                       ,nvl(SUM(DECODE(SUBSTR(b.CUR_PROG_CD,3,1),'A',NVL(floor(b.ACT_WGT/xx.cnt),0))),0) INS_WGT
                       ,nvl(SUM(DECODE(SUBSTR(b.CUR_PROG_CD,3,1),'B',NVL(floor(b.ACT_WGT/xx.cnt),0))),0) WRK_WGT
                       ,nvl(SUM(DECODE(SUBSTR(b.CUR_PROG_CD,3,1),'D',NVL(floor(b.ACT_WGT/xx.cnt),0))),0) EST_WGT
                       ,nvl(SUM(DECODE(SUBSTR(b.CUR_PROG_CD,3,1),'F',NVL(floor(b.ACT_WGT/xx.cnt),0))),0) END_WGT
                        FROM  TBH02_COIL_COMM_D A                                          
                               ,TBH02_COIL_COMM   B     
                               ,C_TBK02_COIL_COMM C     
                               ,(select count(1) cnt,coil_no from TBH02_COIL_COMM_D x
                                          group by x.ord_no,x.ord_seq,X.coil_no) xx                                   
                         WHERE  A.ORD_NO           =  :9   --9                                         
                           AND  A.ORD_SEQ          =  :10  --10                                         
                           AND  A.ORD_FL           =  '1'                                       
                           AND  B.COIL_NO          =  A.COIL_NO    
                           and a.coil_no = xx.coil_no
                           AND  B.OLD_SAMPL_NO     = C.COIL_NO
                             AND  C.COIL_STAT        != '1'                             
                           AND  B.COIL_STAT        =  '3'                                       
                           AND  B.ORD_FL           =  '1'                                       
                           AND  B.CUR_PROG_CD      =  'SGF'                                     
                         GROUP  BY  SUBSTR(B.CUR_PROG_CD,1,2)
          )
        GROUP BY PROG_CD
       
       UNION ALL
       
       SELECT PROG_CD
              , TO_CHAR(SUM(INS_WGT)) INS_WGT
              , TO_CHAR(SUM(WRK_WGT)) WRK_WGT
              , TO_CHAR(SUM(EST_WGT)) EST_WGT
              , TO_CHAR(SUM(END_WGT)) END_WGT
           FROM (
                 select 
                        SUBSTR(B.CUR_PROG_CD,1,2) PROG_CD                                                  
                        ,SUM(DECODE(SUBSTR(b.CUR_PROG_CD,3,1),'A',decode(NVL(a.ord_wgt,0),0,NVL(round(b.ACT_WGT/c.cnt),0),NVL(a.ord_wgt,0)),0)) INS_WGT
                        ,SUM(DECODE(SUBSTR(b.CUR_PROG_CD,3,1),'B',decode(NVL(a.ord_wgt,0),0,NVL(round(b.ACT_WGT/c.cnt),0),NVL(a.ord_wgt,0)),'C',decode(NVL(a.ord_wgt,0),0,NVL(b.ACT_WGT/c.cnt,0),NVL(a.ord_wgt,0)),0)) WRK_WGT
                        ,SUM(DECODE(SUBSTR(b.CUR_PROG_CD,3,1),'D',decode(NVL(a.ord_wgt,0),0,NVL(round(b.ACT_WGT/c.cnt),0),NVL(a.ord_wgt,0)),0)) EST_WGT
                        ,SUM(DECODE(SUBSTR(b.CUR_PROG_CD,3,1),'F',decode(NVL(a.ord_wgt,0),0,NVL(round(b.ACT_WGT/c.cnt),0),NVL(a.ord_wgt,0)),0)) END_WGT 
                 from c_tbk02_coil_comm_d a
                      ,c_tbk02_coil_comm b
                      ,(SELECT t.coil_no ,COUNT(1) cnt
                          FROM c_tbk02_coil_comm_d t
                          GROUP BY t.COIL_NO
                        ) c
                 where '1' = '1'
                 and   a.ord_no = :11  --11
                 and   a.ord_seq = :12  --12
                 and   b.coil_no = a.coil_no
                 AND   a.COIL_NO = c.coil_no
                 and   b.ord_fl = '1'
                 and   a.ord_fl = '1'
                 and   b.coil_stat <> '3'
                 AND    B.CUR_PROG_CD <> 'PCC'
                 and   b.cur_prog_cd is not null   
                 GROUP BY SUBSTR(B.CUR_PROG_CD,1,2)
                 
                 union all
                 
                 select SUBSTR(D.CUR_PROG_CD,1,2) PROG_CD     
                        ,SUM(DECODE(SUBSTR(D.CUR_PROG_CD,3,1),'A',NVL(floor(d.ACT_WGT/xx.cnt),0),0)) INS_WGT
                        ,SUM(DECODE(SUBSTR(D.CUR_PROG_CD,3,1),'B',NVL(floor(d.ACT_WGT/xx.cnt),0),0)) WRK_WGT
                        ,SUM(DECODE(SUBSTR(D.CUR_PROG_CD,3,1),'D',NVL(floor(d.ACT_WGT/xx.cnt),0),0)) EST_WGT
                        ,SUM(DECODE(SUBSTR(D.CUR_PROG_CD,3,1),'F',NVL(floor(d.ACT_WGT/xx.cnt),0),0)) END_WGT
                 from c_tbl02_coil_comm_d c
                      ,c_tbl02_coil_comm d
                      ,(select count(1) cnt,L_COIL_NO from c_tbl02_coil_comm_d x
                            group by x.ord_no,x.ord_seq,X.L_COIL_NO) xx
                 where '1' = '1'
                 and   c.ord_no = :13   --13
                 and   c.ord_seq = :14  --14
                 and   c.l_coil_no = d.coil_no
                 and    c.L_COIL_NO = xx.L_COIL_NO
                 and   d.ord_fl = '1'
                 and   c.ord_fl = '1'
                 and   d.coil_stat = '2'
                 and   d.cur_prog_cd is not null 
                 GROUP BY SUBSTR(D.CUR_PROG_CD,1,2)
                 
                 union all
                 
                 select SUBSTR(H.CUR_PROG_CD,1,2) PROG_CD
                          ,SUM(DECODE(SUBSTR(H.CUR_PROG_CD,3,1),'A',NVL(g.ord_wgt,0),0)) INS_WGT
                          ,SUM(DECODE(SUBSTR(H.CUR_PROG_CD,3,1),'B',NVL(g.ord_wgt,0),0)) WRK_WGT
                          ,SUM(DECODE(SUBSTR(H.CUR_PROG_CD,3,1),'D',NVL(g.ord_wgt,0),0)) EST_WGT
                          ,SUM(DECODE(SUBSTR(H.CUR_PROG_CD,3,1),'F',NVL(H.ACT_WGT,0),0)) END_WGT
                   from   C_TBL02_COIL_COMM_D G
                          ,C_TBL02_COIL_COMM H
                          ,(select min(t1.CUT_SEQ) CUT_SEQ ,t2.OLD_SAMPL_NO from  C_TBL02_COIL_COMM_D t1
                          ,c_tbl02_coil_comm t2
                          WHERE t1.L_COIL_NO(+) = t2.OLD_SAMPL_NO
                          group by t2.OLD_SAMPL_NO
 
                           ) x
                   where  '1' = '1'
                   and    G.ord_no = :15   --15
                   and    G.ord_seq = :16  --16
                   and    G.L_COIL_NO = H.COIL_NO
                   and    h.OLD_SAMPL_NO = x.OLD_SAMPL_NO
                   and    x.CUT_SEQ = g.CUT_SEQ
                   and    G.ord_fl = '1'
                   and    H.ord_fl = '1'
                   and    H.coil_stat = '3'
                   and    H.cur_prog_cd = 'DFF'
 
                   GROUP BY SUBSTR(H.CUR_PROG_CD,1,2)
                   
                   
                   
                 union all
                 select SUBSTR(D.CUR_PROG_CD,1,2) PROG_CD
                        ,SUM(DECODE(SUBSTR(D.CUR_PROG_CD,3,1),'A',decode(NVL(c.ord_wgt,0),0,NVL(d.ACT_WGT,0),NVL(c.ord_wgt,0)),0)) INS_WGT
                        ,SUM(DECODE(SUBSTR(D.CUR_PROG_CD,3,1),'B',decode(NVL(c.ord_wgt,0),0,NVL(d.ACT_WGT,0),NVL(c.ord_wgt,0)),'C',decode(NVL(c.ord_wgt,0),0,NVL(d.ACT_WGT,0),NVL(c.ord_wgt,0)),0)) WRK_WGT
                        ,SUM(DECODE(SUBSTR(D.CUR_PROG_CD,3,1),'D',decode(NVL(c.ord_wgt,0),0,NVL(d.ACT_WGT,0),NVL(c.ord_wgt,0)),0)) EST_WGT
                        ,SUM(DECODE(SUBSTR(D.CUR_PROG_CD,3,1),'F',decode(NVL(c.ord_wgt,0),0,NVL(d.ACT_WGT,0),NVL(c.ord_wgt,0)),0)) END_WGT
 
                        from   c_tbl02_coil_comm_d c
                               ,c_tbl02_coil_comm d
                               ,L_TBF03_SPEC_MILL TT
                 where  '1' = '1'
                 and    c.ord_no = :17 --17
                 and    c.ord_seq = :18 --18
                 and    c.l_coil_no = d.coil_no
                 AND    D.OLD_SAMPL_NO = TT.C_COIL_NO
                 AND    D.RCAL_CNT = TT.CAL_ID
                 and    d.ord_fl = '1'
                 and    c.ord_fl = '1'
                 and    d.coil_stat = '3'
                 and    d.cur_prog_cd is not NULL
                 AND    TT.STATUS_CD < 'D'
                 GROUP BY SUBSTR(D.CUR_PROG_CD,1,2)
                 
                 union all
                 ----------------------------------------------------------------------------------------------------------       --在库连退成品卷信息
                 --物料编码：
                 ----------------------------------------------------------------------------------------------------------
                  select  SUBSTR(F.CUR_PROG_CD,1,2) PROG_CD
                          -------酸轧到连退子卷重量生成错误，暂时修改为 大卷重量/子卷个数---------------
                          /*,SUM(DECODE(SUBSTR(F.CUR_PROG_CD,3,1),'A',NVL(nvl(E.ORD_WGT,f.ACT_WGT),0),0)) INS_WGT
                          ,SUM(DECODE(SUBSTR(F.CUR_PROG_CD,3,1),'B',NVL(nvl(E.ORD_WGT,f.ACT_WGT),0),0)) WRK_WGT
                          ,SUM(DECODE(SUBSTR(F.CUR_PROG_CD,3,1),'D',NVL(nvl(E.ORD_WGT,f.ACT_WGT),0),0)) EST_WGT
                          ,SUM(DECODE(SUBSTR(F.CUR_PROG_CD,3,1),'F',NVL(nvl(E.ORD_WGT,f.ACT_WGT),0),0)) END_WGT*/
                          ,SUM(DECODE(SUBSTR(f.CUR_PROG_CD,3,1),'A',NVL(floor(f.ACT_WGT/xx.cnt),0),0)) INS_WGT
                          ,SUM(DECODE(SUBSTR(f.CUR_PROG_CD,3,1),'B',NVL(floor(f.ACT_WGT/xx.cnt),0),0)) WRK_WGT
                          ,SUM(DECODE(SUBSTR(f.CUR_PROG_CD,3,1),'D',NVL(floor(f.ACT_WGT/xx.cnt),0),0)) EST_WGT
                          ,SUM(DECODE(SUBSTR(f.CUR_PROG_CD,3,1),'F',NVL(floor(f.ACT_WGT/xx.cnt),0),0)) END_WGT
                          -------酸轧到连退子卷重量生成错误，暂时修改为 大卷重量/子卷个数---------------
                  from   c_tbc02_coil_comm_d e
                         ,c_tbc02_coil_comm f
                         ,(select count(1) cnt,L_COIL_NO from c_tbc02_coil_comm_d x
                         group by/* x.ord_no,x.ord_seq,*/X.L_COIL_NO) xx
                  where  '1' = '1'
                  and    e.ord_no = :19  --19
                  and    e.ord_seq = :20  --20
                  and    e.L_COIL_NO = f.OLD_SAMPL_NO
                  and    e.l_coil_no = xx.l_coil_no
                  and    e.ord_fl = '1'
                  and    f.ord_fl = '1'
                  and    f.coil_stat = '2'
                  and    f.cur_prog_cd is not null
                  GROUP BY SUBSTR(F.CUR_PROG_CD,1,2)
                  
                  union all
                 
                  select SUBSTR(I.CUR_PROG_CD,1,2) PROG_CD
                    ,SUM(DECODE(SUBSTR(I.CUR_PROG_CD,3,1),'A',nvl(I.ACT_WGT,0),0)) INS_WGT
                    ,SUM(DECODE(SUBSTR(I.CUR_PROG_CD,3,1),'B',nvl(I.ACT_WGT,0),0)) WRK_WGT
                    ,SUM(DECODE(SUBSTR(I.CUR_PROG_CD,3,1),'D',nvl(I.ACT_WGT,0),0)) EST_WGT
                    ,SUM(DECODE(SUBSTR(I.CUR_PROG_CD,3,1),'F',nvl(I.ACT_WGT,0),0)) END_WGT
                    from   C_TBc02_COIL_COMM_D J
                           ,C_TBc02_COIL_COMM I
                    wHere  '1' = '1'
                    and    I.ord_no = :21  --21
                    and    I.ord_seq = :22  --22
                    and    J.L_COIL_NO(+) = I.OLD_SAMPL_NO
                    --and    J.ord_fl = '1'
                    and    I.ord_fl = '1'
                    and    I.coil_stat = '3'
                    and    I.cur_prog_cd = 'DFF'
                    GROUP BY SUBSTR(I.CUR_PROG_CD,1,2)
                )
               GROUP BY PROG_CD
			
		]]>
	</query>

	<query id="NIE012100_OrdPrcDetPk.select" desc="it's query from TBE02_ORD_PRC_DET Table" fetchSize="10">
        <![CDATA[
			SELECT  A.PROC_CD            
			  FROM  TBE02_ORD_PRC_DET A  
			 WHERE  A.ORD_NO    =  ?     
	           AND  A.ORD_SEQ   =  ?     
	           AND  A.PROC_CD   =  ?          
		]]>
	 </query>
	<query id="tbHcoilcomm02_D.call" desc="it's query from TBE02_ORD_PRC_DET Table" fetchSize="10">
        <![CDATA[
			 {call C_PKG_OS_COMM.XZ_TBH02_COMM_D(:1,:2,:3)}     
		]]>
	 </query>			
</queryMap>