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

<?xml version="1.0" encoding="UTF-8"?>
<queryMap desc = "库存申请改判管理">
<query id = "FrmGpJudge.doQueryApply" desc = "查询改判数据">
 SELECT 
       T.JUDGE_ID,
       T.ACT_COUNT,
       T.ACT_WEIGHT,
       T.JUDGE_STOVE_NO,
       T.MATERIAL_NO_OLD,
       T.MATERIAL_NAME_OLD,
       T.GRADECODE_OLD,
       T.GRADENAME_OLD,
       T.DIMATER_OLD,
       T.MATERIAL_NO,
       T.MATERIAL_NAME,
       T.GRADECODE,
       T.GRADENAME,
       T.DIMATER,
       T.CREATE_NAME,
       TO_CHAR(T.CREATE_TIME, 'YYYY-MM-DD HH24:MI:SS') CREATE_TIME,
       T.SUBMIT_NAME,
       TO_CHAR(T.SUBMIT_TIME, 'YYYY-MM-DD HH24:MI:SS') SUBMIT_TIME,
       T.AGREE_NAME,
       TO_CHAR(T.AGREE_TIME, 'YYYY-MM-DD HH24:MI:SS') AGREE_TIME,
       DECODE(T.AGREE_FLAG,'0','未审批','1','一级审批通过','2','终审通过','3','一级审批不通过','4','终审不通过')AGREE_FLAG,
       T.CREATE_MEMO,
       T.SUBMIT_MEMO,
       T.AGREE_MEMO,
       T.VALID_FLAG,
       T.DELETE_NAME,
       TO_CHAR(T.DELETE_TIME, 'YYYY-MM-DD HH24:MI:SS') DELETE_TIME,
       T.BELONG_CODE,
       T.BELONG_NAME,
       T.STOVE_NO,
       T.JUDGE_STOVE_NO_GP,
       T.PRO_PLAN_ID,
       T.GX_PLAN_NO,
       T.CIC,
       S.ORDER_NO ||'/'||S.ORDER_SEQ  ORDER_NO,
        T.SUPPLY_UNIT_CODE,
        T.SUPPLY_UNIT
 FROM QCM_GP_JUDGE_CHANGE T LEFT JOIN PLN_ORDER_ZG_S S
    ON T.PRO_PLAN_ID = S.PRO_PLAN_ID
    AND T.GX_PLAN_NO = S.GX_PLAN_NO
    WHERE 1 = 1
