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

<?xml version="1.0" encoding="UTF-8"?>
<queryMap desc = "委托实绩回报">
<query id = "FrmSubContractAffrim.doQueryEntrustBill" desc = "查询委托实绩">
 SELECT 
       T.SUBCONTRACT_NO,
       T.SUBCONTRACT_NO_SEQ,
       T.STOVE_NO,
       T.JUDGE_STOVE_NO,
       T.JUDGE_STOVE_NO_SEQ,
       MAX(T.PLINE_CODE)PLINE_CODE,
       SUM(T.SUBCONTRACTCOMPLETE_NUM)SUBCONTRACTCOMPLETE_NUM,
       SUM(T.SUBCONTRACT_NUM)SUBCONTRACT_NUM,
       MAX(TO_CHAR(T.ENTRUSTED_TIME, 'YYYY-MM-DD HH24:MI:SS')) ENTRUSTED_TIME,
       MAX(T.REMARK)REMARK,
       MAX(T.COL_USER)COL_USER,
       MAX(DECODE(T.COL_SHIFT,
              '0',
              '常白班',
              '1',
              '早班',
              '2',
              '中班',
              '3',
              '夜班')) COL_SHIFT,
       MAX(DECODE(T.COL_GROUP,
              '1',
              '甲班',
              '2',
              '乙班',
              '3',
              '丙班',
              '4',
              '丁班')) COL_GROUP,
       MAX(T.ENTRUSTED_FLAG)ENTRUSTED_FLAG,
       SUM(T.SUBCONTRACTSCRAP_NUM)SUBCONTRACTSCRAP_NUM,
       MAX(DECODE(T.SUBCONTRACT_FLAG,'0','未完成','1','已完成'))SUBCONTRACT_FLAG,
       MAX(T.ENTRUSTED_PLINE_CODE)ENTRUSTED_PLINE_CODE,
       MAX(T.ENTRUSTED_PLINE_NAME)ENTRUSTED_PLINE_NAME,
       MAX(T.ENTRUSTED_REMARK)ENTRUSTED_REMARK,
       SUM(T.SUBCONTRACT_WGT)SUBCONTRACT_WGT,
       SUM(T.SUBCONTRACT_COMPLETE_WGT)SUBCONTRACT_COMPLETE_WGT,
       MAX(T.SUBCONTRACT_TYPE)SUBCONTRACT_TYPE,
       MAX(T.FIX_NUM)FIX_NUM,
       MAX(T.FIX_LEN)FIX_LEN,
       MAX(T.LENGTH)LENGTH,
       MAX(T.DIAMETER)DIAMETER,
       MAX(T.PRO_PLAN_ID)PRO_PLAN_ID,
       MAX(T.GX_PLAN_NO)GX_PLAN_NO,
       MAX(T.GPREQ_ID)GPREQ_ID,
       MAX(DECODE(T.AFFIRM_FLAG,'0','未确认','1','已确认'))AFFIRM_FLAG,
       T.FURNACENO,
       T.SEQUENCENO,
       T.BACK_JUDGE_STOVE_NO_SEQ
 FROM STL_LG_ENTRUST_BILL T
 WHERE 1=1
</query>
<query id = "FrmSubContractAffrim.doQueryEntrustBillDetial" desc = "查询委托回报实绩">
 SELECT 
       T.SUBCONTRACT_NO,
       T.STOVE_NO,
       T.JUDGE_STOVE_NO,
       T.COM_FIX_NUM,
       T.COM_FIX_LEN,
       T.COM_LENGTH,
       T.COM_DIAMETER,
       T.SUBCONTRACTCOMPLETE_NUM,
       T.SUBCONTRACT_COMPLETE_WGT,
       T.SUBCONTRACTSCRAP_NUM,
       T.SUBCONTRACTSCRAP_WGT
 FROM STL_LG_ENTRUST_BILL_DETIAL T
 WHERE T.SUBCONTRACT_NO = ?
 AND T.STOVE_NO = ?
 AND T.JUDGE_STOVE_NO_SEQ = ?
 AND T.SUBCONTRACT_NO_SEQ = ?
