LGMESServer/WebRoot/WEB-INF/query/Stuffmanage/FrmSubContractResult.xml

<?xml version="1.0" encoding="UTF-8"?>
<queryMap desc = "委外实绩回报管理">
<query id = "FrmSubContractResult.doQueryEntrustDz" desc = "查询委托信息">
SELECT 
       T.SUBCONTRACT_NO,
       T.SUBCONTRACT_NO_SEQ,
       DECODE(T.SUBCONTRACT_TYPE,'1','内部委托','2','外部委托')SUBCONTRACT_TYPE,
       T.HEAT_PLAN_NO,
       T.STOVE_NO,
       T.JUDGE_STOVE_NO,
       T.PRO_PLAN_ID,
       T.GX_PLAN_NO,
       T.PLINE_CODE,
       T.PLINE_NAME,
       T.SOURE_CODE,
       T.SOURE_NAME,
       T.GRADECODE,
       T.GRADENAME,
       T.DIAMETER_IN,
       T.LEN_SINGLE_IN,
       T.INNUM_CUT,
       T.LENGTH_IN,
       T.DIAMETER_OUT,
       T.SUBCONTRACT_NUM,
       T.SUBCONTRACT_WT,
       T.SUBCONTRACT_USER,
       T.SUBCONTRACT_SHIFT,
       T.SUBCONTRACT_GROUP,
       TO_CHAR(T.SUBCONTRACT_TIME, 'YYYY-MM-DD HH24:MI:SS') SUBCONTRACT_TIME,
       T.SP_USER,
       T.SP_NOTE,
       TO_CHAR(T.SP_TIME, 'YYYY-MM-DD HH24:MI:SS') SP_TIME,
       DECODE(T.SUBCONTRACT_LOG,'00','未审核','10','审核通过','20','审核不通过','30','委托实绩已回报')SUBCONTRACT_LOG,
       T.SUBCONTRACT_PLINE_CODE,
       T.SUBCONTRACT_PLINE_NAME,
       T.SUBCONTRACT_NOTE,
       T.HB_FP_NUM,
       T.HB_FP_WT,
       T.BAL_YEAR_MONTH,
       T.OUTWL_ID,
       T.OUTWL_DESC,
       T.WLID_IN,
       T.WLDESC_IN,
       T.LEN_GP_SINGLE_OUT,
       T.OUT_WT_ONE,
       (SELECT TO_CHAR(WM_CONCAT(S1.ORDER_NO_SEQ)) ORDER_NO_SEQ
          FROM (SELECT S.ORDER_NO || '/' || S.ORDER_SEQ ORDER_NO_SEQ,
                       S.GPREQ_ID
                  FROM PLN_ORDER_ZG_S S, FRG_ENTRUSTED_BILL T1
                 WHERE S.GPREQ_ID IS NOT NULL
                   AND S.GPREQ_ID = T1.PRO_PLAN_ID
                 GROUP BY S.GPREQ_ID, S.ORDER_NO, S.ORDER_SEQ) S1
         WHERE S1.GPREQ_ID = T.PRO_PLAN_ID) ORDER_NO
 FROM FRG_ENTRUSTED_BILL T
 WHERE 1 = 1
</query>
<query id = "FrmSubContractResult.insertEntrustResult" desc = "插入委托实绩表">
 INSERT INTO FRG_ENTRUSTED_BILL_RESULT(
        SUBCONTRACT_NO,
        SUBCONTRACT_NO_SEQ,
        OUTNUM_CUT,
        LENGTH_OUT,
        ACT_COUNT,
        ACT_WEIGHT,
        JUDGE_STOVE_NO,
        DIMATER_OUT,
        LEN_GP_SINGLE)
 VALUES( 
        '#SUBCONTRACT_NO#',
        '#SUBCONTRACT_NO_SEQ#',
        '#OUTNUM_CUT#',
        '#LENGTH_OUT#',
        '#ACT_COUNT#',
        '#ACT_WEIGHT#',
        '#JUDGE_STOVE_NO#',
        '#DIMATER_OUT#',
        '#LEN_GP_SINGLE#')
</query>
<query id = "FrmSubContractResult.updateEntrustBill" desc = "修改委托主信息">
 UPDATE FRG_ENTRUSTED_BILL T
   SET 
        T.SUBCONTRACT_LOG = '#SUBCONTRACT_LOG#',
        T.HB_FP_NUM = '#HB_FP_NUM#',
        T.HB_FP_WT = '#HB_FP_WT#'
 WHERE
T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#'
</query>
<query id = "FrmSubContractResult.updatePlanMFlag" desc = "加工完成修改计划状态">
UPDATE PLN_ZY_DZ_M T SET T.PLANSTATUS = '30' WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
</query>
<query id = "FrmSubContractResult.cancelPlanMFalg" desc = "撤销修改主计划状态">
UPDATE PLN_ZY_DZ_M T SET T.PLANSTATUS = '10' WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
</query>

<query id = "FrmSubContractResult.doQueryEntrustBillResult" desc = "查询委托实绩信息">
 SELECT 
       T.SUBCONTRACT_NO,
       T.SUBCONTRACT_NO_SEQ,
       T.OUTNUM_CUT,
       T.LENGTH_OUT,
       T.ACT_COUNT,
       T.ACT_WEIGHT,
       T.JUDGE_STOVE_NO,
       T.DIMATER_OUT,
       T.LEN_GP_SINGLE
 FROM FRG_ENTRUSTED_BILL_RESULT T
 WHERE
T.SUBCONTRACT_NO = ?
AND T.SUBCONTRACT_NO_SEQ = ?
</query>
<query id = "FrmSubContractResult.deleteEntrustBillResult" desc = "删除委托实绩信息">
DELETE FROM FRG_ENTRUSTED_BILL_RESULT T
 WHERE T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
   AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#'
</query>
<query id = "FrmSubContractResult.doQueryEntrustResultNum" desc = "查询实绩总支数">
SELECT SUM(T.ACT_COUNT)ACOUNT
  FROM FRG_ENTRUSTED_BILL_RESULT T
 WHERE T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
   AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#'
</query>
<query id = "FrmSubContractResult.doQueryMatGpMApp" desc = "查询是否已有申请判定">
SELECT NVL(SUM(T.ACT_COUNT),0)APPCOUNT
  FROM MAT_GP_M T
 WHERE T.STOVE_NO = '#STOVE_NO#'
   AND T.JUDGE_STOVE_NO_LG = '#JUDGE_STOVE_NO#'
   AND NVL(T.PRO_PLAN_ID,'/') = NVL('#PRO_PLAN_ID#','/')
   AND NVL(T.GX_PLAN_NO,'/') = NVL('#GX_PLAN_NO#','/')
   AND T.OUTSOURCING_DOC = '#SUBCONTRACT_NO#'
   AND T.GPTYPE = '2'
   AND T.JUGDE_APPLY_CODE IS NOT NULL
