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

<?xml version="1.0" encoding="UTF-8"?>
<queryMap desc = "锻造炉计划委外管理">
<query id = "FrmSubContractDP.doQueryPlnZyM" desc = "查询锻造炉计划">
SELECT 
       T.HEAT_PLAN_NO,
       T.GX_PRO_SEQ,
       T.ZY_BATCH_ID,
       CASE
         WHEN T.STOVE_NO IS NULL THEN
          (SELECT O.STOVE_NO
             FROM PLN_STEELFOR_ORD O
            WHERE O.FURNACENO || '/' || O.SEQUENCENO = T.UPPER_HEATPLAN_ID)
         ELSE
          T.STOVE_NO
       END STOVE_NO,
         CASE
         WHEN T.JUDGE_STOVE_NO IS NULL THEN
          (SELECT O.JUDGE_STOVE_NO
             FROM PLN_STEELFOR_ORD O
            WHERE O.FURNACENO || '/' || O.SEQUENCENO = T.UPPER_HEATPLAN_ID)   
         ELSE
          T.JUDGE_STOVE_NO
       END JUDGE_STOVE_NO,
        CASE
         WHEN T.FLAG_STOVE_NO IS NULL  THEN
          (SELECT O.FLAG_STOVE_NO
             FROM PLN_STEELFOR_ORD O
            WHERE O.FURNACENO || '/' || O.SEQUENCENO = T.UPPER_HEATPLAN_ID)
         ELSE
          T.FLAG_STOVE_NO
       END FLAG_STOVE_NO,
       T.UPPER_HEATPLAN_ID,
       DECODE(T.PLANSTATUS,'00','计划准备','10','计划下发','20','计划生产中','30','计划生产完成','40','计划关闭')PLANSTATUS,
       T.NODE_ESTATUS,
       T.UPPER_PROCESS_CODE,
       T.NEXT_PROCESS_CODE,
       DECODE(T.ISENDGX,'0','否','1','是')ISENDGX,
       T.IF_MATCH_ODD,
       T.IF_DO_HEAT_PLAN,
       T.PRO_PLAN_ID,
       T.GX_PLAN_NO,
       T.CCM_PRO_PLAN_ID,
       T.CCM_GX_PLAN_NO,
       T.GOWHERE_CODE,
       T.GOWHERE_NAME,
       T.PLINE_CODE,
       T.PLINE_NAME,
       T.CASTINGTYPE,
       T.GRADECODE,
       T.GRADENAME,
       T.STEELCODE,
       T.STEELNAME,
       T.WLID_IN,
       T.WLDESC_IN,
       T.OUTWL_ID,
       T.OUTWL_DESC,
       T.PROD_STANDARD,
       T.OUTPUT_STANDARD,
       T.DIAMETER_IN,
       T.LENGTH_IN,
       T.WT_ONE_IN,
       T.LEN_GP_SINGLE,
       T.WT_GP_SINGLE,
       T.PLN_INSINGLE_NUM,
       T.PLN_INSINGLE_WT,
       T.CUT_NUM_GP,
       T.PLN_INDOUBLE_NUM,
       T.PLN_INDOUBLE_WT,
       T.DIAMETER_OUT,
       T.LENGTH_OUT,
       T.OUT_WT_ONE,
       T.PLN_OUTSINGLE_NUM,
       T.PLN_OUTSINGLE_W,
       T.CUT_NUM_OUT,
       T.PLN_OUTDOUBLE_NUM,
       T.PLN_OUTDOUBLE_W,
       T.LEN_CUTHEAD,
       T.LEN_CUTEND,
       T.ORDER_SOURCE,
       T.ORD_LN_DLY_PK,
       T.ORDER_NO,
       T.ORDER_SEQ,
       T.DELIVERY_NO,
       T.REQ_BL_ID,
       T.IF_EXPORT,
       T.PRIORITY,
       T.PRIORITY_MEMO,
       T.PRO_MONTH,
       T.IF_MONITOR,
       T.PRDCR_NO,
       T.MONITOR_POINT,
       T.BOM,
       T.INDEX_SEQ,
       T.WHOLE_BACKLOG,
       T.WHOLE_BACKLOG_DESC,
       T.CIC,
       T.PIC,
       T.SIC,
       T.DIC,
       T.CRAFT_FILE_NO,
       T.CRAFT_FILE_MAN,
       T.CRAFT_SEQ,
       T.SEC_CRAFT_FILE_NO,
       T.STATION_ROAD,
       T.PRO_DAY,
       T.BAL_YEAR_MONTH,
       T.CREATE_NAME,
       TO_CHAR(T.CREATE_TIME, 'YYYY-MM-DD HH24:MI:SS') CREATE_TIME,
       T.UPDATE_NAME,
       TO_CHAR(T.UPDATE_TIME, 'YYYY-MM-DD HH24:MI:SS') UPDATE_TIME,
       T.DOWNMAN,
       TO_CHAR(T.DOWNTIME, 'YYYY-MM-DD HH24:MI:SS') DOWNTIME,
       DECODE(T.SUBCONTRACT_FLAG,'0','未委外','1','已委外')SUBCONTRACT_FLAG,
       T.LEN_GP_SINGLE_OUT
 FROM PLN_ZY_DZ_M T
 WHERE 1 = 1
