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

<?xml version="1.0" encoding="UTF-8"?>
<queryMap desc = "管坯倒垛管理">
<query id = "FrmStuffStow.doQueryMat" desc = "查询库存信息">
<![CDATA[
 SELECT 
       max(TO_CHAR(T.INSTOCK_TIME, 'YYYY-MM-DD HH24:MI:SS')) INSTOCK_TIME,
       T.MEMO,
       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,
       (SELECT T1.STORAGE_NAME
          FROM YDM_BS_STORAGE T1
         WHERE T1.STORAGE_NO = S.STORAGE_NO) STORAGE_NAME,
       S.STORAGE_NO,
       S.LOCATION_NO,
       (SELECT T2.LOCATION_NAME
          FROM YDM_BS_LOCATION T2
         WHERE T2.LOCATION_NO = S.LOCATION_NO)LOCATION_NAME,
       T.FURNACENO,
       T.SEQUENCENO,
       T.PRO_PLAN_ID,
       T.GX_PLAN_NO
 FROM MAT_GP_M T,YDM_GP_BUTTRESS S
 WHERE T.MAT_NO = S.MAT_NO
 AND T.QCM_STAUS = '00'
 AND T.IS_SETFOOT = '0'
]]>
</query>
<query id = "FrmStuffStow.doQueryStow" desc = "查询倒垛信息">
SELECT 
       SUM(ACT_COUNT)ACT_COUNT,
       SUM(ACT_WEIGHT)ACT_WEIGHT,
       ACT_LEN,
       PLINE_CODE,
       PLINE_NAME,
       BELONG_CODE,
       BELONG_NAME,
       MAX(TO_CHAR(STOW_TIME, 'YYYY-MM-DD HH24:MI:SS')) STOW_TIME,
       MAX(TO_CHAR(STOW_TIME, 'YYYY-MM-DD')) STOW_TIME_F,
       MEMO,
       STOVE_NO,
       JUDGE_STOVE_NO,
       MATERIAL_NO,
       MATERIAL_NAME,
       PRODUCCODE,
       PRODUCNAME,
       GRADECODE,
       GRADENAME,
       STD_CODE,
       STD_NAME,
       DIMATER,
       FIX_NUM,
       FIX_LEN,
       LOCATION_NO,
       LARY_NO,
       OLD_LOCATION_NO,
       OLD_LARY_NO,
       STORAGE_NO,
       (SELECT T1.STORAGE_NAME FROM YDM_BS_STORAGE T1 WHERE T1.STORAGE_NO = S.STORAGE_NO)STORAGE_NAME,
       (SELECT T2.LOCATION_NAME FROM YDM_BS_LOCATION T2 WHERE T2.LOCATION_NO = S.OLD_LOCATION_NO)OLD_LOCATION_NAME,
       (SELECT T3.LOCATION_NAME FROM YDM_BS_LOCATION T3 WHERE T3.LOCATION_NO = S.LOCATION_NO)LOCATION_NAME
 FROM YDM_GP_STOWLIST S
 WHERE 1 = 1
