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

<?xml version="1.0" encoding="UTF-8"?>
<queryMap desc = "入库管理">
<query id = "FrmStuffInputStore.doQueryPlan" desc = "查询炉信息队列">
SELECT T.STOVE_NO,
       T.JUDGE_STOVE_NO,
       T.PRINT_STOVE_NO,
       T.PRO_PLAN_ID,
       T.GX_PLAN_NO,
       T.GPREQ_ID,
       T.MATERIAL_NAME,
       T.PRODUCNAME,
       T.GRADENAME,
       T.DIAMETER,
       MAX(T.FIX_NUM)FIX_NUM,
       T.FIX_LEN,
       DECODE(F.NODE_FUR_FLAG,'0','未结炉','1','结炉')NODE_FUR_FLAG,
       T.GPTYPE
  FROM STL_LG_PROGRRSS T LEFT JION
       (SELECT T1.STOVE_NO, T1.PRO_PLAN_ID, T1.GX_PLAN_NO, T1.GPREQ_ID,T1.NODE_FUR_FLAG
          FROM STL_LG_SURFACE_M T1
         GROUP BY T1.STOVE_NO, T1.PRO_PLAN_ID, T1.GX_PLAN_NO, T1.GPREQ_ID,T1.NODE_FUR_FLAG) S
         ON T.PRO_PLAN_ID = S.PRO_PLAN_ID
         AND T.GX_PLAN_NO = S.GX_PLAN_NO
         AND T.STOVE_NO = S.STOVE_NO
  LEFT JION (SELECT T2.STOVE_NO, T2.PRO_PLAN_ID, T2.GX_PLAN_NO, T2.GPREQ_ID,T2.NODE_FUR_FLAG
          FROM STL_LG_INSTORE_RESULT T2
         GROUP BY T2.STOVE_NO, T2.PRO_PLAN_ID, T2.GX_PLAN_NO, T2.GPREQ_ID,T2.NODE_FUR_FLAG) F
        ON T.PRO_PLAN_ID = F.PRO_PLAN_ID
         AND T.GX_PLAN_NO = F.GX_PLAN_NO
         AND T.STOVE_NO = F.STOVE_NO 
         WHERE 1 = 1
</query>
<query id = "FrmStuffInputStore.doQueryStlLgProcess" desc = "查询可交库信息">
SELECT T.PRO_PLAN_ID,
       T.GX_PLAN_NO,
       T.GPREQ_ID,
       T.PRINT_STOVE_NO,
       T.STOVE_NO,
       T.CCMSTOVENO,
       T.JUDGE_STOVE_NO,
       T.CAST_NO,
       T.HEATCNT,
       T.CCMID,
       T.FLOWNO,
       T.CUTSEQNO,
       T.MATERIAL_NO,
       T.MATERIAL_NAME,
       T.GRADECODE,
       T.GRADENAME,
       T.BATCH_GROUD_NO,
       T.FLAG_STOVE_NO,
       T.STANDARDSCODE,
       T.STANDARDREMAK,
       T.DIAMETER,
       T.FIX_NUM,
       T.FIX_LEN,
       T.LENGTH,
       SUM(T.ACT_COUNT) ACT_COUNT,
       SUM(T.WEIGHT) WEIGHT,
       T.RECIVE_FLAG,
       T.AFFIRM_FLAG,
       T.FURNACENO,
       T.SEQUENCENO,
       T.JUDGE_STOVE_NO_SEQ,
       T.GPTYPE,
       T.PLINE_CODE,
       T.PLINE_NAME
  FROM STL_LG_PROGRRSS T
 WHERE T.FURNACENO = ?
   AND T.SEQUENCENO = ?
   AND T.STOVE_NO = ?
   AND T.JUDGE_STOVE_NO_SEQ = ?
   AND T.IS_VALID = '0'
   AND T.STATUS = '0'
   AND T.RECIVE_FLAG = '0'
 GROUP BY T.PRO_PLAN_ID,
          T.GX_PLAN_NO,
          T.GPREQ_ID,
          T.PRINT_STOVE_NO,
          T.STOVE_NO,
          T.CCMSTOVENO,
          T.JUDGE_STOVE_NO,
          T.CAST_NO,
          T.HEATCNT,
          T.CCMID,
          T.FLOWNO,
          T.CUTSEQNO,
          T.MATERIAL_NO,
          T.MATERIAL_NAME,
          T.GRADECODE,
          T.GRADENAME,
          T.BATCH_GROUD_NO,
          T.FLAG_STOVE_NO,
          T.STANDARDSCODE,
          T.STANDARDREMAK,
          T.DIAMETER,
          T.FIX_NUM,
          T.FIX_LEN,
          T.LENGTH,
          T.RECIVE_FLAG,
          T.AFFIRM_FLAG,
          T.FURNACENO,
          T.SEQUENCENO,
          T.JUDGE_STOVE_NO_SEQ,
          T.GPTYPE,
          T.PLINE_CODE,
          T.PLINE_NAME
</query>
<query id = "FrmStuffInputStore.doQueryInList" desc = "查询入库实绩">
<![CDATA[
 SELECT 
       GROUD_NO,
       MATERIAL_NAME,
       GRADENAME,
       STD_NAME,
       DIMATER,
       MAX(ACT_LEN)ACT_LEN,
       FIX_NUM,
       FIX_LEN,
       SUM(ACT_COUNT)ACT_COUNT,
       SUM(ACT_WEIGHT)ACT_WEIGHT,
       BELONG_NAME,
       STORAGE_NO,
       DEPARTMENT_CODE,
       DEPARTMENT_DESC,
       MANAGEMENT_NO,
       MANAGEMENT_NAME,
       MAX(TO_CHAR(INSTOCK_TIME, 'YYYY-MM-DD HH24:MI:SS')) INSTOCK_TIME,
       MAX(TO_CHAR(IN_TIME_F, 'YYYY-MM-DD HH24:MI:SS')) IN_TIME_F,
       BAL_YEAR_MONTH,
       MEMO,
       CREATE_NAME,
       INSTOCK_DOC,
       INSTOCK_TYPE_NAME,
       STOVE_NO,
       JUDGE_STOVE_NO,
       CAST_NO,
       CCMID,
       SAMPLE_FLAG,
       CUTTING_FLAG,
       CUTTING_NUM,
       PLINE_NAME,
       PRO_ORDER_NO,
       ORDER_NO,
       ORDER_SEQ,
       ORDER_SEQ_NO,
       PRO_PLAN_ID,
       GX_PLAN_NO,
       FURNACENO,
       SEQUENCENO,
       JUDGE_STOVE_NO_SEQ,
       CUT_NUM
 FROM YDM_GP_INLIST
 WHERE 1=1
       ]]>
