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

<?xml version="1.0" encoding="UTF-8"?>
<queryMap desc = "盘亏">
<query id = "FrmStuffInventoryOut.doQueryMat" desc = "查询库存信息">
<![CDATA[
 SELECT 
       max(TO_CHAR(T.INSTOCK_TIME, 'YYYY-MM-DD HH24:MI:SS')) INSTOCK_TIME,
       T.MEMO,
       --(SELECT C.BASENAME FROM COM_BASE_INFO C WHERE C.BASECODE =  T.PRODUCT_FLAG) PRODUCT_FLAG,
       --(SELECT D.BASENAME FROM COM_BASE_INFO D WHERE D.BASECODE =  T.MAT_STATUS)MAT_STATUS,
       T.PRODUCT_FLAG,
       T.MAT_STATUS,
       T.STOVE_NO,
       T.JUDGE_STOVE_NO,
       T.MATERIAL_NO,
       T.MATERIAL_NAME,
       
       T.GRADECODE,
       T.GRADENAME,
       T.STD_CODE,
       T.STD_NAME,
       T.PLINE_CODE,
       T.PLINE_NAME,
       T.DIMATER,
       T.ACT_LEN,
       T.FIX_NUM,
       T.FIX_LEN,
       sum(T.ACT_COUNT)ACT_COUNT,
       sum(T.ACT_WEIGHT)ACT_WEIGHT,
       sum(T.ACT_COUNT)Out_Act_Count,
       T.BELONG_CODE,
       T.BELONG_NAME,
       T.QCM_STAUS,
       S.STORAGE_NO,
       (SELECT C.STORAGE_NAME FROM YDM_BS_STORAGE C WHERE C.STORAGE_NO = S.STORAGE_NO)STORAGE_NAME,
       S.LOCATION_NO,
       S.LOCATION_NAME,
       S.LARY_NO,
       T.FURNACENO,
       T.SEQUENCENO,
       T.PRO_PLAN_ID,
       T.GX_PLAN_NO,
       DECODE(T.IS_DEALER,'0','自用','1','双经销','2','来料加工','3','定销订购') IS_DEALER
 FROM MAT_GP_M T,YDM_GP_BUTTRESS S
 WHERE T.MAT_NO = S.MAT_NO 
 AND T.MAT_STATUS<>'80150302'
 AND T.IS_SETFOOT = '0'
]]>
</query>
<query id = "FrmStuffInventoryOut.doQueryStock" desc = "查询盘亏实绩">
<![CDATA[
SELECT 
       BELONG_NAME,
       TO_CHAR(STOCKTAKING_TIME, 'YYYY-MM-DD HH24:MI:SS') STOCKTAKING_TIME,
       STORAGE_NO,
       BAL_YEAR_MONTH,
       MEMO,
       CREATE_NAME,
       STOCKTAKING_DOC,
       STOCKTAKING_RSN_NAME,
       STOVE_NO,
       FLAG_STOVE_NO,
       JUDGE_STOVE_NO,
       GROUD_NO,
       MATERIAL_NAME,
       GRADENAME,
       STD_NAME,
       DIMATER,
       ACT_LEN,
       FIX_NUM,
       FIX_LEN,
       SUM(ACT_COUNT)ACT_COUNT,
       SUM(ACT_WEIGHT)ACT_WEIGHT,
       PLINE_NAME
 FROM YDM_GP_STOCKTAKINGLIST
 WHERE STOCKTAKING_TYPE_CODE = '800602'
 ]]>
</query>
<query id = "FrmStuffInventoryOut.selectMatStaus" desc= "查询材料状态">
SELECT SUM(T.ACT_COUNT)ACOUNT
  FROM MAT_GP_M T, YDM_GP_BUTTRESS S
 WHERE T.MAT_NO = S.MAT_NO
   AND NVL(T.FURNACENO,'/') = NVL('#FURNACENO#','/')
   AND NVL(T.SEQUENCENO,'/') = NVL('#SEQUENCENO#','/')
   AND T.STOVE_NO = '#STOVE_NO#'
   AND T.JUDGE_STOVE_NO ='#JUDGE_STOVE_NO#'
   AND T.FIX_NUM = '#FIX_NUM#'
   AND T.PRODUCT_FLAG = '#PRODUCT_FLAG#'
   AND T.MAT_STATUS = '#MAT_STATUS#'
   AND T.QCM_STAUS = '#QCM_STAUS#'
   AND S.STORAGE_NO = '#STORAGE_NO#'