</query>
<query id = "FrmSubContractResult.insertMatGpM" desc = "插入库存表">
INSERT INTO MAT_GP_M(
        MAT_NO,
        PRODUCT_FLAG,
        MAT_STATUS,
        STOVE_NO,
        JUDGE_STOVE_NO,
        MATERIAL_NO,
        MATERIAL_NAME,
        GRADECODE,
        GRADENAME,
        STD_CODE,
        STD_NAME,
        PRO_ORDER_NO,
        ORDER_NO,
        ORDER_SEQ,
        ORDER_SEQ_NO,
        ORD_PK,
        ORD_LN_PK,
        ORD_LN_DLY_PK,
        PLINE_CODE,
        PLINE_NAME,
        DIMATER,
        ACT_LEN,
        FIX_NUM,
        FIX_LEN,
        ACT_COUNT,
        ACT_WEIGHT,
        ACT_THEORY_WEIGHT,
        BELONG_CODE,
        BELONG_NAME,
        INSTOCK_TIME,
        BAL_YEAR_MONTH,
        CREATE_NAME,
        CREATE_TIME,
        GROUD_NO,
        PRO_PLAN_ID,
        GX_PLAN_NO,
        DB_ACT_COUNT,
        CIC,
        PIC,
        SIC,
        DIC,
        GPTYPE,
        QCM_STAUS,
        LG_CRAFT_NO,
        ISENDGX,
        CRAFTNO,
        OUTSOURCING_DOC,
        STEEL_STANDRAD,
        JUDGE_STOVE_NO_LG)
 VALUES( 
        '#MAT_NO#',
        '#PRODUCT_FLAG#',
        '#MAT_STATUS#',
        '#STOVE_NO#',
        '#JUDGE_STOVE_NO#',
        '#MATERIAL_NO#',
        '#MATERIAL_NAME#',
        '#GRADECODE#',
        '#GRADENAME#',
        '#STD_CODE#',
        '#STD_NAME#',
        '#PRO_ORDER_NO#',
        '#ORDER_NO#',
        '#ORDER_SEQ#',
        '#ORDER_SEQ_NO#',
        '#ORD_PK#',
        '#ORD_LN_PK#',
        '#ORD_LN_DLY_PK#',
        '#PLINE_CODE#',
        '#PLINE_NAME#',
        '#DIMATER#',
        '#ACT_LEN#',
        '#FIX_NUM#',
        '#FIX_LEN#',
        '#ACT_COUNT#',
        '#ACT_WEIGHT#',
        '#ACT_THEORY_WEIGHT#',
        '#BELONG_CODE#',
        '#BELONG_NAME#',
        TO_DATE('#INSTOCK_TIME#','YYYY-MM-DD HH24:MI:SS'),
        '#BAL_YEAR_MONTH#',
        '#CREATE_NAME#',
        TO_DATE('#CREATE_TIME#','YYYY-MM-DD HH24:MI:SS'),
        '#GROUD_NO#',
        '#PRO_PLAN_ID#',
        '#GX_PLAN_NO#',
        '#DB_ACT_COUNT#',
        '#CIC#',
        '#PIC#',
        '#SIC#',
        '#DIC#',
        '#GPTYPE#',
        '#QCM_STAUS#',
        '#LG_CRAFT_NO#',
        '#ISENDGX#',
        '#CRAFTNO#',
        '#OUTSOURCING_DOC#',
        '#STEEL_STANDRAD#',
        '#JUDGE_STOVE_NO_LG#')
</query>
<query id = "FrmSubContractResult.selectMatGpMNum" desc = "查询已入支数(未挂单号)">
SELECT NVL(SUM(T.ACT_COUNT),0)ACT_COUNT, T.FIX_NUM,T.STOVE_NO,T.JUDGE_STOVE_NO,T.PRO_PLAN_ID,T.GX_PLAN_NO
  FROM MAT_GP_M T
 WHERE T.PRO_PLAN_ID = '#PRO_PLAN_ID#'
   AND T.GX_PLAN_NO = '#GX_PLAN_NO#'
   AND T.DIMATER = '#DIAMETER_OUT#'
   AND T.FIX_LEN = '#LEN_GP_SINGLE_OUT#'
   AND T.PRO_PLAN_ID_ZG IS NULL
   AND T.QCM_STAUS = '00'
 GROUP BY T.PRO_PLAN_ID,
          T.GX_PLAN_NO,
          T.STOVE_NO,
          T.JUDGE_STOVE_NO,
          T.FIX_NUM
 ORDER BY T.FIX_NUM DESC