</query>
<query id = "FrmStuffInputStore.doQueryRack" desc = "查询管坯队列">
<![CDATA[
SELECT 
       T.PRO_PLAN_ID,
       T.GX_PLAN_NO,
       T.GPREQ_ID,
       T.PRINT_STOVE_NO, 
       T.MAT_NO,
       T.STOVE_NO,
       T.CCMSTOVENO,
       T.JUDGE_STOVE_NO,
       T.JUDGE_STOVE_NO_SEQ,
       T.CAST_NO,
       T.HEATCNT,
       T.CCMID,
       T.FLOWNO,
       T.CUTSEQNO,
       T.MATERIAL_NO,
       T.MATERIAL_NAME,
       T.GRADECODE,
       T.GRADENAME,
       T.BATCH_GROUD_NO,
       T.FLAG_STOVE_NO,
       T.STANDARDSCODE,
       T.STANDARDREMAK,
       T.DIAMETER,
       T.FIX_NUM,
       T.FIX_LEN,
       T.LENGTH,
       T.ACT_COUNT,
       T.WEIGHT,
       T.RECIVE_FLAG,
       DECODE(T.STATUS,'0','合格','1','待处理','2','剔除','3','返线')STATUS,
       TO_CHAR(T.CUTTIME, 'YYYY-MM-DD HH24:MI:SS') CUTTIME,
       T.AFFIRM_FLAG,
       T.SCRAP_REASON,
       T.OLD_MAT_NO,
       T.ALARM_REASON,
       T.TEST_COUNT,
       T.IS_VALID,
       T.FURNACENO,
       T.SEQUENCENO,
       T.CIC,
       T.PIC,
       T.SIC,
       T.DIC,
       T.PLINE_CODE,
       T.PLINE_NAME,
       '剔除按钮' AS SCRAP,
       '剔除回退' AS SCRAP_BACK,
       '离线按钮' AS ALARM,
       '离线回退'AS ALARM_BACK,
       ROWNUM SEQ
 FROM STL_LG_PROGRRSS T
 WHERE T.FURNACENO = ?
 AND T.SEQUENCENO = ?
 AND T.STOVE_NO = ?
 AND T.JUDGE_STOVE_NO_SEQ = ?
 AND T.STATUS = '0'
 ORDER BY T.MAT_NO ASC
 ]]>
</query>
<query id = "FrmStuffInputStore.doQueryMatNoStaus" desc = "查询管坯状态">
SELECT S.STATUS,S.RECIVE_FLAG
  FROM STL_LG_PROGRRSS S
 WHERE S.FURNACENO = '#FURNACENO#'
   AND S.SEQUENCENO = '#SEQUENCENO#'
   AND S.STOVE_NO = '#STOVE_NO#'
   AND S.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
   AND S.MAT_NO = '#MAT_NO#'
</query>
<query id = "FrmStuffInputStore.updateMatNoStaus" desc = "修改状态">
UPDATE STL_LG_PROGRRSS T
   SET T.STATUS = '#STATUS#', T.OP_PROCESS = '#OP_PROCESS#'
 WHERE T.FURNACENO = '#FURNACENO#'
   AND T.SEQUENCENO = '#SEQUENCENO#'
   AND T.STOVE_NO = '#STOVE_NO#'
   AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
   AND T.MAT_NO = '#MAT_NO#'
</query>
<query id = "FrmStuffInputStore.getInListDoc" desc = "获取入库单号">
SELECT 'IA' || 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 TRUNC(T.CREATE_TIME) =
         TRUNC(SYSDATE)
