DECLARE BEGIN update MIL_FEED_PLAN t set t.SAW_FALG = '#SAW_FALG#' where t.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND T.PLINE_CODE = '#PLINE_CODE#'; INSERT INTO MIL_FEEDSAW_RESULT (RESULT_NO, LOT_NO, STOVE_NO, JUDGE_STOVE_NO, PLINE_CODE, START_TIME, CUT_TARGET, COL_MODE, COL_TIME, COL_USER, COL_SHIFT, COL_GROUP, PRO_PLAN_ID, GX_PLAN_NO) VALUES ('#RESULT_NO#', '#LOT_NO#', '#STOVE_NO#', '#JUDGE_STOVE_NO#', '#PLINE_CODE#', SYSDATE, '#CUT_TARGET#', '#COL_MODE#', SYSDATE, '#COL_USER#', '#COL_SHIFT#', '#COL_GROUP#', '#PRO_PLAN_ID#', '#GX_PLAN_NO#'); update mil_plan set status = '05', FEED_TIME = sysdate, LOT_SEQ = '#LOT_SEQ#' where LOT_NO = '#LOT_NO#' and Judge_stove_no = '#JUDGE_STOVE_NO#' and ID = '#RESULT_NO#' AND NVL(PRO_PLAN_ID,'/') = NVL('#PRO_PLAN_ID#','/') AND NVL(GX_PLAN_NO,'/') = NVL('#GX_PLAN_NO#','/'); END; SELECT T.FEED_NUM,T.DB_NUM,S.SAW_NUM,S.PIPE_SIZE,S.TARGET_LENGTH FROM MIL_FEED_PLAN T, MIL_PLAN S WHERE T.JUDGE_STOVE_NO = S.JUDGE_STOVE_NO AND T.LOT_NO = S.LOT_NO AND S.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND S.LOT_NO = '#LOT_NO#' AND S.ID = '#RESULT_NO#' ORDER BY T.FEED_ROW_NO ASC SELECT NVL(SUM(T.MAT_TOTAL_HEIGHT - T.FEED_NUM * DECODE(T.CUT_TARGET, '返废', NVL(T.CUT_WEIGHT, 0), /*'回库', NVL(T.CUT_WEIGHT , 0),*/ 0)), 0) MAT_TOTAL_HEIGHT FROM MIL_FEED_PLAN T WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' SELECT SUM(T1.ACT_COUNT) ACT_COUNT FROM (SELECT (T.SAW_NUM * S.DB_NUM * S.FEED_NUM) ACT_COUNT FROM MIL_PLAN T LEFT JOIN MIL_FEED_PLAN S ON T.JUDGE_STOVE_NO = S.JUDGE_STOVE_NO WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#') T1 select MAX(T.PRO_PLAN_ID) PRO_PLAN_ID, MAX(T.GX_PLAN_NO) GX_PLAN_NO from MIL_PLAN t WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND T.LOT_NO = '#LOT_NO#' SELECT G.OUTDIAMETER,G.AIMWALLTHICK FROM MIL_PLAN T LEFT JOIN MIL_FEED_PLAN S ON T.JUDGE_STOVE_NO = S.JUDGE_STOVE_NO LEFT JOIN PLN_ORDER_ZG G ON T.CONTRACT_NO = G.ORDER_NO||'/'||G.ORDER_SEQ WHERE T.JUDGE_STOVE_NO = ? AND ROWNUM = 1 SELECT T.M_M_MAT_NO FROM PORT_MIL_BATCH_SAMPLE_RESULT T WHERE T.JUDGE_STOVE_NO=? AND T.LOT_NO=? AND T.PLAN_ID = ? ORDER BY T.MAT_NO DESC INSERT INTO PORT_MIL_BATCH_SAMPLE_RESULT( PLAN_ID, LOT_NO, STOVE_NO, JUDGE_STOVE_NO, GROUP_NO, PLINE_CODE, BATCH_NO, SEQ, MAT_NO, IS_SAMPLE_PIPE, IS_VALID, REMARK, SAMPLE_PIPE_LEN, GET_SAMPLE_NAME, GET_SAMPLE_TIME, GET_SAMPLE_SHIFT, GET_SAMPLE_CLASS, ORDER_LENGTH, REAL_BATCH_NO, ACT_THEORY_WEIGHT, ACT_COUNT, CRATE_TIME, STATUS, M_MAT_NO, GROUP_FLAG, OP_PROCESS, BACK_PROCESS, M_M_MAT_NO, INPUT_WEIGHT, BAL_YEAR_MONTH, PRO_PLAN_ID, GX_PLAN_NO) VALUES( ?, ?, ?, ?, '', ?, '', ?, ?, '0', '1', '', '', '', '', '', '', ?, '', ?, '1', TO_DATE(?,'YYYY-MM-DD HH24:MI:SS'), '0', ?, '0', '', '', ?, ?, ?,?,?) SELECT T.PRO_PLAN_ID, T.GX_PLAN_NO, T.BACK_SLAB_FLAG, TO_CHAR(T.START_TIME, 'YYYYMM') START_TIME FROM MIL_PLAN T WHERE T.ID = '#RESULT_NO#' AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND T.LOT_NO = '#LOT_NO#' 0 THEN 1.005 WHEN INSTR(MAX(T1.VARIETIES), '油管') > 0 THEN 1.005 ELSE 1 END) - (MAX(T1.CONTROL_THICKP) / 1000 * 1.02)) * SUM(B.FEED_NUM_PLAN * B.DB_NUM))) YJD from MIL_FEEDSAW_RESULT T, MIL_FEED_PLAN B, MIL_PLAN T1 WHERE T.JUDGE_STOVE_NO = T1.JUDGE_STOVE_NO AND NVL(T.PRO_PLAN_ID, '/') = NVL(T1.PRO_PLAN_ID, '/') AND T.JUDGE_STOVE_NO = B.JUDGE_STOVE_NO AND NVL(T.PRO_PLAN_ID, '/') = NVL(B.PRO_PLAN_ID, '/') AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND NVL(T.PRO_PLAN_ID, '/') = NVL('#PRO_PLAN_ID#', '/') AND NVL(T.GX_PLAN_NO, '/') = NVL('#GX_PLAN_NO#', '/') GROUP BY T.JUDGE_STOVE_NO, T.PRO_PLAN_ID, T.GX_PLAN_NO) LOOP UPDATE MIL_PLAN M SET M.PREDICT_PIECE = MYROW.YJZ, M.PREDICT_TON = MYROW.YJD WHERE M.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO AND NVL(M.PRO_PLAN_ID, '/') = NVL(MYROW.PRO_PLAN_ID, '/') AND NVL(M.GX_PLAN_NO, '/') = NVL(MYROW.GX_PLAN_NO, '/'); END LOOP; END; ]]> SELECT I.SCRAP_NUM AS SCRAP_STRAIGHT, I.Qualified_Num AS QUALIFIED_STRAIGHT, I.OFFLINE_NUM_TOTAL AS OFFLINE_STRAIGHT, I.BACKLINE_NUM_TOTAL AS BACKLINE_STRAIGHT, K.SCRAP_NUM AS SCRAP_TESTING, K.QUALIFIED_NUM AS QUALIFIED_TESTING, K.OFFLINE_NUM + K.INSPECTIONED_OFFLINE_NUM AS OFFLINE_TESTING, K.BACKLINE_NUM AS BACKLINE_TESTING, M.QUALIFIED_BRANCH AS QUALIFIED_BRANCH, M.OFFLINE_QUANTITY AS OFFLINE_QUANTITY, M.WASTE_QUANTITY AS WASTE_QUANTITY FROM MIL_STRAIGHTENING_RESULT I , MIL_MT_RESULT K ,mil_surface_result M WHERE I.JUDGE_STOVE_NO = K.JUDGE_STOVE_NO (+) AND I.JUDGE_STOVE_NO = M.JUDGE_STOVE_NO(+) AND I.JUDGE_STOVE_NO = ? AND NVL(I.PRO_PLAN_ID, '/') = NVL(?, '/') AND NVL(I.GX_PLAN_NO, '/') = NVL(?, '/') SELECT I.SCRAP_NUM AS SCRAP_STRAIGHT, I.Qualified_Num AS QUALIFIED_STRAIGHT, I.OFFLINE_NUM_TOTAL AS OFFLINE_STRAIGHT, I.BACKLINE_NUM_TOTAL AS BACKLINE_STRAIGHT, K.SCRAP_NUM AS SCRAP_TESTING, K.QUALIFIED_NUM AS QUALIFIED_TESTING, K.OFFLINE_NUM + K.INSPECTIONED_OFFLINE_NUM AS OFFLINE_TESTING, K.BACKLINE_NUM AS BACKLINE_TESTING, M.QUALIFIED_BRANCH AS QUALIFIED_BRANCH, M.OFFLINE_QUANTITY AS OFFLINE_QUANTITY, M.WASTE_QUANTITY AS WASTE_QUANTITY FROM MIL_STRAIGHTENING_RESULT I , MIL_MT_RESULT K ,mil_surface_result M WHERE I.JUDGE_STOVE_NO = K.JUDGE_STOVE_NO (+) AND I.JUDGE_STOVE_NO = M.JUDGE_STOVE_NO (+) AND I.JUDGE_STOVE_NO = ? AND NVL(I.PRO_PLAN_ID, '/') = NVL(?, '/') AND NVL(I.GX_PLAN_NO, '/') = NVL(?, '/') SELECT IP_ADDRESS1, IP_ADDRESS2, IP_ADDRESS3, IP_ADDRESS4, PLINE_CODE, PROCESS_NO, OPERAT_CODE, OPERAT_NAME, REMARK FROM MIL_BASE_ADDRESS WHERE 1=1 AND IP_ADDRESS1=? OR IP_ADDRESS2=? OR IP_ADDRESS3=? OR IP_ADDRESS4=? select t.pline_code from COM_BASE_PLINE t where t.department_desc=? SELECT IP_ADDRESS3, IP_ADDRESS4, IP_ADDRESS1, IP_ADDRESS2, PROCESS_NO, OPERAT_CODE, OPERAT_NAME, PLINE_CODE, REMARK FROM MIL_BASE_ADDRESS WHERE 1=1 AND PROCESS_NO='#PROCESS_NO#' AND OPERAT_CODE='#OPERAT_CODE#' AND PLINE_CODE='#PLINE_CODE#' '2' #something# order by a.FEED_TIME, a.START_TIME ]]>