</query>
<query id = "FrmSubContractDP.doQueryPlnZyC" desc = "查询锻造计划从信息">
SELECT 
       T.HEAT_PLAN_NO,
       T.HEAT_PLAN_SQE,
       T.JUGDE_APPLY_CODE,
       T.ZY_BATCH_ID,
       T.STOVE_NO,
       T.JUDGE_STOVE_NO,
       T.PRO_PLAN_ID,
       T.GX_PLAN_NO,
       T.PLINE_CODE,
       T.PLINE_NAME,
       T.DIAMETER,
       T.LEN_GP_SINGLE,
       T.WT_GP_SINGLE,
       T.CUT_NUM_GP,
       T.LENGTH_M,
       T.WEIGHT_M,
       T.PLAN_INDOUBLE_NUM,
       T.PLAN_INDOUBLE_WT,
       T.REAL_INDOUBLE_NUM,
       T.REAL_INDOUBLE_WT,
       T.FLAG_STOVE_NO
 FROM PLN_ZY_DZ_C T
 WHERE 1=1
</query>
<query id = "FrmSubContractDP.doQueryEntrust" desc = "查询委托信息">
 SELECT 
       T.SUBCONTRACT_NO,
       T.SUBCONTRACT_NO_SEQ,
       DECODE(T.SUBCONTRACT_TYPE,'1','内部委托','2','外部委托')SUBCONTRACT_TYPE,
       T.HEAT_PLAN_NO,
       T.STOVE_NO,
       T.JUDGE_STOVE_NO,
       T.PRO_PLAN_ID,
       T.GX_PLAN_NO,
       T.PLINE_CODE,
       T.PLINE_NAME,
       T.SOURE_CODE,
       T.SOURE_NAME,
       T.GRADECODE,
       T.GRADENAME,
       T.DIAMETER_IN,
       T.LEN_SINGLE_IN,
       T.INNUM_CUT,
       T.LENGTH_IN,
       T.DIAMETER_OUT,
       T.SUBCONTRACT_NUM,
       T.SUBCONTRACT_WT,
       T.SUBCONTRACT_USER,
       T.SUBCONTRACT_SHIFT,
       T.SUBCONTRACT_GROUP,
       TO_CHAR(T.SUBCONTRACT_TIME, 'YYYY-MM-DD HH24:MI:SS') SUBCONTRACT_TIME,
       T.SP_USER,
       T.SP_NOTE,
       TO_CHAR(T.SP_TIME, 'YYYY-MM-DD HH24:MI:SS') SP_TIME,
       DECODE(T.SUBCONTRACT_LOG,'00','未审核','10','审核通过','20','审核不通过','30','委托实绩已回报')SUBCONTRACT_LOG,
       T.SUBCONTRACT_PLINE_CODE,
       T.SUBCONTRACT_PLINE_NAME,
       T.SUBCONTRACT_NOTE,
       T.HB_FP_NUM,
       T.HB_FP_WT,
       T.BAL_YEAR_MONTH,
       T.OUTWL_ID,
       T.OUTWL_DESC,
       T.OUT_WT_ONE,
       T.WLID_IN,
       T.WLDESC_IN,
       T.LEN_GP_SINGLE_OUT
 FROM FRG_ENTRUSTED_BILL T
 WHERE 1 = 1
