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

<?xml version="1.0" encoding="UTF-8"?>
<queryMap desc = "管坯收料管理">
<query  id = "FrmStuffMoveIn.doQueryOutList" desc = "查询倒库实绩">
SELECT 
       OUTSTOCK_PLAN_NO,
       OUTSTOCK_DOC,
       OUTSTOCK_TYPE_CODE,
       OUTSTOCK_TYPE_NAME,
       VEHICLE_NO,
       --(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,
       STOVE_NO,
       FLAG_STOVE_NO,
       JUDGE_STOVE_NO,
       MATERIAL_NO,
       MATERIAL_NAME,
       GRADECODE,
       GRADENAME,
       STD_CODE,
       STD_NAME,
       DIMATER,
       ACT_LEN,
       FIX_NUM,
       FIX_LEN,
       SUM(ACT_COUNT)ACT_COUNT,
       SUM(ACT_WEIGHT)ACT_WEIGHT,
       SUM(PONDER_GROSS_WT)PONDER_GROSS_WT,
       PLINE_CODE,
       PLINE_NAME,
       BELONG_CODE,
       BELONG_NAME,
       STORAGE_NO,
       (SELECT C.STORAGE_NAME FROM YDM_BS_STORAGE C WHERE C.STORAGE_NO = T.STORAGE_NO)STORAGE_NAME,
       (SELECT C.STORAGE_NAME FROM YDM_BS_STORAGE C WHERE C.STORAGE_NO = T.TAR_STORAGE_NO)TAR_STORAGE_NAME,
       DECODE(TAR_REC_FLAG,'0','未接收','1','已接收')TAR_REC_FLAG,
       max(TO_CHAR(OUTSTOCK_TIME, 'YYYY-MM-DD HH24:MI:SS')) OUTSTOCK_TIME,
       MEMO,
       CREATE_NAME,
       MAX((SELECT S.ORDER_NO||'/'||S.ORDER_SEQ  FROM PLN_ORDER_ZG_S S WHERE S.PRO_PLAN_ID = T.PRO_PLAN_ID_ZG AND S.GX_PLAN_NO = T.GX_PLAN_NO_ZG))ORDER_NO,
       PRO_PLAN_ID_ZG,
       GX_PLAN_NO_ZG,
       DECODE(OUT_TYPE,'0','写卡倒运','1','票据倒运','2','过跨倒运','3','纠错倒运')OUT_TYPE,
       CUT_NUM
 FROM YDM_GP_OUTLIST T
 WHERE OUTSTOCK_TYPE_CODE = '800803'
 AND TAR_REC_FLAG = '0'
 AND VALIDFLAG = '1'
</query>
<query id = "FrmStuffMoveIn.douQueryInList" desc = "查询收料实绩">
SELECT 
       GROUD_NO,
       MAT_ORIGIN_CODE,
       MAT_ORIGIN_NAME,
       SOURE_CODE,
       SOURE_NAME,
       MATERIAL_NO,
       MATERIAL_NAME,
       GRADECODE,
       GRADENAME,
       STD_CODE,
       STD_NAME,
       DIMATER,
       HEIGHT,
       ACT_LEN,
       FIX_NUM,
       FIX_LEN,
       Sum(ACT_COUNT)ACT_COUNT,
       sum(ACT_WEIGHT)ACT_WEIGHT,
       BELONG_CODE,
       BELONG_NAME,
       STORAGE_NO,
       LOCATION_NO,
       (SELECT S.LOCATION_NAME FROM YDM_BS_LOCATION S WHERE T.LOCATION_NO = S.LOCATION_NO)LOCATION_NAME,
       LARY_NO,
       max(TO_CHAR(INSTOCK_TIME, 'YYYY-MM-DD HH24:MI:SS')) INSTOCK_TIME,
       max(TO_CHAR(IN_TIME_F, 'YYYY-MM-DD HH24:MI:SS')) IN_TIME_F,
       MEMO,
       CREATE_NAME,
       max(TO_CHAR(CREATE_TIME, 'YYYY-MM-DD HH24:MI:SS')) CREATE_TIME,
       INSTOCK_DOC,
       VEHICLE_NO,
       PRODUCT_FLAG,
       MAT_STATUS,
       STOVE_NO,
       JUDGE_STOVE_NO,
       CAST_NO,
       CCMID,
       PLINE_CODE,
       PLINE_NAME,
       PRO_ORDER_NO,
       INSTOCK_TYPE_NAME,
       FURNACENO,
       SEQUENCENO,
       PRO_PLAN_ID,
       GX_PLAN_NO,
       CUT_NUM
 FROM YDM_GP_INLIST T
 WHERE INSTOCK_TYPE_CODE = '800703'
</query>
<query id = "FrmStuffMoveIn.selectOutListData" desc = "查询出库实绩是否已接收">
SELECT COUNT(1) ACOUNT
  FROM YDM_GP_OUTLIST T
 WHERE T.OUTSTOCK_DOC = '#OUTSTOCK_DOC#'
   AND NVL(T.STOVE_NO,'/') = NVL('#STOVE_NO#','/')
   AND NVL(T.JUDGE_STOVE_NO,'/') = NVL('#JUDGE_STOVE_NO#','/')
   AND T.FIX_NUM = '#FIX_NUM#'
   AND T.FIX_LEN = '#FIX_LEN#'
   AND T.PRO_PLAN_ID_ZG = '#PRO_PLAN_ID_ZG#'
   AND T.GX_PLAN_NO_ZG = '#GX_PLAN_NO_ZG#'
   AND T.TAR_REC_FLAG = '1'
   
</query>
<query id = "FrmStuffMoveIn.getInDoc" desc = "生成入库单号">
SELECT 'IC' || TO_CHAR(SYSDATE, 'YYMMDD') ||
         LPAD(NVL(MAX(SUBSTR(T.INSTOCK_DOC, 9)), 0) + 1, 5, 0) INSTOCK_DOC
    FROM YDM_GP_INLIST T
   WHERE T.INSTOCK_TYPE_CODE = '800703'
     AND T.INSTOCK_DOC LIKE 'IC' || TO_CHAR(SYSDATE, 'YYMMDD') ||'_____'
</query>
       <query id = "FrmStuffMoveIn.getInDocCQ" desc = "生成产权入库单号">
              SELECT 'IQ' || TO_CHAR(SYSDATE, 'YYMMDD') ||
              LPAD(NVL(MAX(SUBSTR(T.INSTOCK_DOC, 9)), 0) + 1, 5, 0) INSTOCK_DOC
              FROM YDM_GP_INLIST T
              WHERE T.INSTOCK_TYPE_CODE = '800709'
              AND T.INSTOCK_DOC LIKE  'IQ' || TO_CHAR(SYSDATE, 'YYMMDD') ||'_____'
       </query>
       <query id = "FrmStuffMoveIn.getOutDoc" desc = "生成产权出库单号">
              SELECT 'CQ' || TO_CHAR(SYSDATE, 'YYMMDD') ||
              LPAD(NVL(MAX(SUBSTR(T.OUTSTOCK_DOC, 9)), 0) + 1, 5, 0) OUTSTOCK_DOC
              FROM YDM_GP_OUTLIST T
              WHERE T.OUTSTOCK_TYPE_CODE = '800809'
             AND T.OUTSTOCK_DOC LIKE 'CQ' || TO_CHAR(SYSDATE, 'YYMMDD') ||'_____'
       </query>
<query id = "FrmStuffMoveIn.doAddInListData" desc = "收料">
<![CDATA[
DECLARE
  V_INSTOCK_DOC YDM_GP_INLIST.INSTOCK_DOC%TYPE := NULL; --入库单号
  V_INSTOCK_SQE YDM_GP_INLIST.INSTOCK_SQE%TYPE := NULL; --入库流水
  V_IMEMO       COM_BASE_INFO.MEMO%TYPE := NULL;
  V_BASENAME    COM_BASE_INFO.BASENAME%TYPE := NULL;
  V_ICOUNT      NUMBER := 1;
  V_TIME        YDM_GP_INLIST.CREATE_TIME%TYPE := TO_DATE('#CREATE_TIME#','YYYY-MM-DD HH24:MI:SS');
  V_BATHYEAR    YDM_GP_INLIST.BAL_YEAR_MONTH%TYPE := TO_CHAR(SYSDATE,'YYYYMM');
  V_STORAGE_NAME YDM_BS_STORAGE.STORAGE_NAME%TYPE := NULL;
  V_OUTSTORAGE_NAME YDM_BS_STORAGE.STORAGE_NAME%TYPE := NULL;
BEGIN
  SELECT T.STORAGE_NAME INTO V_STORAGE_NAME FROM YDM_BS_STORAGE T WHERE T.STORAGE_NO = '#TAR_STORAGE_NO#';
  SELECT T.STORAGE_NAME INTO V_OUTSTORAGE_NAME FROM YDM_BS_STORAGE T WHERE T.STORAGE_NO = '#STORAGE_NO#';
  --生成入库单号
  V_INSTOCK_DOC := '#INSTOCK_DOC#';
  SELECT MEMO, BASENAME
    INTO V_IMEMO, V_BASENAME
    FROM COM_BASE_INFO
   WHERE BASECODE = '#INSTOCK_TYPE_CODE#';
  SELECT TO_NUMBER(LPAD((NVL(MAX(SUBSTR(T.INSTOCK_SQE, 14)), 0) + 1), 4, 0)) INSTOCK_SQE
  INTO V_ICOUNT
  FROM YDM_GP_INLIST T
 WHERE T.INSTOCK_DOC = '#INSTOCK_DOC#';
  FOR MYROW IN (SELECT * FROM (SELECT T.*
                  FROM YDM_GP_OUTLIST T
                 WHERE T.OUTSTOCK_DOC = '#OUTSTOCK_DOC#'
                   AND NVL(T.STOVE_NO,'/') = NVL('#STOVE_NO#','/')
                   AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
                   AND T.FIX_NUM = '#FIX_NUM#'
                   AND T.FIX_LEN = '#FIX_LEN#'
                   AND T.STORAGE_NO = '#STORAGE_NO#'
                   AND T.TAR_REC_FLAG = '0'
                   AND NVL(T.PRO_PLAN_ID_ZG,'/') = NVL('#PRO_PLAN_ID_ZG#','/')
                   AND NVL(T.GX_PLAN_NO_ZG,'/') = NVL('#GX_PLAN_NO_ZG#','/')
                   ORDER BY T.MAT_NO ASC)
                   WHERE ROWNUM <= #ACT_COUNT#
                   ) LOOP
    INSERT INTO YDM_GP_BUTTRESS
      (GROUD_NO,
       MAT_NO,
       STOVE_NO,
       FLAG_STOVE_NO,
       JUDGE_STOVE_NO,
       STORAGE_NO,
       LOCATION_NO,
       LARY_NO,
       STORAGE_ATTR,
       STORAGE_ATTR_NAME,
       STORAGE_TYPE_NO,
       STORAGE_TYPE_NAME,
       DEPARTMENT_CODE,
       DEPARTMENT_DESC,
       MANAGEMENT_NO,
       MANAGEMENT_NAME,
       MEMO,
       CREATE_NAME,
       CREATE_TIME,
       LOCATION_NAME)
    VALUES
      (MYROW.GROUD_NO,
       MYROW.MAT_NO,
       MYROW.STOVE_NO,
       MYROW.FLAG_STOVE_NO,
       MYROW.JUDGE_STOVE_NO,
       '#TAR_STORAGE_NO#',
       '#TAR_LOCATION_NO#',
       '#TAR_LARY_NO#',
       MYROW.STORAGE_ATTR,
       MYROW.STORAGE_ATTR_NAME,
       MYROW.STORAGE_TYPE_NO,
       MYROW.STORAGE_TYPE_NAME,
       '#DEPARTMENT_CODE#',
       '#DEPARTMENT_DESC#',
       '#MANAGEMENT_NO#',
       '#MANAGEMENT_NAME#',
       MYROW.MEMO,
       '#CREATE_NAME#',
       V_TIME,
       '#TAR_LOCATION_NAME#');
    V_INSTOCK_SQE := V_INSTOCK_DOC || LPAD(V_ICOUNT, 4, 0);
    INSERT INTO YDM_GP_INLIST
      (GROUD_NO,
       MATERIAL_NO,
       MATERIAL_NAME,
       GRADECODE,
       GRADENAME,
       STD_CODE,
       STD_NAME,
       DIMATER,
       ACT_LEN,
       FIX_NUM,
       FIX_LEN,
       ACT_COUNT,
       ACT_WEIGHT,
       BELONG_CODE,
       BELONG_NAME,
       STORAGE_NO,
       LOCATION_NO,
       LARY_NO,
       DEPARTMENT_CODE,
       DEPARTMENT_DESC,
       MANAGEMENT_NO,
       MANAGEMENT_NAME,
       INSTOCK_TIME,
       IN_BC,
       IN_BZ,
       IN_TIME_F,
       BAL_YEAR_MONTH,
       STORAGE_ATTR,
       STORAGE_ATTR_NAME,
       STORAGE_TYPE_NO,
       STORAGE_TYPE_NAME,
       MEMO,
       CREATE_NAME,
       CREATE_TIME,
       INSTOCK_SQE,
       INSTOCK_DOC,
       INSTOCK_TYPE_CODE,
       INSTOCK_TYPE_NAME,
       VEHICLE_NO,
       MAT_NO,
       PRODUCT_FLAG,
       MAT_STATUS,
       STOVE_NO,
       FLAG_STOVE_NO,
       JUDGE_STOVE_NO,
       CAST_NO,
       CCMID,
       PLINE_CODE,
       PLINE_NAME,
       PRO_ORDER_NO,
       FURNACENO,
       SEQUENCENO,
       PRO_PLAN_ID,
       GX_PLAN_NO,
       SOURE_CODE,
       SOURE_NAME,
       OUTSTOCK_TIME,
       OUTSTOCK_DOC,
       CUT_NUM)
    VALUES
      (MYROW.GROUD_NO,
       MYROW.MATERIAL_NO,
       MYROW.MATERIAL_NAME,
       MYROW.GRADECODE,
       MYROW.GRADENAME,
       MYROW.STD_CODE,
       MYROW.STD_NAME,
       MYROW.DIMATER,
       MYROW.ACT_LEN,
       MYROW.FIX_NUM,
       MYROW.FIX_LEN,
       MYROW.ACT_COUNT,
       (CASE
                             WHEN MYROW.PONDER_GROSS_WT IS NULL THEN
                              NVL(MYROW.ACT_WEIGHT, 0)
                             ELSE
                              NVL(MYROW.PONDER_GROSS_WT, 0)
                           END),
       MYROW.BELONG_CODE,
       MYROW.BELONG_NAME,
       '#TAR_STORAGE_NO#',
       '#TAR_LOCATION_NO#',
       '#TAR_LARY_NO#',
       '#DEPARTMENT_CODE#',
       '#DEPARTMENT_DESC#',
       '#MANAGEMENT_NO#',
       '#MANAGEMENT_NAME#',
       V_TIME,
       '#IN_BC#',
       '#IN_BZ#',
       V_TIME,
       '#BAL_YEAR_MONTH#',
       MYROW.STORAGE_ATTR,
       MYROW.STORAGE_ATTR_NAME,
       MYROW.STORAGE_TYPE_NO,
       MYROW.STORAGE_TYPE_NAME,
       MYROW.MEMO,
       '#CREATE_NAME#',
       V_TIME,
       V_INSTOCK_SQE,
       V_INSTOCK_DOC,
       '#INSTOCK_TYPE_CODE#',
       V_BASENAME,
       MYROW.VEHICLE_NO,
       MYROW.MAT_NO,
       MYROW.PRODUCT_FLAG,
       MYROW.MAT_STATUS,
       MYROW.STOVE_NO,
       MYROW.FLAG_STOVE_NO,
       MYROW.JUDGE_STOVE_NO,
       MYROW.CAST_NO,
       MYROW.CCMID,
       MYROW.PLINE_CODE,
       MYROW.PLINE_NAME,
       MYROW.PRO_ORDER_NO,
       MYROW.FURNACENO,
       MYROW.SEQUENCENO,
       MYROW.PRO_PLAN_ID,
       MYROW.GX_PLAN_NO,
       MYROW.STORAGE_NO,
       V_OUTSTORAGE_NAME,
       MYROW.OUTSTOCK_TIME,
       MYROW.OUTSTOCK_DOC,
       MYROW.CUT_NUM);
    UPDATE YDM_GP_OUTLIST T
       SET T.TAR_REC_FLAG        = '1',
           T.TAR_DEPARTMENT_CODE = '#DEPARTMENT_CODE#',
           T.TAR_DEPARTMENT_DESC = '#DEPARTMENT_DESC#',
           T.TAR_MANAGEMENT_NO   = '#MANAGEMENT_NO#',
           T.TAR_MANAGEMENT_NAME = '#MANAGEMENT_NAME#',
           T.INSTOCK_TIME        = V_TIME
     WHERE T.OUTSTOCK_SQE = MYROW.OUTSTOCK_SQE
     AND T.FIX_LEN = MYROW.FIX_LEN;
    UPDATE MAT_GP_M T SET T.MAT_GOWHERE_CODE = '#TAR_STORAGE_NO#',
    T.MAT_GOWHERE_NAME = V_STORAGE_NAME
    WHERE T.MAT_NO = MYROW.MAT_NO;
    V_ICOUNT := V_ICOUNT + 1;
  END LOOP;
END;
]]>
</query>
<query id = "FrmStuffMoveIn.selectInListData" desc = "查询材料状态">
<![CDATA[
SELECT COUNT(1) ACOUNT
  FROM YDM_GP_INLIST F,
       (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 NVL(T.PRO_PLAN_ID,'/') = NVL('#PRO_PLAN_ID#','/')
           AND NVL(T.GX_PLAN_NO,'/') = NVL('#GX_PLAN_NO#','/')
           AND T.FIX_NUM = '#FIX_NUM#'
           AND T.FIX_LEN = '#FIX_LEN#') T1
 WHERE F.MAT_NO = T1.MAT_NO
   AND F.INSTOCK_DOC = '#INSTOCK_DOC#'
   ]]>
</query>
<query id = "FrmStuffMoveIn.deleteInListData" desc = "撤销收料">
<![CDATA[
DECLARE
  V_COUNT NUMBER := 0;
  V_STORAGE_NO_AREA YDM_BS_STORAGE.SEAM_AREA%TYPE :=NULL;
  V_TARSTORAGE_NO_AREA YDM_BS_STORAGE.SEAM_AREA%TYPE :=NULL;
BEGIN
  SELECT COUNT(1)
    INTO V_COUNT
    FROM YDM_GP_INLIST T
   WHERE T.INSTOCK_DOC = '#INSTOCK_DOC#'
     AND T.OUTSTOCK_DOC IS NOT NULL;

  SELECT T.SEAM_AREA INTO V_STORAGE_NO_AREA FROM YDM_BS_STORAGE T WHERE T.STORAGE_NO = '#SOURE_CODE#';
  SELECT T.SEAM_AREA INTO V_TARSTORAGE_NO_AREA FROM YDM_BS_STORAGE T WHERE T.STORAGE_NO = '#STORAGE_NO#';
  FOR MYROW IN (SELECT T.*
                  FROM YDM_GP_INLIST T
                 WHERE T.INSTOCK_DOC = '#INSTOCK_DOC#'
                   AND T.INSTOCK_TYPE_CODE = '800703'
                 ORDER BY T.MAT_NO DESC) LOOP
    IF (V_COUNT > 0) THEN
      UPDATE YDM_GP_OUTLIST S
         SET S.TAR_REC_FLAG = '0'
       WHERE S.MAT_NO = MYROW.MAT_NO
         AND S.OUTSTOCK_DOC = MYROW.OUTSTOCK_DOC
         AND S.OUTSTOCK_TYPE_CODE = '800803';
         ELSE
           UPDATE YDM_GP_OUTLIST S
       SET S.TAR_REC_FLAG = '0'
     WHERE S.MAT_NO = MYROW.MAT_NO
       AND NVL(S.FURNACENO, '/') = NVL(MYROW.FURNACENO, '/')
       AND NVL(S.SEQUENCENO, '/') = NVL(MYROW.SEQUENCENO, '/')
       AND NVL(S.PRO_PLAN_ID, '/') = NVL(MYROW.PRO_PLAN_ID, '/')
       AND NVL(S.GX_PLAN_NO, '/') = NVL(MYROW.GX_PLAN_NO, '/')
       AND S.OUTSTOCK_TYPE_CODE = '800803';
    END IF;

    DELETE YDM_GP_BUTTRESS W WHERE W.MAT_NO = MYROW.MAT_NO;
    DELETE YDM_GP_INLIST T
     WHERE T.MAT_NO = MYROW.MAT_NO
       AND T.INSTOCK_SQE = MYROW.INSTOCK_SQE
       AND T.LOCATION_NO = MYROW.LOCATION_NO
       AND T.LARY_NO = MYROW.LARY_NO;

    IF(V_STORAGE_NO_AREA = 0 AND V_TARSTORAGE_NO_AREA = 1)THEN
     DELETE YDM_GP_INLIST T
     WHERE T.MAT_NO = MYROW.MAT_NO
       AND T.STORAGE_NO = MYROW.STORAGE_NO
       AND T.LOCATION_NO = MYROW.LOCATION_NO
       AND T.INSTOCK_TYPE_CODE = '800709'
       AND T.SOURE_CODE = '120501';
    DELETE YDM_GP_OUTLIST T
     WHERE T.MAT_NO = MYROW.MAT_NO
       AND T.OUTSTOCK_TYPE_CODE = '800809'
       AND T.MAT_GOWHERE_CODE = '120504';
     UPDATE MAT_GP_M T SET T.SUPPLY_UNIT_CODE = '120501',T.SUPPLY_UNIT = '天津钢管制造有限公司',T.BELONG_CODE = '002001001',T.BELONG_NAME = '生产计划部'
     WHERE T.MAT_NO = MYROW.MAT_NO;
     ELSIF(V_STORAGE_NO_AREA = 1 AND V_TARSTORAGE_NO_AREA = 0)THEN
     DELETE YDM_GP_INLIST T
     WHERE T.MAT_NO = MYROW.MAT_NO
       AND T.STORAGE_NO = MYROW.STORAGE_NO
       AND T.LOCATION_NO = MYROW.LOCATION_NO
       AND T.INSTOCK_TYPE_CODE = '800709'
       AND T.SOURE_CODE = '120504';
    DELETE YDM_GP_OUTLIST T
     WHERE T.MAT_NO = MYROW.MAT_NO
       AND T.OUTSTOCK_TYPE_CODE = '800809'
       AND T.MAT_GOWHERE_CODE = '120501';
     UPDATE MAT_GP_M T SET T.SUPPLY_UNIT_CODE = '120504',T.SUPPLY_UNIT = '江苏天淮钢管有限公司',T.BELONG_CODE = '002023005',T.BELONG_NAME = '产品制造部'
     WHERE T.MAT_NO = MYROW.MAT_NO;
    END IF;
  END LOOP;
END;
]]>
</query>
       <query id = "FrmStuffMoveIn.insertTmsDoc" desc = "插入收料的出库单号">
              <![CDATA[
        DECLARE
        V_COUNT NUMBER := 0;
        BEGIN
        SELECT COUNT(1) INTO V_COUNT FROM TMS_YDM_OUT T WHERE T.OUTSTOCK_DOC = ?;
        IF (V_COUNT = 0) THEN
        INSERT INTO TMS_YDM_OUT (OUTSTOCK_DOC,INSTOCK_DOC) VALUES (?,?);
        END IF;
        END;
        ]]>
       </query>
       <query id = "FrmStuffMoveIn.updateTmsDoc" desc = "关闭运单主表">
              <![CDATA[
        UPDATE TMS_WAYBILL_M T
   SET T.VALIDFLAG = '60'
 WHERE T.VALIDFLAG = '50'
   AND T.WAYBILL_NO = (SELECT MAX(T1.WAYBILL_NO)
                         FROM TMS_WAYBILL_C T1
                        WHERE T1.MAT_TYPE = '2'
                          AND T1.REF_PLN_NO = ?)
        ]]>
       </query>
       <query id = "FrmStuffMoveIn.selectOutCount" desc = "查询出库单支数">
              SELECT SUM(T.ACT_COUNT)ACOUNT FROM YDM_GP_OUTLIST T WHERE T.OUTSTOCK_DOC = '#OUTSTOCK_DOC#'
       </query>
       <query id = "FrmStuffMoveIn.getStorageNoArea" desc = "查询仓库对应的区域">
              SELECT T.SEAM_AREA FROM YDM_BS_STORAGE T WHERE T.STORAGE_NO = ?
       </query>
       <query id = "FrmStuffMoveIn.doAddInCqData" desc = "收料新增产权入出库信息">
              <![CDATA[
               DECLARE
  V_OUTSTOCK_DOC YDM_GP_OUTLIST.OUTSTOCK_DOC%TYPE := NULL; --出库单号
  V_OUTSTOCK_SQE YDM_GP_OUTLIST.OUTSTOCK_SQE%TYPE := NULL; --出库库流水

  V_INSTOCK_DOC        YDM_GP_INLIST.INSTOCK_DOC%TYPE := NULL; --入库单号
  V_INSTOCK_SQE        YDM_GP_INLIST.INSTOCK_SQE%TYPE := NULL; --入库流水
  V_IMEMO              COM_BASE_INFO.MEMO%TYPE := NULL;
  V_BASENAME           COM_BASE_INFO.BASENAME%TYPE := NULL;
  V_ICOUNT             NUMBER := 1;
  V_TIME               YDM_GP_INLIST.CREATE_TIME%TYPE := TO_DATE('#CREATE_TIME#',
                                                                 'YYYY-MM-DD HH24:MI:SS');
  V_BATHYEAR           YDM_GP_INLIST.BAL_YEAR_MONTH%TYPE := TO_CHAR(SYSDATE,
                                                                    'YYYYMM');
  V_STORAGE_NAME       YDM_BS_STORAGE.STORAGE_NAME%TYPE := NULL;
  V_OUTSTORAGE_NAME    YDM_BS_STORAGE.STORAGE_NAME%TYPE := NULL;
  V_JUDGE_STOVE_NO     MAT_GP_M.JUDGE_STOVE_NO%TYPE := NULL; --新炉号
  V_STORAGE_NO_AREA    YDM_BS_STORAGE.SEAM_AREA%TYPE := NULL;
  V_TARSTORAGE_NO_AREA YDM_BS_STORAGE.SEAM_AREA%TYPE := NULL;
  V_JUDGE_NOCOUNT      NUMBER := 0;
BEGIN
  SELECT T.STORAGE_NAME
    INTO V_STORAGE_NAME
    FROM YDM_BS_STORAGE T
   WHERE T.STORAGE_NO = '#TAR_STORAGE_NO#';
  SELECT T.STORAGE_NAME
    INTO V_OUTSTORAGE_NAME
    FROM YDM_BS_STORAGE T
   WHERE T.STORAGE_NO = '#STORAGE_NO#';

  V_STORAGE_NO_AREA    := '#STORAGE_NO_AREA#';
  V_TARSTORAGE_NO_AREA := '#TARSTORAGE_NO_AREA#';
  --生成出库流水号
  V_OUTSTOCK_DOC := '#OUTSTOCK_DOCCQ#';
  V_INSTOCK_DOC := '#INSTOCK_DOC#';
  SELECT TO_NUMBER(LPAD((NVL(MAX(SUBSTR(T.OUTSTOCK_SQE, 14)), 0) + 1), 4, 0)) OUTSTOCK_SQE
    INTO V_ICOUNT
    FROM YDM_GP_OUTLIST T
   WHERE T.OUTSTOCK_DOC = '#OUTSTOCK_DOCCQ#';
  /*IF (V_STORAGE_NO_AREA = 0 AND V_TARSTORAGE_NO_AREA = 1) THEN
    --天管发往天淮
    --查询天管炉号是否已经存在天淮库存中
    SELECT SUM(ACOUNT)
      INTO V_JUDGE_NOCOUNT
      FROM (SELECT COUNT(1) ACOUNT
              FROM MAT_GP_M T
             WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
               AND T.SUPPLY_UNIT_CODE = '120504'
            UNION ALL
            SELECT COUNT(1) ACOUNT
              FROM MAT_GP_M_HISTORY T
             WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
               AND T.SUPPLY_UNIT_CODE = '120504');
    IF (V_JUDGE_NOCOUNT > 0) THEN
      SELECT T.JUDGE_STOVE_NO
        INTO V_JUDGE_STOVE_NO
        FROM MAT_GP_M T
       WHERE T.JUDGE_STOVE_NO_LG = '#JUDGE_STOVE_NO#'
         AND ROWNUM = 1;
    ELSE
      SELECT JUDGE_STOVE_NO
        INTO V_JUDGE_STOVE_NO
        FROM (SELECT 'A' || TO_CHAR(SYSDATE, 'YYMM') ||
                     LPAD((NVL(MAX(SUBSTR(T.JUDGE_STOVE_NO, 5)), 0) + 1),
                          4,
                          0) JUDGE_STOVE_NO
                FROM MAT_GP_M T
               WHERE T.JUDGE_STOVE_NO LIKE
                     'A' || TO_CHAR(SYSDATE, 'YYMM') || '____'
              UNION ALL
              SELECT 'A' || TO_CHAR(SYSDATE, 'YYMM') ||
                     LPAD((NVL(MAX(SUBSTR(T.JUDGE_STOVE_NO, 5)), 0) + 1),
                          4,
                          0) JUDGE_STOVE_NO
                FROM MAT_GP_M_HISTORY T
               WHERE T.JUDGE_STOVE_NO LIKE
                     'A' || TO_CHAR(SYSDATE, 'YYMM') || '____')
       GROUP BY JUDGE_STOVE_NO;
    END IF;
  ELSE
    V_JUDGE_STOVE_NO := '#JUDGE_STOVE_NO#';
  END IF;*/
  FOR MYROW IN (SELECT G.*
                  FROM (SELECT S.STOVE_NO,
                               S.JUDGE_STOVE_NO,
                               S.PRINT_STOVE_NO,
                               S.MAT_NO,
                               S.PRODUCT_FLAG,
                               S.MAT_STATUS,
                               S.CAST_NO,
                               S.CCMID,
                               S.MATERIAL_NO,
                               S.MATERIAL_NAME,
                               S.GRADECODE,
                               S.GRADENAME,
                               S.GROUD_NO,
                               S.PRO_ORDER_NO,
                               S.ORDER_NO,
                               S.ORDER_SEQ,
                               S.ORDER_SEQ_NO,
                               S.ORD_PK,
                               S.ORD_LN_PK,
                               S.ORD_LN_DLY_PK,
                               S.PLINE_CODE,
                               S.PLINE_NAME,
                               S.BELONG_CODE,
                               S.BELONG_NAME,
                               S.SUPPLY_UNIT_CODE,
                               S.SUPPLY_UNIT,
                               S.PRO_PLAN_ID_ZG,
                               S.GX_PLAN_NO_ZG,
                               S.DIMATER,
                               S.FIX_NUM,
                               S.FIX_LEN,
                               S.ACT_LEN,
                               S.ACT_COUNT,
                               S.ACT_WEIGHT,
                               S.ACT_THEORY_WEIGHT,
                               S.PRO_PLAN_ID,
                               S.GX_PLAN_NO,
                               S.FLAG_STOVE_NO,
                               S.GPTYPE,
                               S.FURNACENO,
                               S.SEQUENCENO,
                               S.CUT_NUM,
                               S.STD_CODE,
                               S.STD_NAME,
                               S.MEMO,
                               S.JUDGE_STOVE_NO_LG,
                               T.STORAGE_NO,
                               T.LOCATION_NO,
                               T.OUTSTOCK_DOC,
                               T.OUTSTOCK_TIME,
                               T.PONDER_GROSS_WT
                          FROM YDM_GP_OUTLIST T, MAT_GP_M S
                         WHERE T.MAT_NO = S.MAT_NO
                           AND T.OUTSTOCK_DOC = '#OUTSTOCK_DOC#'
                           AND T.STOVE_NO = '#STOVE_NO#'
                           AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
                           AND T.FIX_NUM = '#FIX_NUM#'
                           AND T.STORAGE_NO = '#STORAGE_NO#'
                           AND NVL(T.PRO_PLAN_ID_ZG, '/') =
                               NVL('#PRO_PLAN_ID_ZG#', '/')
                           AND NVL(T.GX_PLAN_NO_ZG, '/') =
                               NVL('#GX_PLAN_NO_ZG#', '/')
                         ORDER BY T.MAT_NO ASC) G
                 WHERE ROWNUM <= '#ACT_COUNT#') LOOP
    V_OUTSTOCK_SQE := V_OUTSTOCK_DOC || LPAD(V_ICOUNT, 4, 0);
    INSERT INTO YDM_GP_OUTLIST
      (SUPPLY_UNIT_CODE,
       SUPPLY_UNIT,
       BAL_YEAR_MONTH,
       OUTSTOCK_TIME,
       CREATE_NAME,
       CREATE_TIME,
       GROUD_NO,
       PRINT_STOVE_NO,
       PRO_PLAN_ID,
       GX_PLAN_NO,
       FURNACENO,
       SEQUENCENO,
       GPTYPE,
       PRO_PLAN_ID_ZG,
       GX_PLAN_NO_ZG,
       MAT_GOWHERE_CODE,
       MAT_GOWHERE_NAME,
       OUTSTOCK_SQE,
       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,
       DIMATER,
       ACT_LEN,
       FIX_NUM,
       FIX_LEN,
       ACT_COUNT,
       ACT_WEIGHT,
       ACT_THEORY_WEIGHT,
       PLINE_CODE,
       PLINE_NAME,
       PRO_ORDER_NO,
       ORDER_NO,
       ORDER_SEQ,
       ORDER_SEQ_NO,
       ORD_PK,
       ORD_LN_PK,
       ORD_LN_DLY_PK,
       BELONG_CODE,
       BELONG_NAME,
       STORAGE_NO,
       LOCATION_NO)
    VALUES
      (MYROW.SUPPLY_UNIT_CODE,
       MYROW.SUPPLY_UNIT,
       '#BAL_YEAR_MONTH#',
       V_TIME,
       '#CREATE_NAME#',
       V_TIME,
       MYROW.GROUD_NO,
       MYROW.PRINT_STOVE_NO,
       MYROW.PRO_PLAN_ID,
       MYROW.GX_PLAN_NO,
       MYROW.FURNACENO,
       MYROW.SEQUENCENO,
       MYROW.GPTYPE,
       MYROW.PRO_PLAN_ID_ZG,
       MYROW.GX_PLAN_NO_ZG,
       '#SUPPLY_UNIT_CODE#',
       '#SUPPLY_UNIT#',
       V_OUTSTOCK_SQE,
       V_OUTSTOCK_DOC,
       '800809',
       '产权出库',
       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.DIMATER,
       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.PRO_ORDER_NO,
       MYROW.ORDER_NO,
       MYROW.ORDER_SEQ,
       MYROW.ORDER_SEQ_NO,
       MYROW.ORD_PK,
       MYROW.ORD_LN_PK,
       MYROW.ORD_LN_DLY_PK,
       MYROW.BELONG_CODE,
       MYROW.BELONG_NAME,
       MYROW.STORAGE_NO,
       MYROW.LOCATION_NO);
    V_INSTOCK_SQE := V_INSTOCK_DOC || LPAD(V_ICOUNT, 4, 0);
    INSERT INTO YDM_GP_INLIST
      (GROUD_NO,
       MATERIAL_NO,
       MATERIAL_NAME,
       GRADECODE,
       GRADENAME,
       STD_CODE,
       STD_NAME,
       DIMATER,
       ACT_LEN,
       FIX_NUM,
       FIX_LEN,
       ACT_COUNT,
       ACT_WEIGHT,
       BELONG_CODE,
       BELONG_NAME,
       STORAGE_NO,
       LOCATION_NO,
       INSTOCK_TIME,
       IN_TIME_F,
       BAL_YEAR_MONTH,
       MEMO,
       CREATE_NAME,
       CREATE_TIME,
       INSTOCK_SQE,
       INSTOCK_DOC,
       INSTOCK_TYPE_CODE,
       INSTOCK_TYPE_NAME,
       MAT_NO,
       PRODUCT_FLAG,
       MAT_STATUS,
       STOVE_NO,
       FLAG_STOVE_NO,
       JUDGE_STOVE_NO,
       CAST_NO,
       CCMID,
       PLINE_CODE,
       PLINE_NAME,
       PRO_ORDER_NO,
       FURNACENO,
       SEQUENCENO,
       PRO_PLAN_ID,
       GX_PLAN_NO,
       SOURE_CODE,
       SOURE_NAME,
       OUTSTOCK_TIME,
       OUTSTOCK_DOC,
       CUT_NUM,
       JUDGE_STOVE_NO_LG,
       SUPPLY_UNIT_CODE,
       SUPPLY_UNIT)
    VALUES
      (MYROW.GROUD_NO,
       MYROW.MATERIAL_NO,
       MYROW.MATERIAL_NAME,
       MYROW.GRADECODE,
       MYROW.GRADENAME,
       MYROW.STD_CODE,
       MYROW.STD_NAME,
       MYROW.DIMATER,
       MYROW.ACT_LEN,
       MYROW.FIX_NUM,
       MYROW.FIX_LEN,
       MYROW.ACT_COUNT,
       MYROW.PONDER_GROSS_WT,
       '#BELONG_CODE#',
       '#BELONG_NAME#',
       '#TAR_STORAGE_NO#',
       '#TAR_LOCATION_NO#',
       V_TIME,
       V_TIME,
       '#BAL_YEAR_MONTH#',
       MYROW.MEMO,
       '#CREATE_NAME#',
       V_TIME,
       V_INSTOCK_SQE,
       V_INSTOCK_DOC,
       '800709',
       '产权入库',
       MYROW.MAT_NO,
       MYROW.PRODUCT_FLAG,
       MYROW.MAT_STATUS,
       MYROW.STOVE_NO,
       MYROW.FLAG_STOVE_NO,
       MYROW.JUDGE_STOVE_NO,
       MYROW.CAST_NO,
       MYROW.CCMID,
       MYROW.PLINE_CODE,
       MYROW.PLINE_NAME,
       MYROW.PRO_ORDER_NO,
       MYROW.FURNACENO,
       MYROW.SEQUENCENO,
       MYROW.PRO_PLAN_ID,
       MYROW.GX_PLAN_NO,
       MYROW.SUPPLY_UNIT_CODE,
       MYROW.SUPPLY_UNIT,
       MYROW.OUTSTOCK_TIME,
       MYROW.OUTSTOCK_DOC,
       MYROW.CUT_NUM,
       MYROW.JUDGE_STOVE_NO_LG,
       '#SUPPLY_UNIT_CODE#',
       '#SUPPLY_UNIT#');
    UPDATE MAT_GP_M T
       SET
           T.SUPPLY_UNIT_CODE  = '#SUPPLY_UNIT_CODE#',
           T.SUPPLY_UNIT       = '#SUPPLY_UNIT#',
           T.BELONG_CODE = '#BELONG_CODE#',
           T.BELONG_NAME = '#BELONG_NAME#',
           T.ACT_WEIGHT = MYROW.PONDER_GROSS_WT,
           T.SOURE_CODE = '00036',
           T.SOURE_NAME = '天津制造'
     WHERE T.MAT_NO = MYROW.MAT_NO;
    V_ICOUNT := V_ICOUNT + 1;
  END LOOP;
END;
              ]]>
       </query>
</queryMap>