</query>
<query id="FrmStuffStow.queryStow" desc="查询当前料位信息">
	<![CDATA[
	 SELECT 
       T.LOCATION_NO,
       (SELECT S1.LOCATION_NAME FROM YDM_BS_LOCATION S1 WHERE S1.LOCATION_NO = T.LOCATION_NO)LOCATION_NAME,
       T.LARY_NO,
       SUM(A.ACT_COUNT) AS ACT_COUNT
  FROM YDM_GP_BUTTRESS T, MAT_GP_M A
 WHERE T.MAT_NO = A.MAT_NO
   AND NVL(T.STOVE_NO,'/') = NVL(?,'/')
   AND T.JUDGE_STOVE_NO = ?
   AND T.STORAGE_NO = ?
   AND A.FIX_NUM = ?
   AND A.ACT_LEN = ?
   AND T.LOCATION_NO = ?
   AND A.IS_SETFOOT = '0'
 GROUP BY T.LOCATION_NO,T.LOCATION_NAME,T.LARY_NO
 ORDER BY T.LOCATION_NO ASC
	]]>
	</query>
	<query id = "FrmStuffStow.getLocationNo" desc = "加载该仓库下所有料位号">
	SELECT T.LOCATION_NAME,T.LOCATION_NO FROM YDM_BS_LOCATION T WHERE T.STORAGE_NO = ?
	</query>
	<query id = "FrmStuffStow.doAddLocationNo" desc = "倒垛操作">
	<![CDATA[
	DECLARE
  V_STOW_SQE YDM_GP_STOWLIST.STOW_SQE%TYPE := NULL; --倒垛流水
  V_TIME     YDM_GP_STOWLIST.CREATE_TIME%TYPE := SYSDATE;
BEGIN
  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,
                       S.LARY_NO,
                       S.LOC_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.ACT_LEN = '#ACT_LEN#'
                   AND S.STORAGE_NO = '#STORAGE_NO#'
                   AND S.LOCATION_NO = '#LOCATION_NO#'
                   AND S.LARY_NO = '#LARY_NO#'
                   AND T.IS_SETFOOT = '0'
                   AND ROWNUM <= ?
                 ORDER BY T.MAT_NO DESC) LOOP
    SELECT MYROW.MAT_NO ||
           LPAD(NVL(MAX(SUBSTR(STOW_SQE, LENGTH(STOW_SQE) - 3)), 0) + 1,
                4,
                0) STOW_SQE
      INTO V_STOW_SQE
      FROM YDM_GP_STOWLIST T
     WHERE MAT_NO = MYROW.MAT_NO;
    INSERT INTO YDM_GP_STOWLIST
      (GROUD_NO,
       ACT_COUNT,
       ACT_WEIGHT,
       PLINE_CODE,
       PLINE_NAME,
       BELONG_CODE,
       BELONG_NAME,
       STOW_TIME,
       STOW_BC,
       STOW_BZ,
       LOCATION_NO,
       LARY_NO,
       LOC_NO,
       OLD_LOCATION_NO,
       OLD_LARY_NO,
       OLD_LOC_NO,
       DEPARTMENT_CODE,
       DEPARTMENT_DESC,
       MANAGEMENT_NO,
       MANAGEMENT_NAME,
       STORAGE_ATTR,
       STORAGE_ATTR_NAME,
       STORAGE_TYPE_NO,
       STORAGE_TYPE_NAME,
       MEMO,
       CREATE_NAME,
       CREATE_TIME,
       STOW_SQE,
       MAT_NO,
       STOVE_NO,
       JUDGE_STOVE_NO,
       MATERIAL_NO,
       MATERIAL_NAME,
       PRODUCCODE,
       PRODUCNAME,
       GRADECODE,
       GRADENAME,
       STD_CODE,
       STD_NAME,
       DIMATER,
       ACT_LEN,
       FIX_NUM,
       FIX_LEN,
       STORAGE_NO)
    VALUES
      (MYROW.GROUD_NO,
       MYROW.ACT_COUNT,
       MYROW.ACT_WEIGHT,
       MYROW.PLINE_CODE,
       MYROW.PLINE_NAME,
       MYROW.BELONG_CODE,
       MYROW.BELONG_NAME,
       V_TIME,
       ?,
       ?,
       ?,
       ?,
       ?,
       
       MYROW.LOCATION_NO,
       MYROW.LARY_NO,
       MYROW.LOC_NO,
       ?,
       ?,
       ?,
       ?,
       MYROW.STORAGE_ATTR,
       MYROW.STORAGE_ATTR_NAME,
       MYROW.STORAGE_TYPE_NO,
       MYROW.STORAGE_TYPE_NAME,
       MYROW.MEMO,
       ?,
       V_TIME,
       V_STOW_SQE,
       MYROW.MAT_NO,
       MYROW.STOVE_NO,
       MYROW.JUDGE_STOVE_NO,
       MYROW.MATERIAL_NO,
       MYROW.MATERIAL_NAME,
       MYROW.PRODUCCODE,
       MYROW.PRODUCNAME,
       MYROW.GRADECODE,
       MYROW.GRADENAME,
       MYROW.STD_CODE,
       MYROW.STD_NAME,
       MYROW.DIMATER,
       MYROW.ACT_LEN,
       MYROW.FIX_NUM,
       MYROW.FIX_LEN,
       MYROW.STORAGE_NO);
    UPDATE YDM_GP_BUTTRESS T
       SET T.LOCATION_NO = ?, T.LARY_NO = ?,T.LOCATION_NAME = ?
     WHERE T.MAT_NO = MYROW.MAT_NO;
  END LOOP;
END;
]]>
	</query>
</queryMap>