LGMESServer/WebRoot/WEB-INF/query/Report/FrmStoreSummary.xml

<?xml version="1.0" encoding="UTF-8"?>
<queryMap desc = "库存信息汇总">
<query id = "FrmStoreSummary.queryData" desc= "查询库存信息(仓库)">
select 
 #columns#
 sum(T1.ACT_COUNT) as ACT_COUNT,
 sum(T1.ACT_WEIGHT) as ACT_WEIGHT
 FROM MAT_GP_M T1 LEFT JOIN  YDM_GP_BUTTRESS T2
 on T1.MAT_NO=T2.MAT_NO
 LEFT JOIN YDM_BS_STORAGE S ON S.STORAGE_NO=T2.STORAGE_NO
 LEFT JOIN PLN_ORDER_ZG_S S1 ON T1.PRO_PLAN_ID_ZG = S1.PRO_PLAN_ID
  AND T1.GX_PLAN_NO_ZG = S1.GX_PLAN_NO
 WHERE T1.MAT_NO = T2.MAT_NO
    AND T1.IS_SETFOOT = '0'
 #conditions# 
</query>

<query id = "FrmStoreSummary.queryDataBelong" desc= "查询库存信息(所属权)">
select 
 #columns#
 sum(T1.ACT_COUNT) as ACT_COUNT,
 sum(T1.ACT_WEIGHT) as ACT_WEIGHT
 FROM MAT_GP_M T1 LEFT JOIN  YDM_GP_BUTTRESS T2
 on T1.MAT_NO=T2.MAT_NO
 LEFT JOIN YDM_BS_STORAGE S ON S.STORAGE_NO=T2.STORAGE_NO
 LEFT JOIN PLN_ORDER_ZG_S S1 ON T1.PRO_PLAN_ID_ZG = S1.PRO_PLAN_ID
  AND T1.GX_PLAN_NO_ZG = S1.GX_PLAN_NO
 WHERE T1.MAT_NO = T2.MAT_NO
    AND T1.IS_SETFOOT = '0'
 #conditions# 
</query>

<query id = "FrmStoreSummary.queryDataMemo" desc= "查询库存信息(仓库)">
select DECODE(T1.IS_DEALER, '0', '自用', '1', '双经销', '2', '来料加工','3','定销订购') IS_DEALER,
       DECODE(T1.BACK_FLAG, '0', '正常坯', '1', '回炉坯','2','套尺坯') BACK_FLAG,
       MAX(S1.PLAN_TIME_B) PLAN_TIME_B,
       T2.LOCATION_NAME,
       T2.LARY_NO,
       T2.STORAGE_NO,
       (SELECT T3.STORAGE_NAME
          FROM YDM_BS_STORAGE T3
         WHERE T3.STORAGE_NO = T2.STORAGE_NO) STORAGE_NAME,
       T1.PRODUCT_FLAG,
       T1.MAT_STATUS,
       T1.STOVE_NO,
       T1.JUDGE_STOVE_NO,
       T1.JUDGE_STOVE_NO_LG,
       T1.SOURE_NAME,
       T1.MATERIAL_NAME,
       T1.GRADENAME,
       S1.ORDER_NO || '/' || S1.ORDER_SEQ AS ORDER_NO,
       T1.DIMATER,
       T1.ACT_LEN,
       T1.FIX_NUM,
       T1.FIX_LEN,
       DECODE(T1.QCM_STAUS, '00', '合格', '11', '待处理', '22', '废品') QCM_STAUS,
       T1.PLINE_NAME,
       T1.BELONG_NAME,
       MAX(TO_CHAR(T1.INSTOCK_TIME, 'YYYY-MM-DD HH24:MI:SS')) INSTOCK_TIME,
       T1.MEMO,
       T1.MEMO MEMO2,
       (SELECT T2.BASENAME
          FROM COM_BASE_INFO T2
         WHERE T2.BASECODE = T1.JUDGE_RESULT_CODE) JUDGE_RESULT_CODE,
       MAX((SELECT S1.PLINE_NAME
             FROM PLN_ORDER_ZG_S S1
            WHERE S1.PRO_PLAN_ID = T1.PRO_PLAN_ID_ZG
              AND S1.GX_PLAN_NO = T1.GX_PLAN_NO_ZG)) PLINE_NAME_NEXT,
       sum(T1.ACT_COUNT) as ACT_COUNT,
       sum(T1.ACT_WEIGHT) as ACT_WEIGHT,
        T1.MNG_LOCK_FLAG
  FROM MAT_GP_M T1
  LEFT JOIN YDM_GP_BUTTRESS T2
    on T1.MAT_NO = T2.MAT_NO
  LEFT JOIN YDM_BS_STORAGE S
    ON S.STORAGE_NO = T2.STORAGE_NO
  LEFT JOIN PLN_ORDER_ZG_S S1
    ON T1.PRO_PLAN_ID_ZG = S1.PRO_PLAN_ID
   AND T1.GX_PLAN_NO_ZG = S1.GX_PLAN_NO
 WHERE T1.MAT_NO = T2.MAT_NO
    AND T1.IS_SETFOOT = '0'
  #something#
 group by T1.IS_DEALER,
          T1.BACK_FLAG,
          T2.LOCATION_NAME,
          T2.LARY_NO,
          T2.STORAGE_NO,
          T1.PRODUCT_FLAG,
          T1.MAT_STATUS,
          T1.STOVE_NO,
          T1.JUDGE_STOVE_NO,
          T1.JUDGE_STOVE_NO_LG,
          T1.SOURE_NAME,
          T1.MATERIAL_NAME,
          T1.GRADENAME,
          S1.ORDER_NO,
          S1.ORDER_SEQ,
          T1.DIMATER,
          T1.ACT_LEN,
          T1.FIX_NUM,
          T1.FIX_LEN,
          T1.QCM_STAUS,
          T1.PLINE_NAME,
          T1.BELONG_NAME,
          T1.MEMO,
          T1.JUDGE_RESULT_CODE,
          T1.MNG_LOCK_FLAG

