PSSServer/WebRoot/WEB-INF/query/com/steering/pss/ydm/pipemanage/FrmLoadMaterialOut.xml

<?xml version="1.0" encoding="UTF-8"?>
<queryMap desc = "上料出库">
<query id = "FrmLoadMaterialOut.doQueryMatData" desc = "查询已判库存实绩">
<![CDATA[
 SELECT 
       T1.LOT_NO,
       T1.PRO_ORDER_NO,
       T1.JUDGE_STOVE_NO,
       T1.BATCH_NO,
       T1.BATCH_GROUD_NO,
       T1.PRODUCCODE,
       T1.PRODUCNAME,
       T1.STEELCODE,
       T1.STEELNAME,
       T1.SPEC_CODE,
       T1.SPEC_NAME,
       T1.MODEL_CODE,
       T1.MODEL_DESC,
       T1.STD_CODE,
       T1.STD_NAME,
       T1.ORDER_NO,
       T1.ORDER_SEQ,
       T1.ORDER_SEQ_NO,
       T1.ACT_DIMATER,
       T1.ACT_HEIGHT,
       T1.BELONG_CODE,
       T1.BELONG_NAME,
       T1.STD_STYLE,
       T1.STD_STYLE_DESC,
       T1.GRADECODE,
       T1.GRADENAME,
      sum(T1.ACT_COUNT)
            ACT_COUNT,
            to_char(sum(T1.Act_Weight),'FM999999990.000')
           Act_Weight,
           
       T1.ACT_LEN,
       
       T1.LEN_NO,
       T1.LEN_DESC,
       T1.LEN_UNIT,
       max(to_char(T1.ACT_LEN_MIN,'FM999990.00')) AS ACT_LEN_MIN,
       max(to_char(T1.ACT_LEN_MAX,'FM999990.00')) AS ACT_LEN_MAX,
       max(to_char(T1.ACT_LEN_MIN,'FM999990.00')||'-'||to_char(T1.ACT_LEN_MAX,'FM999990.00')) as LEN,
       max(to_char(T1.INSTOCK_TIME,'YYYY-MM-DD HH24:MI:SS')) INSTOCK_TIME,
       T2.STORAGE_NO,
       S.STORAGE_NAME,
       T1.MEMO,
       T1.MAT_STATUS,
       T1.JUDGE_STD_CODE,
       T1.JUDGE_STD_NAME,
       T1.PLINE_CODE,
       T1.PLINE_NAME,
       T1.ORD_LN_PK,
       T1.ORD_PK,
       T1.ORD_LN_DLY_PK,
       T1.MAT_ORIGIN_CODE,
       T1.MAT_ORIGIN_NAME,
       T1.SOURE_CODE,
       T1.SOURE_NAME,
       --to_char(to_date(T1.BAL_YEAR_MONTH,'YYYY-MM'),'yyyy-MM') as BAL_YEAR_MONTH,
       T1.PRODUCT_FLAG,
       T1.MATERIAL_NO,
       T1.MATERIAL_NAME
  FROM MAT_ZC_M T1, YDM_ZC_BUTTRESS T2
 LEFT JOIN ydm_bs_storage S ON S.STORAGE_NO=T2.STORAGE_NO
 WHERE T1.JUDGE_STOVE_NO = T2.JUDGE_STOVE_NO
   AND T1.BATCH_NO = T2.BATCH_NO
    AND T1.MAT_NO=T2.MAT_NO
    AND T1.QCM_STAUS = '00'
    AND T1.JUGDE_APPLY_FLAG = '1'
]]>
</query>
<query id = "FrmLoadMaterialOut.doQueryOutList" desc = "查询上料出库实绩">
SELECT 
       T.OUTSTOCK_PLAN_NO,
       T.OUTSTOCK_DOC,
       T.OUTSTOCK_TYPE_CODE,
       T.OUTSTOCK_TYPE_NAME,
       T.LOT_NO,
       T.JUDGE_STOVE_NO,
       T.BATCH_NO,
       T.BATCH_GROUD_NO,
       T.MATERIAL_NO,
       T.MATERIAL_NAME,
       T.PRODUCCODE,
       T.PRODUCNAME,
       T.STD_CODE,
       T.STD_NAME,
       T.GRADECODE,
       T.GRADENAME,
       T.STEELCODE,
       T.STEELNAME,
       T.STD_STYLE,
       T.STD_STYLE_DESC,
       T.SPEC_CODE,
       T.SPEC_NAME,
       T.MODEL_CODE,
       T.MODEL_DESC,
       T.PRO_ORDER_NO,
       T.PLINE_CODE,
       T.PLINE_NAME,
       T.ACT_DIMATER,
       T.ACT_HEIGHT,
       T.ACT_LEN,
       T.ACT_LEN_MIN,
       T.ACT_LEN_MAX,
       SUM(T.ACT_COUNT)ACT_COUNT,
       SUM(T.ACT_WEIGHT)ACT_WEIGHT,
       SUM(T.ACT_THEORY_WEIGHT)ACT_THEORY_WEIGHT,
       T.BELONG_CODE,
       T.BELONG_NAME,
       T.ORDER_NO,
       T.ORDER_SEQ,
       T.DELIVERY_NO,
       T.PRODUCT_FLAG,
       T.MAT_STATUS,
       T.JUDGE_STD_NAME,
       T.JUDGE_STD_CODE,
       T.STORAGE_NO,
       S.STORAGE_NAME,
       to_char(to_date(T.BAL_YEAR_MONTH,'YYYY-MM'),'yyyy-MM') as BAL_YEAR_MONTH,
       MAX(T.OUTSTOCK_TIME)OUTSTOCK_TIME
 FROM YDM_ZC_OUTLIST T LEFT JOIN  YDM_BS_STORAGE S ON T.STORAGE_NO = S.STORAGE_NO
 WHERE T.OUTSTOCK_TYPE_CODE = '800801'