</query>
<query id = "FrmSubContractDP.selectPlnZyDzM" desc = "查询主计划">
SELECT * FROM PLN_ZY_DZ_M T WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
</query>
<query id = "FrmSubContractDP.doQuerySubContractNo" desc = "查询委托单号">
SELECT ? || TO_CHAR(SYSDATE, 'YYYYMMDD') ||
         LPAD(NVL(MAX(SUBSTR(T.SUBCONTRACT_NO, 13,4)), 0) + 1, 4, 0) SUBCONTRACT_NO
    FROM FRG_ENTRUSTED_BILL T
   WHERE TRUNC(T.SUBCONTRACT_TIME) = TRUNC(SYSDATE)
</query>
<query id = "FrmSubContractDP.subContract" desc = "插入委托表">
 INSERT INTO FRG_ENTRUSTED_BILL(
        SUBCONTRACT_NO,
        SUBCONTRACT_NO_SEQ,
        SUBCONTRACT_TYPE,
        HEAT_PLAN_NO,
        STOVE_NO,
        JUDGE_STOVE_NO,
        PRO_PLAN_ID,
        GX_PLAN_NO,
        PLINE_CODE,
        PLINE_NAME,
        GRADECODE,
        GRADENAME,
        DIAMETER_IN,
        LEN_SINGLE_IN,
        INNUM_CUT,
        LENGTH_IN,
        DIAMETER_OUT,
        SUBCONTRACT_NUM,
        SUBCONTRACT_WT,
        SUBCONTRACT_USER,
        SUBCONTRACT_TIME,
        SUBCONTRACT_LOG,
        BAL_YEAR_MONTH,
        OUTWL_ID,
        OUTWL_DESC,
        WLID_IN,
        WLDESC_IN,
        OUT_WT_ONE,
        LEN_GP_SINGLE_OUT)
 VALUES( 
        '#SUBCONTRACT_NO#',
        '#SUBCONTRACT_NO_SEQ#',
        '#SUBCONTRACT_TYPE#',
        '#HEAT_PLAN_NO#',
        '#STOVE_NO#',
        '#JUDGE_STOVE_NO#',
        '#PRO_PLAN_ID#',
        '#GX_PLAN_NO#',
        '#PLINE_CODE#',
        '#PLINE_NAME#',
        '#GRADECODE#',
        '#GRADENAME#',
        '#DIAMETER_IN#',
        '#LEN_SINGLE_IN#',
        '#INNUM_CUT#',
        '#LENGTH_IN#',
        '#DIAMETER_OUT#',
        '#SUBCONTRACT_NUM#',
        '#SUBCONTRACT_WT#',
        '#SUBCONTRACT_USER#',
        TO_DATE('#SUBCONTRACT_TIME#','YYYY-MM-DD HH24:MI:SS'),
        '#SUBCONTRACT_LOG#',
        '#BAL_YEAR_MONTH#',
        '#OUTWL_ID#',
        '#OUTWL_DESC#',
        '#WLID_IN#',
        '#WLDESC_IN#',
        '#OUT_WT_ONE#',
        '#LEN_GP_SINGLE_OUT#')
</query>
<query id = "FrmSubContractDP.updatePlnZyDzMsubFlag" desc = "修改主计划委外标识">
 UPDATE PLN_ZY_DZ_M T
   SET T.SUBCONTRACT_FLAG = '1'
 WHERE
T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
</query>
<query id = "FrmSubContractDP.updatePlnDzMFlag" desc = "修改主计划标识">
 UPDATE PLN_ZY_DZ_M T
   SET T.SUBCONTRACT_FLAG = '0'
 WHERE