</query>
<query id = "FrmStuffInputStore.ensureInPutData" desc = "交库">
<![CDATA[
DECLARE
  V_INSTOCK_SQE    YDM_GP_INLIST.INSTOCK_SQE%TYPE := NULL; --入库流水
  V_IMEMO          COM_BASE_INFO.MEMO%TYPE := NULL;
  V_BASENAME       COM_BASE_INFO.BASENAME%TYPE := NULL;
  V_ICOUNT         NUMBER := 1;
  V_TIME           YDM_GP_INLIST.CREATE_TIME%TYPE := SYSDATE;
  V_BATHYEAR       YDM_GP_INLIST.BAL_YEAR_MONTH%TYPE := TO_CHAR(SYSDATE,
                                                                'YYYYMM');
  V_STEER_STANDRAD MAT_GP_M.STEEL_STANDRAD%TYPE := NULL;
BEGIN
  V_ICOUNT := #TEST_COUNT#;
  FOR MYROW IN (SELECT *
                  FROM (SELECT T.*
                          FROM STL_LG_PROGRRSS T
                         WHERE NVL(T.PRO_PLAN_ID, '/') =
                               NVL('#PRO_PLAN_ID#', '/')
                           AND NVL(T.GX_PLAN_NO, '/') =
                               NVL('#GX_PLAN_NO#', '/')
                           AND T.FIX_NUM = '#FIX_NUM#'
                           AND T.FIX_LEN = '#FIX_LEN#'
                           AND T.STOVE_NO = '#STOVE_NO#'
                           AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
                           AND T.IS_VALID = '0'
                           AND T.STATUS = '0'
                         ORDER BY T.MAT_NO ASC)
                 WHERE ROWNUM <= #ACT_COUNT#) LOOP
    INSERT INTO YDM_GP_BUTTRESS
      (GROUD_NO,
       MAT_NO,
       STOVE_NO,
       FLAG_STOVE_NO,
       JUDGE_STOVE_NO,
       STORAGE_NO,
       LOCATION_NO,
       LARY_NO,
       STORAGE_ATTR,
       STORAGE_ATTR_NAME,
       STORAGE_TYPE_NO,
       STORAGE_TYPE_NAME,
       DEPARTMENT_CODE,
       DEPARTMENT_DESC,
       MANAGEMENT_NO,
       MANAGEMENT_NAME,
       CREATE_NAME,
       CREATE_TIME,
       LOCATION_NAME)
    VALUES
      (MYROW.BATCH_GROUD_NO,
       MYROW.MAT_NO,
       MYROW.STOVE_NO,
       MYROW.FLAG_STOVE_NO,
       MYROW.JUDGE_STOVE_NO,
       ?,
       ?,
       ?,
       ?,
       ?,
       ?,
       ?,
       ?,
       ?,
       ?,
       ?,
       ?,
       V_TIME,
       ?);
    V_INSTOCK_SQE := ? || LPAD(V_ICOUNT, 4, 0);
    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,
       DEPARTMENT_CODE,
       DEPARTMENT_DESC,
       MANAGEMENT_NO,
       MANAGEMENT_NAME,
       INSTOCK_TIME,
       IN_TIME_F,
       BAL_YEAR_MONTH,
       STORAGE_ATTR,
       STORAGE_ATTR_NAME,
       STORAGE_TYPE_NO,
       STORAGE_TYPE_NAME,
       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,
       SAMPLE_FLAG,
       CUTTING_FLAG,
       CUTTING_NUM,
       PLINE_CODE,
       PLINE_NAME,
       PRINT_STOVE_NO,
       PRO_PLAN_ID,
       GX_PLAN_NO,
       FURNACENO,
       SEQUENCENO,
       JUDGE_STOVE_NO_SEQ,
       EF_PLINE_CODE,
       EF_PLINE_NAME,
       SUPPLY_UNIT_CODE,
       SUPPLY_UNIT)
    VALUES
      (MYROW.BATCH_GROUD_NO,
       MYROW.MATERIAL_NO,
       MYROW.MATERIAL_NAME,
       MYROW.GRADECODE,
       MYROW.GRADENAME,
       MYROW.STANDARDSCODE,
       MYROW.STANDARDREMAK,
       MYROW.DIAMETER,
       
       MYROW.LENGTH,
       MYROW.FIX_NUM,
       MYROW.FIX_LEN,
       MYROW.ACT_COUNT,
       CASE WHEN MYROW.DIAMETER = '500' THEN ROUND(MYROW.WEIGHT * 1.02, 3) WHEN
       MYROW.DIAMETER = '450' THEN ROUND(MYROW.WEIGHT * 1.007, 3) ELSE
       MYROW.WEIGHT END,
       ?,
       ?,
       ?,
       ?,
       ?,
       ?,
       ?,
       ?,
       V_TIME,
       V_TIME,
       '#BAL_YEAR_MONTH#',
       ?,
       ?,
       ?,
       ?,
       '',
       ?,
       V_TIME,
       V_INSTOCK_SQE,
       ?,
       ?,
       ?,
       MYROW.MAT_NO,
       ?,
       ?,
       MYROW.STOVE_NO,
       MYROW.FLAG_STOVE_NO,
       MYROW.JUDGE_STOVE_NO,
       MYROW.CAST_NO,
       MYROW.CCMID,
       '0',
       '0',
       '',
       MYROW.PLINE_CODE,
       MYROW.PLINE_NAME,
       MYROW.PRINT_STOVE_NO,
       MYROW.PRO_PLAN_ID,
       MYROW.GX_PLAN_NO,
       MYROW.FURNACENO,
       MYROW.SEQUENCENO,
       MYROW.JUDGE_STOVE_NO_SEQ,
       ?,
       ?,
       '120501',
       '天津钢管制造有限公司');
    V_STEER_STANDRAD := MYROW.CIC || '+' || MYROW.PIC || '+' || MYROW.SIC || '+' ||
                        MYROW.DIC;
    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,
       STD_CODE,
       STD_NAME,
       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,
       EF_PLINE_CODE,
       EF_PLINE_NAME,
       CUT_NUM,
       SUPPLY_UNIT_CODE,
       SUPPLY_UNIT)
    VALUES
      (MYROW.MAT_NO,
       ?,
       ?,
       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.STANDARDSCODE,
       MYROW.STANDARDREMAK,
       MYROW.PLINE_CODE,
       MYROW.PLINE_NAME,
       MYROW.DIAMETER,
       MYROW.LENGTH,
       MYROW.FIX_NUM,
       MYROW.FIX_LEN,
       MYROW.ACT_COUNT,
       CASE WHEN MYROW.DIAMETER = '500' THEN ROUND(MYROW.WEIGHT * 1.02, 3) WHEN
       MYROW.DIAMETER = '450' THEN ROUND(MYROW.WEIGHT * 1.007, 3) ELSE
       MYROW.WEIGHT END,
       
       CASE WHEN MYROW.DIAMETER = '500' THEN ROUND(MYROW.WEIGHT * 1.02, 3) WHEN
       MYROW.DIAMETER = '450' THEN ROUND(MYROW.WEIGHT * 1.007, 3) ELSE
       MYROW.WEIGHT END,
       ?,
       ?,
       '0',
       '0',
       V_TIME,
       '#BAL_YEAR_MONTH#',
       ?,
       V_TIME,
       MYROW.BATCH_GROUD_NO,
       MYROW.PRINT_STOVE_NO,
       MYROW.PRO_PLAN_ID,
       MYROW.GX_PLAN_NO,
       MYROW.GPREQ_ID,
       TO_NUMBER(MYROW.ACT_COUNT) * TO_NUMBER(MYROW.FIX_NUM),
       MYROW.CIC,
       MYROW.PIC,
       MYROW.SIC,
       MYROW.DIC,
       MYROW.GPTYPE,
       MYROW.SEQUENCENO,
       MYROW.FURNACENO,
       '00',
       ?,
       ?,
       ?,
       ?,
       ?,
       ?,
       ?,
       '801302',
       '产线',
       V_STEER_STANDRAD,
       ?,
       ?,
       ?,
       '120501',
       '天津钢管制造有限公司');
    UPDATE STL_LG_PROGRRSS T
       SET T.RECIVE_FLAG = '1'
     WHERE T.MAT_NO = MYROW.MAT_NO
       AND T.STOVE_NO = MYROW.STOVE_NO
       AND T.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO;
    V_ICOUNT := V_ICOUNT + 1;
  END LOOP;
END;

]]>
</query>
<query id = "FrmStuffInputStore.selectEndG" desc = "查询是否末工序">
SELECT T.ISENDGX,T.SURPLUSFLAG,T.GPTYPE
  FROM PLN_STEELFOR_ORD T
 WHERE SUBSTR(T.FURNACENO, 0, 12) = '#FURNACENO#'
 AND T.SEQUENCENO = '#SEQUENCENO#'
 AND T.STOVE_NO = '#STOVE_NO#'
 AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