</query>
<query id = "FrmSubContractAffrim.selectSubContractFlag" desc = "查询委托是否已确认">
 SELECT T.AFFIRM_FLAG,T.SUBCONTRACT_FLAG
     FROM STL_LG_ENTRUST_BILL T
    WHERE T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
      AND T.STOVE_NO = '#STOVE_NO#'
      AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
      AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#'
</query>
<query id = "FrmSubContractAffrim.updateEntrustTity" desc = "修改委托标识">
UPDATE STL_LG_ENTRUST_BILL T SET T.SUBCONTRACT_FLAG = '1'
    WHERE T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
      AND T.STOVE_NO = '#STOVE_NO#'
      AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
      AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#'
</query>
<query id = "FrmSubContractAffrim.subcontractComplete" desc = "回报实绩">
 DECLARE
   VCOUNT STL_LG_ENTRUST_BILL_DETIAL.COM_FIX_NUM%TYPE := 0;
BEGIN
  SELECT COUNT(1)
    INTO VCOUNT
    FROM STL_LG_ENTRUST_BILL_DETIAL T
   WHERE T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
     AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#'
     AND T.STOVE_NO = '#STOVE_NO#'
     AND T.COM_FIX_NUM = '#COM_FIX_NUM#'
     AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#';
  IF (VCOUNT > 0) THEN
    UPDATE STL_LG_ENTRUST_BILL_DETIAL T
       SET T.SUBCONTRACTSCRAP_NUM = TO_NUMBER(NVL(T.SUBCONTRACTSCRAP_NUM, 0)) +
                                    TO_NUMBER(NVL('#SUBCONTRACTSCRAP_NUM#',
                                                  0)),
                                    T.SUBCONTRACTSCRAP_WGT =
                                    TO_NUMBER(NVL(T.SUBCONTRACTSCRAP_WGT, 0)) +
                                    TO_NUMBER(NVL('#SUBCONTRACTSCRAP_WGT#',
                                                  0))
     WHERE T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
       AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#'
       AND T.STOVE_NO = '#STOVE_NO#'
       AND T.COM_FIX_NUM = '#COM_FIX_NUM#'
       AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#';
  ELSE
    INSERT INTO STL_LG_ENTRUST_BILL_DETIAL
      (SUBCONTRACT_NO,
       STOVE_NO,
       JUDGE_STOVE_NO,
       COM_FIX_NUM,
       COM_FIX_LEN,
       COM_LENGTH,
       COM_DIAMETER,
       SUBCONTRACTCOMPLETE_NUM,
       SUBCONTRACT_COMPLETE_WGT,
       SUBCONTRACT_NO_SEQ,
       JUDGE_STOVE_NO_SEQ,
       SUBCONTRACTSCRAP_NUM,
       SUBCONTRACTSCRAP_WGT)
    VALUES
      ('#SUBCONTRACT_NO#',
       '#STOVE_NO#',
       '#JUDGE_STOVE_NO#',
       '#COM_FIX_NUM#',
       '#COM_FIX_LEN#',
       '#COM_LENGTH#',
       '#COM_DIAMETER#',
       '#SUBCONTRACTCOMPLETE_NUM#',
       '#SUBCONTRACT_COMPLETE_WGT#',
       '#SUBCONTRACT_NO_SEQ#',
       '#JUDGE_STOVE_NO_SEQ#',
       '#SUBCONTRACTSCRAP_NUM#',
       '#SUBCONTRACTSCRAP_WGT#');
  END IF;
END;
</query>
<query id = "FrmSubContractAffrim.cancelSubcontractComplete" desc = "删除委外回报实绩">
DECLARE
BEGIN
  UPDATE STL_LG_ENTRUST_BILL T
     SET T.SUBCONTRACT_FLAG = '0'
   WHERE T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
     AND T.STOVE_NO = '#STOVE_NO#'
     AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
     AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#';
  DELETE FROM STL_LG_ENTRUST_BILL_DETIAL T
   WHERE T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
     AND T.STOVE_NO = '#STOVE_NO#'
     AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
     AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#';