</query>
<query id = "FrmStuffInventoryOut.selectMatWgt" desc= "查询盘亏重量">
<![CDATA[
SELECT SUM(T.ACT_WEIGHT)WEIGHT,SUM(T.ACT_LEN)LEN
  FROM MAT_GP_M T, YDM_GP_BUTTRESS S
 WHERE T.MAT_NO = S.MAT_NO
   AND T.STOVE_NO = ?
   AND T.JUDGE_STOVE_NO =?
   AND T.BATCH_NO=?
   AND T.GROUD_NO = ?
   AND T.PRODUCT_FLAG = ?
   AND T.MAT_STATUS = ?
   AND S.STORAGE_NO = ?
   AND ROWNUM < ?
   ORDER BY T.MAT_NO DESC
   ]]>
</query>
<query id = "FrmStuffInventoryOut.doAddOut" desc = "盘亏">
<![CDATA[
DECLARE
  V_OUTSTOCK_DOC    YDM_GP_OUTLIST.OUTSTOCK_DOC%TYPE := NULL; --出库单号
  V_OUTSTOCK_SQE    YDM_GP_OUTLIST.OUTSTOCK_SQE%TYPE := NULL; --出库流水
  V_STOCKTAKING_DOC YDM_GP_STOCKTAKINGLIST.STOCKTAKING_DOC%TYPE := NULL; --盘亏单号
  V_STOCKTAKING_SQE YDM_GP_STOCKTAKINGLIST.STOCKTAKING_SQE%TYPE := NULL; --盘亏流水

  V_MEMO       COM_BASE_INFO.MEMO%TYPE := NULL;
  V_BASENAME   COM_BASE_INFO.BASENAME%TYPE := NULL;
  V_TKMEMO     COM_BASE_INFO.MEMO%TYPE := NULL;
  V_TKBASENAME COM_BASE_INFO.BASENAME%TYPE := NULL;
  V_OCOUNT     NUMBER := 1;
  V_TKOUNT     NUMBER := 1;
  V_TIME       YDM_GP_OUTLIST.CREATE_TIME%TYPE := SYSDATE;
  V_BATHYEAR   MAT_ZC_M.BAL_YEAR_MONTH%TYPE := TO_CHAR(SYSDATE, 'YYYYMM');
  V_INDEX      NUMBER := 0;
BEGIN
  --生成盘亏单号
  SELECT MEMO, BASENAME
    INTO V_TKMEMO, V_TKBASENAME
    FROM COM_BASE_INFO
   WHERE BASECODE = '#STOCKTAKING_TYPE_CODE#';
  SELECT V_TKMEMO || TO_CHAR(SYSDATE, 'YYMMDD') ||
         LPAD(NVL(MAX(SUBSTR(STOCKTAKING_DOC, 9)), 0) + 1, 5, 0) STOCKTAKING_DOC
    INTO V_STOCKTAKING_DOC
    FROM YDM_GP_STOCKTAKINGLIST T
   WHERE T.STOCKTAKING_TYPE_CODE = '#STOCKTAKING_TYPE_CODE#'
     AND T.STOCKTAKING_DOC LIKE V_TKMEMO||TO_CHAR(SYSDATE, 'YYMMDD')||'_____';
  --生成出库单号
  SELECT MEMO, BASENAME
    INTO V_MEMO, V_BASENAME
    FROM COM_BASE_INFO
   WHERE BASECODE = '#OUTSTOCK_TYPE_CODE#';
  SELECT V_MEMO || TO_CHAR(SYSDATE, 'YYMMDD') ||
         LPAD(NVL(MAX(SUBSTR(OUTSTOCK_DOC, 9)), 0) + 1, 5, 0) OUTSTOCK_DOC
    INTO V_OUTSTOCK_DOC
    FROM YDM_GP_OUTLIST T
   WHERE T.OUTSTOCK_TYPE_CODE = '#OUTSTOCK_TYPE_CODE#'
     AND T.OUTSTOCK_DOC LIKE V_MEMO||TO_CHAR(SYSDATE, 'YYMMDD')||'_____';
  FOR MYROW IN (SELECT T.*,
                       S.STORAGE_NO,
                       S.LOCATION_NO,
                       S.STORAGE_ATTR,
                       S.STORAGE_ATTR_NAME,
                       S.STORAGE_TYPE_NO,
                       S.STORAGE_TYPE_NAME
                  FROM MAT_GP_M T, YDM_GP_BUTTRESS S
                 WHERE T.MAT_NO = S.MAT_NO
                   AND NVL(T.FURNACENO,'/') = NVL('#FURNACENO#','/')
                   AND NVL(T.SEQUENCENO,'/') = NVL('#SEQUENCENO#','/')
                   AND T.STOVE_NO = '#STOVE_NO#'
                   AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
                   AND T.FIX_NUM = '#FIX_NUM#'
                   AND T.ACT_LEN = '#ACT_LEN#'
                   AND T.PRODUCT_FLAG = '#PRODUCT_FLAG#'
                   AND T.MAT_STATUS = '#MAT_STATUS#'
                   AND S.STORAGE_NO = '#STORAGE_NO#'
                   AND NVL(S.LOCATION_NO,'/') = NVL('#LOCATION_NO#','/')
                   AND T.IS_SETFOOT = '0'
                   AND ROWNUM <= #ACT_COUNT#
                 ORDER BY T.MAT_NO DESC) LOOP
   V_STOCKTAKING_SQE := V_STOCKTAKING_DOC || LPAD(V_OCOUNT, 4, 0);
    INSERT INTO YDM_GP_STOCKTAKINGLIST
      (BELONG_NAME,
       STOCKTAKING_TIME,
       STORAGE_NO,
       LOCATION_NO,
       STORAGE_ATTR,
       STORAGE_ATTR_NAME,
       STORAGE_TYPE_NO,
       STORAGE_TYPE_NAME,
       DEPARTMENT_CODE,
       DEPARTMENT_DESC,
       MANAGEMENT_NO,
       MANAGEMENT_NAME,
       BAL_YEAR_MONTH,
       MEMO,
       CREATE_NAME,
       CREATE_TIME,
       STOCKTAKING_SQE,
       STOCKTAKING_DOC,
       STOCKTAKING_TYPE_CODE,
       STOCKTAKING_TYPE_NAME,
       STOCKTAKING_RSN_CODE,
       STOCKTAKING_RSN_NAME,
       PRODUCT_FLAG,
       MAT_STATUS,
       STOVE_NO,
       FLAG_STOVE_NO,
       JUDGE_STOVE_NO,
       GROUD_NO,
       MATERIAL_NO,
       MATERIAL_NAME,
       GRADECODE,
       GRADENAME,
       STD_CODE,
       STD_NAME,
       DIMATER,
       HEIGHT,
       ACT_LEN,
       FIX_NUM,
       FIX_LEN,
       ACT_COUNT,
       ACT_WEIGHT,
       PLINE_CODE,
       PLINE_NAME,
       BELONG_CODE,
       FURNACENO,
       SEQUENCENO,
       PRO_PLAN_ID,
       GX_PLAN_NO,
       GPTYPE,
       CIC,
       PIC,
       SIC,
       DIC,
       MAT_NO)
    VALUES
      (MYROW.BELONG_NAME,
       V_TIME,
       MYROW.STORAGE_NO,
       MYROW.LOCATION_NO,
       MYROW.STORAGE_ATTR,
       MYROW.STORAGE_ATTR_NAME,
       MYROW.STORAGE_TYPE_NO,
       MYROW.STORAGE_TYPE_NAME,
       '#DEPARTMENT_CODE#',
       '#DEPARTMENT_DESC#',
       '#MANAGEMENT_NO#',
       '#MANAGEMENT_NAME#',
       '#BAL_YEAR_MONTH#',
       MYROW.MEMO,
       '#CREATE_NAME#',
       V_TIME,
       V_STOCKTAKING_SQE,
       V_STOCKTAKING_DOC,
       '#STOCKTAKING_TYPE_CODE#',
       V_TKBASENAME,
       '',
       '#STOCKTAKING_RSN_NAME#',
       MYROW.PRODUCT_FLAG,
       MYROW.MAT_STATUS,
       MYROW.STOVE_NO,
       MYROW.FLAG_STOVE_NO,
       MYROW.JUDGE_STOVE_NO,
       MYROW.GROUD_NO,
       MYROW.MATERIAL_NO,
       MYROW.MATERIAL_NAME,
       MYROW.GRADECODE,
       MYROW.GRADENAME,
       MYROW.STD_CODE,
       MYROW.STD_NAME,
       MYROW.DIMATER,
       MYROW.HEIGHT,
       MYROW.ACT_LEN,
       MYROW.FIX_NUM,
       MYROW.FIX_LEN,
       MYROW.ACT_COUNT,
       MYROW.ACT_WEIGHT,
       MYROW.PLINE_CODE,
       MYROW.PLINE_NAME,
       MYROW.BELONG_CODE,
       MYROW.FURNACENO,
       MYROW.SEQUENCENO,
       MYROW.PRO_PLAN_ID,
       MYROW.GX_PLAN_NO,
       MYROW.GPTYPE,
       MYROW.CIC,
       MYROW.PIC,
       MYROW.SIC,
       MYROW.DIC,
       MYROW.MAT_NO);
    V_OUTSTOCK_SQE := V_OUTSTOCK_DOC || LPAD(V_OCOUNT, 4, 0);
    INSERT INTO YDM_GP_OUTLIST
      (OUTSTOCK_SQE,
       OUTSTOCK_PLAN_NO,
       OUTSTOCK_DOC,
       OUTSTOCK_TYPE_CODE,
       OUTSTOCK_TYPE_NAME,
       
       MAT_NO,
       PRODUCT_FLAG,
       MAT_STATUS,
       STOVE_NO,
       FLAG_STOVE_NO,
       
       JUDGE_STOVE_NO,
       MATERIAL_NO,
       MATERIAL_NAME,
       GRADECODE,
       GRADENAME,
       
       STD_CODE,
       STD_NAME,
       DIMATER,
       HEIGHT,
       ACT_LEN,
       
       FIX_NUM,
       FIX_LEN,
       ACT_COUNT,
       ACT_WEIGHT,
       ACT_THEORY_WEIGHT,
       
       PLINE_CODE,
       PLINE_NAME,
       BELONG_CODE,
       BELONG_NAME,
       STORAGE_NO,
       
       LOCATION_NO,
       DEPARTMENT_CODE,
       DEPARTMENT_DESC,
       MANAGEMENT_NO,
       MANAGEMENT_NAME,
       
       BAL_YEAR_MONTH,
       OUTSTOCK_TIME,
       STORAGE_ATTR,
       STORAGE_ATTR_NAME,
       STORAGE_TYPE_NO,
       
       STORAGE_TYPE_NAME,
       MEMO,
       CREATE_NAME,
       CREATE_TIME,
       GROUD_NO,
       FURNACENO,
       SEQUENCENO,
       PRO_PLAN_ID,
       GX_PLAN_NO,
       GPTYPE,
       CIC,
       PIC,
       SIC,
       DIC,
       SUPPLY_UNIT_CODE,
       SUPPLY_UNIT,
       SOURE_CODE,
       SOURE_NAME,
       IS_DEALER,
       BACK_FLAG
       )
    VALUES
      (V_OUTSTOCK_SQE,
       '',
       V_OUTSTOCK_DOC,
       '#OUTSTOCK_TYPE_CODE#',
       V_BASENAME,
       MYROW.MAT_NO,
       MYROW.PRODUCT_FLAG,
       MYROW.MAT_STATUS,
       MYROW.STOVE_NO,
       MYROW.FLAG_STOVE_NO,
       MYROW.JUDGE_STOVE_NO,
       MYROW.MATERIAL_NO,
       MYROW.MATERIAL_NAME,
       MYROW.GRADECODE,
       MYROW.GRADENAME,
       MYROW.STD_CODE,
       MYROW.STD_NAME,
       MYROW.DIMATER,
       
       MYROW.HEIGHT,
       MYROW.ACT_LEN,
       MYROW.FIX_NUM,
       MYROW.FIX_LEN,
       MYROW.ACT_COUNT,
       
       MYROW.ACT_WEIGHT,
       MYROW.ACT_THEORY_WEIGHT,
       MYROW.PLINE_CODE,
       MYROW.PLINE_NAME,
       MYROW.BELONG_CODE,
       
       MYROW.BELONG_NAME,
       MYROW.STORAGE_NO,
       MYROW.LOCATION_NO,
       '#DEPARTMENT_CODE#',
       '#DEPARTMENT_DESC#',
       
       '#MANAGEMENT_NO#',
       '#MANAGEMENT_NAME#',
       '#BAL_YEAR_MONTH#',
       V_TIME,
       MYROW.STORAGE_ATTR,
       
       MYROW.STORAGE_ATTR_NAME,
       MYROW.STORAGE_TYPE_NO,
       MYROW.STORAGE_TYPE_NAME,
       MYROW.MEMO,
       '#CREATE_NAME#',
       V_TIME,
       MYROW.GROUD_NO,
       MYROW.FURNACENO,
       MYROW.SEQUENCENO,
       MYROW.PRO_PLAN_ID,
       MYROW.GX_PLAN_NO,
       MYROW.GPTYPE,
       MYROW.CIC,
       MYROW.PIC,
       MYROW.SIC,
       MYROW.DIC,
       MYROW.SUPPLY_UNIT_CODE,
       MYROW.SUPPLY_UNIT,
       MYROW.SOURE_CODE,
       MYROW.SOURE_NAME,
       MYROW.IS_DEALER,
       MYROW.BACK_FLAG);
    DELETE YDM_GP_BUTTRESS T WHERE T.MAT_NO = MYROW.MAT_NO;
    DELETE MAT_GP_M T WHERE T.MAT_NO = MYROW.MAT_NO;
    V_OCOUNT := V_OCOUNT + 1;
  END LOOP;
END;

]]>
</query>
</queryMap>