</query>
<query id = "FrmStuffInputStore.cancelInPutData" desc = "撤销入库">
<![CDATA[
DECLARE
BEGIN
  FOR MYROW IN (SELECT T.MAT_NO
                  FROM YDM_GP_INLIST T
                 WHERE T.INSTOCK_DOC = '#INSTOCK_DOC#'
                 AND T.STOVE_NO = '#STOVE_NO#'
                 AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
                 AND T.FIX_NUM = '#FIX_NUM#'
                 ORDER BY T.MAT_NO DESC) LOOP
    DELETE YDM_GP_BUTTRESS S WHERE S.MAT_NO = MYROW.MAT_NO;
    DELETE MAT_GP_M T WHERE T.MAT_NO = MYROW.MAT_NO;
    UPDATE STL_LG_PROGRRSS T SET T.RECIVE_FLAG = '0' WHERE T.MAT_NO = MYROW.MAT_NO AND T.STATUS = '0';
    DELETE YDM_GP_INLIST T WHERE T.MAT_NO = MYROW.MAT_NO;
  END LOOP;
END;
]]>
</query>
<query id = "FrmStuffInputStore.getStoreType" desc = "查询仓库类型">
SELECT T.STORAGE_ATTR,
       T.STORAGE_ATTR_NAME,
       T.STORAGE_TYPE_NO,
       T.STORAGE_TYPE_NAME
  FROM YDM_BS_STORAGE T
 WHERE T.STORAGE_NO = ?
</query>
<query id = "FrmStuffInputStore.doQueryRecive" desc = "查询是否都已入库">
SELECT COUNT(1) ACOUNT
  FROM STL_LG_PROGRRSS T
 WHERE T.FURNACENO = ?
   AND T.SEQUENCENO = ?
   AND T.STOVE_NO = ?
   AND T.JUDGE_STOVE_NO_SEQ = ?
   AND T.STATUS = '0'
   AND T.RECIVE_FLAG = '0'
</query>
<query id = "FrmStuffInputStore.updatePlnStaus" desc = "修改切割计划状态">
UPDATE PLN_STEELFOR_ORD T SET T.CCM_STATE = '#CCM_STATE#'
WHERE SUBSTR(T.FURNACENO,0，12) = '#FURNACENO#' AND T.SEQUENCENO = '#SEQUENCENO#'
AND T.STOVE_NO = '#STOVE_NO#' AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
</query>
<query id = "FrmStuffInputStore.updateInStoreStaus" desc = "修改交库实绩结炉标识">
UPDATE STL_LG_INSTORE_RESULT T SET T.NODE_FUR_FLAG = '1'
WHERE T.FURNACENO = '#FURNACENO#' AND T.SEQUENCENO = '#SEQUENCENO#'
AND T.STOVE_NO = '#STOVE_NO#' AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
</query>
<query id = "FrmStuffInputStore.updateInStoreStausCancel" desc = "撤销结炉修改标识">
UPDATE STL_LG_INSTORE_RESULT T SET T.NODE_FUR_FLAG = '0'
WHERE T.FURNACENO = '#FURNACENO#' AND T.SEQUENCENO = '#SEQUENCENO#'
AND T.STOVE_NO = '#STOVE_NO#' AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
</query>
<qeury id = "FrmStuffInputStore.insertStlLgInstore" desc = "交库插入交库实绩表">
DECLARE
  ACOUNT STL_LG_INSTORE_RESULT.ACT_COUNT%TYPE := NULL;