END;
</query>
<query id = "FrmSubContractAffrim.doAffrim" desc = "确认委托实绩">
 INSERT INTO STL_LG_PROGRRSS(
        MAT_NO,
        STOVE_NO,
        CCMSTOVENO,
        JUDGE_STOVE_NO,
        CAST_NO,
        HEATCNT,
        CCMID,
        FLOWNO,
        CUTSEQNO,
        MATERIAL_NO,
        MATERIAL_NAME,
        GRADECODE,
        GRADENAME,
        BATCH_GROUD_NO,
        FLAG_STOVE_NO,
        STANDARDSCODE,
        STANDARDREMAK,
        DIAMETER,
        FIX_NUM,
        FIX_LEN,
        LENGTH,
        ACT_COUNT,
        WEIGHT,
        RECIVE_FLAG,
        STATUS,
        CUTTIME,
        AFFIRM_FLAG,
        OLD_MAT_NO,
        TEST_COUNT,
        IS_VALID,
        FURNACENO,
        GROUP_FLAG,
        PLINE_CODE,
        PRINT_STOVE_NO,
        PRO_PLAN_ID,
        GX_PLAN_NO,
        GPREQ_ID,
        BAL_YEAR_MONTH,
        PLINE_NAME,
        SUBCONTRACT_NO,
        SUBCONTRACT_NO_SEQ,
        JUDGE_STOVE_NO_SEQ,
        OP_PROCESS,
        SEQUENCENO,
        CIC,
        PIC,
        SIC,
        DIC,
        SCRAP_REASON)
 VALUES( 
        '#MAT_NO#',
        '#STOVE_NO#',
        '#CCMSTOVENO#',
        '#JUDGE_STOVE_NO#',
        '#CAST_NO#',
        '#HEATCNT#',
        '#CCMID#',
        '#FLOWNO#',
        '#CUTSEQNO#',
        '#MATERIAL_NO#',
        '#MATERIAL_NAME#',
        '#GRADECODE#',
        '#GRADENAME#',
        '#BATCH_GROUD_NO#',
        '#FLAG_STOVE_NO#',
        '#STANDARDSCODE#',
        '#STANDARDREMAK#',
        '#DIAMETER#',
        '#FIX_NUM#',
        '#FIX_LEN#',
        '#LENGTH#',
        '#ACT_COUNT#',
        '#WEIGHT#',
        '#RECIVE_FLAG#',
        '#STATUS#',
        TO_DATE('#CUTTIME#','YYYY-MM-DD HH24:MI:SS'),
        '#AFFIRM_FLAG#',
        '#OLD_MAT_NO#',
        '#TEST_COUNT#',
        '#IS_VALID#',
        '#FURNACENO#',
        '#GROUP_FLAG#',
        '#PLINE_CODE#',
        '#PRINT_STOVE_NO#',
        '#PRO_PLAN_ID#',
        '#GX_PLAN_NO#',
        '#GPREQ_ID#',
        '#BAL_YEAR_MONTH#',
        '#PLINE_NAME#',
        '#SUBCONTRACT_NO#',
        '#SUBCONTRACT_NO_SEQ#',
        '#JUDGE_STOVE_NO_SEQ#',
        '#OP_PROCESS#',
        '#SEQUENCENO#',
        '#CIC#',
        '#PIC#',
        '#SIC#',
        '#DIC#',
        '#SCRAP_REASON#')
