SELECT ORD_WGT ,WGT_ACVAL_MIN ,WGT_ACVAL_MAX ,ORD_PROG_CD ,STL_GRD ,PROD_END_GP ,PROD_END_DATE ,PROD_HOLD_CD ,SHIP_END_DATE --TL 091229 FROM TBE02_ORD_PRC WHERE ORD_NO = ? AND ORD_SEQ = ? 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 = ? SELECT SUBSTR(C.PROG_CD,1,2) PROG_CD ,TO_CHAR(SUM(DECODE(SUBSTR(C.PROG_CD,3,1),'A',A.ORD_WGT,0))) INS_WGT ,TO_CHAR(SUM(DECODE(SUBSTR(C.PROG_CD,3,1),'B',A.ORD_WGT,0))) WRK_WGT ,TO_CHAR(SUM(DECODE(SUBSTR(C.PROG_CD,3,1),'D',A.ORD_WGT,0))) EST_WGT ,TO_CHAR(SUM(DECODE(SUBSTR(C.PROG_CD,3,1),'F',A.ORD_WGT,0))) END_WGT FROM TBF01_SPEC_SLAB_D A ,TBF01_SPEC_SLAB B ,TBF01_SPEC_CHARGE C WHERE A.ORD_NO = :1 AND A.ORD_SEQ = :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',B.SLAB_WGT,0)) * C.PROC_RATE/100)) INS_WGT ,TO_CHAR(ROUND(SUM(DECODE(SUBSTR(B.CUR_PROG_CD,3,1),'B',B.SLAB_WGT,0)) * C.PROC_RATE/100)) WRK_WGT ,TO_CHAR(ROUND(SUM(DECODE(SUBSTR(B.CUR_PROG_CD,3,1),'D',B.SLAB_WGT,0)) * C.PROC_RATE/100)) EST_WGT ,TO_CHAR(ROUND(SUM(DECODE(SUBSTR(B.CUR_PROG_CD,3,1),'F',B.SLAB_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 AND A.ORD_SEQ = :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',B.ACT_WGT,0)) INS_WGT ,SUM(DECODE(SUBSTR(B.CUR_PROG_CD,3,1),'B',B.ACT_WGT,0)) WRK_WGT ,SUM(DECODE(SUBSTR(B.CUR_PROG_CD,3,1),'D',B.ACT_WGT,0)) EST_WGT ,SUM(DECODE(SUBSTR(B.CUR_PROG_CD,3,1),'F',B.ACT_WGT,0)) END_WGT FROM TBH02_COIL_COMM_D A ,TBH02_COIL_COMM B WHERE A.ORD_NO = :5 AND A.ORD_SEQ = :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',B.ACT_WGT,0)) INS_WGT ,SUM(DECODE(SUBSTR(B.CUR_PROG_CD,3,1),'B',B.ACT_WGT,0)) WRK_WGT ,SUM(DECODE(SUBSTR(B.CUR_PROG_CD,3,1),'D',B.ACT_WGT,0)) EST_WGT ,SUM(DECODE(SUBSTR(B.CUR_PROG_CD,3,1),'F',B.ACT_WGT,0)) END_WGT FROM TBH02_COIL_COMM_D A ,TBH02_COIL_COMM B WHERE A.ORD_NO = :7 AND A.ORD_SEQ = :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) ) 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',B.ACT_WGT,0)) INS_WGT ,SUM(DECODE(SUBSTR(B.CUR_PROG_CD,3,1),'B',B.ACT_WGT,0)) WRK_WGT ,SUM(DECODE(SUBSTR(B.CUR_PROG_CD,3,1),'D',B.ACT_WGT,0)) EST_WGT ,SUM(DECODE(SUBSTR(B.CUR_PROG_CD,3,1),'F',B.ACT_WGT,0)) END_WGT from c_tbk02_coil_comm_d a ,c_tbk02_coil_comm b where '1' = '1' and a.ord_no = :9 and a.ord_seq = :10 and b.coil_no = a.coil_no and b.ord_fl = '1' and a.ord_fl = '1' and b.coil_stat = '2' 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',D.ACT_WGT,0)) INS_WGT ,SUM(DECODE(SUBSTR(D.CUR_PROG_CD,3,1),'B',D.ACT_WGT,0)) WRK_WGT ,SUM(DECODE(SUBSTR(D.CUR_PROG_CD,3,1),'D',D.ACT_WGT,0)) EST_WGT ,SUM(DECODE(SUBSTR(D.CUR_PROG_CD,3,1),'F',D.ACT_WGT,0)) END_WGT from c_tbl02_coil_comm_d c ,c_tbl02_coil_comm d where '1' = '1' and c.ord_no = :11 and c.ord_seq = :12 and c.l_coil_no = d.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(F.CUR_PROG_CD,1,2) PROG_CD ,SUM(DECODE(SUBSTR(F.CUR_PROG_CD,3,1),'A',F.ACT_WGT,0)) INS_WGT ,SUM(DECODE(SUBSTR(F.CUR_PROG_CD,3,1),'B',F.ACT_WGT,0)) WRK_WGT ,SUM(DECODE(SUBSTR(F.CUR_PROG_CD,3,1),'D',F.ACT_WGT,0)) EST_WGT ,SUM(DECODE(SUBSTR(F.CUR_PROG_CD,3,1),'F',F.ACT_WGT,0)) END_WGT from c_tbm02_coil_comm_d e ,c_tbm02_coil_comm f where '1' = '1' and e.ord_no = :13 and e.ord_seq = :14 and e.cal_coil_no = f.cal_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) ) GROUP BY PROG_CD SELECT A.PROC_CD FROM TBE02_ORD_PRC_DET A WHERE A.ORD_NO = ? AND A.ORD_SEQ = ? AND A.PROC_CD = ? INSERT INTO TBE02_ORD_PRC_DET ( ORD_NO ,ORD_SEQ ,PROC_CD ) VALUES ( ? ,? ,? ) 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 = ? UPDATE TBE02_ORD_PRC SET ORD_PROG_CD = :1 ,PROD_END_GP = :2 ,PROD_END_DATE = :3 ,ORD_PRC_WGT = :4 ,ORD_REM_WGT = :5 ,PROD_END_WGT = :6 ,SHIP_END_WGT = :7 ,SHIP_END_DATE = :8 ,MOD_DTIME = TO_CHAR(SYSDATE,'yyyymmddhh24miss') ,MOD_ID = :9 ,MOD_PGM_ID = :10 WHERE ORD_NO = :11 AND ORD_SEQ = :12 DELETE TBE02_ORD_PRC_DET WHERE TOT_WGT = 0