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

<?xml version="1.0" encoding="UTF-8"?>
<queryMap id = "" desc = "管坯组炉改判管理">
<query id = "FrmMatGroupManage.doQueryMatData" desc = "查询库存数据">
SELECT 
       T.STOVE_NO,
       T.JUDGE_STOVE_NO,
       T.MATERIAL_NO,
       T.MATERIAL_NAME,
       T.GRADECODE,
       T.GRADENAME,
       T.PLINE_CODE,
       T.PLINE_NAME,
       T.DIMATER,
       T.ACT_LEN,
       T.FIX_NUM,
       T.FIX_LEN,
       SUM(T.ACT_COUNT) ACT_COUNT,
       SUM(T.ACT_WEIGHT) ACT_WEIGHT,
       T.BELONG_CODE,
       T.BELONG_NAME,
       (SELECT C.STORAGE_NAME
          FROM YDM_BS_STORAGE C
         WHERE C.STORAGE_NO = S.STORAGE_NO) STORAGE_NAME,
       S.STORAGE_NO,
       S.LOCATION_NO,
       S.LOCATION_NAME,
       DECODE(T.QCM_STAUS,'00','合格','11','待处理','22','废品')QCM_STAUS,
       DECODE(T.GPTYPE,'1','铸坯','2','锻坯')GPTYPE,
       T.FURNACENO,
       T.SEQUENCENO,
       (SELECT T1.BASENAME FROM COM_BASE_INFO T1 WHERE T1.BASECODE = T.JUDGE_RESULT_CODE)JUDGE_RESULT_CODE,
        T.SUPPLY_UNIT_CODE,
        T.SUPPLY_UNIT,
        max(T.HANGING_FLAG) HANGING_FLAG,
      DECODE(T.IS_DEALER,'0','自用','1','双经销','2','来料加工','3','定销订购') IS_DEALER,
    DECODE(T.BACK_FLAG,'0','正常坯','1','回炉坯','2','套尺坯','3','掉队坯') BACK_FLAG
  FROM MAT_GP_M T, YDM_GP_BUTTRESS S
 WHERE T.MAT_NO = S.MAT_NO
 AND T.QCM_STAUS = '00'
    AND T.IS_SETFOOT = '0'
</query>

<query id = "FrmMatGroupManage.doQueryMatGroup" desc = "查询组炉信息">
 SELECT 
       MAX(T.MAT_GROUP_NO)MAT_GROUP_NO,
       MAX(T.MATERIAL_NO)MATERIAL_NO,
       MAX(T.MATERIAL_NAME)MATERIAL_NAME,
       MAX(T.GRADECODE)GRADECODE,
       MAX(T.GRADENAME)GRADENAME,
       MAX(T.PLINE_CODE)PLINE_CODE,
       MAX(T.PLINE_NAME)PLINE_NAME,
       MAX(T.DIMATER)DIMATER,
       MAX(T.FIX_LEN)FIX_LEN,
       SUM(T.ACT_COUNT)ACT_COUNT,
       SUM(T.ACT_WEIGHT)ACT_WEIGHT,
       MAX(T.BELONG_CODE)BELONG_CODE,
       MAX(T.BELONG_NAME)BELONG_NAME,
       MAX(T.ZL_JUDGE_STOVE_NO)ZL_JUDGE_STOVE_NO,
       MAX(TO_CHAR(T.GROUP_TIME,'YYYY-MM-DD HH:MM:SS'))GROUP_TIME,
       T.NEW_JUDGE_STOVE_NO,
       T.NEW_STOVE_NO
 FROM MAT_GP_GROUP_HISTORY T
WHERE 1 = 1
</query>
<query id = "FrmMatGroupManage.doQueryMatGroupData" desc = "组炉详细信息">
 SELECT 
       T.MAT_GROUP_NO,
       T.STOVE_NO,
       T.JUDGE_STOVE_NO,
       T.MATERIAL_NO,
       T.MATERIAL_NAME,
       T.GRADECODE,
       T.GRADENAME,
       T.PLINE_CODE,
       T.PLINE_NAME,
       T.DIMATER,
       T.ACT_LEN,
       T.FIX_NUM,
       T.FIX_LEN,
       T.ACT_COUNT,
       T.ACT_WEIGHT,
       T.BELONG_CODE,
       T.BELONG_NAME,
       T.CIC,
       T.PIC,
       T.SIC,
       T.DIC,
       T.PLAN_ROUTE,
       TO_CHAR(T.GROUP_TIME, 'YYYY-MM-DD HH24:MI:SS') GROUP_TIME,
       --TZH 新增料位名称
         ( select  (select location_name from YDM_BS_LOCATION where LOCATION_NO = r.LOCATION_NO) xx from 
 ydm_gp_outlist  r where r.judge_stove_no = t.judge_stove_no and r.outstock_type_code = '800811' 
 and rownum =1) location_name
 FROM MAT_GP_GROUP_HISTORY T
WHERE 1 = 1
</query>
<query id = "FrmMatGroupManage.GroupMat" desc = "查询需要组炉物料信息">
SELECT NVL(SUM(T.ACT_COUNT),0) ACOUNT
  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.FIX_NUM = '#FIX_NUM#'
    AND T.ACT_LEN = '#ACT_LEN#'
    AND T.IS_DEALER = '#IS_DEALER#'
    AND T.BACK_FLAG = '#BACK_FLAG#'
   AND T.PRO_PLAN_ID_ZG IS NULL
   AND T.QCM_STAUS = '00'
</query>
<query id = "FrmMatGroupManage.getMatGroupNo" desc = "生成组炉单号">
    SELECT 'ZL' || TO_CHAR(SYSDATE, 'YYMMDD') ||
    LPAD(NVL(MAX(SUBSTR(T.MAT_GROUP_NO, 9)), 0) + 1, 5, 0) MAT_GROUP_NO
    FROM MAT_GP_GROUP_HISTORY T
    WHERE T.MAT_GROUP_NO LIKE 'ZL'|| TO_CHAR(SYSDATE, 'YYMMDD') ||'_____'