</query>
<query id = "FrmGpJudge.doQueryPlanOrderNoZs" desc = "查询订单信息">
SELECT 
       T.PRO_ORDER_NO,
       T.PRO_PLAN_ID,
       T.GX_PLAN_NO,
       T.PLAN_GROUP_ID,
       T.ORDER_SOURCE,
       T.ORD_LN_DLY_PK,
       T.PLN_DIVIDE_ID,
       T.ORDER_NO || '/'||T.ORDER_SEQ  ORDER_NO,
       T.ORDER_SEQ,
       T.DELIVERY_NO,
       T.REQ_BL_ID,
       T.PLINE_CODE,
       T.PLINE_NAME,
       T.STEELCODE,
       T.STEELNAME,
       T.GRADECODE,
       T.GRADENAME,
       T.OUTDIAMETER,
       T.WALLTHICK,
       T.LENGTHDISC,
       T.INWL_ID,
       T.INWL_DESC,
       T.OUTWL_ID,
       T.OUTWL_DESC,
       T.LEN_ROLL_MAX,
       T.LEN_ROLL_MIN,
       T.AIMOUTDIAMETER,
       T.AIMWALLTHICK,
       T.AIMLENGTH,
       T.DIAMETER_GP,
       T.LEN_GP_SINGLE,
       T.ROLL_LENGTH,
       T.LEN_CUTHEAD,
       T.LEN_CUTEND,
       T.OUTNUM_CUT,
       T.DIAMETER_MANDREL,
       T.PASS_CODE,
       T.PASS_NAME,
       T.IN_WEIGHT_S,
       T.IN_NUM_S,
       T.WEIGTH_S,
       T.NUM_S,
       T.ADD_WT_IN,
       T.ADD_NUM_IN,
       T.MATCH_WT_IN,
       T.MATCH_NUM_IN,
       T.ISENDGX,
       T.IF_MONITOR_ZG,
       T.PRDCR_NO,
       T.MONITOR_POINT,
       T.CRAFT_FILE_NO,
       T.CRAFT_FILE_MAN,
       T.CRAFT_SEQ,
       T.STATION_ROAD,
       T.PRO_MONTH,
       T.CIC,
       T.PIC,
       T.SIC,
       T.DIC,
       T.WIC,
       T.GIC,
       T.GX_PRO_SEQ,
       T.PLAN_USETIME,
       TO_CHAR(T.PLAN_TIME_B, 'YYYY-MM-DD HH24:MI:SS') PLAN_TIME_B,
       TO_CHAR(T.PLAN_TIME_E, 'YYYY-MM-DD HH24:MI:SS') PLAN_TIME_E,
       T.BATCHED_WT,
       T.BATCHED_NUM,
       T.FINISHWEIGHT,
       T.FINISHNUM,
       T.EXE_STATUS,
       T.IS_REPAIR_PLN,
       T.REPAIR_TYPE,
       T.IS_PLAN_OK,
       T.GPREQ_IF_OK,
       T.GPREQ_ID,
       T.ZY_BATCH_ID,
       T.CIC_GROUP_GP,
       T.PIC_GROUP_GP,
       T.SIC_GROUP_GP,
       T.DIC_GROUP_GP,
       T.WIC_GROUP_GP,
       T.GIC_GROUP_GP,
       T.CIC_GP,
       T.PIC_GP,
       T.SIC_GP,
       T.DIC_GP,
       T.WIC_GP,
       T.GIC_GP,
       T.IF_EXPORT,
       TO_CHAR(T.CREATE_TIME, 'YYYY-MM-DD HH24:MI:SS') CREATE_TIME,
       T.MEMO,
       TO_CHAR(T.ISSUED_TIME, 'YYYY-MM-DD HH24:MI:SS') ISSUED_TIME,
       T.ISSUED_MAN,
       TO_CHAR(T.LAST_UNDOWN_TIME, 'YYYY-MM-DD HH24:MI:SS') LAST_UNDOWN_TIME,
       T.LAST_UNDOWN_MAN,
       T.VERSION_NO,
       T.PROCESSING_COST,
       T.TOTAL_COST,
       T.IF_STOVE_ISSUED,
       TO_CHAR(T.STOVE_ISSUED_TIME, 'YYYY-MM-DD HH24:MI:SS') STOVE_ISSUED_TIME,
       T.STOVE_ISSUED_MAN,
       T.IS_ONLOAD_LINE,
       T.OUTDIAMETER_ZG,
       T.WALLTHICK_ZG,
       T.PROCESS_CODE_C,
       T.PROCESS_DESC_C,
       T.MSC,
       T.INDEX_SEQ,
       T.BOM,
       T.WHOLE_BACKLOG_DESC,
       T.IF_CRAFT_LOCKED,
       T.IF_LEN_CONTROL,
       T.IF_MINUS_SIC_ROLL,
       T.AIMWALLTHICK_OLD,
       T.WEIGTH_S_OLD,
       T.NUM_S_OLD,
       T.WALL_UPDATE_USER,
       TO_CHAR(T.WALL_UPDATE_TIME, 'YYYY-MM-DD HH24:MI:SS') WALL_UPDATE_TIME,
       T.TUBE_END_RATIO,
       T.GPREQ_NUM,
       T.GPREQ_WEIGHT,
       T.VERIFY1,
       T.VERIFY2,
       T.VERIFY3,
       T.WEIGTH_S_MIN,
       T.PRIORITY,
       T.PRIORITY_MEMO,
       T.PLANS_NUM,
       T.ORIGINAL_NUMBER,
       T.PROD_STANDARD,
       T.OUTPUT_STANDARD,
       T.PIPE_LENGTH_MIN,
       T.PIPE_LENGTH_MAX,
       T.THICKNESS_WALL,
       T.DECISION,
       T.APPLY_NO,
       T.APPLY_STATUS,
       T.ISSUED_MEMO,
       T.PROGY_MEMO,
       T.OUTS_BILLET_FL,
       T.ACTUAL_WEIGHT,
       T.STATE_SINGLE,
       T.PASSIVE,
       T.TAKE_NUM,
       T.TAKE_WT,
       T.PLINE_CODE_ZZ,
       T.PLINE_NAME_ZZ,
       T.GPREQ_IF_DZ,
       T.GRADECODE_LK,
       T.GRADENAME_LK,
       T.CIC_GROUP_LK,
       T.VALIDFLAG,
       T.GPREQ_WEIGHT_MIN,
       T.BATCHED_WT_G,
       T.BATCHED_NUM_G
  FROM PLN_SALEORD_PROC T1, PLN_ORDER_ZG_S T
 WHERE T1.ORD_LN_DLY_PK = T.ORD_LN_DLY_PK
   AND T1.PLN_DIVIDE_ID = T.PLN_DIVIDE_ID
   AND T.EXE_STATUS = '0'
   AND INSTR(T1.GRADECODE_ALL||','||T.GRADENAME_LK, ?)>0 
</query>
<query id = "FrmGpJudge.queryJudgeMaxId" desc = "生成改判ID">
SELECT  TO_CHAR(SYSDATE, 'YYYYMMDD') ||
         LPAD(NVL(MAX(SUBSTR(T.JUDGE_ID, 9)), 0) + 1, 5, 0) JUDGE_ID
    FROM QCM_GP_JUDGE_CHANGE T
   WHERE TO_CHAR(T.CREATE_TIME, 'YYYY-MM-DD') =
         TO_CHAR(SYSDATE, 'YYYY-MM-DD')
</query>
<query id = "FrmGpJudge.selectMatActCount" 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.FIX_NUM = '#FIX_NUM#'
   AND T.ACT_LEN = '#ACT_LEN#'
   AND T.PRO_PLAN_ID_ZG IS NULL
   AND T.INSTOCK_FLAG = '1'
   AND S.STORAGE_NO = '#STORAGE_NO#'
   AND S.LOCATION_NO = '#LOCATION_NO#'