</query>
<query id = "FrmSubContractResult.deleteMatGpDz" desc = "删除库存信息">
<![CDATA[
DECLARE
BEGIN
  FOR MYROW IN (SELECT *
                  FROM (SELECT T.MAT_NO
                          FROM MAT_GP_M T
                         WHERE T.STOVE_NO = '#STOVE_NO#'
                           AND T.JUDGE_STOVE_NO_LG = '#JUDGE_STOVE_NO#'
                           AND T.PRO_PLAN_ID = '#PRO_PLAN_ID#'
                           AND T.GX_PLAN_NO = '#GX_PLAN_NO#'
                           AND T.OUTSOURCING_DOC = '#SUBCONTRACT_NO#'
                           AND T.GPTYPE = '2'
                           AND T.QCM_STAUS = '00'
                         ORDER BY T.MAT_NO DESC)
                 WHERE ROWNUM <= #SUBCONTRACT_NUM#) LOOP
    DELETE FROM YDM_GP_BUTTRESS T WHERE T.MAT_NO = MYROW.MAT_NO;
    DELETE FROM YDM_GP_INLIST T
     WHERE T.MAT_NO = MYROW.MAT_NO
       AND T.INSTOCK_TYPE_CODE = '800701';
    DELETE FROM MAT_GP_M T WHERE T.MAT_NO = MYROW.MAT_NO;
  END LOOP;
END;
]]>
</query>
<query id="FrmSubContractResult.selectPlnOrderZg" desc="查询轧管订单">
		SELECT S.*
		FROM
		PLN_ORDER_ZG_S S
		WHERE S.GPREQ_ID = '#PRO_PLAN_ID#'
		AND S.EXE_STATUS='0'
		ORDER BY
		TO_NUMBER(S.GX_PRO_SEQ) ASC
</query>
<query id = "FrmSubContractResult.selectMatGpMNumZg" desc = "查询已挂单倍坯支数">
SELECT GET_GP_PLNZGM_NUM('#PRO_PLAN_ID#','#GX_PLAN_NO#') AS DB_ACT_COUNT FROM DUAL
</query>
<query id = "FrmSubContractResult.updateMatGpMZg" desc = "写入轧管订单号">
<![CDATA[
DECLARE
BEGIN
  FOR MYROW IN (SELECT *
                  FROM (SELECT *
                          FROM MAT_GP_M T
                         WHERE T.PRO_PLAN_ID = '#PRO_PLAN_ID#'
                           AND T.GX_PLAN_NO = '#GX_PLAN_NO#'
                           AND T.STOVE_NO = '#STOVE_NO#'
                           AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
                           AND T.FIX_NUM = '#FIX_NUM#'
                           AND T.QCM_STAUS = '00'
                           AND T.PRO_PLAN_ID_ZG IS NULL
                         ORDER BY T.MAT_NO ASC)
                 WHERE ROWNUM <= #ACT_COUNT#) LOOP
    UPDATE MAT_GP_M T
       SET T.PRO_PLAN_ID_ZG = '#PRO_PLAN_ID_ZG#',
           T.GX_PLAN_NO_ZG  = '#GX_PLAN_NO_ZG#'
     WHERE T.MAT_NO = MYROW.MAT_NO;
  END LOOP;
END;
]]>
</query>
<query id = "FrmSubContractResult.insertMatButress" desc = "撤销加工完成时恢复钢锭库存">
DECLARE
BEGIN
  FOR MYROW IN (SELECT T.*,
                       S.STORAGE_NO,
                       S.LOCATION_NO,
                       S.LARY_NO,
                       (SELECT F.LOCATION_NAME
                          FROM YDM_BS_LOCATION F
                         WHERE F.LOCATION_NO = S.LOCATION_NO) LOCATION_NAME
                  FROM MAT_GP_M_HISTORY T, YDM_GP_OUTLIST S
                 WHERE T.MAT_NO = S.MAT_NO
                   AND S.OUTSTOCK_TYPE_CODE = '800809'
                   AND T.STOVE_NO = '#STOVE_NO#'
                   AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
                   AND T.OUTSOURCING_DOC =
                       '#SUBCONTRACT_NO#' || '#SUBCONTRACT_NO_SEQ#') LOOP
    INSERT INTO MAT_GP_M
      (MAT_NO,
       PRODUCT_FLAG,
       MAT_STATUS,
       STOVE_NO,
       FLAG_STOVE_NO,
       JUDGE_STOVE_NO,
       CAST_NO,
       CCMID,
       MAT_ORIGIN_CODE,
       MAT_ORIGIN_NAME,
       SOURE_CODE,
       SOURE_NAME,
       MATERIAL_NO,
       MATERIAL_NAME,
       INPUT_MATERIAL_NAME,
       INPUT_MATERIAL_NO,
       INPUT_ORIGIN_CODE,
       GRADECODE,
       GRADENAME,
       STD_CODE,
       STD_NAME,
       PRO_ORDER_NO,
       ORDER_NO,
       ORDER_SEQ,
       ORDER_SEQ_NO,
       ORD_PK,
       ORD_LN_PK,
       ORD_LN_DLY_PK,
       PROCESS_CDOE,
       PROCESS_DESC,
       NEXT_PROCESS_CDOE,
       NEXT_PROCESS_DESC,
       PLINE_CODE,
       PLINE_NAME,
       DIMATER,
       HEIGHT,
       ACT_LEN,
       FIX_NUM,
       FIX_LEN,
       ACT_COUNT,
       ACT_WEIGHT,
       ACT_THEORY_WEIGHT,
       PONDER_NO,
       PONDER_GROSS_WT,
       MEASURE_FLAG,
       STOVE_PRINT_FLAG,
       MAT_GOWHERE_CODE,
       MAT_GOWHERE_NAME,
       BELONG_CODE,
       BELONG_NAME,
       LOCK_FLAG,
       MNG_LOCK_FLAG,
       MNG_LOCK_RSN_CODE,
       MNG_LOCK_TIME,
       MNG_LOCK_MAKER,
       MNG_LOCK_REMARK,
       LOCK_RSN_CODE,
       LOCK_TIME,
       LOCK_MAKER,
       LOCK_REMARK,
       UNLOCK_TIME,
       UNLOCK_MAKER,
       UNLOCK_REMARK,
       OLD_ORDER_NO,
       OLD_ORDER_SEQ,
       OLD_ORDER_SEQ_NO,
       OLD_MATERIAL_NO,
       OLD_MATERIAL_NAME,
       REMAIN_RSN_CODE,
       REMAIN_JUGDE_TIME,
       REMAIN_JUGDE_MAKER,
       REMAIN_JUGDE_CODE,
       REMAIN_REMARK,
       JUGDE_APPLY_FLAG,
       JUGDE_APPLY_CODE,
       JUGDE_APPLY_TIME,
       JUGDE_SCAN_TIME,
       FACE_RESULT_CODE,
       FACE_RESULT_TIME,
       FACE_MAKER,
       CHEM_RESULT_CODE,
       CHEM_RESULT_TIME,
       CHEM_MAKER,
       PHY_RESULT_CODE,
       PHY_RESULT_TIME,
       PHY_MAKER,
       DETECT_REPORT_NO,
       DETECT_RESULT_CODE,
       BUG_NO,
       BUG_DEAL,
       OUTSOURCING_DOC,
       OUTSOURCING_FLAG,
       SAMPLING_FLAG,
       SAMPLING_TYPE,
       SAMPLING_NO,
       CHECKOUT_NO,
       CHEM_STCHECK_NO,
       CHEM_PROCHECK_NO,
       INSTOCK_FLAG,
       INSTOCK_TIME,
       OUTSTOCK_TIME,
       PRO_BC,
       PRO_BZ,
       RPO_TIME,
       BAR_CODE,
       BEGINNING_FLAG,
       BAL_YEAR_MONTH,
       MEMO,
       CREATE_NAME,
       CREATE_TIME,
       UPDATE_NAME,
       UPDATE_TIME,
       GROUD_NO,
       BUG_DEAL_CODE,
       SURFACE_CHECK_NO,
       CHEM_JUDGE_ID,
       PHY_JUDGE_ID,
       PHY_RESULT_ID,
       OLD_JUDGE_STOVE_NO,
       OLD_GROUD_NO,
       OLD_GRADECODE,
       OLD_GRADENAME,
       OLD_STD_CODE,
       OLD_STD_NAME,
       JUDGE_RESULT_CODE,
       JUDGE_RESULT_TIME,
       JUDGE_MAKER,
       OLD_STOVE_NO,
       PRINT_STOVE_NO,
       PRO_PLAN_ID,
       GX_PLAN_NO,
       GPREQ_ID,
       DB_ACT_COUNT,
       CIC,
       PIC,
       SIC,
       DIC,
       GPTYPE,
       SEQUENCENO,
       FURNACENO,
       QCM_STAUS,
       HANGING_FLAG,
       LG_CRAFT_NO,
       ISENDGX,
       PRODUCCODE,
       PRODUCNAME,
       CRAFTNO,
       PLAN_ROUTE,
       PRO_PLAN_ID_ZG,
       GX_PLAN_NO_ZG,
       STEELCODE,
       STEELNAME,
       CUT_YU_LONG,
       LK_FLAG,
       STEEL_STANDRAD,
       JUDGE_ID,
       EF_PLINE_CODE,
       EF_PLINE_NAME,
       INSTANCY_FLAG,
       JUDGE_STOVE_NO_LG)
    VALUES
      (MYROW.MAT_NO,
       MYROW.PRODUCT_FLAG,
       MYROW.MAT_STATUS,
       MYROW.STOVE_NO,
       MYROW.FLAG_STOVE_NO,
       MYROW.JUDGE_STOVE_NO,
       MYROW.CAST_NO,
       MYROW.CCMID,
       MYROW.MAT_ORIGIN_CODE,
       MYROW.MAT_ORIGIN_NAME,
       MYROW.SOURE_CODE,
       MYROW.SOURE_NAME,
       MYROW.MATERIAL_NO,
       MYROW.MATERIAL_NAME,
       MYROW.INPUT_MATERIAL_NAME,
       MYROW.INPUT_MATERIAL_NO,
       MYROW.INPUT_ORIGIN_CODE,
       MYROW.GRADECODE,
       MYROW.GRADENAME,
       MYROW.STD_CODE,
       MYROW.STD_NAME,
       MYROW.PRO_ORDER_NO,
       MYROW.ORDER_NO,
       MYROW.ORDER_SEQ,
       MYROW.ORDER_SEQ_NO,
       MYROW.ORD_PK,
       MYROW.ORD_LN_PK,
       MYROW.ORD_LN_DLY_PK,
       MYROW.PROCESS_CDOE,
       MYROW.PROCESS_DESC,
       MYROW.NEXT_PROCESS_CDOE,
       MYROW.NEXT_PROCESS_DESC,
       MYROW.PLINE_CODE,
       MYROW.PLINE_NAME,
       MYROW.DIMATER,
       MYROW.HEIGHT,
       MYROW.ACT_LEN,
       MYROW.FIX_NUM,
       MYROW.FIX_LEN,
       MYROW.ACT_COUNT,
       MYROW.ACT_WEIGHT,
       MYROW.ACT_THEORY_WEIGHT,
       MYROW.PONDER_NO,
       MYROW.PONDER_GROSS_WT,
       MYROW.MEASURE_FLAG,
       MYROW.STOVE_PRINT_FLAG,
       MYROW.MAT_GOWHERE_CODE,
       MYROW.MAT_GOWHERE_NAME,
       MYROW.BELONG_CODE,
       MYROW.BELONG_NAME,
       MYROW.LOCK_FLAG,
       MYROW.MNG_LOCK_FLAG,
       MYROW.MNG_LOCK_RSN_CODE,
       MYROW.MNG_LOCK_TIME,
       MYROW.MNG_LOCK_MAKER,
       MYROW.MNG_LOCK_REMARK,
       MYROW.LOCK_RSN_CODE,
       MYROW.LOCK_TIME,
       MYROW.LOCK_MAKER,
       MYROW.LOCK_REMARK,
       MYROW.UNLOCK_TIME,
       MYROW.UNLOCK_MAKER,
       MYROW.UNLOCK_REMARK,
       MYROW.OLD_ORDER_NO,
       MYROW.OLD_ORDER_SEQ,
       MYROW.OLD_ORDER_SEQ_NO,
       MYROW.OLD_MATERIAL_NO,
       MYROW.OLD_MATERIAL_NAME,
       MYROW.REMAIN_RSN_CODE,
       MYROW.REMAIN_JUGDE_TIME,
       MYROW.REMAIN_JUGDE_MAKER,
       MYROW.REMAIN_JUGDE_CODE,
       MYROW.REMAIN_REMARK,
       MYROW.JUGDE_APPLY_FLAG,
       MYROW.JUGDE_APPLY_CODE,
       MYROW.JUGDE_APPLY_TIME,
       MYROW.JUGDE_SCAN_TIME,
       MYROW.FACE_RESULT_CODE,
       MYROW.FACE_RESULT_TIME,
       MYROW.FACE_MAKER,
       MYROW.CHEM_RESULT_CODE,
       MYROW.CHEM_RESULT_TIME,
       MYROW.CHEM_MAKER,
       MYROW.PHY_RESULT_CODE,
       MYROW.PHY_RESULT_TIME,
       MYROW.PHY_MAKER,
       MYROW.DETECT_REPORT_NO,
       MYROW.DETECT_RESULT_CODE,
       MYROW.BUG_NO,
       MYROW.BUG_DEAL,
       MYROW.OUTSOURCING_DOC,
       MYROW.OUTSOURCING_FLAG,
       MYROW.SAMPLING_FLAG,
       MYROW.SAMPLING_TYPE,
       MYROW.SAMPLING_NO,
       MYROW.CHECKOUT_NO,
       MYROW.CHEM_STCHECK_NO,
       MYROW.CHEM_PROCHECK_NO,
       MYROW.INSTOCK_FLAG,
       MYROW.INSTOCK_TIME,
       MYROW.OUTSTOCK_TIME,
       MYROW.PRO_BC,
       MYROW.PRO_BZ,
       MYROW.RPO_TIME,
       MYROW.BAR_CODE,
       MYROW.BEGINNING_FLAG,
       MYROW.BAL_YEAR_MONTH,
       MYROW.MEMO,
       MYROW.CREATE_NAME,
       MYROW.CREATE_TIME,
       MYROW.UPDATE_NAME,
       MYROW.UPDATE_TIME,
       MYROW.GROUD_NO,
       MYROW.BUG_DEAL_CODE,
       MYROW.SURFACE_CHECK_NO,
       MYROW.CHEM_JUDGE_ID,
       MYROW.PHY_JUDGE_ID,
       MYROW.PHY_RESULT_ID,
       MYROW.OLD_JUDGE_STOVE_NO,
       MYROW.OLD_GROUD_NO,
       MYROW.OLD_GRADECODE,
       MYROW.OLD_GRADENAME,
       MYROW.OLD_STD_CODE,
       MYROW.OLD_STD_NAME,
       MYROW.JUDGE_RESULT_CODE,
       MYROW.JUDGE_RESULT_TIME,
       MYROW.JUDGE_MAKER,
       MYROW.OLD_STOVE_NO,
       MYROW.PRINT_STOVE_NO,
       MYROW.PRO_PLAN_ID,
       MYROW.GX_PLAN_NO,
       MYROW.GPREQ_ID,
       MYROW.DB_ACT_COUNT,
       MYROW.CIC,
       MYROW.PIC,
       MYROW.SIC,
       MYROW.DIC,
       MYROW.GPTYPE,
       MYROW.SEQUENCENO,
       MYROW.FURNACENO,
       MYROW.QCM_STAUS,
       MYROW.HANGING_FLAG,
       MYROW.LG_CRAFT_NO,
       MYROW.ISENDGX,
       MYROW.PRODUCCODE,
       MYROW.PRODUCNAME,
       MYROW.CRAFTNO,
       MYROW.PLAN_ROUTE,
       MYROW.PRO_PLAN_ID_ZG,
       MYROW.GX_PLAN_NO_ZG,
       MYROW.STEELCODE,
       MYROW.STEELNAME,
       MYROW.CUT_YU_LONG,
       MYROW.LK_FLAG,
       MYROW.STEEL_STANDRAD,
       MYROW.JUDGE_ID,
       MYROW.EF_PLINE_CODE,
       MYROW.EF_PLINE_NAME,
       MYROW.INSTANCY_FLAG,
       MYROW.JUDGE_STOVE_NO_LG);
    INSERT INTO YDM_GP_BUTTRESS
      (MAT_NO,
       STOVE_NO,
       FLAG_STOVE_NO,
       JUDGE_STOVE_NO,
       STORAGE_NO,
       LOCATION_NO,
       LARY_NO,
       CREATE_NAME,
       CREATE_TIME,
       GROUD_NO,
       LOCATION_NAME,
       JUDGE_STOVE_NO_LG)
    VALUES
      (MYROW.MAT_NO,
       MYROW.STOVE_NO,
       MYROW.FLAG_STOVE_NO,
       MYROW.JUDGE_STOVE_NO,
       MYROW.STORAGE_NO,
       MYROW.LOCATION_NO,
       MYROW.LARY_NO,
       MYROW.CREATE_NAME,
       MYROW.CREATE_TIME,
       MYROW.GROUD_NO,
       MYROW.LOCATION_NAME,
       MYROW.JUDGE_STOVE_NO_LG);
    DELETE FROM YDM_GP_OUTLIST T
     WHERE T.MAT_NO = MYROW.MAT_NO
       AND T.OUTSTOCK_TYPE_CODE IN ('800801', '800809');
    DELETE FROM MAT_GP_M_HISTORY T WHERE T.MAT_NO = MYROW.MAT_NO;
  END LOOP;
END;
</query>
<query id = "FrmSubContractResult.deleteDieOutMat" desc = "消亡钢锭库存">
DECLARE
V_OUTSTOCK_DOC YDM_GP_OUTLIST.OUTSTOCK_DOC%TYPE := NULL;
V_OUTSTOCK_SQE YDM_GP_OUTLIST.OUTSTOCK_SQE%TYPE := NULL;

V_TOUTSTOCK_DOC YDM_GP_OUTLIST.OUTSTOCK_DOC%TYPE := NULL;
V_TOUTSTOCK_SQE YDM_GP_OUTLIST.OUTSTOCK_SQE%TYPE := NULL;

V_COUNT NUMBER:=1;
V_TIME        YDM_GP_INLIST.CREATE_TIME%TYPE := SYSDATE;
V_BATHYEAR    YDM_GP_INLIST.BAL_YEAR_MONTH%TYPE := TO_CHAR(SYSDATE,'YYYYMM');
BEGIN
    
    SELECT 'CQ' || TO_CHAR(SYSDATE, 'YYMMDD') ||
         LPAD(NVL(MAX(SUBSTR(T.OUTSTOCK_DOC, 9)), 0) + 1, 5, 0) INTO V_OUTSTOCK_DOC
    FROM YDM_GP_OUTLIST T
   WHERE T.OUTSTOCK_TYPE_CODE = '800809'
     AND TO_CHAR(T.CREATE_TIME, 'YYYY-MM-DD') =
         TO_CHAR(SYSDATE, 'YYYY-MM-DD');
    
   SELECT 'OA' || TO_CHAR(SYSDATE, 'YYMMDD') ||
         LPAD(NVL(MAX(SUBSTR(T.OUTSTOCK_DOC, 9)), 0) + 1, 5, 0) INTO V_TOUTSTOCK_DOC
    FROM YDM_GP_OUTLIST T
   WHERE T.OUTSTOCK_TYPE_CODE = '800801'
     AND TO_CHAR(T.CREATE_TIME, 'YYYY-MM-DD') =
         TO_CHAR(SYSDATE, 'YYYY-MM-DD');
   
  FOR MYROW IN (SELECT T.*,
                       S.STORAGE_NO,
                       S.LOCATION_NO,
                       S.LOCATION_NAME,
                       S.LARY_NO
                  FROM MAT_GP_M T, YDM_GP_BUTTRESS S
                 WHERE T.MAT_NO = S.MAT_NO
                   AND T.STOVE_NO = '#STOVE_NO#'
                   AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
                   AND T.OUTSOURCING_DOC =
                       '#SUBCONTRACT_NO#' || '#SUBCONTRACT_NO_SEQ#'
                 ORDER BY T.MAT_NO DESC) LOOP
    INSERT INTO MAT_GP_M_HISTORY
      (MAT_NO,
       PRODUCT_FLAG,
       MAT_STATUS,
       STOVE_NO,
       FLAG_STOVE_NO,
       JUDGE_STOVE_NO,
       CAST_NO,
       CCMID,
       MAT_ORIGIN_CODE,
       MAT_ORIGIN_NAME,
       SOURE_CODE,
       SOURE_NAME,
       MATERIAL_NO,
       MATERIAL_NAME,
       INPUT_MATERIAL_NAME,
       INPUT_MATERIAL_NO,
       INPUT_ORIGIN_CODE,
       GRADECODE,
       GRADENAME,
       STD_CODE,
       STD_NAME,
       PRO_ORDER_NO,
       ORDER_NO,
       ORDER_SEQ,
       ORDER_SEQ_NO,
       ORD_PK,
       ORD_LN_PK,
       ORD_LN_DLY_PK,
       PROCESS_CDOE,
       PROCESS_DESC,
       NEXT_PROCESS_CDOE,
       NEXT_PROCESS_DESC,
       PLINE_CODE,
       PLINE_NAME,
       DIMATER,
       HEIGHT,
       ACT_LEN,
       FIX_NUM,
       FIX_LEN,
       ACT_COUNT,
       ACT_WEIGHT,
       ACT_THEORY_WEIGHT,
       PONDER_NO,
       PONDER_GROSS_WT,
       MEASURE_FLAG,
       STOVE_PRINT_FLAG,
       MAT_GOWHERE_CODE,
       MAT_GOWHERE_NAME,
       BELONG_CODE,
       BELONG_NAME,
       LOCK_FLAG,
       MNG_LOCK_FLAG,
       MNG_LOCK_RSN_CODE,
       MNG_LOCK_TIME,
       MNG_LOCK_MAKER,
       MNG_LOCK_REMARK,
       LOCK_RSN_CODE,
       LOCK_TIME,
       LOCK_MAKER,
       LOCK_REMARK,
       UNLOCK_TIME,
       UNLOCK_MAKER,
       UNLOCK_REMARK,
       OLD_ORDER_NO,
       OLD_ORDER_SEQ,
       OLD_ORDER_SEQ_NO,
       OLD_MATERIAL_NO,
       OLD_MATERIAL_NAME,
       REMAIN_RSN_CODE,
       REMAIN_JUGDE_TIME,
       REMAIN_JUGDE_MAKER,
       REMAIN_JUGDE_CODE,
       REMAIN_REMARK,
       JUGDE_APPLY_FLAG,
       JUGDE_APPLY_CODE,
       JUGDE_APPLY_TIME,
       JUGDE_SCAN_TIME,
       FACE_RESULT_CODE,
       FACE_RESULT_TIME,
       FACE_MAKER,
       CHEM_RESULT_CODE,
       CHEM_RESULT_TIME,
       CHEM_MAKER,
       PHY_RESULT_CODE,
       PHY_RESULT_TIME,
       PHY_MAKER,
       DETECT_REPORT_NO,
       DETECT_RESULT_CODE,
       BUG_NO,
       BUG_DEAL,
       OUTSOURCING_DOC,
       OUTSOURCING_FLAG,
       SAMPLING_FLAG,
       SAMPLING_TYPE,
       SAMPLING_NO,
       CHECKOUT_NO,
       CHEM_STCHECK_NO,
       CHEM_PROCHECK_NO,
       INSTOCK_FLAG,
       INSTOCK_TIME,
       OUTSTOCK_TIME,
       PRO_BC,
       PRO_BZ,
       RPO_TIME,
       BAR_CODE,
       BEGINNING_FLAG,
       BAL_YEAR_MONTH,
       MEMO,
       CREATE_NAME,
       CREATE_TIME,
       UPDATE_NAME,
       UPDATE_TIME,
       GROUD_NO,
       BUG_DEAL_CODE,
       SURFACE_CHECK_NO,
       CHEM_JUDGE_ID,
       PHY_JUDGE_ID,
       PHY_RESULT_ID,
       OLD_JUDGE_STOVE_NO,
       OLD_GROUD_NO,
       OLD_GRADECODE,
       OLD_GRADENAME,
       OLD_STD_CODE,
       OLD_STD_NAME,
       JUDGE_RESULT_CODE,
       JUDGE_RESULT_TIME,
       JUDGE_MAKER,
       OLD_STOVE_NO,
       PRINT_STOVE_NO,
       PRO_PLAN_ID,
       GX_PLAN_NO,
       GPREQ_ID,
       DB_ACT_COUNT,
       CIC,
       PIC,
       SIC,
       DIC,
       GPTYPE,
       SEQUENCENO,
       FURNACENO,
       QCM_STAUS,
       HANGING_FLAG,
       LG_CRAFT_NO,
       ISENDGX,
       PRODUCCODE,
       PRODUCNAME,
       CRAFTNO,
       PLAN_ROUTE,
       PRO_PLAN_ID_ZG,
       GX_PLAN_NO_ZG,
       STEELCODE,
       STEELNAME,
       CUT_YU_LONG,
       LK_FLAG,
       STEEL_STANDRAD,
       JUDGE_ID,
       EF_PLINE_CODE,
       EF_PLINE_NAME,
       INSTANCY_FLAG,
       JUDGE_STOVE_NO_LG)
    VALUES
      (MYROW.MAT_NO,
       MYROW.PRODUCT_FLAG,
       MYROW.MAT_STATUS,
       MYROW.STOVE_NO,
       MYROW.FLAG_STOVE_NO,
       MYROW.JUDGE_STOVE_NO,
       MYROW.CAST_NO,
       MYROW.CCMID,
       MYROW.MAT_ORIGIN_CODE,
       MYROW.MAT_ORIGIN_NAME,
       MYROW.SOURE_CODE,
       MYROW.SOURE_NAME,
       MYROW.MATERIAL_NO,
       MYROW.MATERIAL_NAME,
       MYROW.INPUT_MATERIAL_NAME,
       MYROW.INPUT_MATERIAL_NO,
       MYROW.INPUT_ORIGIN_CODE,
       MYROW.GRADECODE,
       MYROW.GRADENAME,
       MYROW.STD_CODE,
       MYROW.STD_NAME,
       MYROW.PRO_ORDER_NO,
       MYROW.ORDER_NO,
       MYROW.ORDER_SEQ,
       MYROW.ORDER_SEQ_NO,
       MYROW.ORD_PK,
       MYROW.ORD_LN_PK,
       MYROW.ORD_LN_DLY_PK,
       MYROW.PROCESS_CDOE,
       MYROW.PROCESS_DESC,
       MYROW.NEXT_PROCESS_CDOE,
       MYROW.NEXT_PROCESS_DESC,
       MYROW.PLINE_CODE,
       MYROW.PLINE_NAME,
       MYROW.DIMATER,
       MYROW.HEIGHT,
       MYROW.ACT_LEN,
       MYROW.FIX_NUM,
       MYROW.FIX_LEN,
       MYROW.ACT_COUNT,
       MYROW.ACT_WEIGHT,
       MYROW.ACT_THEORY_WEIGHT,
       MYROW.PONDER_NO,
       MYROW.PONDER_GROSS_WT,
       MYROW.MEASURE_FLAG,
       MYROW.STOVE_PRINT_FLAG,
       MYROW.MAT_GOWHERE_CODE,
       MYROW.MAT_GOWHERE_NAME,
       MYROW.BELONG_CODE,
       MYROW.BELONG_NAME,
       MYROW.LOCK_FLAG,
       MYROW.MNG_LOCK_FLAG,
       MYROW.MNG_LOCK_RSN_CODE,
       MYROW.MNG_LOCK_TIME,
       MYROW.MNG_LOCK_MAKER,
       MYROW.MNG_LOCK_REMARK,
       MYROW.LOCK_RSN_CODE,
       MYROW.LOCK_TIME,
       MYROW.LOCK_MAKER,
       MYROW.LOCK_REMARK,
       MYROW.UNLOCK_TIME,
       MYROW.UNLOCK_MAKER,
       MYROW.UNLOCK_REMARK,
       MYROW.OLD_ORDER_NO,
       MYROW.OLD_ORDER_SEQ,
       MYROW.OLD_ORDER_SEQ_NO,
       MYROW.OLD_MATERIAL_NO,
       MYROW.OLD_MATERIAL_NAME,
       MYROW.REMAIN_RSN_CODE,
       MYROW.REMAIN_JUGDE_TIME,
       MYROW.REMAIN_JUGDE_MAKER,
       MYROW.REMAIN_JUGDE_CODE,
       MYROW.REMAIN_REMARK,
       MYROW.JUGDE_APPLY_FLAG,
       MYROW.JUGDE_APPLY_CODE,
       MYROW.JUGDE_APPLY_TIME,
       MYROW.JUGDE_SCAN_TIME,
       MYROW.FACE_RESULT_CODE,
       MYROW.FACE_RESULT_TIME,
       MYROW.FACE_MAKER,
       MYROW.CHEM_RESULT_CODE,
       MYROW.CHEM_RESULT_TIME,
       MYROW.CHEM_MAKER,
       MYROW.PHY_RESULT_CODE,
       MYROW.PHY_RESULT_TIME,
       MYROW.PHY_MAKER,
       MYROW.DETECT_REPORT_NO,
       MYROW.DETECT_RESULT_CODE,
       MYROW.BUG_NO,
       MYROW.BUG_DEAL,
       MYROW.OUTSOURCING_DOC,
       MYROW.OUTSOURCING_FLAG,
       MYROW.SAMPLING_FLAG,
       MYROW.SAMPLING_TYPE,
       MYROW.SAMPLING_NO,
       MYROW.CHECKOUT_NO,
       MYROW.CHEM_STCHECK_NO,
       MYROW.CHEM_PROCHECK_NO,
       MYROW.INSTOCK_FLAG,
       MYROW.INSTOCK_TIME,
       MYROW.OUTSTOCK_TIME,
       MYROW.PRO_BC,
       MYROW.PRO_BZ,
       MYROW.RPO_TIME,
       MYROW.BAR_CODE,
       MYROW.BEGINNING_FLAG,
       MYROW.BAL_YEAR_MONTH,
       MYROW.MEMO,
       MYROW.CREATE_NAME,
       MYROW.CREATE_TIME,
       MYROW.UPDATE_NAME,
       MYROW.UPDATE_TIME,
       MYROW.GROUD_NO,
       MYROW.BUG_DEAL_CODE,
       MYROW.SURFACE_CHECK_NO,
       MYROW.CHEM_JUDGE_ID,
       MYROW.PHY_JUDGE_ID,
       MYROW.PHY_RESULT_ID,
       MYROW.OLD_JUDGE_STOVE_NO,
       MYROW.OLD_GROUD_NO,
       MYROW.OLD_GRADECODE,
       MYROW.OLD_GRADENAME,
       MYROW.OLD_STD_CODE,
       MYROW.OLD_STD_NAME,
       MYROW.JUDGE_RESULT_CODE,
       MYROW.JUDGE_RESULT_TIME,
       MYROW.JUDGE_MAKER,
       MYROW.OLD_STOVE_NO,
       MYROW.PRINT_STOVE_NO,
       MYROW.PRO_PLAN_ID,
       MYROW.GX_PLAN_NO,
       MYROW.GPREQ_ID,
       MYROW.DB_ACT_COUNT,
       MYROW.CIC,
       MYROW.PIC,
       MYROW.SIC,
       MYROW.DIC,
       MYROW.GPTYPE,
       MYROW.SEQUENCENO,
       MYROW.FURNACENO,
       MYROW.QCM_STAUS,
       MYROW.HANGING_FLAG,
       MYROW.LG_CRAFT_NO,
       MYROW.ISENDGX,
       MYROW.PRODUCCODE,
       MYROW.PRODUCNAME,
       MYROW.CRAFTNO,
       MYROW.PLAN_ROUTE,
       MYROW.PRO_PLAN_ID_ZG,
       MYROW.GX_PLAN_NO_ZG,
       MYROW.STEELCODE,
       MYROW.STEELNAME,
       MYROW.CUT_YU_LONG,
       MYROW.LK_FLAG,
       MYROW.STEEL_STANDRAD,
       MYROW.JUDGE_ID,
       MYROW.EF_PLINE_CODE,
       MYROW.EF_PLINE_NAME,
       MYROW.INSTANCY_FLAG,
       MYROW.JUDGE_STOVE_NO_LG);
       V_OUTSTOCK_SQE := V_OUTSTOCK_DOC || LPAD(V_COUNT,4,0);
        INSERT INTO YDM_GP_OUTLIST(
        OUTSTOCK_SQE,
        OUTSTOCK_PLAN_NO,
        OUTSTOCK_DOC,
        OUTSTOCK_TYPE_CODE,
        OUTSTOCK_TYPE_NAME,
        MAT_NO,
        PRODUCT_FLAG,
        MAT_STATUS,
        STOVE_NO,
        FLAG_STOVE_NO,
        JUDGE_STOVE_NO,
        CAST_NO,
        CCMID,
        MATERIAL_NO,
        MATERIAL_NAME,
        GRADECODE,
        GRADENAME,
        STD_CODE,
        STD_NAME,
        DIMATER,
        ACT_LEN,
        FIX_NUM,
        FIX_LEN,
        ACT_COUNT,
        ACT_WEIGHT,
        ACT_THEORY_WEIGHT,
        PLINE_CODE,
        PLINE_NAME,
        PRO_ORDER_NO,
        BELONG_CODE,
        BELONG_NAME,
        STORAGE_NO,
        LOCATION_NO,
        LARY_NO,
        BAL_YEAR_MONTH,
        OUTSTOCK_TIME,
        CREATE_NAME,
        CREATE_TIME,
        GROUD_NO,
        PRO_PLAN_ID,
        GX_PLAN_NO,
        FURNACENO,
        SEQUENCENO,
        GPTYPE,
        CIC,
        PIC,
        SIC,
        DIC,
        PRODUCCODE,
        PRODUCNAME,
        PRO_PLAN_ID_ZG,
        GX_PLAN_NO_ZG)
 VALUES( 
        V_OUTSTOCK_SQE,
        '#HEAT_PLAN_NO#',
        V_OUTSTOCK_DOC,
        '800809',
        '产权出库',
        MYROW.MAT_NO,
        MYROW.PRODUCT_FLAG,
        MYROW.MAT_STATUS,
        MYROW.STOVE_NO,
        MYROW.FLAG_STOVE_NO,
        MYROW.JUDGE_STOVE_NO,
        MYROW.CAST_NO,
        MYROW.CCMID,
        MYROW.MATERIAL_NO,
        MYROW.MATERIAL_NAME,
        MYROW.GRADECODE,
        MYROW.GRADENAME,
        MYROW.STD_CODE,
        MYROW.STD_NAME,
        MYROW.DIMATER,
        MYROW.ACT_LEN,
        MYROW.FIX_NUM,
        MYROW.FIX_LEN,
        MYROW.ACT_COUNT,
        MYROW.ACT_WEIGHT,
        MYROW.ACT_THEORY_WEIGHT,
        MYROW.PLINE_CODE,
        MYROW.PLINE_NAME,
        MYROW.PRO_ORDER_NO,
        MYROW.BELONG_CODE,
        MYROW.BELONG_NAME,
        MYROW.STORAGE_NO,
        MYROW.LOCATION_NO,
        MYROW.LARY_NO,
        V_BATHYEAR,
        V_TIME,
        '#CREATE_NAME#',
        V_TIME,
        MYROW.GROUD_NO,
        MYROW.PRO_PLAN_ID,
        MYROW.GX_PLAN_NO,
        MYROW.FURNACENO,
        MYROW.SEQUENCENO,
        MYROW.GPTYPE,
        MYROW.CIC,
        MYROW.PIC,
        MYROW.SIC,
        MYROW.DIC,
        MYROW.PRODUCCODE,
        MYROW.PRODUCNAME,
        MYROW.PRO_PLAN_ID_ZG,
        MYROW.GX_PLAN_NO_ZG);
        V_TOUTSTOCK_SQE := V_TOUTSTOCK_DOC || LPAD(V_COUNT,4,0);
        INSERT INTO YDM_GP_OUTLIST(
        OUTSTOCK_SQE,
        OUTSTOCK_PLAN_NO,
        OUTSTOCK_DOC,
        OUTSTOCK_TYPE_CODE,
        OUTSTOCK_TYPE_NAME,
        MAT_NO,
        PRODUCT_FLAG,
        MAT_STATUS,
        STOVE_NO,
        FLAG_STOVE_NO,
        JUDGE_STOVE_NO,
        CAST_NO,
        CCMID,
        MATERIAL_NO,
        MATERIAL_NAME,
        GRADECODE,
        GRADENAME,
        STD_CODE,
        STD_NAME,
        DIMATER,
        ACT_LEN,
        FIX_NUM,
        FIX_LEN,
        ACT_COUNT,
        ACT_WEIGHT,
        ACT_THEORY_WEIGHT,
        PLINE_CODE,
        PLINE_NAME,
        PRO_ORDER_NO,
        BELONG_CODE,
        BELONG_NAME,
        STORAGE_NO,
        LOCATION_NO,
        LARY_NO,
        BAL_YEAR_MONTH,
        OUTSTOCK_TIME,
        CREATE_NAME,
        CREATE_TIME,
        GROUD_NO,
        PRO_PLAN_ID,
        GX_PLAN_NO,
        FURNACENO,
        SEQUENCENO,
        GPTYPE,
        CIC,
        PIC,
        SIC,
        DIC,
        PRODUCCODE,
        PRODUCNAME,
        PRO_PLAN_ID_ZG,
        GX_PLAN_NO_ZG)
 VALUES( 
        V_TOUTSTOCK_SQE,
        '#HEAT_PLAN_NO#',
        V_TOUTSTOCK_DOC,
        '800801',
        '投料出库',
        MYROW.MAT_NO,
        MYROW.PRODUCT_FLAG,
        MYROW.MAT_STATUS,
        MYROW.STOVE_NO,
        MYROW.FLAG_STOVE_NO,
        MYROW.JUDGE_STOVE_NO,
        MYROW.CAST_NO,
        MYROW.CCMID,
        MYROW.MATERIAL_NO,
        MYROW.MATERIAL_NAME,
        MYROW.GRADECODE,
        MYROW.GRADENAME,
        MYROW.STD_CODE,
        MYROW.STD_NAME,
        MYROW.DIMATER,
        MYROW.ACT_LEN,
        MYROW.FIX_NUM,
        MYROW.FIX_LEN,
        MYROW.ACT_COUNT,
        MYROW.ACT_WEIGHT,
        MYROW.ACT_THEORY_WEIGHT,
        MYROW.PLINE_CODE,
        MYROW.PLINE_NAME,
        MYROW.PRO_ORDER_NO,
        MYROW.BELONG_CODE,
        MYROW.BELONG_NAME,
        MYROW.STORAGE_NO,
        MYROW.LOCATION_NO,
        MYROW.LARY_NO,
        V_BATHYEAR,
        V_TIME,
        '#CREATE_NAME#',
        V_TIME,
        MYROW.GROUD_NO,
        MYROW.PRO_PLAN_ID,
        MYROW.GX_PLAN_NO,
        MYROW.FURNACENO,
        MYROW.SEQUENCENO,
        MYROW.GPTYPE,
        MYROW.CIC,
        MYROW.PIC,
        MYROW.SIC,
        MYROW.DIC,
        MYROW.PRODUCCODE,
        MYROW.PRODUCNAME,
        MYROW.PRO_PLAN_ID_ZG,
        MYROW.GX_PLAN_NO_ZG);
        
        DELETE FROM MAT_GP_M T WHERE T.MAT_NO = MYROW.MAT_NO;
        DELETE FROM YDM_GP_BUTTRESS S WHERE S.MAT_NO = MYROW.MAT_NO;
        V_COUNT := V_COUNT +1;
  END LOOP;
END;
</query>
</queryMap>