T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
</query>
<query id = "FrmSubContractDP.selectEntrustLog" desc = "查询委托单状态">
SELECT * FROM FRG_ENTRUSTED_BILL T WHERE T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#' AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#'
</query>
<query id = "FrmSubContractDP.cancelSubContract" desc = "撤销委外加工">
DELETE FROM FRG_ENTRUSTED_BILL T WHERE T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#' AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#'
</query>
<query id = "FrmSubContractDP.selectMatCount" desc = "查询库存支数">
SELECT COUNT(1) ACOUNT
  FROM MAT_GP_M T, YDM_GP_BUTTRESS S
 WHERE T.MAT_NO = S.MAT_NO
   AND NVL(T.STOVE_NO,'/') = NVL('#STOVE_NO#','/')
   AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
   AND T.JUGDE_APPLY_CODE = '#JUGDE_APPLY_CODE#'
   AND T.OUTSOURCING_FLAG = '0'
   AND T.HANGING_FLAG = '1'
</query>
<query id = "FrmSubContractDP.doQueryWgt" desc = "查询对应支数重量">
<![CDATA[
SELECT NVL(SUM(T1.ACT_WEIGHT),0)
  FROM (SELECT T.ACT_WEIGHT
          FROM MAT_GP_M T
         WHERE T.STOVE_NO = '#STOVE_NO#'
           AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
           AND T.JUGDE_APPLY_CODE = '#JUGDE_APPLY_CODE#'
         ORDER BY T.MAT_NO DESC) T1
 WHERE ROWNUM <= #REAL_INDOUBLE_NUM#
]]>
</query>
<query id = "FrmSubContractDP.updateMatOutSource" desc = "回写实际上料支吨\锁定库存支">
<![CDATA[
DECLARE
  DOUBLE_WGT MAT_GP_M.ACT_WEIGHT%TYPE := NULL;
BEGIN
  FOR MYROW IN (SELECT *
                  FROM (SELECT T.MAT_NO, T.ACT_WEIGHT
                          FROM MAT_GP_M T
                         WHERE T.STOVE_NO = '#STOVE_NO#'
                           AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
                           AND T.JUGDE_APPLY_CODE = '#JUGDE_APPLY_CODE#'
                           AND T.OUTSOURCING_FLAG = '0'
                         ORDER BY T.MAT_NO DESC)
                 WHERE ROWNUM <= #REAL_INDOUBLE_NUM#) LOOP
    UPDATE MAT_GP_M T
       SET T.OUTSOURCING_DOC  = '#OUTSOURCING_DOC#',
           T.OUTSOURCING_FLAG = '1'
     WHERE T.MAT_NO = MYROW.MAT_NO;
    DOUBLE_WGT := TO_NUMBER(NVL(DOUBLE_WGT,'0')) + TO_NUMBER(NVL(MYROW.ACT_WEIGHT,0));
  END LOOP;
  UPDATE PLN_ZY_DZ_C T
     SET T.REAL_INDOUBLE_NUM = '#REAL_INDOUBLE_NUM#',
         T.REAL_INDOUBLE_WT  = DOUBLE_WGT
   WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#';
  UPDATE MAT_GP_M T
     SET T.HANGING_FLAG = '0'
   WHERE T.STOVE_NO = '#STOVE_NO#'
     AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
     AND T.JUGDE_APPLY_CODE = '#JUGDE_APPLY_CODE#'
     AND T.OUTSOURCING_FLAG = '0'
     AND T.HANGING_FLAG = '1';
END;
]]>
</query>
<query id = "FrmSubContractDP.updateMatGpFlag" desc = "撤销委外释放状态">
DECLARE
BEGIN
  UPDATE PLN_ZY_DZ_C T
     SET T.REAL_INDOUBLE_NUM = '', T.REAL_INDOUBLE_WT = ''
   WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#';
  UPDATE MAT_GP_M T
     SET 
         T.OUTSOURCING_DOC  = '',
         T.OUTSOURCING_FLAG = '0'
   WHERE T.STOVE_NO = '#STOVE_NO#'
     AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
     AND T.OUTSOURCING_DOC = '#SUBCONTRACT_NO#'||'#SUBCONTRACT_NO_SEQ#';
     UPDATE MAT_GP_M T
     SET T.HANGING_FLAG = '1'
   WHERE T.STOVE_NO = '#STOVE_NO#'
     AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
     AND T.HANGING_FLAG = '0';
END;
</query>
</queryMap>