</query>
<query id = "FrmMatGroupManage.insertMatGroupNoSql" desc = "插入组炉履历表">
<![CDATA[
DECLARE
BEGIN
  FOR MYROW IN (SELECT T.STOVE_NO,
                       T.JUDGE_STOVE_NO,
                       T.FLAG_STOVE_NO,
                       T.PRODUCT_FLAG,
                       T.MAT_STATUS,
                       T.CAST_NO,
                       T.CCMID,
                       T.MAT_ORIGIN_CODE,
                       T.MAT_ORIGIN_NAME,
                       T.MATERIAL_NO,
                       T.MATERIAL_NAME,
                       T.GRADECODE,
                       T.GRADENAME,
                       T.PLINE_CODE,
                       T.PLINE_NAME,
                       T.DIMATER,
                       T.ACT_LEN,
                       T.FIX_NUM,
                       T.FIX_LEN,
                       SUM(T.ACT_COUNT) ACT_COUNT,
                       SUM(T.ACT_WEIGHT) ACT_WEIGHT,
                       T.BELONG_CODE,
                       T.BELONG_NAME,
                       T.JUGDE_APPLY_FLAG,
                       MAX(T.JUGDE_APPLY_CODE)JUGDE_APPLY_CODE,
                       MAX(T.JUGDE_APPLY_TIME)JUGDE_APPLY_TIME,
                       MAX(T.JUDGE_RESULT_CODE)JUDGE_RESULT_CODE,
                       MAX(T.JUDGE_RESULT_TIME)JUDGE_RESULT_TIME,
                       MAX(T.JUDGE_MAKER)JUDGE_MAKER,
                       T.INSTOCK_FLAG,
                       MAX(T.INSTOCK_TIME)INSTOCK_TIME,
                       MAX(T.BAL_YEAR_MONTH)BAL_YEAR_MONTH,
                       T.DB_ACT_COUNT,
                       T.CIC,
                       T.PIC,
                       T.SIC,
                       T.DIC,
                       T.GPTYPE,
                       T.SEQUENCENO,
                       T.FURNACENO,
                       T.QCM_STAUS,
                       T.LG_CRAFT_NO,
                       T.ISENDGX,
                       T.PRODUCCODE,
                       T.PRODUCNAME,
                       T.CRAFTNO,
                       T.PLAN_ROUTE,
                       T.STEELCODE,
                       T.STEELNAME,
                       T.CUT_YU_LONG,
                       T.GROUD_NO,
                       T.MAT_GOWHERE_NAME,
                       T.MAT_GOWHERE_CODE,
                       T.SUPPLY_UNIT_CODE,
                       T.SUPPLY_UNIT
                  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.FIX_NUM = '#FIX_NUM#'
                   AND T.ACT_LEN = '#ACT_LEN#'
                   AND T.IS_DEALER = '#IS_DEALER#'
                   AND T.BACK_FLAG = '#BACK_FLAG#'
                   AND S.STORAGE_NO = '#STORAGE_NO#'
                   AND S.LOCATION_NO = '#LOCATION_NO#'
                   AND ((t.instancy_flag = '1' AND T.MAT_STATUS <> '80150103') or (T.MAT_STATUS = '80150102' AND T.INSTOCK_FLAG = '1'))
                   AND T.IS_SETFOOT = '0'
                   AND T.LOCK_FLAG = '0'
                   AND T.PRO_PLAN_ID_ZG IS NULL
                   AND ROWNUM <= #ACT_COUNT#
                 GROUP BY T.STOVE_NO,
                          T.JUDGE_STOVE_NO,
                          T.FLAG_STOVE_NO,
                          T.PRODUCT_FLAG,
                          T.MAT_STATUS,
                          T.CAST_NO,
                          T.CCMID,
                          T.MAT_ORIGIN_CODE,
                          T.MAT_ORIGIN_NAME,
                          T.MATERIAL_NO,
                          T.MATERIAL_NAME,
                          T.GRADECODE,
                          T.GRADENAME,
                          T.PLINE_CODE,
                          T.PLINE_NAME,
                          T.DIMATER,
                          T.ACT_LEN,
                          T.FIX_NUM,
                          T.FIX_LEN,
                          T.BELONG_CODE,
                          T.BELONG_NAME,
                          T.JUGDE_APPLY_FLAG,
                          T.INSTOCK_FLAG,
                          T.DB_ACT_COUNT,
                          T.CIC,
                          T.PIC,
                          T.SIC,
                          T.DIC,
                          T.GPTYPE,
                          T.SEQUENCENO,
                          T.FURNACENO,
                          T.QCM_STAUS,
                          T.LG_CRAFT_NO,
                          T.ISENDGX,
                          T.PRODUCCODE,
                          T.PRODUCNAME,
                          T.CRAFTNO,
                          T.PLAN_ROUTE,
                          T.STEELCODE,
                          T.STEELNAME,
                          T.CUT_YU_LONG,
                          T.GROUD_NO,
                          T.MAT_GOWHERE_NAME,
                       T.MAT_GOWHERE_CODE,
                       T.SUPPLY_UNIT_CODE,
                       T.SUPPLY_UNIT) LOOP
    INSERT INTO MAT_GP_GROUP_HISTORY
      (MAT_GROUP_NO,
       PRODUCT_FLAG,
       MAT_STATUS,
       STOVE_NO,
       FLAG_STOVE_NO,
       JUDGE_STOVE_NO,
       CAST_NO,
       CCMID,
       MAT_ORIGIN_CODE,
       MAT_ORIGIN_NAME,
       MATERIAL_NO,
       MATERIAL_NAME,
       GRADECODE,
       GRADENAME,
       PLINE_CODE,
       PLINE_NAME,
       DIMATER,
       ACT_LEN,
       FIX_NUM,
       FIX_LEN,
       ACT_COUNT,
       ACT_WEIGHT,
       MAT_GOWHERE_CODE,
       MAT_GOWHERE_NAME,
       BELONG_CODE,
       BELONG_NAME,
       JUGDE_APPLY_FLAG,
       JUGDE_APPLY_CODE,
       JUGDE_APPLY_TIME,
       INSTOCK_FLAG,
       INSTOCK_TIME,
       BAL_YEAR_MONTH,
       CREATE_NAME,
       CREATE_TIME,
       GROUD_NO,
       JUDGE_RESULT_CODE,
       JUDGE_RESULT_TIME,
       JUDGE_MAKER,
       DB_ACT_COUNT,
       CIC,
       PIC,
       SIC,
       DIC,
       GPTYPE,
       SEQUENCENO,
       FURNACENO,
       QCM_STAUS,
       LG_CRAFT_NO,
       ISENDGX,
       PRODUCCODE,
       PRODUCNAME,
       CRAFTNO,
       PLAN_ROUTE,
       STEELCODE,
       STEELNAME,
       CUT_YU_LONG,
       GROUP_TIME,
       ZL_JUDGE_STOVE_NO,
       NEW_JUDGE_STOVE_NO,
       NEW_STOVE_NO,
       SUPPLY_UNIT_CODE,
       SUPPLY_UNIT)
    VALUES
      ('#MAT_GROUP_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.MATERIAL_NO,
       MYROW.MATERIAL_NAME,
       MYROW.GRADECODE,
       MYROW.GRADENAME,
       MYROW.PLINE_CODE,
       MYROW.PLINE_NAME,
       MYROW.DIMATER,
       MYROW.ACT_LEN,
       MYROW.FIX_NUM,
       MYROW.FIX_LEN,
       MYROW.ACT_COUNT,
       MYROW.ACT_WEIGHT,
       MYROW.MAT_GOWHERE_CODE,
       MYROW.MAT_GOWHERE_NAME,
       MYROW.BELONG_CODE,
       MYROW.BELONG_NAME,
       MYROW.JUGDE_APPLY_FLAG,
       MYROW.JUGDE_APPLY_CODE,
       MYROW.JUGDE_APPLY_TIME,
       MYROW.INSTOCK_FLAG,
       MYROW.INSTOCK_TIME,
       MYROW.BAL_YEAR_MONTH,
       '#CREATE_NAME#',
       MYROW.INSTOCK_TIME,
       MYROW.GROUD_NO,
       MYROW.JUDGE_RESULT_CODE,
       MYROW.JUDGE_RESULT_TIME,
       MYROW.JUDGE_MAKER,
       MYROW.DB_ACT_COUNT,
       MYROW.CIC,
       MYROW.PIC,
       MYROW.SIC,
       MYROW.DIC,
       MYROW.GPTYPE,
       MYROW.SEQUENCENO,
       MYROW.FURNACENO,
       MYROW.QCM_STAUS,
       MYROW.LG_CRAFT_NO,
       MYROW.ISENDGX,
       MYROW.PRODUCCODE,
       MYROW.PRODUCNAME,
       MYROW.CRAFTNO,
       MYROW.PLAN_ROUTE,
       MYROW.STEELCODE,
       MYROW.STEELNAME,
       MYROW.CUT_YU_LONG,
       SYSDATE,
       '#ZL_JUDGE_STOVE_NO#',
       '#NEW_JUDGE_STOVE_NO#',
       '#NEW_STOVE_NO#',
       MYROW.SUPPLY_UNIT_CODE,
       MYROW.SUPPLY_UNIT);
  END LOOP;
END;
]]>
</query>
<query id = "FrmMatGroupManage.getOutDoc" desc = "生成出库单号">
SELECT 'ZC' || TO_CHAR(SYSDATE, 'YYMMDD') ||
         LPAD(NVL(MAX(SUBSTR(OUTSTOCK_DOC, 9)), 0) + 1, 5, 0) OUTSTOCK_DOC
    FROM YDM_GP_OUTLIST T
   WHERE T.OUTSTOCK_TYPE_CODE = '800811'
     AND T.OUTSTOCK_DOC LIKE 'ZC' || TO_CHAR(SYSDATE, 'YYMMDD') || '_____'