BEGIN
  SELECT COUNT(1)
    INTO ACOUNT
    FROM STL_LG_INSTORE_RESULT T
   WHERE T.FURNACENO = '#FURNACENO#'
     AND T.SEQUENCENO = '#SEQUENCENO#'
     AND T.STOVE_NO = '#STOVE_NO#'
     AND T.FIX_NUM = '#FIX_NUM#'
     AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#';
  IF (ACOUNT > 0) THEN
    UPDATE STL_LG_INSTORE_RESULT T
       SET T.ACT_COUNT = TO_NUMBER(NVL(T.ACT_COUNT, 0)) +
                         TO_NUMBER('#ACT_COUNT#'),
           T.WEIGHT    = TO_NUMBER(NVL(T.WEIGHT, 0)) + TO_NUMBER('#WEIGHT#')
     WHERE T.FURNACENO = '#FURNACENO#'
       AND T.SEQUENCENO = '#SEQUENCENO#'
       AND T.STOVE_NO = '#STOVE_NO#'
       AND T.FIX_NUM = '#FIX_NUM#'
       AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#';
  ELSE
   INSERT INTO STL_LG_INSTORE_RESULT(
        PRO_PLAN_ID,
        GX_PLAN_NO,
        FURNACENO,
        STOVE_NO,
        FLAG_STOVE_NO,
        JUDGE_STOVE_NO,
        PRINT_STOVE_NO,
        BATCH_GROUD_NO,
        MATERIAL_NO,
        MATERIAL_NAME,
        GRADECODE,
        GRADENAME,
        DIAMETER,
        FIX_NUM,
        FIX_LEN,
        LENGTH,
        ACT_COUNT,
        WEIGHT,
        NODE_FUR_FLAG,
        JUDGE_STOVE_NO_SEQ,
        SEQUENCENO)
 VALUES( 
        '#PRO_PLAN_ID#',
        '#GX_PLAN_NO#',
        '#FURNACENO#',
        '#STOVE_NO#',
        '#FLAG_STOVE_NO#',
        '#JUDGE_STOVE_NO#',
        '#PRINT_STOVE_NO#',
        '#BATCH_GROUD_NO#',
        '#MATERIAL_NO#',
        '#MATERIAL_NAME#',
        '#GRADECODE#',
        '#GRADENAME#',
        '#DIAMETER#',
        '#FIX_NUM#',
        '#FIX_LEN#',
        '#LENGTH#',
        '#ACT_COUNT#',
        '#WEIGHT#',
        '0',
        '#JUDGE_STOVE_NO_SEQ#',
        '#SEQUENCENO#');
  END IF;
END;
</qeury>
<query id = "FrmStuffInputStore.deleteStlLgInStore" desc = "减交库实绩表支数\重量">
DECLARE
  ACOUNT STL_LG_INSTORE_RESULT.ACT_COUNT%TYPE := NULL;
BEGIN
  UPDATE STL_LG_INSTORE_RESULT T
     SET T.ACT_COUNT = TO_NUMBER(NVL(T.ACT_COUNT, 0)) -
                       TO_NUMBER('#ACT_COUNT#'),
         T.WEIGHT    = TO_NUMBER(NVL(T.WEIGHT, 0)) -
                       TO_NUMBER('#ACT_WEIGHT#')
   WHERE T.FURNACENO = '#FURNACENO#'
     AND T.SEQUENCENO = '#SEQUENCENO#'
     AND T.STOVE_NO = '#STOVE_NO#'
     AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#';
  UPDATE PLN_STEELFOR_ORD T
     SET T.CCM_STATE = '20'
   WHERE SUBSTR(T.FURNACENO,0,12) = '#FURNACENO#'
     AND T.SEQUENCENO = '#SEQUENCENO#'
     AND T.STOVE_NO = '#STOVE_NO#'
     AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#';
  
  SELECT SUM(T.ACT_COUNT)
    INTO ACOUNT
    FROM STL_LG_INSTORE_RESULT T
   WHERE T.FURNACENO = '#FURNACENO#'
     AND T.SEQUENCENO = '#SEQUENCENO#'
     AND T.STOVE_NO = '#STOVE_NO#'
     AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#';
     IF(ACOUNT >0)THEN
     UPDATE STL_LG_INSTORE_RESULT T SET T.NODE_FUR_FLAG = '0'
     WHERE T.FURNACENO = '#FURNACENO#'
     AND T.SEQUENCENO = '#SEQUENCENO#'
     AND T.STOVE_NO = '#STOVE_NO#'
     AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#';
     ELSE
     DELETE FROM STL_LG_INSTORE_RESULT T 
     WHERE T.FURNACENO = '#FURNACENO#'
     AND T.SEQUENCENO = '#SEQUENCENO#'
     AND T.STOVE_NO = '#STOVE_NO#'
     AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#';
     END IF;
END;
</query>
<query id = "FrmStuffInputStore.SelectJuge" desc = "查询是否已申请判定">
SELECT COUNT(1) ACOUNT
  FROM MAT_GP_M T, YDM_GP_INLIST S
 WHERE T.MAT_NO = S.MAT_NO
   AND S.INSTOCK_TYPE_CODE = '800701'
   AND S.INSTOCK_DOC = ?
   AND S.JUDGE_STOVE_NO = ?
   AND T.JUGDE_APPLY_CODE IS NOT NULL
</query>
<query id = "FrmStuffInputStore.doQueryMatJudgeApp" desc = "查询是否申请判定">
SELECT COUNT(1)
  FROM MAT_GP_M T
 WHERE T.FURNACENO = ?
   AND T.SEQUENCENO = ?
   AND T.STOVE_NO = ?
   AND T.JUDGE_STOVE_NO = ?
   AND T.JUGDE_APPLY_CODE IS NOT NULL
</query>
<query id = "FrmStuffInputStore.doQueryCrafNo" desc = "查询工艺文件号">
SELECT T.CRAFT_NO FROM PLN_STEELFORFURNACE T WHERE T.FURNACENO = ?
</query>
<query id = "FrmStuffInputStore.selectPlanRoute" desc = "查询作业计划路线">
SELECT T.PLAN_ROUTE
  FROM PLN_STEELFORFURNACE T, PLN_STEELFOR_ORD S
 WHERE T.FURNACENO = S.FURNACENO
   AND NVL(S.PRO_PLAN_ID,'/') = NVL('#PRO_PLAN_ID#','/')
   AND NVL(S.GX_PLAN_NO,'/') = NVL('#GX_PLAN_NO#','/')
   AND S.STOVE_NO = '#STOVE_NO#'