</query>
<query id = "FrmSubContractAffrim.updateStlScrap" desc ="赋予废品原因">
<![CDATA[
DECLARE
BEGIN
  FOR MYROW IN (SELECT *
                  FROM (SELECT MAT_NO
                          FROM STL_LG_PROGRRSS T
                         WHERE T.STOVE_NO = '#STOVE_NO#'
                           AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
                           AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
                           AND T.FURNACENO = '#FURNACENO#'
                           AND T.SEQUENCENO = '#SEQUENCENO#'
                           AND T.STATUS = '4'
                           AND T.SCRAP_REASON IS NULL
                         ORDER BY T.MAT_NO ASC)
                 WHERE ROWNUM <= #SCRAP_REASON_NUM#) LOOP
  
    UPDATE STL_LG_PROGRRSS T
       SET T.SCRAP_REASON = '#SCRAP_REASON#'
     WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
       AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
       AND T.MAT_NO = MYROW.MAT_NO;
  END LOOP;
END;
]]>
</query>
<query id = "FrmSubContractAffrim.selectStlLgDetialData" desc = "查询实绩信息">
SELECT *
  FROM STL_LG_ENTRUST_BILL_DETIAL T
 WHERE T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
   AND T.STOVE_NO = '#STOVE_NO#'
   AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
   AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#'
</query>
<query id = "FrmSubContractAffrim.doQueryDbTrust" desc = "查询委托单倍坯支">
SELECT NVL(SUM(T.FIX_NUM * T.SUBCONTRACT_NUM),0)
  FROM STL_LG_ENTRUST_BILL T
 WHERE T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
   AND T.STOVE_NO = '#STOVE_NO#'
   AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
   AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#'
</query>
<query id = "FrmSubContractAffrim.selectStlLgProcessData" desc = "查询进程表信息">
SELECT T.MAT_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.ACT_COUNT,
       T.WEIGHT,
       T.RECIVE_FLAG,
       T.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.GROUP_FLAG,
       T.PLINE_CODE,
       T.PRINT_STOVE_NO,
       T.PRO_PLAN_ID,
       T.GX_PLAN_NO,
       T.GPREQ_ID,
       T.BAL_YEAR_MONTH,
       T.PLINE_NAME,
       T.SUBCONTRACT_NO,
       T.SUBCONTRACT_NO_SEQ,
       T.CIC,
       T.PIC,
       T.SIC,
       T.DIC,
       T.JUDGE_STOVE_NO_SEQ,
       T.GPTYPE,
       T.SEQUENCENO,
       T.OP_PROCESS
  FROM STL_LG_PROGRRSS T
 WHERE T.STOVE_NO = '#STOVE_NO#'
   AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
   AND T.FIX_NUM = '#FIX_NUM#'
   AND T.PRO_PLAN_ID = '#PRO_PLAN_ID#'
   AND T.GX_PLAN_NO = '#GX_PLAN_NO#'
   AND T.STATUS = '1'
</query>
<query id = "FrmSubContractAffrim.selectStlLgProcessScrapReasonData" desc = "查询废品原因下单倍支数和">
SELECT NVL(SUM(T.SCRAP_REASON_NUM), '0') SCRAP_REASON_NUM, T.SCRAP_REASON
  FROM STL_LG_PROGRRSS T
 WHERE T.STOVE_NO = '#STOVE_NO#'
   AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
   AND T.FIX_NUM = '#FIX_NUM#'
   AND T.PRO_PLAN_ID = '#PRO_PLAN_ID#'
   AND T.GX_PLAN_NO = '#GX_PLAN_NO#'
   AND T.STATUS = '1'
 GROUP BY T.SCRAP_REASON
</query>
<query id = "FrmSubContractAffrim.queryMatNo" desc = "生成材料号">
SELECT ? ||
       LPAD(NVL(MAX(SUBSTR(T.MAT_NO, LENGTH(T.MAT_NO) - 2)), 0) + 1, 3, 0) MAT_NO
  FROM STL_LG_PROGRRSS T
 WHERE T.STOVE_NO = ?
   AND T.JUDGE_STOVE_NO = ?
</query>
<query id = "FrmSubContractAffrim.updateEntrustAffrim" desc = "修改委托状态">
UPDATE STL_LG_ENTRUST_BILL T
   SET T.AFFIRM_FLAG = '1',
   T.BACK_JUDGE_STOVE_NO_SEQ = '#BACK_JUDGE_STOVE_NO_SEQ#'
 WHERE T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
   AND T.STOVE_NO = '#STOVE_NO#'
   AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
   AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#'
</query>
<query id = "FrmSubContractAffrim.updateProcessIsVild" desc = "修改进程表状态">
DECLARE
BEGIN
  FOR MYROW IN (SELECT *
                  FROM STL_LG_PROGRRSS T
                 WHERE T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
                   AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#'
                   AND T.STOVE_NO = '#STOVE_NO#'
                   AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
                   ORDER BY T.MAT_NO ASC) LOOP
    UPDATE STL_LG_PROGRRSS T
       SET T.STATUS = '3'
     WHERE T.STOVE_NO = '#STOVE_NO#'
       AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
       AND T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
       AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#';
    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;
    END LOOP;
END;
</query>
<query id = "FrmSubContractAffrim.cancelDoAffrim" desc = "撤销确认">
DECLARE
BEGIN
  DELETE 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 = '#BACK_JUDGE_STOVE_NO_SEQ#';
  DELETE FROM STL_LG_SURFACE_M T
   WHERE SUBSTR(T.FURNACENO, 0, 12) = '#FURNACENO#'
     AND T.SEQUENCENO = '#SEQUENCENO#' 
     AND T.STOVE_NO = '#STOVE_NO#'
     AND T.JUDGE_STOVE_NO_SEQ = '#BACK_JUDGE_STOVE_NO_SEQ#';

  UPDATE STL_LG_ENTRUST_BILL T
     SET T.AFFIRM_FLAG = '0', T.BACK_JUDGE_STOVE_NO_SEQ = ''
   WHERE T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
     AND T.STOVE_NO = '#STOVE_NO#'
     AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
     AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#';
END;
</query>
<query id = "FrmSubContractAffrim.updateStlProcess" desc = "修改进程表">
DECLARE
  V_BELONG_CODE MAT_GP_M.BELONG_CODE%TYPE := NULL;
  V_BELONG_NAME MAT_GP_M.BELONG_NAME%TYPE := NULL;
BEGIN
  SELECT T.DEPARTMENT_CODE
    INTO V_BELONG_CODE
    FROM COM_BASE_PLINE T
   WHERE T.PLINE_CODE = '#EF_PLINE_CODE#'
     AND T.VALIDFLAG = '1';
  SELECT T.DEPARTMENT_DESC
    INTO V_BELONG_NAME
    FROM COM_BASE_PLINE T
   WHERE T.PLINE_CODE = '#EF_PLINE_CODE#'
     AND T.VALIDFLAG = '1';
  FOR MYROWM IN (SELECT *
                   FROM STL_LG_PROGRRSS T
                  WHERE T.STOVE_NO = '#STOVE_NO#'
                    AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
                    AND T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
                    AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#'
                    AND T.STATUS = '3'
                  ORDER BY T.MAT_NO ASC) LOOP
    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,
       BELONG_CODE,
       BELONG_NAME,
       JUGDE_APPLY_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)
    VALUES
      (MYROWM.MAT_NO,
       '801401',
       '80150101',
       MYROWM.STOVE_NO,
       MYROWM.FLAG_STOVE_NO,
       MYROWM.JUDGE_STOVE_NO,
       MYROWM.CAST_NO,
       MYROWM.CCMID,
       MYROWM.MATERIAL_NO,
       MYROWM.MATERIAL_NAME,
       MYROWM.GRADECODE,
       MYROWM.GRADENAME,
       MYROWM.STANDARDSCODE,
       MYROWM.STANDARDREMAK,
       MYROWM.PLINE_CODE,
       MYROWM.PLINE_NAME,
       MYROWM.DIAMETER,
       MYROWM.LENGTH,
       MYROWM.FIX_NUM,
       MYROWM.FIX_LEN,
       '1',
       MYROWM.WEIGHT,
       V_BELONG_CODE,
       V_BELONG_NAME,
       '0',
       SYSDATE,
       '',
       '#COL_USER#',
       SYSDATE,
       MYROWM.FIX_NUM,
       MYROWM.PRINT_STOVE_NO,
       MYROWM.PRO_PLAN_ID,
       MYROWM.GX_PLAN_NO,
       MYROWM.GPREQ_ID,
       MYROWM.FIX_NUM,
       MYROWM.CIC,
       MYROWM.PIC,
       MYROWM.SIC,
       MYROWM.DIC,
       MYROWM.GPTYPE,
       MYROWM.SEQUENCENO,
       MYROWM.FURNACENO,
       '11');
    INSERT INTO YDM_GP_BUTTRESS
      (MAT_NO,
       STOVE_NO,
       FLAG_STOVE_NO,
       JUDGE_STOVE_NO,
       STORAGE_NO,
       LOCATION_NO,
       LARY_NO,
       LOC_NO,
       CREATE_NAME,
       CREATE_TIME,
       GROUD_NO)
    VALUES
      (MYROWM.MAT_NO,
       MYROWM.STOVE_NO,
       MYROWM.FLAG_STOVE_NO,
       MYROWM.JUDGE_STOVE_NO,
       '#STORAGE_NO#',
       '#LOCATION_NO#',
       '',
       '',
       '#COL_USER#',
       SYSDATE,
       MYROWM.FIX_NUM);
    UPDATE STL_LG_PROGRRSS T
       SET T.STATUS = '1'
     WHERE T.STOVE_NO = '#STOVE_NO#'
       AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
       AND T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
       AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#'
       AND T.STATUS = '3'
       AND T.MAT_NO = MYROWM.MAT_NO;
  END LOOP;
  DELETE FROM STL_LG_PROGRRSS T
   WHERE T.STOVE_NO = '#STOVE_NO#'
     AND T.JUDGE_STOVE_NO_SEQ = '#BACK_JUDGE_STOVE_NO_SEQ#'
     AND T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
     AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#';