</query>
<query id = "FrmMatGroupManage.getInListDoc" desc = "获取入库单号">
SELECT 'ZR' || TO_CHAR(SYSDATE, 'YYMMDD') ||
         LPAD(NVL(MAX(SUBSTR(T.INSTOCK_DOC, 9)), 0) + 1, 5, 0) INSTOCK_DOC
    FROM YDM_GP_INLIST T
   WHERE T.INSTOCK_TYPE_CODE = ?
     AND T.INSTOCK_DOC LIKE 'ZR' || TO_CHAR(SYSDATE, 'YYMMDD') || '_____'
</query>
<query id = "FrmMatGroupManage.getInListDoc2" desc = "获取入库单号">
<![CDATA[
 SELECT ? || TO_CHAR(SYSDATE, 'YYMMDD') ||
        LPAD(NVL(MAX(SUBSTR(T.INSTOCK_DOC, 9)), 0) + 1, 5, 0) INSTOCK_DOC
   FROM YDM_GP_INLIST T
  WHERE T.INSTOCK_DOC LIKE ? || TO_CHAR(SYSDATE, 'YYMMDD') || '_____'
    AND T.INSTOCK_TYPE_CODE = ?
       ]]>
</query>
<query id = "FrmMatGroupManage.getOutListDoc" desc = "获取出库单号">
<![CDATA[
 SELECT ? || TO_CHAR(SYSDATE, 'YYMMDD') ||
        LPAD(NVL(MAX(SUBSTR(T.OUTSTOCK_DOC, 9)), 0) + 1, 5, 0) OUTSTOCK_DOC
   FROM YDM_GP_OUTLIST T
  WHERE T.OUTSTOCK_DOC LIKE ? || TO_CHAR(SYSDATE, 'YYMMDD') || '_____'
    AND T.OUTSTOCK_TYPE_CODE = ?
       ]]>