</query>
<query id = "FrmStoreSummary.updatePlanMemo" desc= "修改备注">
<![CDATA[
DECLARE
  V_JUDGE_STOVE_NO MAT_GP_M.JUDGE_STOVE_NO%type := ?;
  V_FIX_NUM        MAT_GP_M.FIX_NUM%type := ?;
  V_ACT_LEN        MAT_GP_M.ACT_LEN%type := ?;
  V_ACT_COUNT      MAT_GP_M.ACT_COUNT%type := ?;
  V_MEMO           MAT_GP_M.PLAN_MEMO%type := ?;
  V_LOCATION_NAME  YDM_GP_BUTTRESS.LOCATION_NAME%type := ?;
  V_MEMO2          MAT_GP_M.PLAN_MEMO%type := ?;
  V_ORDER_NO       MAT_GP_M.ORDER_NO%type := ?;
  V_MAT_STATUS     MAT_GP_M.MAT_STATUS%type := ?;
  V_STOVE_NO       MAT_GP_M.STOVE_NO%type := ?;
BEGIN
  FOR MYROW IN (SELECT *
                  FROM (select T1.*
                          FROM MAT_GP_M T1
                          LEFT JOIN YDM_GP_BUTTRESS T2
                            ON T1.MAT_NO = T2.MAT_NO
                          LEFT JOIN PLN_ORDER_ZG_S S1
                            ON T1.PRO_PLAN_ID_ZG = S1.PRO_PLAN_ID
                           AND T1.GX_PLAN_NO_ZG = S1.GX_PLAN_NO
                         WHERE NVL(T1.JUDGE_STOVE_NO, '/') =
                               NVL(V_JUDGE_STOVE_NO, '/')
                           AND NVL(T1.STOVE_NO, '/') = NVL(V_STOVE_NO, '/')
                           AND NVL(T1.FIX_NUM, 0) = NVL(V_FIX_NUM, 0)
                           AND NVL(T1.ACT_LEN, 0) = NVL(V_ACT_LEN, 0)
                           AND NVL(T1.MEMO, '/') = NVL(V_MEMO2, '/')
                           AND T1.MAT_STATUS = V_MAT_STATUS
                           AND S1.ORDER_NO || '/' || S1.ORDER_SEQ =NVL(V_ORDER_NO,'/')
                           AND T2.LOCATION_NAME = V_LOCATION_NAME)
                 WHERE ROWNUM <= V_ACT_COUNT) LOOP
    UPDATE MAT_GP_M T SET T.PLAN_MEMO = V_MEMO WHERE T.MAT_NO = MYROW.MAT_NO;
  END LOOP;
END;
 ]]>