</query>
<query id = "FrmLoadMaterialOut.SelectMatListCount" desc = "查询库存支数">
<![CDATA[
SELECT COUNT(1) ACT_COUNT
  FROM MAT_ZC_M T,YDM_ZC_BUTTRESS S
 WHERE T.MAT_NO = S.MAT_NO
   AND NVL(T.LOT_NO, '/') = NVL('#LOT_NO#', '/')
   AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
   AND T.BATCH_NO = '#BATCH_NO#'
   AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
   AND T.PRO_ORDER_NO = '#PRO_ORDER_NO#'
   AND T.ACT_LEN = '#ACT_LEN#'
   AND S.STORAGE_NO = '#STORAGE_NO#'
   AND T.JUGDE_APPLY_FLAG = '1'
   AND T.BELONG_CODE || '&' LIKE ('%' || upper(?) || '%')
   ]]>
</query>
<query id = "FrmLoadMaterialOut.loadMaterial" desc = "投料出库">
<![CDATA[
DECLARE
  V_OUTSTOCK_DOC YDM_ZC_OUTLIST.OUTSTOCK_DOC%TYPE := NULL;
  V_OUTSTOCK_SQE YDM_ZC_OUTLIST.OUTSTOCK_SQE%TYPE := NULL;
  V_MAT_NO       MAT_ZC_M.MAT_NO%TYPE := NULL;
  V_ICOUNT       NUMBER := 1;
  V_MCOUNT       NUMBER := 1;
  V_TIME         MAT_ZC_M.JUDGE_RESULT_TIME%TYPE := SYSDATE;
  V_DATE         YDM_ZC_OUTLIST.BAL_YEAR_MONTH%TYPE := TO_CHAR(SYSDATE,
                                                               'YYYYMM');
BEGIN
  SELECT ? || TO_CHAR(SYSDATE, 'YYMMDD') ||
         LPAD(NVL(MAX(SUBSTR(T.OUTSTOCK_DOC, LENGTH(T.OUTSTOCK_DOC) - 4)),
                  0) + 1,
              5,
              0) OUTSTOCK_DOC
    INTO V_OUTSTOCK_DOC
    FROM YDM_ZC_OUTLIST T
   WHERE TRUNC(T.CREATE_TIME) = TRUNC(SYSDATE)
     AND T.OUTSTOCK_TYPE_CODE = ?;
  FOR MYROW IN (SELECT T1.*
                  FROM (SELECT T.*,S.MANAGEMENT_NO,S.MANAGEMENT_NAME
                          FROM MAT_ZC_M T,YDM_ZC_BUTTRESS S
                         WHERE T.MAT_NO = S.MAT_NO
                           AND T.LOT_NO = '#LOT_NO#'
                           AND T.PRO_ORDER_NO = '#PRO_ORDER_NO#'
                           AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
                           AND T.BATCH_NO = '#BATCH_NO#'
                           AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
                           AND T.ACT_LEN = '#ACT_LEN#'
                           AND T.MAT_STATUS = '#MAT_STATUS#'
                           AND S.STORAGE_NO = '#STORAGE_NO#'
                           AND T.JUGDE_APPLY_FLAG = '1'
                           AND T.BELONG_CODE || '&' LIKE (upper(?) || '%')
                         ORDER BY T.MAT_NO DESC) T1
                 WHERE ROWNUM <= #ACT_COUNT#) LOOP
    V_OUTSTOCK_SQE := V_OUTSTOCK_DOC || LPAD(V_ICOUNT, 4, 0);
    INSERT INTO YDM_ZC_OUTLIST
      (OUTSTOCK_SQE,
       OUTSTOCK_DOC,
       OUTSTOCK_TYPE_CODE,
       OUTSTOCK_TYPE_NAME,
       ICCAR_NO,
       VEHICLE_NO,
       MAT_NO,
       LOT_NO,
       JUDGE_STOVE_NO,
       BATCH_NO,
       BATCH_GROUD_NO,
       MATERIAL_NO,
       MATERIAL_NAME,
       PRODUCCODE,
       PRODUCNAME,
       STD_CODE,
       STD_NAME,
       GRADECODE,
       GRADENAME,
       STEELCODE,
       STEELNAME,
       STD_STYLE,
       STD_STYLE_DESC,
       SPEC_CODE,
       SPEC_NAME,
       MODEL_CODE,
       MODEL_DESC,
       PRO_ORDER_NO,
       PLINE_CODE,
       PLINE_NAME,
       ACT_DIMATER,
       ACT_HEIGHT,
       ACT_LEN,
       ACT_LEN_MIN,
       ACT_LEN_MAX,
       ACT_COUNT,
       ACT_WEIGHT,
       ACT_THEORY_WEIGHT,
       BELONG_CODE,
       BELONG_NAME,
       STORAGE_NO,
       LOCATION_NO,
       STORAGE_ATTR,
       STORAGE_ATTR_NAME,
       STORAGE_TYPE_NO,
       STORAGE_TYPE_NAME,
       management_no,
       management_name,
       TAR_STORAGE_NO,
       TAR_LOCATION_NO,
       INSTOCK_TIME,
       OUTSTOCK_TIME,
       MEMO,
       CREATE_NAME,
       CREATE_TIME,
       PRODUCT_FLAG,
       MAT_STATUS,
       JUDGE_STD_NAME,
       JUDGE_STD_CODE,
       PONDER_GROSS_WT,
       BAL_YEAR_MONTH,
       TAR_REC_FLAG,
       ORDER_NO,
       ORDER_SEQ,
       DELIVERY_NO,
       ORD_PK,
       ORD_LN_PK,
       ORD_LN_DLY_PK)
    VALUES
      (V_OUTSTOCK_SQE,
       V_OUTSTOCK_DOC,
       '800801',
       '投料出库',
       '',
       '',
       MYROW.MAT_NO,
       MYROW.LOT_NO,
       MYROW.JUDGE_STOVE_NO,
       MYROW.BATCH_NO,
       MYROW.BATCH_GROUD_NO,
       MYROW.MATERIAL_NO,
       MYROW.MATERIAL_NAME,
       MYROW.PRODUCCODE,
       MYROW.PRODUCNAME,
       MYROW.STD_CODE,
       MYROW.STD_NAME,
       MYROW.GRADECODE,
       MYROW.GRADENAME,
       MYROW.STEELCODE,
       MYROW.STEELNAME,
       MYROW.STD_STYLE,
       MYROW.STD_STYLE_DESC,
       MYROW.SPEC_CODE,
       MYROW.SPEC_NAME,
       MYROW.MODEL_CODE,
       MYROW.MODEL_DESC,
       MYROW.PRO_ORDER_NO,
       MYROW.PLINE_CODE,
       MYROW.PLINE_NAME,
       MYROW.ACT_DIMATER,
       MYROW.ACT_HEIGHT,
       MYROW.ACT_LEN,
       MYROW.ACT_LEN_MIN,
       MYROW.ACT_LEN_MAX,
       MYROW.ACT_COUNT,
       MYROW.ACT_WEIGHT,
       MYROW.ACT_THEORY_WEIGHT,
       MYROW.BELONG_CODE,
       MYROW.BELONG_NAME,
       MYROW.MAT_GOWHERE_CODE,
       MYROW.MAT_GOWHERE_CODE || '10101',
       '',
       '',
       '',
       '',
       MYROW.MANAGEMENT_NO,
       MYROW.MANAGEMENT_NAME,
       '',
       '',
       MYROW.INSTOCK_TIME,
       V_TIME,
       MYROW.MEMO,
       '',
       V_TIME,
       MYROW.PRODUCT_FLAG,
       MYROW.MAT_STATUS,
       MYROW.JUDGE_STD_NAME,
       MYROW.JUDGE_STD_CODE,
       MYROW.PONDER_GROSS_WT,
       V_DATE,
       '1',
       MYROW.ORDER_NO,
       MYROW.ORDER_SEQ,
       MYROW.ORDER_SEQ_NO,
       MYROW.ORD_PK,
       MYROW.ORD_LN_PK,
       MYROW.ORD_LN_DLY_PK);
       INSERT INTO YDM_ZC_OUTLIST_XS
      (OUTSTOCK_SQE,
       OUTSTOCK_DOC,
       OUTSTOCK_TYPE_CODE,
       OUTSTOCK_TYPE_NAME,
       ICCAR_NO,
       VEHICLE_NO,
       MAT_NO,
       LOT_NO,
       JUDGE_STOVE_NO,
       BATCH_NO,
       BATCH_GROUD_NO,
       MATERIAL_NO,
       MATERIAL_NAME,
       PRODUCCODE,
       PRODUCNAME,
       STD_CODE,
       STD_NAME,
       GRADECODE,
       GRADENAME,
       STEELCODE,
       STEELNAME,
       STD_STYLE,
       STD_STYLE_DESC,
       SPEC_CODE,
       SPEC_NAME,
       MODEL_CODE,
       MODEL_DESC,
       PRO_ORDER_NO,
       PLINE_CODE,
       PLINE_NAME,
       ACT_DIMATER,
       ACT_HEIGHT,
       ACT_LEN,
       ACT_LEN_MIN,
       ACT_LEN_MAX,
       ACT_COUNT,
       ACT_WEIGHT,
       ACT_THEORY_WEIGHT,
       BELONG_CODE,
       BELONG_NAME,
       STORAGE_NO,
       LOCATION_NO,
       STORAGE_ATTR,
       STORAGE_ATTR_NAME,
       STORAGE_TYPE_NO,
       STORAGE_TYPE_NAME,
       management_no,
       management_name,
       TAR_STORAGE_NO,
       TAR_LOCATION_NO,
       INSTOCK_TIME,
       OUTSTOCK_TIME,
       MEMO,
       CREATE_NAME,
       CREATE_TIME,
       PRODUCT_FLAG,
       MAT_STATUS,
       JUDGE_STD_NAME,
       JUDGE_STD_CODE,
       PONDER_GROSS_WT,
       BAL_YEAR_MONTH,
       TAR_REC_FLAG,
       ORDER_NO,
       ORDER_SEQ,
       DELIVERY_NO,
       ORD_PK,
       ORD_LN_PK,
       ORD_LN_DLY_PK)
    VALUES
      (V_OUTSTOCK_SQE,
       V_OUTSTOCK_DOC,
       '800801',
       '投料出库',
       '',
       '',
       MYROW.MAT_NO,
       MYROW.LOT_NO,
       MYROW.JUDGE_STOVE_NO,
       MYROW.BATCH_NO,
       MYROW.BATCH_GROUD_NO,
       MYROW.MATERIAL_NO,
       MYROW.MATERIAL_NAME,
       MYROW.PRODUCCODE,
       MYROW.PRODUCNAME,
       MYROW.STD_CODE,
       MYROW.STD_NAME,
       MYROW.GRADECODE,
       MYROW.GRADENAME,
       MYROW.STEELCODE,
       MYROW.STEELNAME,
       MYROW.STD_STYLE,
       MYROW.STD_STYLE_DESC,
       MYROW.SPEC_CODE,
       MYROW.SPEC_NAME,
       MYROW.MODEL_CODE,
       MYROW.MODEL_DESC,
       MYROW.PRO_ORDER_NO,
       MYROW.PLINE_CODE,
       MYROW.PLINE_NAME,
       MYROW.ACT_DIMATER,
       MYROW.ACT_HEIGHT,
       MYROW.ACT_LEN,
       MYROW.ACT_LEN_MIN,
       MYROW.ACT_LEN_MAX,
       MYROW.ACT_COUNT,
       MYROW.ACT_WEIGHT,
       MYROW.ACT_THEORY_WEIGHT,
       MYROW.BELONG_CODE,
       MYROW.BELONG_NAME,
       MYROW.MAT_GOWHERE_CODE,
       MYROW.MAT_GOWHERE_CODE || '10101',
       '',
       '',
       '',
       '',
       MYROW.MANAGEMENT_NO,
       MYROW.MANAGEMENT_NAME,
       '',
       '',
       MYROW.INSTOCK_TIME,
       V_TIME,
       MYROW.MEMO,
       '',
       V_TIME,
       MYROW.PRODUCT_FLAG,
       MYROW.MAT_STATUS,
       MYROW.JUDGE_STD_NAME,
       MYROW.JUDGE_STD_CODE,
       MYROW.PONDER_GROSS_WT,
       V_DATE,
       '1',
       MYROW.ORDER_NO,
       MYROW.ORDER_SEQ,
       MYROW.ORDER_SEQ_NO,
       MYROW.ORD_PK,
       MYROW.ORD_LN_PK,
       MYROW.ORD_LN_DLY_PK);
    V_ICOUNT := V_ICOUNT + 1;
    DELETE FROM YDM_ZC_BUTTRESS S WHERE S.MAT_NO = MYROW.MAT_NO;
  END LOOP;
END;
   ]]>
</query>
<query id = "FrmLoadMaterialOut.cancelLoadMaterial" desc = "撤销投料">
<![CDATA[
DECLARE
  V_TIME         MAT_ZC_M.JUDGE_RESULT_TIME%TYPE := SYSDATE;
  V_DATE         YDM_ZC_OUTLIST.BAL_YEAR_MONTH%TYPE := TO_CHAR(SYSDATE,
                                                               'YYYYMM');
BEGIN
  
  FOR MYROW IN (SELECT T1.*
                  FROM (SELECT T.*
                          FROM YDM_ZC_OUTLIST T
                         WHERE T.LOT_NO = '#LOT_NO#'
                           AND T.PRO_ORDER_NO = '#PRO_ORDER_NO#'
                           AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
                           AND T.BATCH_NO = '#BATCH_NO#'
                           AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
                           AND T.OUTSTOCK_DOC = '#OUTSTOCK_DOC#'                          
                           AND T.OUTSTOCK_TYPE_CODE = '800801'
                           AND T.BELONG_CODE || '&' LIKE (upper(?) || '%')
                         ORDER BY T.MAT_NO DESC) T1
                 WHERE ROWNUM <= #ACT_COUNT#) LOOP
    INSERT INTO YDM_ZC_BUTTRESS
      (JUDGE_STOVE_NO,
       BATCH_NO,
       BATCH_GROUD_NO,
       STORAGE_NO,
       LOCATION_NO,
       STORAGE_TYPE_NO,
       STORAGE_TYPE_NAME,
       CREATE_NAME,
       MAT_NO,
       CREATE_TIME,
       MANAGEMENT_NO,
       MANAGEMENT_NAME,
       DEPARTMENT_CODE,
       DEPARTMENT_DESC)
    VALUES
      (MYROW.JUDGE_STOVE_NO,
       MYROW.BATCH_NO,
       MYROW.BATCH_GROUD_NO,
       MYROW.STORAGE_NO,
       MYROW.STORAGE_NO || '100101',
       '',
       '',
       '#CREATE_NAME#',
       MYROW.MAT_NO,
       V_TIME,
       '#MANAGEMENT_NO#',
       '#MANAGEMENT_NAME#',
       '#DEPARTMENT_CODE#',
       '#DEPARTMENT_DESC#');
    DELETE FROM YDM_ZC_OUTLIST S WHERE S.MAT_NO = MYROW.MAT_NO AND S.OUTSTOCK_DOC = MYROW.OUTSTOCK_DOC;
  END LOOP;
END;
]]>
</query>
</queryMap>