</query>
<query id = "FrmMatGroupManage.insertOutListSql" desc = "产权出库删库存">
<![CDATA[
DECLARE
  V_OUTSTOCK_DOC YDM_GP_OUTLIST.OUTSTOCK_DOC%TYPE := NULL;
  V_OUTSTOCK_SQE YDM_GP_OUTLIST.OUTSTOCK_SQE%TYPE := NULL;
  V_OCOUNT       NUMBER := 1;
BEGIN
  SELECT TO_NUMBER(LPAD((NVL(MAX(SUBSTR(T.OUTSTOCK_SQE, 14)), 0) + 1), 4, 0)) OUTSTOCK_SQE
    INTO V_OCOUNT
    FROM YDM_GP_OUTLIST T
   WHERE T.OUTSTOCK_DOC = '#OUTSTOCK_DOC#';
  FOR MYROW IN (SELECT *
                  FROM (SELECT T.*, S.STORAGE_NO, S.LOCATION_NO, 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.FIX_NUM = '#FIX_NUM#'
                           AND T.ACT_LEN = '#ACT_LEN#'
                           AND T.IS_DEALER = '#IS_DEALER#'
                           AND T.BACK_FLAG = '#BACK_FLAG#'
                           AND S.STORAGE_NO = '#STORAGE_NO#'
                           AND S.LOCATION_NO = '#LOCATION_NO#'
                           AND ((t.instancy_flag = '1' AND T.MAT_STATUS <> '80150103') or (T.MAT_STATUS = '80150102' AND T.INSTOCK_FLAG = '1'))
                           AND T.IS_SETFOOT = '0'
                           AND T.LOCK_FLAG = '0'
                           AND T.PRO_PLAN_ID_ZG IS NULL
                         ORDER BY T.MAT_NO DESC)
                 WHERE ROWNUM <= #ACT_COUNT#) LOOP
    V_OUTSTOCK_SQE := '#OUTSTOCK_DOC#' || LPAD(V_OCOUNT, 4, 0);
    INSERT INTO YDM_GP_OUTLIST
      (OUTSTOCK_SQE,
       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,
       ORDER_NO,
       ORDER_SEQ,
       ORDER_SEQ_NO,
       ORD_PK,
       ORD_LN_PK,
       ORD_LN_DLY_PK,
       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,
       IS_DEALER,
       BACK_FLAG,
       SUPPLY_UNIT_CODE,
       SUPPLY_UNIT,
       SOURE_CODE,
       SOURE_NAME)
    VALUES
      (V_OUTSTOCK_SQE,
       '#OUTSTOCK_DOC#',
       '800811',
       '组炉出库',
       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.ORDER_NO,
       MYROW.ORDER_SEQ,
       MYROW.ORDER_SEQ_NO,
       MYROW.ORD_PK,
       MYROW.ORD_LN_PK,
       MYROW.ORD_LN_DLY_PK,
       MYROW.BELONG_CODE,
       MYROW.BELONG_NAME,
       MYROW.STORAGE_NO,
       MYROW.LOCATION_NO,
       MYROW.LARY_NO,
       '#BAL_YEAR_MONTH#',
       SYSDATE,
       '#CREATE_NAME#',
       SYSDATE,
       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.IS_DEALER,
       MYROW.BACK_FLAG,
       MYROW.SUPPLY_UNIT_CODE,
       MYROW.SUPPLY_UNIT,
       MYROW.SOURE_CODE,
       MYROW.SOURE_NAME);
    V_OCOUNT := V_OCOUNT + 1;
  END LOOP;
END;
]]>
</query>
<query id = "FrmMatGroupManage.insertMatSql" desc = "新炉号组炉入库">
<![CDATA[
DECLARE
  V_INSTOCK_DOC YDM_GP_INLIST.INSTOCK_DOC%TYPE := NULL;
  V_INSTOCK_SQE YDM_GP_INLIST.INSTOCK_SQE%TYPE := NULL;
  V_TIME        YDM_GP_INLIST.CREATE_TIME%TYPE := SYSDATE;
  V_BATHYEAR    YDM_GP_INLIST.BAL_YEAR_MONTH%TYPE := TO_CHAR(SYSDATE,'YYYYMM');
  V_MAT_NO      MAT_GP_M.MAT_NO%TYPE := NULL;
  V_OCOUNT       NUMBER := 1;
  V_MAT_NO_COUNT NUMBER := 1;
BEGIN
  --新炉号入库序号
  SELECT TO_NUMBER(LPAD((NVL(MAX(SUBSTR(T.INSTOCK_SQE, 14)), 0) + 1), 4, 0)) INSTOCK_SQE
    INTO V_OCOUNT
    FROM YDM_GP_INLIST T
   WHERE T.INSTOCK_DOC = '#INSTOCK_DOC#';
   --生成新炉号材料号序号
  SELECT LPAD(NVL(MAX(SUBSTR(T2.MAT_NO, LENGTH(T2.MAT_NO) - 2)), 0) + 1, 3, 0) INTO V_MAT_NO_COUNT
  FROM (SELECT MAX(T.MAT_NO)MAT_NO
          FROM MAT_GP_M T
         WHERE T.JUDGE_STOVE_NO = '#NEW_JUDGE_STOVE_NO#'
        UNION ALL
        SELECT MAX(T1.MAT_NO)MAT_NO
          FROM YDM_GP_INLIST T1
         WHERE T1.JUDGE_STOVE_NO = '#NEW_JUDGE_STOVE_NO#'
         UNION ALL
         SELECT MAX(T3.MAT_NO)MAT_NO
         FROM MAT_GP_TRACK T3
         WHERE T3.JUDGE_STOVE_NO = '#NEW_JUDGE_STOVE_NO#') T2;
  FOR MYROW IN (SELECT *
                  FROM (SELECT T.*, S.STORAGE_NO, S.LOCATION_NO, S.LARY_NO,S.LOCATION_NAME
                          FROM MAT_GP_M T, YDM_GP_BUTTRESS S
                         WHERE T.MAT_NO = S.MAT_NO
                         AND ((t.instancy_flag = '1' AND T.MAT_STATUS <> '80150103') or (T.MAT_STATUS = '80150102' AND T.INSTOCK_FLAG = '1'))
                           AND T.STOVE_NO = '#STOVE_NO#'
                           AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
                           AND T.FIX_NUM = '#FIX_NUM#'
                           AND T.ACT_LEN = '#ACT_LEN#'
                           AND T.IS_DEALER = '#IS_DEALER#'
                           AND T.BACK_FLAG = '#BACK_FLAG#'
                           AND S.STORAGE_NO = '#STORAGE_NO#'
                           AND S.LOCATION_NO = '#LOCATION_NO#'
                           AND T.PRO_PLAN_ID_ZG IS NULL
                         ORDER BY T.MAT_NO DESC)
                 WHERE ROWNUM <= #ACT_COUNT#) LOOP
                 V_MAT_NO := '#NEW_JUDGE_STOVE_NO#'||LPAD(V_MAT_NO_COUNT,3,0);
    INSERT INTO YDM_GP_BUTTRESS
      (GROUD_NO,
       MAT_NO,
       STOVE_NO,
       FLAG_STOVE_NO,
       JUDGE_STOVE_NO,
       STORAGE_NO,
       LOCATION_NO,
       LARY_NO,
       CREATE_NAME,
       CREATE_TIME,
       LOCATION_NAME)
    VALUES
      (MYROW.GROUD_NO,
       V_MAT_NO,
       '#NEW_STOVE_NO#',
       MYROW.FLAG_STOVE_NO,
       '#NEW_JUDGE_STOVE_NO#',
       MYROW.STORAGE_NO,
       MYROW.LOCATION_NO,
       MYROW.LARY_NO,
       '#CREATE_NAME#',
       TO_DATE('#INSTOCK_TIME#','YYYY-MM-DD HH24:MI:SS'),
       MYROW.LOCATION_NAME);
       V_INSTOCK_SQE := '#INSTOCK_DOC#' || LPAD(V_OCOUNT, 4, 0);
       INSERT INTO YDM_GP_INLIST
      (GROUD_NO,
       MATERIAL_NO,
       MATERIAL_NAME,
       GRADECODE,
       GRADENAME,
       DIMATER,
       ACT_LEN,
       FIX_NUM,
       FIX_LEN,
       ACT_COUNT,
       ACT_WEIGHT,
       BELONG_CODE,
       BELONG_NAME,
       STORAGE_NO,
       LOCATION_NO,
       LARY_NO,
       INSTOCK_TIME,
       IN_TIME_F,
       BAL_YEAR_MONTH,
       CREATE_NAME,
       CREATE_TIME,
       INSTOCK_SQE,
       INSTOCK_DOC,
       INSTOCK_TYPE_CODE,
       INSTOCK_TYPE_NAME,
       MAT_NO,
       PRODUCT_FLAG,
       MAT_STATUS,
       STOVE_NO,
       FLAG_STOVE_NO,
       JUDGE_STOVE_NO,
       PLINE_CODE,
       PLINE_NAME,
       PRO_PLAN_ID,
       GX_PLAN_NO,
       FURNACENO,
       SEQUENCENO,
       IS_DEALER,
       BACK_FLAG,
       SUPPLY_UNIT_CODE,
       SUPPLY_UNIT)
    VALUES
      (MYROW.GROUD_NO,
       MYROW.MATERIAL_NO,
       MYROW.MATERIAL_NAME,
       MYROW.GRADECODE,
       MYROW.GRADENAME,
       MYROW.DIMATER, 
       MYROW.ACT_LEN,
       MYROW.FIX_NUM,
       MYROW.FIX_LEN,
       MYROW.ACT_COUNT,
       MYROW.ACT_WEIGHT,
       MYROW.BELONG_CODE,
       MYROW.BELONG_NAME,
       MYROW.STORAGE_NO,
       MYROW.LOCATION_NO,
       MYROW.LARY_NO,
       TO_DATE('#INSTOCK_TIME#','YYYY-MM-DD HH24:MI:SS'),
       TO_DATE('#INSTOCK_TIME#','YYYY-MM-DD HH24:MI:SS'),
       '#BAL_YEAR_MONTH#',
       '#CREATE_NAME#',
       TO_DATE('#INSTOCK_TIME#','YYYY-MM-DD HH24:MI:SS'),
       V_INSTOCK_SQE,
       '#INSTOCK_DOC#',
       '800711',
       '组炉入库',
       V_MAT_NO,
       MYROW.PRODUCT_FLAG,
       MYROW.MAT_STATUS,
       '#NEW_STOVE_NO#',
       MYROW.FLAG_STOVE_NO,
       '#NEW_JUDGE_STOVE_NO#',
       MYROW.PLINE_CODE,
       MYROW.PLINE_NAME,
       '#PRO_PLAN_ID#',
       '#GX_PLAN_NO#',
       '#FURNACENO#',
       '#SEQUENCENO#',
       MYROW.IS_DEALER,
       MYROW.BACK_FLAG,
       MYROW.SUPPLY_UNIT_CODE,
       MYROW.SUPPLY_UNIT);
       
       INSERT INTO MAT_GP_M(
        MAT_NO,
        PRODUCT_FLAG,
        MAT_STATUS,
        STOVE_NO,
        FLAG_STOVE_NO,
        JUDGE_STOVE_NO,
        CAST_NO,
        CCMID,
        MATERIAL_NO,
        MATERIAL_NAME,
        GRADECODE,
        GRADENAME,
        PLINE_CODE,
        PLINE_NAME,
        DIMATER,
        ACT_LEN,
        FIX_NUM,
        FIX_LEN,
        ACT_COUNT,
        ACT_WEIGHT,
        ACT_THEORY_WEIGHT,
        BELONG_CODE,
        BELONG_NAME,
        JUGDE_APPLY_FLAG,
        INSTOCK_FLAG,
        INSTOCK_TIME,
        BAL_YEAR_MONTH,
        CREATE_NAME,
        CREATE_TIME,
        GROUD_NO,
        PRINT_STOVE_NO,
        PRO_PLAN_ID,
        GX_PLAN_NO,
        GPREQ_ID,
        DB_ACT_COUNT,
        CIC,
        PIC,
        SIC,
        DIC,
        GPTYPE,
        SEQUENCENO,
        FURNACENO,
        QCM_STAUS,
        LG_CRAFT_NO,
        ISENDGX,
        STEELCODE,
        STEELNAME,
        PRODUCCODE,
        PRODUCNAME,
        PLAN_ROUTE,
        MAT_ORIGIN_CODE,
        MAT_ORIGIN_NAME,
        STEEL_STANDRAD,
        JUDGE_RESULT_CODE,
        JUGDE_APPLY_CODE,
        IS_DEALER,
        BACK_FLAG,
        SUPPLY_UNIT_CODE,
        SUPPLY_UNIT,
        SOURE_CODE,
        SOURE_NAME,
        STD_CODE,
        STD_NAME,
        PRO_ORDER_NO,
        ORD_PK,
        JUGDE_APPLY_TIME,
        FACE_RESULT_CODE,
        FACE_RESULT_TIME,
        CHEM_RESULT_CODE,
        CHEM_RESULT_TIME,
        CHEM_MAKER,
        PHY_RESULT_CODE,
        PHY_RESULT_TIME,
        CHEM_JUDGE_ID,
        INSTANCY_FLAG)
 VALUES( 
        V_MAT_NO,
        MYROW.PRODUCT_FLAG,
        MYROW.MAT_STATUS,
        '#NEW_STOVE_NO#',
        MYROW.FLAG_STOVE_NO,
        '#NEW_JUDGE_STOVE_NO#',
        '#CAST_NO#',
        '#CCMID#',
        MYROW.MATERIAL_NO,
        MYROW.MATERIAL_NAME,
        MYROW.GRADECODE,
        MYROW.GRADENAME,
        MYROW.PLINE_CODE,
        MYROW.PLINE_NAME,
        MYROW.DIMATER,
        MYROW.ACT_LEN,
        MYROW.FIX_NUM,
        MYROW.FIX_LEN,
        MYROW.ACT_COUNT,
        MYROW.ACT_WEIGHT,
        MYROW.ACT_THEORY_WEIGHT,
        MYROW.BELONG_CODE,
        MYROW.BELONG_NAME,
        MYROW.JUGDE_APPLY_FLAG,
        MYROW.INSTOCK_FLAG,
        TO_DATE('#INSTOCK_TIME#','YYYY-MM-DD HH24:MI:SS'),
        V_BATHYEAR,
        '#CREATE_NAME#',
        TO_DATE('#INSTOCK_TIME#','YYYY-MM-DD HH24:MI:SS'),
        MYROW.GROUD_NO,
        MYROW.PRINT_STOVE_NO,
        '#PRO_PLAN_ID#',
        '#GX_PLAN_NO#',
        '#GPREQ_ID#',
        MYROW.DB_ACT_COUNT,
        '#CIC#',
        '#PIC#',
        '#SIC#',
        '#DIC#',
        '#GPTYPE#',
        '#SEQUENCENO#',
        '#FURNACENO#',
        '00',
        '#LG_CRAFT_NO#',
        '#ISENDGX#',
        MYROW.STEELCODE,
        MYROW.STEELNAME,
        '#PRODUCCODE#',
        '#PRODUCNAME#',
        '#PLAN_ROUTE#',
        '#MAT_ORIGIN_CODE#',
        '#MAT_ORIGIN_NAME#',
        '#STEEL_STANDRAD#',
        MYROW.JUDGE_RESULT_CODE,
        MYROW.JUGDE_APPLY_CODE,
        MYROW.IS_DEALER,
        MYROW.BACK_FLAG,
        MYROW.SUPPLY_UNIT_CODE,
        MYROW.SUPPLY_UNIT,
        MYROW.SOURE_CODE,
        MYROW.SOURE_NAME,
        MYROW.STD_CODE,
        MYROW.STD_NAME,
        MYROW.PRO_ORDER_NO,
        MYROW.ORD_PK,
        MYROW.JUGDE_APPLY_TIME,
        MYROW.FACE_RESULT_CODE,
        MYROW.FACE_RESULT_TIME,
        MYROW.CHEM_RESULT_CODE,
        MYROW.CHEM_RESULT_TIME,
        MYROW.CHEM_MAKER,
        MYROW.PHY_RESULT_CODE,
        MYROW.PHY_RESULT_TIME,
        MYROW.CHEM_JUDGE_ID,
        MYROW.INSTANCY_FLAG);
    DELETE FROM MAT_GP_M T WHERE T.MAT_NO = MYROW.MAT_NO;
    DELETE FROM YDM_GP_BUTTRESS T WHERE T.MAT_NO = MYROW.MAT_NO;
    V_OCOUNT := V_OCOUNT + 1;
    V_MAT_NO_COUNT :=V_MAT_NO_COUNT + 1;
  END LOOP;
END;
]]>
</query>
<query id = "FrmMatGroupManage.selectMatGpMZ" desc = "查询主炉号信息">
SELECT *
  FROM MAT_GP_M T
 WHERE T.STOVE_NO = '#STOVE_NO#'
   AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
   AND T.FIX_NUM = '#FIX_NUM#'
    AND T.ACT_LEN = '#ACT_LEN#'
    AND T.IS_DEALER = '#IS_DEALER#'
    AND T.BACK_FLAG = '#BACK_FLAG#'
   AND ROWNUM = 1
</query>
<query id = "FrmMatGroupManage.UpdateMatGpM" desc = "插入库存">

</query>
    <query id = "FrmMatGroupManage.queryMaxJudgeNoJ" desc = "组炉新炉号">
        SELECT MAX(JUDGE_STOVE_NO) JUDGE_STOVE_NO
        FROM (SELECT ? || TO_CHAR(SYSDATE, 'YYMM') ||
        LPAD(NVL(MAX(SUBSTR(T.JUDGE_STOVE_NO, 6)), 0) + 1, 4, 0) JUDGE_STOVE_NO
        FROM MAT_GP_M T
        WHERE T.JUDGE_STOVE_NO LIKE
        ? || TO_CHAR(SYSDATE, 'YYMM') || '____'
        AND T.BELONG_CODE = '002023005'
        UNION ALL
        SELECT ? || TO_CHAR(SYSDATE, 'YYMM') ||
        LPAD(NVL(MAX(SUBSTR(T.JUDGE_STOVE_NO, 6)), 0) + 1, 4, 0) JUDGE_STOVE_NO
        FROM MAT_GP_M_HISTORY T
        WHERE T.JUDGE_STOVE_NO LIKE
        ? || TO_CHAR(SYSDATE, 'YYMM') || '____'
        AND T.BELONG_CODE = '002023005')
    </query>
    
    <query id = "FrmMatGroupManage.doSplit" desc = "拆分">
        <![CDATA[
       DECLARE
  V_JUDGE_STOVE_NO  MAT_GP_M.JUDGE_STOVE_NO%type := ?;
  V_FIX_NUM         MAT_GP_M.FIX_NUM%type := ?;
  V_ACT_LEN         MAT_GP_M.ACT_LEN%type := ?;
  V_ACT_COUNT       MAT_GP_M.ACT_COUNT%type := ?;
  V_LOCATION_NO     YDM_GP_BUTTRESS.LOCATION_NO%type := ?;
  V_STOVE_NO        MAT_GP_M.STOVE_NO%type := ?;
  V_DIMATER         MAT_GP_M.DIMATER%type := ?;
  V_NUM             MAT_GP_M.FIX_NUM%type := ?;
  V_LEN             MAT_GP_M.ACT_LEN%type := ?;
  V_FLAG            MAT_GP_M.LK_FLAG%type := ?;
  V_INSTOCK_DOC     YDM_GP_INLIST.INSTOCK_DOC%type := ?;
  V_OUTSTOCK_DOC    YDM_GP_OUTLIST.OUTSTOCK_DOC%type := ?;
  V_MAT_NO          MAT_GP_M.MAT_NO%type := NULL;
  V_ACT_WEIGHT_TEP  MAT_GP_M.ACT_WEIGHT%type := NULL;
  V_ACT_WEIGHT_TEP2 MAT_GP_M.ACT_WEIGHT%type := NULL; --已拆分的重量
  V_IN_COUNT        NUMBER := 1;
  V_OUT_COUNT       NUMBER := 1;

BEGIN
  --生成入库单序号
  SELECT NVL(MAX(REPLACE(T.INSTOCK_SQE, T.INSTOCK_DOC, '')), 0) + 1
    INTO V_IN_COUNT
    FROM YDM_GP_INLIST T
   WHERE T.INSTOCK_DOC = V_INSTOCK_DOC;
  --生成出库单序号
  SELECT NVL(MAX(REPLACE(T.OUTSTOCK_SQE, T.OUTSTOCK_DOC, '')), 0) + 1
    INTO V_OUT_COUNT
    FROM YDM_GP_OUTLIST T
   WHERE T.OUTSTOCK_DOC = V_OUTSTOCK_DOC;
  FOR MYROW IN (SELECT *
                  FROM (select T1.*,
                               T2.STORAGE_NO,
                               T2.LOCATION_NO,
                               T2.LARY_NO,
                               T2.LOC_NO
                          FROM MAT_GP_M T1
                          LEFT JOIN YDM_GP_BUTTRESS T2
                            ON T1.MAT_NO = T2.MAT_NO
                         WHERE T1.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
                           AND T1.FIX_NUM = V_FIX_NUM
                           AND T1.ACT_LEN = V_ACT_LEN
                           AND NVL(T1.STOVE_NO, '/') = NVL(V_STOVE_NO, '/')
                           AND T1.DIMATER = V_DIMATER
                           AND T2.LOCATION_NO = V_LOCATION_NO
                         ORDER BY T1.MAT_NO)
                 WHERE ROWNUM <= V_ACT_COUNT) LOOP
    FOR i in 1 .. V_NUM loop
    
      --生成材料号
      SELECT MAX(MAT)
        INTO V_MAT_NO
        FROM (SELECT V_JUDGE_STOVE_NO ||
                     LPAD(NVL(MAX(SUBSTR(T.MAT_NO, -3)), 0) + 1, 3, 0) MAT
                FROM MAT_GP_M T
               WHERE T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
                 AND T.MAT_NO LIKE T.JUDGE_STOVE_NO || '___'
              UNION
              SELECT V_JUDGE_STOVE_NO ||
                     LPAD(NVL(MAX(SUBSTR(T.MAT_NO, -3)), 0) + 1, 3, 0) MAT
                FROM MAT_GP_M_HISTORY T
               WHERE T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
                 AND T.MAT_NO LIKE T.JUDGE_STOVE_NO || '___');
    
      SELECT SUM(M.ACT_WEIGHT)
        INTO V_ACT_WEIGHT_TEP2
        FROM MAT_GP_M M
       WHERE M.MAT_NO_OLD = MYROW.MAT_NO;
      --计算重量
      IF (V_FLAG = '0') THEN
        V_ACT_WEIGHT_TEP := MYROW.ACT_WEIGHT / MYROW.ACT_LEN * V_LEN;
      ELSE
        V_ACT_WEIGHT_TEP := MYROW.ACT_WEIGHT - V_ACT_WEIGHT_TEP2;
      END IF;
      --插入材料表
      INSERT INTO MAT_GP_M
        SELECT V_MAT_NO,
               T.PRODUCT_FLAG,
               T.MAT_STATUS,
               T.STOVE_NO,
               T.FLAG_STOVE_NO,
               T.JUDGE_STOVE_NO,
               T.CAST_NO,
               T.CCMID,
               T.MAT_ORIGIN_CODE,
               T.MAT_ORIGIN_NAME,
               T.SOURE_CODE,
               T.SOURE_NAME,
               T.MATERIAL_NO,
               T.MATERIAL_NAME,
               T.INPUT_MATERIAL_NAME,
               T.INPUT_MATERIAL_NO,
               T.INPUT_ORIGIN_CODE,
               T.GRADECODE,
               T.GRADENAME,
               T.STD_CODE,
               T.STD_NAME,
               T.PRO_ORDER_NO,
               T.ORDER_NO,
               T.ORDER_SEQ,
               T.ORDER_SEQ_NO,
               T.ORD_PK,
               T.ORD_LN_PK,
               T.ORD_LN_DLY_PK,
               T.PROCESS_CDOE,
               T.PROCESS_DESC,
               T.NEXT_PROCESS_CDOE,
               T.NEXT_PROCESS_DESC,
               T.PLINE_CODE,
               T.PLINE_NAME,
               T.DIMATER,
               T.HEIGHT,
               V_LEN,
               T.FIX_NUM,
               T.FIX_LEN,
               T.ACT_COUNT,
               TO_CHAR(V_ACT_WEIGHT_TEP, 'FM99990.000'),
               TO_CHAR(V_ACT_WEIGHT_TEP, 'FM99990.000'),
               T.PONDER_NO,
               T.PONDER_GROSS_WT,
               T.MEASURE_FLAG,
               T.STOVE_PRINT_FLAG,
               T.MAT_GOWHERE_CODE,
               T.MAT_GOWHERE_NAME,
               T.BELONG_CODE,
               T.BELONG_NAME,
               T.LOCK_FLAG,
               T.MNG_LOCK_FLAG,
               T.MNG_LOCK_RSN_CODE,
               T.MNG_LOCK_TIME,
               T.MNG_LOCK_MAKER,
               T.MNG_LOCK_REMARK,
               T.LOCK_RSN_CODE,
               T.LOCK_TIME,
               T.LOCK_MAKER,
               T.LOCK_REMARK,
               T.UNLOCK_TIME,
               T.UNLOCK_MAKER,
               T.UNLOCK_REMARK,
               T.OLD_ORDER_NO,
               T.OLD_ORDER_SEQ,
               T.OLD_ORDER_SEQ_NO,
               T.OLD_MATERIAL_NO,
               T.OLD_MATERIAL_NAME,
               T.REMAIN_RSN_CODE,
               T.REMAIN_JUGDE_TIME,
               T.REMAIN_JUGDE_MAKER,
               T.REMAIN_JUGDE_CODE,
               T.REMAIN_REMARK,
               T.JUGDE_APPLY_FLAG,
               T.JUGDE_APPLY_CODE,
               T.JUGDE_APPLY_TIME,
               T.JUGDE_SCAN_TIME,
               T.FACE_RESULT_CODE,
               T.FACE_RESULT_TIME,
               T.FACE_MAKER,
               T.CHEM_RESULT_CODE,
               T.CHEM_RESULT_TIME,
               T.CHEM_MAKER,
               T.PHY_RESULT_CODE,
               T.PHY_RESULT_TIME,
               T.PHY_MAKER,
               T.DETECT_REPORT_NO,
               T.DETECT_RESULT_CODE,
               T.BUG_NO,
               T.BUG_DEAL,
               T.OUTSOURCING_DOC,
               T.OUTSOURCING_FLAG,
               T.SAMPLING_FLAG,
               T.SAMPLING_TYPE,
               T.SAMPLING_NO,
               T.CHECKOUT_NO,
               T.CHEM_STCHECK_NO,
               T.CHEM_PROCHECK_NO,
               T.INSTOCK_FLAG,
               T.INSTOCK_TIME,
               T.OUTSTOCK_TIME,
               T.PRO_BC,
               T.PRO_BZ,
               T.RPO_TIME,
               T.BAR_CODE,
               T.BEGINNING_FLAG,
               T.BAL_YEAR_MONTH,
               T.MEMO || '此由坯料长度' || MYROW.ACT_LEN || '套尺生成',
               T.CREATE_NAME,
               T.CREATE_TIME,
               T.UPDATE_NAME,
               T.UPDATE_TIME,
               T.GROUD_NO,
               T.BUG_DEAL_CODE,
               T.SURFACE_CHECK_NO,
               T.CHEM_JUDGE_ID,
               T.PHY_JUDGE_ID,
               T.PHY_RESULT_ID,
               T.OLD_JUDGE_STOVE_NO,
               T.OLD_GROUD_NO,
               T.OLD_GRADECODE,
               T.OLD_GRADENAME,
               T.OLD_STD_CODE,
               T.OLD_STD_NAME,
               T.JUDGE_RESULT_CODE,
               T.JUDGE_RESULT_TIME,
               T.JUDGE_MAKER,
               T.OLD_STOVE_NO,
               T.PRINT_STOVE_NO,
               T.PRO_PLAN_ID,
               T.GX_PLAN_NO,
               T.GPREQ_ID,
               T.DB_ACT_COUNT,
               T.CIC,
               T.PIC,
               T.SIC,
               T.DIC,
               T.GPTYPE,
               T.SEQUENCENO,
               T.FURNACENO,
               T.QCM_STAUS,
               T.HANGING_FLAG,
               T.LG_CRAFT_NO,
               T.ISENDGX,
               T.PRODUCCODE,
               T.PRODUCNAME,
               T.CRAFTNO,
               T.PLAN_ROUTE,
               T.PRO_PLAN_ID_ZG,
               T.GX_PLAN_NO_ZG,
               T.STEELCODE,
               T.STEELNAME,
               T.CUT_YU_LONG,
               T.LK_FLAG,
               T.STEEL_STANDRAD,
               T.JUDGE_ID,
               T.EF_PLINE_CODE,
               T.EF_PLINE_NAME,
               T.INSTANCY_FLAG,
               T.JUDGE_STOVE_NO_LG,
               T.OLD_CIC,
               T.JUDGE_FLAG,
               T.JUDGE_STOVE_NO_OLD,
               T.HEAT_PLAN_NO_NEXT,
               T.CUT_NUM,
               T.IS_DEALER,
               T.SUPPLY_UNIT_CODE,
               T.SUPPLY_UNIT,
               T.BACK_FLAG,
               MYROW.MAT_NO
          FROM MAT_GP_M T
         WHERE T.MAT_NO = MYROW.MAT_NO;
      --插入位置表
      INSERT INTO YDM_GP_BUTTRESS
        SELECT V_MAT_NO,
               T.STOVE_NO,
               T.FLAG_STOVE_NO,
               T.JUDGE_STOVE_NO,
               T.STORAGE_NO,
               T.LOCATION_NO,
               T.LARY_NO,
               T.LOC_NO,
               T.STORAGE_ATTR,
               T.STORAGE_ATTR_NAME,
               T.STORAGE_TYPE_NO,
               T.STORAGE_TYPE_NAME,
               T.DEPARTMENT_CODE,
               T.DEPARTMENT_DESC,
               T.MANAGEMENT_NO,
               T.MANAGEMENT_NAME,
               T.MEMO,
               T.CREATE_NAME,
               T.CREATE_TIME,
               T.UPDATE_NAME,
               T.UPDATE_TIME,
               T.DELETE_NAME,
               T.DELETE_TIME,
               T.GROUD_NO,
               T.LOCATION_NAME,
               T.JUDGE_STOVE_NO_LG
          FROM YDM_GP_BUTTRESS T
         WHERE T.MAT_NO = MYROW.MAT_NO;
      --产权入库
      INSERT INTO YDM_GP_INLIST
        (GROUD_NO,
         MATERIAL_NO,
         MATERIAL_NAME,
         GRADECODE,
         GRADENAME,
         STD_CODE,
         STD_NAME,
         DIMATER,
         ACT_LEN,
         FIX_NUM,
         FIX_LEN,
         ACT_COUNT,
         ACT_WEIGHT,
         BELONG_CODE,
         BELONG_NAME,
         STORAGE_NO,
         LOCATION_NO,
         INSTOCK_TIME,
         IN_TIME_F,
         BAL_YEAR_MONTH,
         MEMO,
         CREATE_NAME,
         CREATE_TIME,
         INSTOCK_SQE,
         INSTOCK_DOC,
         INSTOCK_TYPE_CODE,
         INSTOCK_TYPE_NAME,
         MAT_NO,
         PRODUCT_FLAG,
         MAT_STATUS,
         STOVE_NO,
         FLAG_STOVE_NO,
         JUDGE_STOVE_NO,
         CAST_NO,
         CCMID,
         PLINE_CODE,
         PLINE_NAME,
         PRO_ORDER_NO,
         FURNACENO,
         SEQUENCENO,
         PRO_PLAN_ID,
         GX_PLAN_NO,
         SOURE_CODE,
         SOURE_NAME,
         CUT_NUM,
         JUDGE_STOVE_NO_LG,
         SUPPLY_UNIT_CODE,
         SUPPLY_UNIT)
      VALUES
        (MYROW.GROUD_NO,
         MYROW.MATERIAL_NO,
         MYROW.MATERIAL_NAME,
         MYROW.GRADECODE,
         MYROW.GRADENAME,
         MYROW.STD_CODE,
         MYROW.STD_NAME,
         MYROW.DIMATER,
         V_LEN,
         MYROW.FIX_NUM,
         MYROW.FIX_LEN,
         MYROW.ACT_COUNT,
         TO_CHAR(V_ACT_WEIGHT_TEP, 'FM99990.000'),
         MYROW.BELONG_CODE,
         MYROW.BELONG_NAME,
         MYROW.STORAGE_NO,
         MYROW.LOCATION_NO,
         SYSDATE,
         SYSDATE,
         TO_CHAR(SYSDATE, 'YYYYMM'),
         MYROW.MEMO,
         MYROW.CREATE_NAME,
         SYSDATE,
         V_INSTOCK_DOC || LPAD(V_IN_COUNT, 4, 0),
         V_INSTOCK_DOC,
         '800709',
         '产权入库',
         V_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.PLINE_CODE,
         MYROW.PLINE_NAME,
         MYROW.PRO_ORDER_NO,
         MYROW.FURNACENO,
         MYROW.SEQUENCENO,
         MYROW.PRO_PLAN_ID,
         MYROW.GX_PLAN_NO,
         MYROW.SUPPLY_UNIT_CODE,
         MYROW.SUPPLY_UNIT,
         MYROW.CUT_NUM,
         MYROW.JUDGE_STOVE_NO_LG,
         MYROW.SUPPLY_UNIT_CODE,
         MYROW.SUPPLY_UNIT);
    
      V_IN_COUNT := V_IN_COUNT + 1;
    END LOOP;
  
    IF (V_FLAG = '1') THEN
      --新增产权出库实绩表记录
      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,
         HEIGHT,
         ACT_LEN,
         FIX_NUM,
         FIX_LEN,
         ACT_COUNT,
         ACT_WEIGHT,
         ACT_THEORY_WEIGHT,
         PONDER_NO,
         PONDER_GROSS_WT,
         PLINE_CODE,
         PLINE_NAME,
         PRO_ORDER_NO,
         ORDER_NO,
         ORDER_SEQ,
         ORDER_SEQ_NO,
         ORD_PK,
         ORD_LN_PK,
         ORD_LN_DLY_PK,
         BELONG_CODE,
         BELONG_NAME,
         BAR_CODE,
         STORAGE_NO,
         LOCATION_NO,
         LARY_NO,
         LOC_NO,
         --DEPARTMENT_CODE,
         -- DEPARTMENT_DESC,
         --MANAGEMENT_NO,
         --MANAGEMENT_NAME,
         RPO_TIME,
         PRO_BC,
         PRO_BZ,
         BAL_YEAR_MONTH,
         
         OUTSTOCK_TIME,
         
         -- STORAGE_ATTR,
         -- STORAGE_ATTR_NAME,
         --STORAGE_TYPE_NO,
         --STORAGE_TYPE_NAME,
         MEMO,
         CREATE_NAME,
         CREATE_TIME,
         UPDATE_NAME,
         UPDATE_TIME,
         
         GROUD_NO,
         PRINT_STOVE_NO,
         PRO_PLAN_ID_ZG,
         GX_PLAN_NO_ZG,
         MAT_GOWHERE_CODE,
         MAT_GOWHERE_NAME,
         SUPPLY_UNIT_CODE,
         SUPPLY_UNIT,
         
         SOURE_CODE,
         SOURE_NAME,
         IS_DEALER,
         BACK_FLAG)
      VALUES
        (V_OUTSTOCK_DOC || LPAD(V_OUT_COUNT, 4, 0),
         '',
         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.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.PLINE_CODE,
         MYROW.PLINE_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.BELONG_CODE,
         MYROW.BELONG_NAME,
         MYROW.BAR_CODE,
         MYROW.STORAGE_NO,
         MYROW.LOCATION_NO,
         MYROW.LARY_NO,
         MYROW.LOC_NO,
         -- MYROW.DEPARTMENT_CODE,
         -- MYROW.DEPARTMENT_DESC,
         --MYROW.MANAGEMENT_NO,
         -- MYROW.MANAGEMENT_NAME,
         SYSDATE,
         MYROW.PRO_BC,
         MYROW.PRO_BZ,
         TO_CHAR(SYSDATE, 'YYYYMM'),
         SYSDATE,
         -- MYROW.STORAGE_ATTR,
         -- MYROW.STORAGE_ATTR_NAME,
         --MYROW.STORAGE_TYPE_NO,
         --MYROW.STORAGE_TYPE_NAME,
         MYROW.MEMO,
         MYROW.CREATE_NAME,
         SYSDATE,
         MYROW.CREATE_NAME,
         SYSDATE,
         MYROW.GROUD_NO,
         MYROW.PRINT_STOVE_NO,
         MYROW.PRO_PLAN_ID,
         MYROW.GX_PLAN_NO,
         MYROW.PLINE_CODE,
         MYROW.PLINE_NAME,
         MYROW.SUPPLY_UNIT_CODE,
         MYROW.SUPPLY_UNIT,
         MYROW.SOURE_CODE,
         MYROW.SOURE_NAME,
         MYROW.IS_DEALER,
         MYROW.BACK_FLAG);
    
      --复制数据到历史表
      insert into MAT_GP_M_HISTORY
        select * from MAT_GP_M t where t.mat_no = MYROW.MAT_NO;
    
      --删除物料主表记录
      DELETE FROM MAT_GP_M T WHERE T.MAT_NO = MYROW.MAT_NO;
    
      --删除位置表记录
      DELETE FROM YDM_GP_BUTTRESS T2 WHERE T2.MAT_NO = MYROW.MAT_NO;
      V_OUT_COUNT := V_OUT_COUNT + 1;
    END IF;
  END LOOP;
END;

        ]]>
    </query>
</queryMap>