</query>
<query id = "FrmStuffInputStore.selectPlnOrderZg" desc = "查询轧管订单">
SELECT  S.*
  FROM PLN_ZY_ZG_M S
 WHERE S.CCM_PRO_PLAN_ID = '#PRO_PLAN_ID#'
 AND S.CCM_GX_PLAN_NO = '#GX_PLAN_NO#'
 AND S.UPPER_HEATPLAN_ID ='#FURNACENO#'||'/'||'#SEQUENCENO#'
 AND S.PLANSTATUS IN('00','10')
 ORDER BY TO_NUMBER(S.GX_PRO_SEQ) ASC
</query>
<query id = "FrmStuffInputStore.selectPlnOrderZgHB" desc = "查询合并铸造订单下的轧管订单">
SELECT S1.*
  FROM (SELECT S.PRO_PLAN_ID,S.GX_PLAN_NO,T.FURNACENO,T.SEQUENCENO
          FROM PLN_STEELFOR_ORD T, PLN_STEELFOR_MERGE S
         WHERE T.MERGE_NO = S.MERGE_NO
         AND T.FURNACENO = ?
         AND T.SEQUENCENO = ?
         GROUP BY S.PRO_PLAN_ID,S.GX_PLAN_NO,T.FURNACENO,T.SEQUENCENO) T1,
       PLN_ZY_ZG_M S1
 WHERE T1.PRO_PLAN_ID = S1.CCM_PRO_PLAN_ID
 AND T1.GX_PLAN_NO = S1.CCM_GX_PLAN_NO
 AND T1.FURNACENO ||'/'||T1.SEQUENCENO = S1.UPPER_HEATPLAN_ID
 AND S1.PLANSTATUS IN('00','10')
 ORDER BY TO_NUMBER(S1.GX_PRO_SEQ) ASC
</query>
<query id = "FrmStuffInputStore.selectPlnOrderDz" desc = "查询锻造订单">
 SELECT T.*
   FROM PLN_ZY_DZ_M T
  WHERE T.CCM_PRO_PLAN_ID = '#PRO_PLAN_ID#'
  AND T.CCM_GX_PLAN_NO = '#GX_PLAN_NO#'
  AND T.UPPER_HEATPLAN_ID = '#FURNACENO#'||'/'||'#SEQUENCENO#'
  AND T.PLANSTATUS IN('00','10')
  ORDER BY TO_NUMBER(T.GX_PRO_SEQ) ASC
</query>
<query id = "FrmStuffInputStore.selectPlnOrderDzHB" desc = "查询合并铸造订单下的铸造订单">
SELECT S1.*
  FROM (SELECT S.PRO_PLAN_ID,S.GX_PLAN_NO,T.FURNACENO,T.SEQUENCENO
          FROM PLN_STEELFOR_ORD T, PLN_STEELFOR_MERGE S
         WHERE T.MERGE_NO = S.MERGE_NO
         AND T.FURNACENO = ?
         AND T.SEQUENCENO = ?
         GROUP BY S.PRO_PLAN_ID,S.GX_PLAN_NO,T.FURNACENO,T.SEQUENCENO) T1,
       PLN_ZY_DZ_M S1
 WHERE T1.PRO_PLAN_ID = S1.CCM_PRO_PLAN_ID
 AND T1.GX_PLAN_NO = S1.CCM_GX_PLAN_NO
 AND T1.FURNACENO ||'/'||T1.SEQUENCENO = S1.UPPER_HEATPLAN_ID
 AND S1.PLANSTATUS IN('00','10')
 ORDER BY TO_NUMBER(S1.GX_PRO_SEQ) ASC
</query>
<query id = "FrmStuffInputStore.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.STOVE_NO = '#STOVE_NO#'
   AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
   AND T.FURNACENO = '#FURNACENO#'
   AND T.SEQUENCENO = '#SEQUENCENO#'
   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 = "FrmStuffInputStore.selectMatGpMNumHB" 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 = ?
   AND T.GX_PLAN_NO = ?
   AND T.STOVE_NO = ?
   AND T.JUDGE_STOVE_NO = ?
   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 = "FrmStuffInputStore.selectMatGpMNumZg" desc = "查询已挂单倍坯支数">
SELECT NVL(SUM(T.DB_ACT_COUNT),0) DB_ACT_COUNT FROM MAT_GP_M T WHERE T.PRO_PLAN_ID_ZG = '#PRO_PLAN_ID#' AND T.GX_PLAN_NO_ZG = '#GX_PLAN_NO#' AND T.FURNACENO||'/'|| T.SEQUENCENO = '#UPPER_HEATPLAN_ID#'
</query>
<query id = "FrmStuffInputStore.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#',
           T.HEAT_PLAN_NO_NEXT = '#HEAT_PLAN_NO_NEXT#',
           T.GPREQ_ID         =
           (SELECT T1.GPREQ_ID
              FROM PLN_ORDER_ZG_S T1
             WHERE T1.PRO_PLAN_ID = '#PRO_PLAN_ID_ZG#'
               AND T1.GX_PLAN_NO = '#GX_PLAN_NO_ZG#')
     WHERE T.MAT_NO = MYROW.MAT_NO;
  END LOOP;
