LIMSServer/WebRoot/WEB-INF/query/com/steering/lims/data/pipe/FrmMakeCheck.xml

<?xml version="1.0" encoding="UTF-8"?>

<queryMap desc = "检验周期抽查">

<query id = "FrmMakeCheck.doQueryData" desc = "查询抽查记录">
select t.*,
       DECODE(T.IS_OK, '1', '√') IS_OK_DESC,
       DECODE(T.CHECK_TYPE, '0', '自动抽查', '1', '手动抽查') CHECK_TYPE_DESC
  from PIPE_CHECKCONSIGN_MAKE_CHECKS t
 WHERE T.CHECK_TIME = ?
   AND T.DEPT_ID = ?
</query>

<query id = "FrmMakeCheck.selectCheckNoIsOk" desc = "查询是否可以手动抽查">
<![CDATA[ 
select COUNT(1) acount
  from PIPE_CHECKCONSIGN_MAKE_CHECKS t
 WHERE T.CHECK_TIME = ?
   AND T.DEPT_ID = ?
   AND T.CHECK_NO = ?
]]>
</query>

<query id = "FrmMakeCheck.doQueryAuditData" desc = "查询报出的数据">
select T1.CHECK_NO,
       T1.HEAT_NO,
       T1.STEEL_GRADE,
       T1.STEEL_NO,
       T1.DIMATER || '*' || T1.HEIGHT PIPE_SIZE,
       DECODE(T1.CRAFT_SOURCE,
              '0',
              '生产样',
              '1',
              '首日检',
              '2',
              '科研样',
              '3',
              '生产预备样',
              '4',
              '外购管委托',
              '5',
              '技术中心内部委托',
              '6',
              '委外热处理样',
              '7',
              '生产补样') CRAFT_SOURCE,
       DECODE(T1.ISPRODUCER, '0', '不监制', '1', '监制') ISPRODUCER,
       MAX(T.LAB_RECEIVE_TIME) LAB_RECEIVE_TIME,
       MAX(T.AUDIT_TIME) AUDIT_TIME,
       T1.REMARK,
       T1.PRODUCT_STD
  from PIPE_CHECKCONSIGN_DETAIL t, PIPE_CHECKCONSIGN_BASEINFO T1
 WHERE T.FLAG >= 4
   AND T.CHECK_NO = T1.CHECK_NO
   AND TO_CHAR(T.AUDIT_TIME, 'YYYY-MM-DD') = ?
   AND T.DEPT_ID = ?
 GROUP BY T1.CHECK_NO,
          T1.HEAT_NO,
          T1.STEEL_GRADE,
          T1.STEEL_NO,
          T1.DIMATER,
          T1.HEIGHT,
          T1.CRAFT_SOURCE,
          T1.ISPRODUCER,
          T1.REMARK,
          T1.PRODUCT_STD
</query>

<query id = "FrmMakeCheck.doQueryCheckCount" desc = "查询发出报告数和抽查报告数">
select COUNT(DISTINCT T.CHECK_NO) sumCount,
       CEIL(COUNT(DISTINCT T.CHECK_NO) * 0.05) checkCount
  from PIPE_CHECKCONSIGN_DETAIL t
 WHERE T.FLAG >= 4
   AND TO_CHAR(T.AUDIT_TIME, 'YYYY-MM-DD') = ?
   AND T.DEPT_ID = ?
</query>

<query id = "FrmMakeCheck.deleteChechData" desc = "删除抽查记录">
DELETE from PIPE_CHECKCONSIGN_MAKE_CHECKS t
 WHERE T.CHECK_TIME = ?
   AND T.DEPT_ID = ?
</query>