END;
</query>
<query id = "FrmSubContractAffrim.selectTolNumWgt" desc = "查询委外回报合格支数、重量">
SELECT SUM(T.SUBCONTRACTCOMPLETE_NUM) SUBCONTRACTCOMPLETE_NUM,
       SUM(T.SUBCONTRACT_COMPLETE_WGT) SUBCONTRACT_COMPLETE_WGT
  FROM STL_LG_ENTRUST_BILL_DETIAL T
 WHERE T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
   AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#'
   AND T.STOVE_NO = '#STOVE_NO#'
   AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
</query>
<query id = "FrmSubContractAffrim.doQueryPlanStaus" desc = "查询炉计划状态">
SELECT T.CCM_STATE
  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 = '#BACK_JUDGE_STOVE_NO_SEQ#'
</query>
<query id = "FrmSubContractAffrim.doQueryDbWgt" desc = "查询单倍坯重">
SELECT  T.TOT_WEIGHT_M/T.TOT_MUM_M/CUT_NUM_GP  AS WEIGHT_GP_ONE
  FROM PLN_STEELFOR_ORD T
 WHERE SUBSTR(T.FURNACENO, 0, 12) = '#FURNACENO#'
   AND T.SEQUENCENO = '#SEQUENCENO#'
   AND T.JUDGE_STOVE_NO_SEQ = '#JUDGE_STOVE_NO_SEQ#'
</query>
<query id = "FrmSubContractAffrim.selectScrapInformation" desc = "查询废品信息">
SELECT * FROM STL_LG_PROGRRSS T WHERE T.JUDGE_STOVE_NO_SEQ = ? AND T.STATUS = '4'
</query>
<query id = "FrmSubContractAffrim.SelectStlProcessScrapW" desc = "查询委外废材料号">
DECLARE
BEGIN
  FOR MYROW IN (SELECT T.MAT_NO
                  FROM STL_LG_PROGRRSS T
                 WHERE T.JUDGE_STOVE_NO_SEQ = '#BACK_JUDGE_STOVE_NO_SEQ#'
                   AND T.STATUS = '4'
                 ORDER BY T.MAT_NO DESC) LOOP
                 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;
  END LOOP;
END;
</query>
<query id = "FrmSubContractAffrim.doQueryPlanEfPlineCode" desc = "查询电炉产线">
SELECT T.EF_PLINE_CODE, T.EF_PLINE_NAME
  FROM PLN_STEELFOR_ORD T
 WHERE T.FURNACENO = '#FURNACENO#'
   AND T.SEQUENCENO = '#SEQUENCENO#'
   AND ROWNUM = 1
</query>
</queryMap>