END;
]]>
</query>
<query id = "FrmStuffInputStore.selectPlnOrderZzMerageNo" desc = "查询合并铸造订单">
SELECT T1.*,T.FURNACENO,T.SEQUENCENO
  FROM PLN_STEELFOR_ORD T,
       (SELECT S.MERGE_NO,
               S.PRO_PLAN_ID,
               S.GX_PLAN_NO,
               S.CUT_NUM_GP,
               CEIL(S1.PLN_INSINGLE_NUM / S.CUT_NUM_GP) TOT_MUM_M,
               S1.UPPER_HEATPLAN_ID
          FROM PLN_ZY_ZG_M S1,
               (SELECT M.MERGE_NO,
                       M.PRO_PLAN_ID,
                       M.GX_PLAN_NO,
                       M.CUT_NUM_GP,
                       NVL(SUM(M.TOT_MUM_M),0) TOT_MUM_M
                  FROM PLN_STEELFOR_MERGE M
                 GROUP BY M.MERGE_NO,
                          M.PRO_PLAN_ID,
                          M.GX_PLAN_NO,
                          M.CUT_NUM_GP) S
         WHERE S.PRO_PLAN_ID = S1.CCM_PRO_PLAN_ID(+)
           AND S.GX_PLAN_NO = S1.CCM_GX_PLAN_NO(+)     
         ORDER BY TO_NUMBER(S1.GX_PRO_SEQ) ASC) T1
 WHERE T.MERGE_NO = T1.MERGE_NO
   --AND T.FURNACENO || '/' || T.SEQUENCENO = T1.UPPER_HEATPLAN_ID
   AND T.PRO_PLAN_ID = '#PRO_PLAN_ID#'
   AND T.GX_PLAN_NO = '#GX_PLAN_NO#'
</query>

<query id = "FrmStuffInputStore.selectPlnOrderZzMerageNoDp" desc = "查询合并铸造订单">
SELECT T1.*,T.FURNACENO,T.SEQUENCENO
  FROM PLN_STEELFOR_ORD T,
       (SELECT S.MERGE_NO,
               S.PRO_PLAN_ID,
               S.GX_PLAN_NO,
               S.CUT_NUM_GP,
               CEIL(S1.PLN_INSINGLE_NUM / S.CUT_NUM_GP) TOT_MUM_M,
               S1.UPPER_HEATPLAN_ID
          FROM PLN_ZY_DZ_M S1,
               (SELECT M.MERGE_NO,
                       M.PRO_PLAN_ID,
                       M.GX_PLAN_NO,
                       M.CUT_NUM_GP,
                       SUM(M.TOT_MUM_M) TOT_MUM_M
                  FROM PLN_STEELFOR_MERGE M
                 GROUP BY M.MERGE_NO,
                          M.PRO_PLAN_ID,
                          M.GX_PLAN_NO,
                          M.CUT_NUM_GP) S
         WHERE S.PRO_PLAN_ID = S1.CCM_PRO_PLAN_ID
           AND S.GX_PLAN_NO = S1.CCM_GX_PLAN_NO     
         ORDER BY TO_NUMBER(S1.GX_PRO_SEQ) ASC) T1
 WHERE T.MERGE_NO = T1.MERGE_NO
   AND T.FURNACENO || '/' || T.SEQUENCENO = T1.UPPER_HEATPLAN_ID
   AND T.PRO_PLAN_ID = '#PRO_PLAN_ID#'
   AND T.GX_PLAN_NO = '#GX_PLAN_NO#'
</query>
<query id = "FrmStuffInputStore.selectPlnOrderZzMerageNoMatGpMNum" desc = "查询库存下该子订单、炉号支数">
SELECT NVL(SUM(T.ACT_COUNT), 0) ACT_COUNT,
       NVL(SUM(T.DB_ACT_COUNT), 0) DB_ACT_COUNT
  FROM MAT_GP_M T
 WHERE T.PRO_PLAN_ID = ?
   AND T.GX_PLAN_NO = ?
   AND T.STOVE_NO = ?
   AND T.JUDGE_STOVE_NO = ?
   AND T.QCM_STAUS = '00'
</query>
<query id = "FrmStuffInputStore.selectMatGpMHBNum" des  = "查询合并订单下倍尺支数">
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.STOVE_NO = '#STOVE_NO#'
   AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
   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 = "FrmStuffInputStore.updateMatGpMHBSql" desc = "修改铸造订单号">
<![CDATA[
DECLARE
BEGIN
  FOR MYROW IN (SELECT *
                  FROM (SELECT *
                          FROM MAT_GP_M T
                         WHERE T.PRO_PLAN_ID = ?
                           AND T.GX_PLAN_NO = ?
                           AND T.STOVE_NO = ?
                           AND T.JUDGE_STOVE_NO = ?
                           AND T.FIX_NUM = ?
                           AND T.QCM_STAUS = '00'
                         ORDER BY T.MAT_NO ASC)
                 WHERE ROWNUM <= ?) LOOP
    UPDATE MAT_GP_M T
       SET T.PRO_PLAN_ID = ?, T.GX_PLAN_NO = ?
     WHERE T.MAT_NO = MYROW.MAT_NO
     ;
  END LOOP;
END;
]]>
</query>
<query id = "FrmStuffInputStore.SelectMatGpStorage" desc = "查询在库物料">
SELECT COUNT(1)MAT_NUM
  FROM (SELECT T.*
          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 S.STORAGE_NO = '#STORAGE_NO#') T1,
       YDM_GP_INLIST S1
 WHERE T1.MAT_NO = S1.MAT_NO
   AND S1.INSTOCK_TYPE_CODE = '800701'
   AND S1.INSTOCK_DOC = '#INSTOCK_DOC#'
</query>
<query id = "FrmStuffInputStore.selectInCount" desc = "结炉回退时判断是否已撤销入库">
SELECT COUNT(1)ACOUNT
  FROM YDM_GP_INLIST T
 WHERE T.STOVE_NO = '#STOVE_NO#'
   AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
   AND T.INSTOCK_TYPE_CODE = '800701'
</query>
<query id = "FrmStuffInputStore.SelectEfPlineCode" desc = "查询电炉产线">
SELECT T.EF_PLINE_CODE,T.EF_PLINE_NAME
  FROM PLN_STEELFOR_ORD T
 WHERE T.FURNACENO = '#FURNACENO#'
   AND T.STOVE_NO = '#STOVE_NO#'
   AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
</query>

