SELECT T.GRADECODE,T.GRADENAME FROM COM_BASE_GRADE T WHERE T.VALIDFLAG = '1' SELECT T.SPEC_CODE,T.SPEC_NAME FROM COM_BASE_SPEC T WHERE T.VALIDFLAG = '1' SELECT T.MODEL_CODE,T.MODEL_DESC FROM COM_BASE_MODEL T WHERE T.VALIDFLAG = '1' SELECT T.DIMATER,T.HEIGHT FROM COM_BASE_SPEC T WHERE T.VALIDFLAG = '1' AND T.SPEC_CODE = ? INSERT INTO YDM_ZC_INLIST (MANAGEMENT_NO, MANAGEMENT_NAME, INSTOCK_SQE, INSTOCK_DOC, INSTOCK_TYPE_CODE, INSTOCK_TYPE_NAME, MAT_NO, LOT_NO, STOVE_NO, JUDGE_STOVE_NO, BATCH_NO, BATCH_GROUD_NO, PRODUCCODE, PRODUCNAME, STD_CODE, STD_NAME, STEELCODE, STEELNAME, STD_STYLE, STD_STYLE_DESC, SPEC_CODE, SPEC_NAME, MODEL_CODE, MODEL_DESC, ACT_DIMATER, ACT_HEIGHT, ACT_LEN_MIN, ACT_LEN_MAX, ACT_COUNT, ACT_WEIGHT, ACT_THEORY_WEIGHT, BELONG_CODE, BELONG_NAME, STORAGE_NO, MEMO, VALIDFLAG, CREATE_NAME, CREATE_TIME, ORDER_NO, ORDER_SEQ, DELIVERY_NO, ORD_PK, ORD_LN_PK, ORD_LN_DLY_PK, PRODUCT_FLAG, MAT_STATUS, INSTOCK_TIME,ZB_RCDID,ACT_LEN,DEPARTMENT_CODE,DEPARTMENT_DESC,JUDGE_STD_NAME,PLINE_CODE,PLINE_NAME,GRADECODE,GRADENAME,BAL_YEAR_MONTH,IN_TIME_F,LEN_NO,LEN_DESC,LEN_UNIT,PIPMEMO,HAND_FLAG,MAT_ORIGIN_CODE,MAT_ORIGIN_NAME,SOURE_CODE,SOURE_NAME,MATERIAL_NO, MATERIAL_NAME,IN_MOLD,SUPPLY_UNIT_CODE,SUPPLY_UNIT,IS_DEALER,PROCESS_CDOE,PROCESS_DESC,LOCATION_NO,IN_TYPE) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, to_date(?,'YYYY-MM-DD HH24:MI:SS'),?,?,?,?,?,?,?,?,to_date(?,'YYYY-MM-DD HH24:MI:SS'),?,?,?,?,?,?,?,?,?,?,to_date(?,'YYYY-MM-DD HH24:MI:SS'),?,?,?,?,'1',?,?,?,?,?,?,?,?,?,?,?,?,?,'802205') INSERT INTO CRM_MAT_ZC( MAT_NO, PRODUCT_FLAG, MAT_STATUS, LOT_NO, STOVE_NO, JUDGE_STOVE_NO, BATCH_NO, BATCH_GROUD_NO, MATERIAL_NO, MATERIAL_NAME, PRODUCCODE, PRODUCNAME, STEELCODE, STEELNAME, GRADECODE, GRADENAME, SPEC_CODE, SPEC_NAME, MODEL_CODE, MODEL_DESC, STD_CODE, STD_NAME, STD_STYLE, STD_STYLE_DESC, PRO_ORDER_NO, ORDER_NO, ORDER_SEQ, ORDER_SEQ_NO, ORD_PK, ORD_LN_PK, ORD_LN_DLY_PK, PLINE_CODE, PLINE_NAME, ACT_DIMATER, ACT_HEIGHT, ACT_LEN, ACT_LEN_MIN, ACT_LEN_MAX, ACT_COUNT, ACT_WEIGHT, BELONG_CODE, BELONG_NAME, IN_MOLD, INSTOCK_TIME, STORAGE_NO, LOCATION_NO, STORAGE_NAME, LOCATION_NAME, SUPPLY_UNIT_CODE, SUPPLY_UNIT, CREATE_TIME) VALUES( '#MAT_NO#', (SELECT F.BASENAME FROM COM_BASE_INFO F WHERE F.BASECODE = '#PRODUCT_FLAG#'), (SELECT F.BASENAME FROM COM_BASE_INFO F WHERE F.BASECODE = '#MAT_STATUS#'), '#LOT_NO#', '#STOVE_NO#', '#JUDGE_STOVE_NO#', '#BATCH_NO#', '#BATCH_GROUD_NO#', '#MATERIAL_NO#', '#MATERIAL_NAME#', '#PRODUCCODE#', '#PRODUCNAME#', '#STEELCODE#', '#STEELNAME#', '#GRADECODE#', '#GRADENAME#', '#SPEC_CODE#', '#SPEC_NAME#', '#MODEL_CODE#', '#MODEL_DESC#', '#STD_CODE#', '#STD_NAME#', '#STD_STYLE#', '#STD_STYLE_DESC#', '#PRO_ORDER_NO#', '#ORDER_NO#', '#ORDER_SEQ#', '#ORDER_SEQ_NO#', '#ORD_PK#', '#ORD_LN_PK#', '#ORD_LN_DLY_PK#', '#PLINE_CODE#', '#PLINE_NAME#', '#ACT_DIMATER#', '#ACT_HEIGHT#', '#ACT_LEN#', '#ACT_LEN_MIN#', '#ACT_LEN_MAX#', '#ACT_COUNT#', '#ACT_WEIGHT#', '#BELONG_CODE#', '#BELONG_NAME#', (SELECT F.BASENAME FROM COM_BASE_INFO F WHERE F.BASECODE = '#IN_MOLD#'), TO_DATE('#CREATE_TIME#', 'YYYY-MM-DD HH24:MI:SS'), '#STORAGE_NO#', '#LOCATION_NO#', (SELECT S1.STORAGE_NAME FROM YDM_BS_STORAGE S1 WHERE S1.STORAGE_NO = '#STORAGE_NO#'), (SELECT S2.LOCATION_NAME FROM YDM_BS_LOCATION S2 WHERE S2.LOCATION_NO = '#LOCATION_NO#'), '#SUPPLY_UNIT_CODE#', '#SUPPLY_UNIT#', TO_DATE('#CREATE_TIME#', 'YYYY-MM-DD HH24:MI:SS')) INSERT INTO CRM_ZC_INLIST( STORAGE_NAME, MAT_NO, INSTOCK_SQE, INSTOCK_DOC, ORDER_NO, ORDER_SEQ, DELIVERY_NO, ORD_PK, ORD_LN_PK, ORD_LN_DLY_PK, PRODUCT_FLAG, JUDGE_STOVE_NO, BATCH_NO, BATCH_GROUD_NO, MATERIAL_NO, MATERIAL_NAME, PRODUCCODE, PRODUCNAME, STD_CODE, STD_NAME, GRADECODE, GRADENAME, STEELCODE, STEELNAME, STD_STYLE, STD_STYLE_DESC, SPEC_CODE, SPEC_NAME, MODEL_CODE, MODEL_DESC, PLINE_CODE, PLINE_NAME, ACT_LEN, ACT_LEN_MIN, ACT_LEN_MAX, ACT_COUNT, ACT_WEIGHT, STORAGE_NO, IN_MOLD, PACK_NO, INSTOCK_TIME, CREATE_TIME, SUPPLY_UNIT_CODE, SUPPLY_UNIT, BAL_YEAR_MONTH, ACT_DIMATER, ACT_HEIGHT, BELONG_CODE, BELONG_NAME, INSTOCK_TYPE_CODE, INSTOCK_TYPE_NAME ) VALUES( (SELECT S1.STORAGE_NAME FROM YDM_BS_STORAGE S1 WHERE S1.STORAGE_NO = '#STORAGE_NO#'), '#MAT_NO#', '#INSTOCK_SQE#', '#INSTOCK_DOC#', '#ORDER_NO#', '#ORDER_SEQ#', '#ORDER_SEQ_NO#', '#ORD_PK#', '#ORD_LN_PK#', '#ORD_LN_DLY_PK#', (SELECT F.BASENAME FROM COM_BASE_INFO F WHERE F.BASECODE = '#PRODUCT_FLAG#'), '#JUDGE_STOVE_NO#', '#BATCH_NO#', '#BATCH_GROUD_NO#', '#MATERIAL_NO#', '#MATERIAL_NAME#', '#PRODUCCODE#', '#PRODUCNAME#', '#STD_CODE#', '#STD_NAME#', '#GRADECODE#', '#GRADENAME#', '#STEELCODE#', '#STEELNAME#', '#STD_STYLE#', '#STD_STYLE_DESC#', '#SPEC_CODE#', '#SPEC_NAME#', '#MODEL_CODE#', '#MODEL_DESC#', '#PLINE_CODE#', '#PLINE_NAME#', '#ACT_LEN#', '#ACT_LEN_MIN#', '#ACT_LEN_MAX#', '#ACT_COUNT#', '#ACT_WEIGHT#', '#STORAGE_NO#', (SELECT F.BASENAME FROM COM_BASE_INFO F WHERE F.BASECODE = '#IN_MOLD#'), '', TO_DATE('#CREATE_TIME#', 'YYYY-MM-DD HH24:MI:SS'), TO_DATE('#CREATE_TIME#', 'YYYY-MM-DD HH24:MI:SS'), '#SUPPLY_UNIT_CODE#', '#SUPPLY_UNIT#', '#BAL_YEAR_MONTH#', '#ACT_DIMATER#', '#ACT_HEIGHT#', '#BELONG_CODE#', '#BELONG_NAME#', '800701', '产出入库' ) UPDATE PROCESS_ORDER_M T SET T.PAY_NUM = TO_NUMBER(NVL(T.PAY_NUM,0)) + TO_NUMBER(?), T.PAY_WGT = TO_NUMBER(NVL(T.PAY_WGT,0)) + TO_NUMBER(?), T.PAY_LEN = TO_NUMBER(NVL(T.PAY_LEN,0)) + TO_NUMBER(?) WHERE ORD_LN_DLY_PK = ? SELECT T1.SALE_ORG, T1.SALE_ORG_DESC, T1.ORD_PK, T2.ORD_LN_PK, T3.ORD_LN_DLY_PK, T2.STD_CODE, T2.STD_NAME, T2.LEN_NO, T2.LEN_DESC, T2.LEN_UNIT, T3.DELIVERY_NO from SLM_ORDER_HEAD t1, SLM_ORDER_LINE T2, SLM_ORDER_LINE_DELIVERY T3, YDM_ZC_INITIAL T where T1.ORD_PK = T2.ORD_PK AND T1.ORD_PK = T3.ORD_PK AND T1.ORD_PK = T.ORD_PK(+) AND t1.order_no = ? AND LPAD(T2.ORDER_SEQ, 4, '0') = LPAD(?, 4, '0') AND LPAD(T3.DELIVERY_NO,3,'0') = LPAD(?,3,'0') AND T1.VALIDFLAG = '1' AND T2.VALIDFLAG = '1' AND T3.VALIDFLAG = '1' SELECT T.MAT_NO FROM YDM_ZC_INLIST T WHERE T.INSTOCK_DOC = ? AND T.JUDGE_STOVE_NO = ? AND T.BATCH_NO = ? AND T.BATCH_GROUD_NO = ? DELETE FROM MAT_ZC_M T WHERE T.MAT_NO = ? DELETE FROM YDM_ZC_BUTTRESS T WHERE T.MAT_NO = ? DELETE FROM YDM_ZC_INLIST T WHERE T.MAT_NO = ? AND T.INSTOCK_TYPE_CODE = '800701' DECLARE BEGIN FOR MYROW IN(SELECT * FROM YDM_ZC_INLIST T WHERE T.MAT_NO = ?)LOOP INSERT INTO CRM_ZC_INLIST( STORAGE_NAME, MAT_NO, INSTOCK_SQE, INSTOCK_DOC, ORDER_NO, ORDER_SEQ, DELIVERY_NO, ORD_PK, ORD_LN_PK, ORD_LN_DLY_PK, PRODUCT_FLAG, JUDGE_STOVE_NO, BATCH_NO, BATCH_GROUD_NO, MATERIAL_NO, MATERIAL_NAME, PRODUCCODE, PRODUCNAME, STD_CODE, STD_NAME, GRADECODE, GRADENAME, STEELCODE, STEELNAME, STD_STYLE, STD_STYLE_DESC, SPEC_CODE, SPEC_NAME, MODEL_CODE, MODEL_DESC, PLINE_CODE, PLINE_NAME, ACT_LEN, ACT_LEN_MIN, ACT_LEN_MAX, ACT_COUNT, ACT_WEIGHT, STORAGE_NO, IN_MOLD, PACK_NO, INSTOCK_TIME, CREATE_TIME, DATA_STATUS, SUPPLY_UNIT_CODE, SUPPLY_UNIT, BAL_YEAR_MONTH, ACT_DIMATER, ACT_HEIGHT, BELONG_CODE, BELONG_NAME, INSTOCK_TYPE_CODE, INSTOCK_TYPE_NAME ) VALUES( (SELECT S1.STORAGE_NAME FROM YDM_BS_STORAGE S1 WHERE S1.STORAGE_NO = MYROW.STORAGE_NO), MYROW.MAT_NO, MYROW.INSTOCK_SQE, MYROW.INSTOCK_DOC, MYROW.ORDER_NO, MYROW.ORDER_SEQ, MYROW.DELIVERY_NO, MYROW.ORD_PK, MYROW.ORD_LN_PK, MYROW.ORD_LN_DLY_PK, (SELECT F.BASENAME FROM COM_BASE_INFO F WHERE F.BASECODE = MYROW.PRODUCT_FLAG), MYROW.JUDGE_STOVE_NO, MYROW.BATCH_NO, MYROW.BATCH_GROUD_NO, MYROW.MATERIAL_NO, MYROW.MATERIAL_NAME, MYROW.PRODUCCODE, MYROW.PRODUCNAME, MYROW.STD_CODE, MYROW.STD_NAME, MYROW.GRADECODE, MYROW.GRADENAME, MYROW.STEELCODE, MYROW.STEELNAME, MYROW.STD_STYLE, MYROW.STD_STYLE_DESC, MYROW.SPEC_CODE, MYROW.SPEC_NAME, MYROW.MODEL_CODE, MYROW.MODEL_DESC, MYROW.PLINE_CODE, MYROW.PLINE_NAME, MYROW.ACT_LEN, MYROW.ACT_LEN_MIN, MYROW.ACT_LEN_MAX, MYROW.ACT_COUNT, MYROW.ACT_WEIGHT, MYROW.STORAGE_NO, (SELECT F.BASENAME FROM COM_BASE_INFO F WHERE F.BASECODE = MYROW.IN_MOLD), MYROW.PACK_NO, MYROW.INSTOCK_TIME, TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'), '2', MYROW.SUPPLY_UNIT_CODE, MYROW.SUPPLY_UNIT, MYROW.BAL_YEAR_MONTH, MYROW.ACT_DIMATER, MYROW.ACT_HEIGHT, MYROW.BELONG_CODE, MYROW.BELONG_NAME, MYROW.INSTOCK_TYPE_CODE, MYROW.INSTOCK_TYPE_NAME ); INSERT INTO CRM_MAT_ZC( MAT_NO, PRODUCT_FLAG, MAT_STATUS, LOT_NO, STOVE_NO, JUDGE_STOVE_NO, BATCH_NO, BATCH_GROUD_NO, MATERIAL_NO, MATERIAL_NAME, PRODUCCODE, PRODUCNAME, STEELCODE, STEELNAME, GRADECODE, GRADENAME, SPEC_CODE, SPEC_NAME, MODEL_CODE, MODEL_DESC, STD_CODE, STD_NAME, STD_STYLE, STD_STYLE_DESC, PRO_ORDER_NO, ORDER_NO, ORDER_SEQ, ORDER_SEQ_NO, ORD_PK, ORD_LN_PK, ORD_LN_DLY_PK, PLINE_CODE, PLINE_NAME, ACT_DIMATER, ACT_HEIGHT, ACT_LEN, ACT_LEN_MIN, ACT_LEN_MAX, ACT_COUNT, ACT_WEIGHT, BELONG_CODE, BELONG_NAME, IN_MOLD, INSTOCK_TIME, STORAGE_NO, LOCATION_NO, STORAGE_NAME, LOCATION_NAME, SUPPLY_UNIT_CODE, SUPPLY_UNIT, CREATE_TIME, DATA_STATUS) VALUES( MYROW.MAT_NO, (SELECT F.BASENAME FROM COM_BASE_INFO F WHERE F.BASECODE = MYROW.PRODUCT_FLAG), (SELECT F.BASENAME FROM COM_BASE_INFO F WHERE F.BASECODE = MYROW.MAT_STATUS), MYROW.LOT_NO, MYROW.STOVE_NO, MYROW.JUDGE_STOVE_NO, MYROW.BATCH_NO, MYROW.BATCH_GROUD_NO, MYROW.MATERIAL_NO, MYROW.MATERIAL_NAME, MYROW.PRODUCCODE, MYROW.PRODUCNAME, MYROW.STEELCODE, MYROW.STEELNAME, MYROW.GRADECODE, MYROW.GRADENAME, MYROW.SPEC_CODE, MYROW.SPEC_NAME, MYROW.MODEL_CODE, MYROW.MODEL_DESC, MYROW.STD_CODE, MYROW.STD_NAME, MYROW.STD_STYLE, MYROW.STD_STYLE_DESC, MYROW.PRO_ORDER_NO, MYROW.ORDER_NO, MYROW.ORDER_SEQ, MYROW.DELIVERY_NO, MYROW.ORD_PK, MYROW.ORD_LN_PK, MYROW.ORD_LN_DLY_PK, MYROW.PLINE_CODE, MYROW.PLINE_NAME, MYROW.ACT_DIMATER, MYROW.ACT_HEIGHT, MYROW.ACT_LEN, MYROW.ACT_LEN_MIN, MYROW.ACT_LEN_MAX, MYROW.ACT_COUNT, MYROW.ACT_WEIGHT, MYROW.BELONG_CODE, MYROW.BELONG_NAME, (SELECT F.BASENAME FROM COM_BASE_INFO F WHERE F.BASECODE = MYROW.IN_MOLD), MYROW.INSTOCK_TIME, MYROW.STORAGE_NO, MYROW.LOCATION_NO, (SELECT S1.STORAGE_NAME FROM YDM_BS_STORAGE S1 WHERE S1.STORAGE_NO = MYROW.STORAGE_NO), (SELECT S2.LOCATION_NAME FROM YDM_BS_LOCATION S2 WHERE S2.LOCATION_NO = MYROW.LOCATION_NO), MYROW.SUPPLY_UNIT_CODE, MYROW.SUPPLY_UNIT, TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'), '2'); END LOOP; END; UPDATE PROCESS_ORDER_M T SET T.PAY_NUM = TO_NUMBER(NVL(T.PAY_NUM,0)) - TO_NUMBER(?), T.PAY_WGT = TO_NUMBER(NVL(T.PAY_WGT,0)) - TO_NUMBER(?), T.PAY_LEN = TO_NUMBER(NVL(T.PAY_LEN,0)) - TO_NUMBER(?) WHERE ORD_LN_DLY_PK = ? SELECT COUNT(1) ACOUNT FROM YDM_ZC_INITIAL T WHERE --T.JUDGE_STOVE_NO = ? --AND T.BATCH_NO = ? --AND T.BATCH_GROUD_NO = ? T.BAL_YEAR_MONTH = ? AND T.SUPPLY_UNIT_CODE = ? SELECT T.PROCESS_CODE,T.PROCESS_DESC FROM COM_BASE_PLINE T WHERE T.PLINE_CODE = ? SELECT T.* FROM FMIS_ZC_INLIST T WHERE T.INSTOCK_DOC = ? AND T.JUDGE_STOVE_NO = ? AND T.BATCH_NO = ? AND T.BATCH_GROUD_NO = ? DELETE FROM FMIS_ZC_INLIST T WHERE T.INSTOCK_DOC = ? AND T.JUDGE_STOVE_NO = ? AND T.BATCH_NO = ? AND T.BATCH_GROUD_NO = ?