</query>
<query id = "FrmStoreSummary.updateMemo" desc= "修改备注">
    <![CDATA[
DECLARE
  V_JUDGE_STOVE_NO MAT_GP_M.JUDGE_STOVE_NO%type := ?;
  V_FIX_NUM        MAT_GP_M.FIX_NUM%type := ?;
  V_ACT_LEN        MAT_GP_M.ACT_LEN%type := ?;
  V_ACT_COUNT      MAT_GP_M.ACT_COUNT%type := ?;
  V_MEMO           MAT_GP_M.MEMO%type := ?;
  V_LOCATION_NAME  YDM_GP_BUTTRESS.LOCATION_NAME%type := ?;
  V_MEMO2          MAT_GP_M.MEMO%type := ?;
  V_ORDER_NO       MAT_GP_M.ORDER_NO%type := ?;
  V_MAT_STATUS     MAT_GP_M.MAT_STATUS%type := ?;
  V_STOVE_NO       MAT_GP_M.STOVE_NO%type := ?;
BEGIN
  FOR MYROW IN (SELECT *
                  FROM (select T1.*
                          FROM MAT_GP_M T1
                          LEFT JOIN YDM_GP_BUTTRESS T2
                            ON T1.MAT_NO = T2.MAT_NO
                          LEFT JOIN PLN_ORDER_ZG_S S1
                            ON T1.PRO_PLAN_ID_ZG = S1.PRO_PLAN_ID
                           AND T1.GX_PLAN_NO_ZG = S1.GX_PLAN_NO
                         WHERE NVL(T1.JUDGE_STOVE_NO, '/') =
                               NVL(V_JUDGE_STOVE_NO, '/')
                           AND NVL(T1.STOVE_NO, '/') = NVL(V_STOVE_NO, '/')
                           AND NVL(T1.FIX_NUM, 0) = NVL(V_FIX_NUM, 0)
                           AND NVL(T1.ACT_LEN, 0) = NVL(V_ACT_LEN, 0)
                           AND NVL(T1.MEMO, '/') = NVL(V_MEMO2, '/')
                           AND T1.MAT_STATUS = V_MAT_STATUS
                           AND S1.ORDER_NO || '/' || S1.ORDER_SEQ =
                               V_ORDER_NO
                           AND T2.LOCATION_NAME = V_LOCATION_NAME)
                 WHERE ROWNUM <= V_ACT_COUNT) LOOP
    UPDATE MAT_GP_M T SET T.MEMO = V_MEMO WHERE T.MAT_NO = MYROW.MAT_NO;
  END LOOP;
END;

 ]]>
</query>


    <query id = "FrmStoreSummary.updateMngLock" desc= "修改封锁标志">
        <![CDATA[
            DECLARE
              V_JUDGE_STOVE_NO MAT_GP_M.JUDGE_STOVE_NO%type := ?;
              V_FIX_NUM        MAT_GP_M.FIX_NUM%type := ?;
              V_ACT_LEN        MAT_GP_M.ACT_LEN%type := ?;
              V_ACT_COUNT      MAT_GP_M.ACT_COUNT%type := ?;
              V_MNG_LOCK_FLAG  MAT_GP_M.MNG_LOCK_FLAG%type := ?;
              V_MNG_LOCK_MAKER  MAT_GP_M.MNG_LOCK_MAKER%type := ?;
              V_LOCATION_NAME  YDM_GP_BUTTRESS.LOCATION_NAME%type := ?;
              V_ORDER_NO       MAT_GP_M.ORDER_NO%type := ?;
              V_MAT_STATUS     MAT_GP_M.MAT_STATUS%type := ?;
              V_STOVE_NO       MAT_GP_M.STOVE_NO%type := ?;
            BEGIN
              FOR MYROW IN (SELECT *
                              FROM (select T1.*
                                      FROM MAT_GP_M T1
                                      LEFT JOIN YDM_GP_BUTTRESS T2
                                        ON T1.MAT_NO = T2.MAT_NO
                                      LEFT JOIN PLN_ORDER_ZG_S S1
                                        ON T1.PRO_PLAN_ID_ZG = S1.PRO_PLAN_ID
                                       AND T1.GX_PLAN_NO_ZG = S1.GX_PLAN_NO
                                     WHERE NVL(T1.JUDGE_STOVE_NO, '/') =
                                           NVL(V_JUDGE_STOVE_NO, '/')
                                       AND NVL(T1.STOVE_NO, '/') = NVL(V_STOVE_NO, '/')
                                       AND NVL(T1.FIX_NUM, 0) = NVL(V_FIX_NUM, 0)
                                       AND NVL(T1.ACT_LEN, 0) = NVL(V_ACT_LEN, 0)
                                       AND T1.MAT_STATUS = V_MAT_STATUS
                                       AND S1.ORDER_NO || '/' || S1.ORDER_SEQ =
                                           V_ORDER_NO
                                       AND T2.LOCATION_NAME = V_LOCATION_NAME
                                       AND T1.MNG_LOCK_FLAG = V_MNG_LOCK_FLAG)
                             WHERE ROWNUM <= V_ACT_COUNT) LOOP
                UPDATE MAT_GP_M T SET T.MNG_LOCK_TIME = SYSDATE, T.MNG_LOCK_FLAG = DECODE(V_MNG_LOCK_FLAG, '0', '1', '0'), T.MNG_LOCK_MAKER = V_MNG_LOCK_MAKER  WHERE T.MAT_NO = MYROW.MAT_NO;
              END LOOP;
            END;

           ]]>
    </query>
</queryMap>