<query id = "FrmStuffInputStore.selectTmsDemandM" desc = "查询下线的支、吨">
<![CDATA[
 select NVL(SUM(T.ACT_COUNT), 0) ACT_COUNT,
       NVL(SUM(T.ACT_WEIGHT), 0) ACT_WEIGHT
  from MAT_GP_M t
 WHERE T.JUDGE_STOVE_NO = ?
   AND T.FURNACENO = ?
   AND T.SEQUENCENO = ?
   AND T.QCM_STAUS = '00'
       ]]>
</query>
<query id = "FrmStuffInputStore.selectTmsDemandMScrap" desc = "查询废品支、吨">
<![CDATA[
 select NVL(SUM(T.ACT_COUNT), 0) ACT_COUNT,
       NVL(SUM(T.ACT_WEIGHT), 0) ACT_WEIGHT
  from MAT_GP_M t
 WHERE T.JUDGE_STOVE_NO = ?
   AND T.FURNACENO = ?
   AND T.SEQUENCENO = ?
   AND T.QCM_STAUS = '22'
       ]]>
</query>
<query id = "FrmStuffInputStore.UpdateTmsDemandM" desc = "更新运输需求">
<![CDATA[
DECLARE
  V_ACT_COUNT      TMS_DEMAND_M.CALCULATE_CAR_VAL%type := ?;
  V_ACT_WEIGHT     TMS_DEMAND_M.DEMAND_WT_VAL%type := ?;
  V_JUDGE_STOVE_NO TMS_DEMAND_M.HEAT_NO%type := ?;
  V_CURRENT_JOB_NO TMS_DEMAND_M.CURRENT_JOB_NO%type := ? || '/' || ?;
  V_FLAG           TMS_DEMAND_M.CURRENT_JOB_NO%type := ?;
  V_SCRAP_QTY_VAL  TMS_DEMAND_M.SCRAP_QTY_VAL%type := ?;
  V_SCRAP_WT_VAL   TMS_DEMAND_M.SCRAP_WT_VAL%type := ?;
BEGIN
  FOR MYROW IN (SELECT T.*
                  FROM TMS_DEMAND_M T
                 WHERE T.HEAT_NO = V_JUDGE_STOVE_NO
                   AND T.CURRENT_JOB_NO = V_CURRENT_JOB_NO
                   AND T.TRAN_CLASS_CODE = 'XX'
                 ORDER BY T.CREATE_TIME DESC) LOOP
    --恢复原始数据
    UPDATE TMS_DEMAND_M T
       SET T.SCRAP_QTY_VAL  = 0,
           T.SCRAP_WT_VAL   = 0,
           T.OUTPUT_QTY_VAL = 0,
           T.OUTPUT_WT_VAL  = 0
     WHERE T.DEMAND_NO = MYROW.DEMAND_NO;
    --写实际数量
    IF (V_ACT_COUNT > 0) THEN
      IF (MYROW.DEMAND_QTY_VAL >= V_ACT_COUNT) THEN
        UPDATE TMS_DEMAND_M T
           SET T.OUTPUT_QTY_VAL = V_ACT_COUNT,
               T.OUTPUT_WT_VAL  = V_ACT_WEIGHT
         WHERE T.DEMAND_NO = MYROW.DEMAND_NO;
        V_ACT_COUNT  := 0;
        V_ACT_WEIGHT := 0;
      ELSE
        UPDATE TMS_DEMAND_M T
           SET T.OUTPUT_QTY_VAL = T.DEMAND_QTY_VAL,
               T.OUTPUT_WT_VAL  = T.DEMAND_WT_VAL
         WHERE T.DEMAND_NO = MYROW.DEMAND_NO;
        V_ACT_COUNT  := V_ACT_COUNT - MYROW.DEMAND_QTY_VAL;
        V_ACT_WEIGHT := V_ACT_WEIGHT - MYROW.DEMAND_WT_VAL;
      END IF;
    END IF;
  END LOOP;
  
   --结炉的数据处理
  FOR MYROW1 IN (SELECT T.*
                   FROM TMS_DEMAND_M T
                  WHERE T.HEAT_NO = V_JUDGE_STOVE_NO
                    AND T.CURRENT_JOB_NO = V_CURRENT_JOB_NO
                    AND T.TRAN_CLASS_CODE = 'XX'
                  ORDER BY T.CREATE_TIME DESC) LOOP
  
    IF (V_FLAG = 'JL') THEN
      IF (V_SCRAP_QTY_VAL > 0) THEN
        IF (MYROW1.DEMAND_QTY_VAL - MYROW1.OUTPUT_QTY_VAL >=
           V_SCRAP_QTY_VAL) THEN
          UPDATE TMS_DEMAND_M T
             SET T.SCRAP_QTY_VAL = V_SCRAP_QTY_VAL,
                 T.SCRAP_WT_VAL  = V_SCRAP_WT_VAL
           WHERE T.DEMAND_NO = MYROW1.DEMAND_NO;
          V_SCRAP_QTY_VAL := 0;
          V_SCRAP_WT_VAL  := 0;
        ELSE
          UPDATE TMS_DEMAND_M T
             SET T.SCRAP_QTY_VAL = T.DEMAND_QTY_VAL - T.OUTPUT_QTY_VAL,
                 T.SCRAP_WT_VAL =
                 (T.DEMAND_QTY_VAL - T.OUTPUT_QTY_VAL) / V_SCRAP_QTY_VAL *
                 V_SCRAP_WT_VAL
           WHERE T.DEMAND_NO = MYROW1.DEMAND_NO;
        
          V_SCRAP_QTY_VAL := V_SCRAP_QTY_VAL - MYROW1.DEMAND_QTY_VAL +
                             MYROW1.OUTPUT_QTY_VAL;
          V_SCRAP_WT_VAL  := (V_SCRAP_QTY_VAL - MYROW1.DEMAND_QTY_VAL +
                             MYROW1.OUTPUT_QTY_VAL) / V_SCRAP_QTY_VAL *
                             V_SCRAP_WT_VAL;
        END IF;
      END IF;
    END IF;
  END LOOP;
END;
       ]]>
</query>
</queryMap>