<query id = "FrmMakeCheck.addChechData" desc = "新增抽查记录">
<![CDATA[ 
DECLARE
  V_CHECK_TIME PIPE_CHECKCONSIGN_MAKE_CHECKS.CHECK_TIME%type := ?;
  V_DEPT_ID    PIPE_CHECKCONSIGN_MAKE_CHECKS.DEPT_ID%type := ?;
  V_CHECK_NAME PIPE_CHECKCONSIGN_MAKE_CHECKS.CHECK_NAME%type := ?;
  V_COUNT      PIPE_CHECKCONSIGN_BASEINFO.JG_PRINT_COUNT%type := 1;
BEGIN
  FOR MYROW IN (select *
                  from (select T.CHECK_NO,
                               MAX(T.LAB_RECEIVE_TIME) LAB_RECEIVE_TIME,
                               MAX(T.AUDIT_TIME) AUDIT_TIME
                          from PIPE_CHECKCONSIGN_DETAIL t
                         WHERE T.FLAG >= 4
                           AND TO_CHAR(T.AUDIT_TIME, 'YYYY-MM-DD') =
                               V_CHECK_TIME
                           AND T.DEPT_ID = V_DEPT_ID
                         GROUP BY T.CHECK_NO
                         order by dbms_random.random)
                 where rownum <= ?) LOOP
  
    INSERT INTO PIPE_CHECKCONSIGN_MAKE_CHECKS
      (SEQ,
       CHECK_NO,
       CHECK_TIME,
       CHECK_NAME,
       DEPT_ID,
       LAB_RECEIVE_TIME,
       AUDIT_TIME)
    VALUES
      (V_COUNT,
       MYROW.CHECK_NO,
       V_CHECK_TIME,
       V_CHECK_NAME,
       V_DEPT_ID,
       MYROW.LAB_RECEIVE_TIME,
       MYROW.AUDIT_TIME);
  
    V_COUNT := V_COUNT + 1;
  END LOOP;
END;
]]>
</query>

<query id = "FrmMakeCheck.handCheck" desc = "手动抽查">
<![CDATA[ 
DECLARE
  V_CHECK_TIME PIPE_CHECKCONSIGN_MAKE_CHECKS.CHECK_TIME%type := ?;
  V_DEPT_ID    PIPE_CHECKCONSIGN_MAKE_CHECKS.DEPT_ID%type := ?;
  V_CHECK_NAME PIPE_CHECKCONSIGN_MAKE_CHECKS.CHECK_NAME%type := ?;
  V_CHECK_NO   PIPE_CHECKCONSIGN_MAKE_CHECKS.CHECK_NO%type := ?;
  V_COUNT      PIPE_CHECKCONSIGN_BASEINFO.JG_PRINT_COUNT%type := NULL;
BEGIN
  SELECT COUNT(1) + 1
    INTO V_COUNT
    FROM PIPE_CHECKCONSIGN_MAKE_CHECKS T
   WHERE T.CHECK_TIME = V_CHECK_TIME
     AND T.DEPT_ID = V_DEPT_ID;

  FOR MYROW IN (select T.CHECK_NO,
                       MAX(T.LAB_RECEIVE_TIME) LAB_RECEIVE_TIME,
                       MAX(T.AUDIT_TIME) AUDIT_TIME
                  from PIPE_CHECKCONSIGN_DETAIL t
                 WHERE T.FLAG >= 4
                   AND TO_CHAR(T.AUDIT_TIME, 'YYYY-MM-DD') = V_CHECK_TIME
                   AND T.DEPT_ID = V_DEPT_ID
                   AND T.CHECK_NO = V_CHECK_NO
                 GROUP BY T.CHECK_NO) LOOP
  
    INSERT INTO PIPE_CHECKCONSIGN_MAKE_CHECKS
      (SEQ,
       CHECK_NO,
       CHECK_TIME,
       CHECK_NAME,
       DEPT_ID,
       LAB_RECEIVE_TIME,
       AUDIT_TIME,
       CHECK_TYPE)
    VALUES
      (V_COUNT,
       MYROW.CHECK_NO,
       V_CHECK_TIME,
       V_CHECK_NAME,
       V_DEPT_ID,
       MYROW.LAB_RECEIVE_TIME,
       MYROW.AUDIT_TIME,
       '1');
  
  END LOOP;

END;
]]>
</query>


</queryMap>