</query>
<query id = "FrmGpJudge.selectMatWgt" desc = "查询对应支数重量">
<![CDATA[
SELECT SUM(T1.ACT_WEIGHT)ACT_WEIGHT
  FROM (SELECT T.MAT_NO,T.ACT_WEIGHT
          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.FIX_NUM = '#FIX_NUM#'
           AND T.PRO_PLAN_ID_ZG IS NULL
           AND T.INSTOCK_FLAG = '1'
         ORDER BY T.MAT_NO DESC) T1
 WHERE ROWNUM <= #ACT_COUNT#
 ]]>
</query>
<query id = "FrmGpJudge.applyJudge" desc = "插入申请判定表">
 INSERT INTO QCM_GP_JUDGE_CHANGE(
        JUDGE_ID,
        ACT_COUNT,
        ACT_WEIGHT,
        JUDGE_STOVE_NO,
        MATERIAL_NO_OLD,
        MATERIAL_NAME_OLD,
        GRADECODE_OLD,
        GRADENAME_OLD,
        DIMATER_OLD,
        MATERIAL_NO,
        MATERIAL_NAME,
        GRADECODE,
        GRADENAME,
        DIMATER,
        CREATE_NAME,
        CREATE_TIME,
        CREATE_MEMO,
        BELONG_CODE,
        BELONG_NAME,
        STOVE_NO,
        JUDGE_STOVE_NO_GP,
        PRO_PLAN_ID,
        GX_PLAN_NO,
        CIC,
        SUPPLY_UNIT_CODE,
        SUPPLY_UNIT)
 VALUES( 
        '#JUDGE_ID#',
        '#ACT_COUNT#',
        '#ACT_WEIGHT#',
        '#JUDGE_STOVE_NO#',
        '#MATERIAL_NO_OLD#',
        '#MATERIAL_NAME_OLD#',
        '#GRADECODE_OLD#',
        '#GRADENAME_OLD#',
        '#DIMATER_OLD#',
        '#MATERIAL_NO#',
        '#MATERIAL_NAME#',
        '#GRADECODE#',
        '#GRADENAME#',
        '#DIMATER#',
        '#CREATE_NAME#',
        SYSDATE,
        '#CREATE_MEMO#',
        '#BELONG_CODE#',
        '#BELONG_NAME#',
        '#STOVE_NO#',
        '#JUDGE_STOVE_NO_GP#',
        '#PRO_PLAN_ID#',
        '#GX_PLAN_NO#',
        '#CIC#',
        '#SUPPLY_UNIT_CODE#',
        '#SUPPLY_UNIT#')
</query>
<query id = "FrmGpJudge.updateLockFlag" desc = "锁定库存">
<![CDATA[
DECLARE
 BEGIN
   FOR MYROW IN (SELECT *
                   FROM (SELECT T.MAT_NO
                           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.FIX_NUM = '#FIX_NUM#'
                            AND T.LOCK_FLAG = '0'
                            AND T.QCM_STAUS = '00'
                            AND T.HANGING_FLAG <> '1'
                          ORDER BY T.MAT_NO DESC)
                  WHERE ROWNUM <= #ACT_COUNT#) LOOP
    UPDATE MAT_GP_M T SET T.LOCK_FLAG = '2',T.CIC = '#CIC#',T.OLD_CIC = T.CIC,
     T.JUDGE_ID = '#JUDGE_ID#' WHERE T.MAT_NO = MYROW.MAT_NO;
   END LOOP;
 END;
]]>
</query>
<query id = "FrmGpJudge.cancelGpData" desc = "撤销申请改判">
 DECLARE
 BEGIN
   UPDATE MAT_GP_M T SET T.LOCK_FLAG = '0',T.JUDGE_ID = '',T.CIC = T.OLD_CIC,T.OLD_CIC = '' WHERE T.JUDGE_ID = '#JUDGE_ID#';
   DELETE FROM QCM_GP_JUDGE_CHANGE T WHERE T.JUDGE_ID = '#JUDGE_ID#';
 END;
</query>
<query id = "FrmGpJudge.selectQcmJudgeFlag" desc = "查询审批状态">
SELECT T.AGREE_FLAG FROM QCM_GP_JUDGE_CHANGE T WHERE T.JUDGE_ID = '#JUDGE_ID#' AND T.VALID_FLAG = '1'
</query>
<query id = "FrmGpJudge.doQueryCic" desc = "查询适用钢种CIC">
SELECT T.GRADECODE,
       T.GRADENAME,
       T.CIC,
       T1.STD_CODE STD_CODE_NK,
       T1.STD_NAME STD_NAME_NK,
       DECODE(T1.PURCHASE_STD, '0', '自炼', '外购') ALLOW_BUY
  FROM COM_MSC_STD_CIC T, COM_BASE_STD T1
 WHERE T.STDSTYLE = 'N'
   AND T.STD_CODE_NK = T1.STD_CODE(+)
   AND T1.VALIDFLAG = '1'
</query>
</queryMap>