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

<?xml version="1.0" encoding="UTF-8"?>
<queryMap desc = "委外审核管理">
<query id = "FrmSubContractCheck.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.WLID_IN,
       T.WLDESC_IN,
       T.OUT_WT_ONE,
       T.LEN_GP_SINGLE_OUT,
       (SELECT TO_CHAR(WM_CONCAT(S1.ORDER_NO_SEQ)) ORDER_NO_SEQ
          FROM (SELECT S.ORDER_NO || '/' || S.ORDER_SEQ ORDER_NO_SEQ,
                       S.GPREQ_ID
                  FROM PLN_ORDER_ZG_S S, FRG_ENTRUSTED_BILL T1
                 WHERE S.GPREQ_ID IS NOT NULL
                   AND S.GPREQ_ID = T1.PRO_PLAN_ID
                 GROUP BY S.GPREQ_ID, S.ORDER_NO, S.ORDER_SEQ) S1
         WHERE S1.GPREQ_ID = T.PRO_PLAN_ID) ORDER_NO
 FROM FRG_ENTRUSTED_BILL T
 WHERE 1 = 1
</query>
<query id = "FrmSubContractCheck.doQueryEntrustLog" desc = "查询委托单状态">
 SELECT 
       T.SUBCONTRACT_LOG
 FROM FRG_ENTRUSTED_BILL T
 WHERE
T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#'
</query>
<query id = "FrmSubContractCheck.checkTrue" desc = "审核通过">
  UPDATE FRG_ENTRUSTED_BILL T
   SET 
        T.SP_USER = '#SP_USER#',
        T.SP_NOTE = '#SP_NOTE#',
        T.SP_TIME = TO_DATE('#SP_TIME#','YYYY-MM-DD HH24:MI:SS'),
        T.SUBCONTRACT_LOG = '#SUBCONTRACT_LOG#'
 WHERE
T.SUBCONTRACT_NO = '#SUBCONTRACT_NO#'
AND T.SUBCONTRACT_NO_SEQ = '#SUBCONTRACT_NO_SEQ#'
</query>
<query id = "FrmSubContractCheck.updateMatFlag" desc = "撤销审核不通过">
<![CDATA[
DECLARE
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.OUTSOURCING_FLAG = '0'
                         ORDER BY T.MAT_NO DESC)
                 WHERE ROWNUM <= #SUBCONTRACT_NUM#) LOOP
    UPDATE MAT_GP_M T
       SET T.OUTSOURCING_DOC  = '#SUBCONTRACT_NO#'||'#SUBCONTRACT_NO_SEQ#',
           T.OUTSOURCING_FLAG = '1'
     WHERE T.MAT_NO = MYROW.MAT_NO;
  END LOOP;
  UPDATE PLN_ZY_DZ_C T
     SET T.REAL_INDOUBLE_NUM = '#SUBCONTRACT_NUM#',
         T.REAL_INDOUBLE_WT  = '#SUBCONTRACT_WT#'
   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.OUTSOURCING_FLAG = '0'
     AND T.HANGING_FLAG = '1';
END;
]]>
</query>
</queryMap>