LIMSServer/WebRoot/WEB-INF/query/com/steering/mes/port/vrp/FrmHttBatchSaplmeNew.xml

<?xml version="1.0" encoding="UTF-8"?>
<queryMap desc = "热处理分批取样">
<query id = "FrmHttBatchSaplmeNew.doQueryPlan" desc = "查询轧管炉计划">
    SELECT T.*,NVL(PLINE_CODE_W, PLINE_CODE) PLINE_CODE,NVL(PLINE_NAME_W, PLINE_NAME)PLINE_NAME,
       (SELECT C.CRAFT_PATH
          FROM CRAFT_ORD_DESIGN C
         WHERE C.ORD_LN_PK = T.ORD_LN_PK
           AND C.CRAFT_SEQ = T.CRAFT_SEQ) CRAFT_PATH
  FROM (SELECT T.*, S.ORD_LN_PK
          FROM PLN_ZY_RCL_M T, PLN_SALEORD S
         WHERE T.ORD_LN_DLY_PK = S.ORD_LN_DLY_PK
         AND (T.PER_STATUS >= '00' OR T.PER_STATUS IS NULL AND T.PLANSTATUS = '40')) T
 WHERE 1 = 1
</query>
<query id = "FrmHttBatchSaplmeNew.doQueryPipeBaseInfo" desc = "查询已生成委托信息">
SELECT T.LOT_NO ZY_BATCH_ID, T.HEAT_NO JUDGE_STOVE_NO, T.CHECK_NO,DECODE(T.CRAFT_SOURCE,'0','生产样','1','首日检','3','生产预备样')CRAFT_SOURCE,
T.LOT_NO_GROUP,TO_CHAR(T.CONSIGN_TIME,'YYYY-MM-DD HH24:MI:SS')CONSIGN_TIME,T.CONSIGN_NAME,T.HEAT_PLAN_NO
  FROM PIPE_CHECKCONSIGN_BASEINFO T
 WHERE T.PROCESS_CODE  = 'F'
 AND T.CRAFT_SOURCE IN('0','1','3')
 AND T.CHECK_COUNT = '0'
</query>
<query id = "FrmHttBatchSaplmeNew.doQueryBasePlan" desc = "查询炉计划基础信息">
SELECT HEAT_PLAN_NO,
       GX_PRO_SEQ,
       ZY_BATCH_ID,
       STOVE_NO,
       JUDGE_STOVE_NO,
       BATCH_NO,
       PLANSTATUS,
       PER_STATUS,
       BESIDE_STATUS,
       UPPER_HEATPLAN_ID,
       PRO_PLAN_ID,
       GX_PLAN_NO,
       PLINE_CODE,
       PLINE_NAME,
       PROCESS_CODE_C,
       PROCESS_DESC_C,
       UPPER_PROCESS_CODE,
       NEXT_PROCESS_CODE,
       GOWHERE_CODE,
       GOWHERE_NAME,
       PROD_STANDARD,
       OUTPUT_STANDARD,
       ISENDGX,
       IF_MATCH_ODD,
       IF_DO_HEAT_PLAN,
       ORDER_SOURCE,
       ORD_LN_DLY_PK,
       ORDER_NO ||'/'||ORDER_SEQ  ORDER_NO,
       ORDER_SEQ,
       DELIVERY_NO,
       REQ_BL_ID,
       IF_EXPORT,
       PRIORITY,
       PRIORITY_MEMO,
       PRO_MONTH,
       PRO_DAY,
       BAL_YEAR_MONTH,
       IF_MONITOR,
       PRDCR_NO,
       MONITOR_POINT,
       BOM,
       WHOLE_BACKLOG,
       WHOLE_BACKLOG_DESC,
       STATION_ROAD,
       CIC,
       PIC,
       SIC,
       DIC,
       CRAFT_FILE_NO,
       CRAFT_FILE_MAN,
       CRAFT_SEQ,
       SEC_CRAFT_FILE_NO,
       STEELCODE,
       STEELNAME,
       GRADECODE,
       GRADENAME,
       PRODUCCODE,
       PRODUCNAME,
       MODEL_CODE,
       MODEL_DESC,
       INWL_ID,
       INWL_DESC,
       OUTWL_ID,
       OUTWL_DESC,
       OUTDIAMETER,
       WALLTHICK,
       LENGTHMIN,
       LENGTHMAX,
       OUTDIAMETER_IN,
       WALLTHICK_IN,
       OUTNUM_CUT,
       LENGTH_IN,
       LENGTHMAX_IN,
       LENGTHMIN_IN,
       PLN_INSINGLE_NUM,
       PLN_INSINGLE_WT,
       PLN_INDOUBLE_NUM,
       PLN_INDOUBLE_WT,
       PLN_OUTSINGLE_NUM,
       PLN_OUTSINGLE_W,
       PLN_OUTDOUBLE_NUM,
       PLN_OUTDOUBLE_W,
       CREATE_NAME,
       CREATE_TIME,
       UPDATE_NAME,
       UPDATE_TIME,
       DOWNMAN,
       DOWNTIME,
       INDEX_SEQ,
       SPEC_CODE,
       SPEC_NAME,
       STD_CODE,
       STD_NAME,
       STD_STYLE,
       STD_STYLE_DESC,
       DECISION,
       PROCESS_SEQ,
       IS_BATCH,
       CHECK_NO,
       FEED_HEAT_NO,
       FLAG_STOVE_NO,
       MEMO,
       ZY_BATCH_ID_ZG,
       REAL_PROCESS_SEQ,
       HEAT_PLAN_NO_OLD,
       IF_PRODUCT
       FROM PLN_ZY_RCL_M T WHERE NVL(T.ZY_BATCH_ID,'/') = NVL(?,'/') AND T.JUDGE_STOVE_NO = ?
       AND T.HEAT_PLAN_NO = ?
</query>
<query id = "FrmHttBatchSaplmeNew.doQueryCheckPlan" desc = "查询检验计划信息">
SELECT T.*
  FROM CRAFT_SAMPLING_M T WHERE T.PROCESS_CODE = 'F'
   AND T.ORD_LN_PK = ?
   AND T.CRAFT_NO = ?
   AND T.CRAFT_SEQ = ?
   AND (T.STOVE_NUM = ? OR T.STOVE_NUM IS NULL)
</query>
<query id = "FrmHttBatchSaplmeNew.doQueryCheckPlanDetial" desc = "查询检验计划信息">
SELECT T.*
  FROM CRAFT_SAMPLING_DETAIL T WHERE T.PROCESS_CODE = 'F'
   AND T.ORD_LN_PK = ?
   AND T.CRAFT_NO = ?
   AND T.CRAFT_SEQ = ?
</query>
<query id = "FrmHttBatchSaplmeNew.doQueryMaxBatchNo" desc = "查询最大批号">
SELECT NVL(MAX(SUBSTR(T.BATCH_NO,3,3)),0) + 1 BATCH_NO FROM HTT_CRACK_DETECTION_ET T WHERE T.HEAT_PLAN_NO = ? AND T.PLINE_CODE = ?
</query>
<query id = "FrmHttBatchSaplmeNew.doQueryMaxBatchNoPipe" desc = "查询最大批号">
SELECT NVL(MAX(SUBSTR(S.BATCH_NO, 3, 3)), 0) + 1 BATCH_NO
  FROM PIPE_CHECKCONSIGN_BASEINFO T, PIPE_CHECKCONSIGN_DETAIL S
 WHERE T.CHECK_NO = S.CHECK_NO
   AND T.HEAT_NO = ?
   AND T.PLINE_CODE = ?
   AND T.PROCESS_CODE = 'F'
   AND T.CRAFT_SOURCE IN('0','1')
</query>
<query id = "FrmHttBatchSaplmeNew.doQueryRack" desc = "查询管号队列">
SELECT ROWNUM SEQ,
       MAT_NO,
       BAR_CODE,
       SAMPLE_PIPE_LEN_A,
       SAMPLE_PIPE_LEN_B,
       SAMPLE_PIPE_LEN_C,
       SAMPLE_PIPE_LEN_D,
       SAMPLE_PIPE_LEN_M,
       SAMPLE_PIPE_LEN_E,
       SAMPLE_PIPE_LEN_F,
       SAMPLE_PIPE_LEN_P,
       SAMPLE_PIPE_LEN_Q,
       HEAT_PLAN_NO,
       JUDGE_STOVE_NO,
       BATCH_NO,
       PHY_BATCH_NO,
       MAT_STATUS,
       ACT_LEN,
       IS_SAMPLE_PIPE,
       IS_BATCH
  FROM (SELECT T.MAT_NO,
               T.BAR_CODE,
               T.SAMPLE_PIPE_LEN_A,
               T.SAMPLE_PIPE_LEN_B,
               T.SAMPLE_PIPE_LEN_C,
               T.SAMPLE_PIPE_LEN_D,
               T.SAMPLE_PIPE_LEN_M,
               T.SAMPLE_PIPE_LEN_E,
               T.SAMPLE_PIPE_LEN_F,
               T.SAMPLE_PIPE_LEN_P,
               T.SAMPLE_PIPE_LEN_Q,
               T.HEAT_PLAN_NO,
               T.JUDGE_STOVE_NO,
               T.PHY_BATCH_NO,
               T.BATCH_NO,
               T.ACT_LEN,
               DECODE(T.MAT_STATUS, '00', '是', '否') MAT_STATUS,
               T.IS_SAMPLE_PIPE,
               T.IS_BATCH
          FROM PORT_HTT_BATCH_SAMPLE_RESULT T
         WHERE T.HEAT_PLAN_NO = ?
           AND T.JUDGE_STOVE_NO = ?
           AND (T.MAT_STATUS IN ('00','20') OR (T.MAT_STATUS = '10' AND T.OP_PROCESS NOT IN('600201','600202','600203','600204')))
           AND T.PROCESS_SEQ = (SELECT REAL_PROCESS_SEQ FROM PLN_ZY_RCL_M WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO )
         ORDER BY NVL(T.PHY_BATCH_NO,'99999'),T.MAT_STATUS,T.MAT_NO ASC)
</query>
<query id = "FrmHttBatchSaplmeNew.selectPortHttResult" desc = "查询管号队列分批情况">
SELECT COUNT(1) ACOUNT
  FROM PORT_HTT_BATCH_SAMPLE_RESULT T
 WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
   AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
   AND T.PHY_BATCH_NO IS NULL
   AND T.PROCESS_SEQ = (SELECT REAL_PROCESS_SEQ FROM PLN_ZY_RCL_M WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO) 
   AND (T.MAT_STATUS IN ('00','20') OR (T.MAT_STATUS = '10' AND T.OP_PROCESS NOT IN('600201','600202','600203','600204')))
   AND T.MAT_NO = '#MAT_NO#'
</query>
<query id = "FrmHttBatchSaplmeNew.doQueryRackQ" desc = "查询管号队列">
SELECT ROWNUM SEQ,
       MAT_NO,
       BAR_CODE,
       SAMPLE_PIPE_LEN_A,
       SAMPLE_PIPE_LEN_B,
       SAMPLE_PIPE_LEN_C,
       SAMPLE_PIPE_LEN_D,
       SAMPLE_PIPE_LEN_M,
       SAMPLE_PIPE_LEN_E,
       SAMPLE_PIPE_LEN_F,
       SAMPLE_PIPE_LEN_P,
       SAMPLE_PIPE_LEN_Q,
       HEAT_PLAN_NO,
       JUDGE_STOVE_NO,
       BATCH_NO,
       PHY_BATCH_NO,
       MAT_STATUS,
       ACT_LEN,
       IS_SAMPLE_PIPE,
       IS_BATCH
  FROM (SELECT T.MAT_NO,
               T.BAR_CODE,
               '' SAMPLE_PIPE_LEN_A,
               '' SAMPLE_PIPE_LEN_B,
               '' SAMPLE_PIPE_LEN_C,
               '' SAMPLE_PIPE_LEN_D,
               '' SAMPLE_PIPE_LEN_M,
               '' SAMPLE_PIPE_LEN_E,
               '' SAMPLE_PIPE_LEN_F,
               '' SAMPLE_PIPE_LEN_P,
               '' SAMPLE_PIPE_LEN_Q,
               T.HEAT_PLAN_NO,
               T.JUDGE_STOVE_NO,
               T.PHY_BATCH_NO,
               T.BATCH_NO,
               T.ACT_LEN,
               DECODE(T.MAT_STATUS, '00', '是', '否') MAT_STATUS,
               T.IS_SAMPLE_PIPE,
               T.IS_BATCH
          FROM PORT_HTT_BATCH_SAMPLE_RESULT T
         WHERE T.HEAT_PLAN_NO = ?
           AND T.JUDGE_STOVE_NO = ?
           AND T.MAT_STATUS IN ('00','20')
           --AND (T.MAT_STATUS IN ('00','20') OR (T.MAT_STATUS = '10' AND T.OP_PROCESS NOT IN('600201','600202','600203','600204')))
           AND T.PROCESS_SEQ = (SELECT REAL_PROCESS_SEQ FROM PLN_ZY_RCL_M WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO )
         ORDER BY NVL(T.PHY_BATCH_NO,'99999'),T.MAT_STATUS,T.MAT_NO ASC)
</query>
<query id = "FrmHttBatchSaplmeNew.doQueryBatchRack" desc = "查询管号队列">
SELECT ROWNUM SEQ,
       MAT_NO,
       SAMPLE_PIPE_LEN_A,
       SAMPLE_PIPE_LEN_B,
       SAMPLE_PIPE_LEN_C,
       SAMPLE_PIPE_LEN_D,
       SAMPLE_PIPE_LEN_M,
       SAMPLE_PIPE_LEN_E,
       SAMPLE_PIPE_LEN_F,
       SAMPLE_PIPE_LEN_P,
       SAMPLE_PIPE_LEN_Q,
       HEAT_PLAN_NO,
       JUDGE_STOVE_NO,
       BATCH_NO,
       PHY_BATCH_NO,
       MAT_STATUS,
       ACT_LEN,
       IS_SAMPLE_PIPE,
       IS_BATCH
  FROM (SELECT T.MAT_NO,
               T.SAMPLE_PIPE_LEN_A,
               T.SAMPLE_PIPE_LEN_B,
               T.SAMPLE_PIPE_LEN_C,
               T.SAMPLE_PIPE_LEN_D,
               T.SAMPLE_PIPE_LEN_M,
               T.SAMPLE_PIPE_LEN_E,
               T.SAMPLE_PIPE_LEN_F,
               T.SAMPLE_PIPE_LEN_P,
               T.SAMPLE_PIPE_LEN_Q,
               T.HEAT_PLAN_NO,
               T.JUDGE_STOVE_NO,
               T.PHY_BATCH_NO,
               T.BATCH_NO,
               T.ACT_LEN,
               DECODE(T.MAT_STATUS, '00', '是', '否') MAT_STATUS,
               T.IS_SAMPLE_PIPE,
               T.IS_BATCH
          FROM PORT_HTT_BATCH_SAMPLE_RESULT T
         WHERE 
         --T.HEAT_PLAN_NO = ?
          -- AND 
           T.JUDGE_STOVE_NO = ?
           AND T.PHY_BATCH_NO = ?
           AND (T.MAT_STATUS IN ('00','20') OR (T.MAT_STATUS = '10' AND T.OP_PROCESS NOT IN('600201','600202','600203','600204')))
           AND T.PROCESS_SEQ = (SELECT REAL_PROCESS_SEQ FROM PLN_ZY_RCL_M WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO )
         ORDER BY NVL(T.PHY_BATCH_NO,'99999'),T.MAT_STATUS,T.MAT_NO ASC)
</query>
<query id = "FrmHttBatchSaplmeNew.doQueryPostion" desc = "查询基础取样位置">
SELECT T.BASENAME, T.BASECODE
  FROM COM_BASE_INFO T
 WHERE T.BASECODE IN ('401201', '401202', '401217', '401218', '401219',
        '401220', '401221', '401222', '401223')
 ORDER BY T.BASECODE
</query>
<query id = "FrmHttBatchSaplmeNew.updateMilPlan" desc = "修改炉计划标识">
UPDATE PLN_ZY_RCL_M T
   SET T.IS_BATCH = '#IS_BATCH#'
 WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
   AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
</query>
<query id = "FrmHttBatchSaplmeNew.SelectPhyBatchNo" desc = "查询性能批号">
SELECT NVL(T.PHY_BATCH_NO,'/')PHY_BATCH_NO FROM PORT_HTT_BATCH_SAMPLE_RESULT T WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
   AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
   AND T.MAT_NO = '#MAT_NO#'
</query>
<query id = "FrmHttBatchSaplmeNew.updatePortMilResult" desc = "修改样管管号队列">
UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
   SET T.IS_SAMPLE_PIPE  = '#IS_SAMPLE_PIPE#',
       T.PHY_BATCH_NO        = '#PHY_BATCH_NO#',
       T.SAMPLE_PIPE_LEN_A = '#SAMPLE_PIPE_LEN_A#',
       T.PHY_CODE_GROUP  = '#PHY_CODE_GROUP#',
       T.SAMPLE_PIPE_LEN_B = '#SAMPLE_PIPE_LEN_B#',
       T.PHY_CODE_GROUPB  = '#PHY_CODE_GROUPB#',
       T.SAMPLE_PIPE_LEN_C = '#SAMPLE_PIPE_LEN_C#',
       T.PHY_CODE_GROUPC  = '#PHY_CODE_GROUPC#',
       T.SAMPLE_PIPE_LEN_D = '#SAMPLE_PIPE_LEN_D#',
       T.PHY_CODE_GROUPD  = '#PHY_CODE_GROUPD#',
       T.SAMPLE_PIPE_LEN_M = '#SAMPLE_PIPE_LEN_M#',
       T.PHY_CODE_GROUPM  = '#PHY_CODE_GROUPM#',
       
       T.SAMPLE_PIPE_LEN_E = '#SAMPLE_PIPE_LEN_E#',
       T.PHY_CODE_GROUPE  = '#PHY_CODE_GROUPE#',
       T.SAMPLE_PIPE_LEN_F = '#SAMPLE_PIPE_LEN_F#',
       T.PHY_CODE_GROUPF  = '#PHY_CODE_GROUPF#',
       T.SAMPLE_PIPE_LEN_P = '#SAMPLE_PIPE_LEN_P#',
       T.PHY_CODE_GROUPP  = '#PHY_CODE_GROUPP#',
       T.SAMPLE_PIPE_LEN_Q = '#SAMPLE_PIPE_LEN_Q#',
       T.PHY_CODE_GROUPQ  = '#PHY_CODE_GROUPQ#',
       T.CRAFT_SOURCE = '#CRAFT_SOURCE#',
       T.SAMPLE_PIPE_LEN = TO_NUMBER(NVL('#SAMPLE_PIPE_LEN_A#',0))+TO_NUMBER(NVL('#SAMPLE_PIPE_LEN_B#',0))+TO_NUMBER(NVL('#SAMPLE_PIPE_LEN_C#',0))+TO_NUMBER(NVL('#SAMPLE_PIPE_LEN_D#',0)) + TO_NUMBER(NVL('#SAMPLE_PIPE_LEN_M#',0))+ TO_NUMBER(NVL('#SAMPLE_PIPE_LEN_E#',0))+ TO_NUMBER(NVL('#SAMPLE_PIPE_LEN_F#',0))+ TO_NUMBER(NVL('#SAMPLE_PIPE_LEN_P#',0))+ TO_NUMBER(NVL('#SAMPLE_PIPE_LEN_Q#',0)),
       T.GET_SAMPLE_NAME = '#GET_SAMPLE_NAME#',
       T.GET_SAMPLE_TIME = TO_DATE('#GET_SAMPLE_TIME#','YYYY-MM-DD HH24:MI:SS'),
       T.GET_SAMPLE_SHIFT = '#GET_SAMPLE_SHIFT#',
       T.GET_SAMPLE_CLASS = '#GET_SAMPLE_CLASS#',
       T.IS_BATCH = '#IS_BATCH#'
 WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
   AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
   AND T.MAT_NO = '#MAT_NO#'
   AND T.IS_SAMPLE_PIPE = '0'
   AND T.IS_BATCH = '0'
   AND T.PROCESS_SEQ = (SELECT REAL_PROCESS_SEQ FROM PLN_ZY_RCL_M WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO )
</query>
<query id = "FrmHttBatchSaplmeNew.updatePortMilResultSample" desc = "取样完成">
UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
   SET T.IS_SAMPLE_PIPE  = '#IS_SAMPLE_PIPE#',
       #LEN# = TO_NUMBER(NVL(#LEN#,0)) + TO_NUMBER('##PIPE_LEN##'),
       T.CRAFT_SOURCE = '#CRAFT_SOURCE#',
       T.SAMPLE_PIPE_LEN = TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN,0))+TO_NUMBER(NVL('##PIPE_LEN##',0)),
       T.GET_SAMPLE_NAME = '#GET_SAMPLE_NAME#',
       T.GET_SAMPLE_TIME = TO_DATE('#GET_SAMPLE_TIME#','YYYY-MM-DD HH24:MI:SS'),
       T.GET_SAMPLE_SHIFT = '#GET_SAMPLE_SHIFT#',
       T.GET_SAMPLE_CLASS = '#GET_SAMPLE_CLASS#',
       T.IS_BATCH = '#IS_BATCH#'
 WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
   AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
   AND T.MAT_NO = '#MAT_NO#'
   --AND T.IS_BATCH = '0'
   --AND T.IS_SAMPLE_PIPE = '0'
   AND T.PROCESS_SEQ = (SELECT REAL_PROCESS_SEQ FROM PLN_ZY_RCL_M WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO )
</query>
<query id = "FrmHttBatchSaplmeNew.updateMilPortBacth" desc = "分批完成修改进程管号队列">
UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
   SET 
       T.PHY_BATCH_NO        = '#PHY_BATCH_NO#'
 WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
   AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
   AND T.MAT_NO = '#MAT_NO#'
   AND T.PROCESS_SEQ = (SELECT REAL_PROCESS_SEQ FROM PLN_ZY_RCL_M WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO )
   AND T.PHY_BATCH_NO IS NULL
</query>
<query id = "FrmHttBatchSaplmeNew.updateMilPortBacthNo" desc = "拆批">
UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
   SET 
       T.PHY_BATCH_NO        = ''
 WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
   AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
   AND T.MAT_NO = '#MAT_NO#'
   AND T.PROCESS_SEQ = (SELECT REAL_PROCESS_SEQ FROM PLN_ZY_RCL_M WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO )
</query>
<query id = "FrmHttBatchSaplmeNew.selectIsBacth" desc = "查询分批取样标识">
SELECT T.IS_BATCH FROM PLN_ZY_RCL_M T WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#' AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
</query>
<query id = "FrmHttBatchSaplmeNew.cancelBatchSeting" desc = "撤销分批取样">
DECLARE
BEGIN
  UPDATE PLN_ZY_RCL_M T
     SET T.IS_BATCH = '0'
   WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
     AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#';
  FOR MYROW IN (SELECT *
                  FROM PORT_HTT_BATCH_SAMPLE_RESULT T
                 WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
                   AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
                   AND T.PROCESS_SEQ = (SELECT REAL_PROCESS_SEQ FROM PLN_ZY_RCL_M WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO )
                   AND T.SAMPLE_PIPE_LEN_M IS NOT NULL) LOOP
    UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
       SET T.ACT_LEN           = T.ACT_LEN * 2,
           T.ACT_WEIGHT        = T.ACT_WEIGHT * 2,
           T.ACT_THEORY_WEIGHT = T.ACT_THEORY_WEIGHT * 2
     WHERE T.MAT_NO = MYROW.MAT_NO
     AND T.PROCESS_SEQ = (SELECT REAL_PROCESS_SEQ FROM PLN_ZY_RCL_M WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO );
    DELETE FROM PORT_HTT_BATCH_SAMPLE_RESULT T
     WHERE T.MAT_NO_OLD = MYROW.MAT_NO;
  END LOOP;
  UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
     SET T.PHY_BATCH_NO      = '',
         T.IS_SAMPLE_PIPE    = '0',
         T.SAMPLE_PIPE_LEN   = TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN,0)) - TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_A,0))- TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_B,0))- TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_C,0))- TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_D,0))- TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_E,0))- TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_F,0))- TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_P,0))- TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_Q,0))- TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_M,0)),
         T.SAMPLE_PIPE_LEN_A = '',
         T.SAMPLE_PIPE_LEN_B = '',
         T.SAMPLE_PIPE_LEN_C = '',
         T.SAMPLE_PIPE_LEN_D = '',
         T.SAMPLE_PIPE_LEN_E = '',
         T.SAMPLE_PIPE_LEN_F = '',
         T.SAMPLE_PIPE_LEN_P = '',
         T.SAMPLE_PIPE_LEN_Q = '',
         T.PHY_CODE_GROUPC   = '',
         T.PHY_CODE_GROUPD   = '',
         T.PHY_CODE_GROUPE   = '',
         T.PHY_CODE_GROUPF   = '',
         T.PHY_CODE_GROUPP   = '',
         T.PHY_CODE_GROUPQ   = '',
         T.SAMPLE_PIPE_LEN_M = '',
         T.PHY_CODE_GROUPM   = '',
         T.GET_SAMPLE_NAME   = '',
         T.GET_SAMPLE_TIME   = '',
         T.GET_SAMPLE_SHIFT  = '',
         T.GET_SAMPLE_CLASS  = '',
         T.IS_BATCH          = '0',
         T.CRAFT_SOURCE = '0'
   WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
     AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
     AND T.PROCESS_SEQ = (SELECT REAL_PROCESS_SEQ FROM PLN_ZY_RCL_M WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO );
END;
</query>
<query id = "FrmHttBatchSaplmeNew.selectBacthCheckCount" desc = "查询大于该批号下委托样管数">
SELECT COUNT(1)ACOUNT
  FROM PORT_HTT_BATCH_SAMPLE_RESULT T
 WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
   AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
   AND T.PHY_BATCH_NO >= '#PHY_BATCH_NO#'
   AND T.IS_SAMPLE_PIPE = '1'
</query>
<query id = "FrmHttBatchSaplmeNew.selectSampleCheckCount" desc = "查询批下委托样管数">
SELECT COUNT(1)ACOUNT
  FROM PORT_HTT_BATCH_SAMPLE_RESULT T
 WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
   AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
   AND T.PHY_BATCH_NO = '#PHY_BATCH_NO#'
   AND T.CHECK_NO IS NOT NULL
</query>
<query id = "FrmHttBatchSaplmeNew.selectCheckCount" desc = "查询该炉已委托支数">
SELECT COUNT(1)ACOUNT
  FROM PORT_HTT_BATCH_SAMPLE_RESULT T
 WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
   AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
   AND T.CHECK_NO IS NOT NULL
</query>
<query id = "FrmHttBatchSaplmeNew.cancelBatch" desc = "取消分批完成">
DECLARE
BEGIN
  UPDATE PLN_ZY_RCL_M T
     SET T.IS_BATCH = '1'
   WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
     AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#';
  UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
     SET T.PHY_BATCH_NO = '',T.IS_BATCH = '0',T.BAR_CODE = ''
   WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
     AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
     AND T.PHY_BATCH_NO >= '#PHY_BATCH_NO#'
     AND T.PROCESS_SEQ = (SELECT REAL_PROCESS_SEQ FROM PLN_ZY_RCL_M WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO );
END;
</query>
<!-- DECLARE
  ACOUNT PORT_HTT_BATCH_SAMPLE_RESULT.ACT_COUNT%TYPE := NULL;
BEGIN
  FOR MYROW IN (SELECT *
                  FROM PORT_HTT_BATCH_SAMPLE_RESULT T
                 WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
                   AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
                   AND T.PHY_BATCH_NO = '#BATCH_NO#'
                   AND T.SAMPLE_PIPE_LEN_M IS NOT NULL
                   AND T.PROCESS_SEQ = (SELECT REAL_PROCESS_SEQ FROM PLN_ZY_RCL_M WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO )
                   AND T.CHECK_NO IS NULL) LOOP
    UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
       SET T.ACT_LEN           = T.ACT_LEN * 2,
           T.ACT_WEIGHT        = T.ACT_WEIGHT * 2,
           T.ACT_THEORY_WEIGHT = T.ACT_THEORY_WEIGHT * 2
     WHERE T.MAT_NO = MYROW.MAT_NO
     AND T.PROCESS_SEQ = (SELECT REAL_PROCESS_SEQ FROM PLN_ZY_RCL_M WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO );
    DELETE FROM PORT_HTT_BATCH_SAMPLE_RESULT T
     WHERE T.MAT_NO_OLD = MYROW.MAT_NO;
  END LOOP;
  UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
     SET T.IS_SAMPLE_PIPE    = '0',
         T.SAMPLE_PIPE_LEN   = TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN,0)) - TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_A,0))- TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_B,0))- TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_C,0))- TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_D,0))- TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_E,0))- TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_F,0))- TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_P,0))- TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_Q,0))- TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_M,0)),
         T.SAMPLE_PIPE_LEN_A = '',
         T.SAMPLE_PIPE_LEN_B = '',
         T.SAMPLE_PIPE_LEN_C = '',
         T.SAMPLE_PIPE_LEN_D = '',
         T.SAMPLE_PIPE_LEN_E = '',
         T.SAMPLE_PIPE_LEN_F = '',
         T.SAMPLE_PIPE_LEN_P = '',
         T.SAMPLE_PIPE_LEN_Q = '',
         T.PHY_CODE_GROUP    = '',
         T.PHY_CODE_GROUPB   = '',
         T.PHY_CODE_GROUPC   = '',
         T.PHY_CODE_GROUPD   = '',
         T.PHY_CODE_GROUPE   = '',
         T.PHY_CODE_GROUPF   = '',
         T.PHY_CODE_GROUPP   = '',
         T.PHY_CODE_GROUPQ   = '',
         T.PHY_CODE_GROUPM   = '',
         T.SAMPLE_PIPE_LEN_M = '',
         T.GET_SAMPLE_NAME   = '',
         T.GET_SAMPLE_TIME   = '',
         T.GET_SAMPLE_SHIFT  = '',
         T.GET_SAMPLE_CLASS  = '',
         T.IS_BATCH          = '0',
         T.CRAFT_SOURCE = '0'
   WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
     AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
     AND T.PHY_BATCH_NO = '#BATCH_NO#'
     AND T.PROCESS_SEQ = (SELECT REAL_PROCESS_SEQ FROM PLN_ZY_RCL_M WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO )
     AND T.CHECK_NO IS NULL;

  SELECT COUNT(1)
    INTO ACOUNT
    FROM PORT_HTT_BATCH_SAMPLE_RESULT T
   WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
     AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
     AND T.IS_SAMPLE_PIPE = '1';
  IF (ACOUNT > 0) THEN
    UPDATE PLN_ZY_RCL_M T
       SET T.IS_BATCH = '2'
     WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
       AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#';
  ELSE
    UPDATE PLN_ZY_RCL_M T
       SET T.IS_BATCH = '1'
     WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
       AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#';
  END IF;

END; -->
<query id = "FrmHttBatchSaplmeNew.cancelGetSample" desc = "取消取样">
DECLARE
  ACOUNT PORT_HTT_BATCH_SAMPLE_RESULT.ACT_COUNT%TYPE := NULL;
BEGIN
  FOR MYROW IN (SELECT *
                  FROM PORT_HTT_BATCH_SAMPLE_DETIAL T1
                 WHERE T1.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
                   AND T1.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
                   AND T1.BATCH_NO = '#BATCH_NO#'
                   AND T1.CHECK_NO IS NULL) LOOP
    IF (MYROW.SAMPLE_PIPE_POSTION = 'M端') THEN
      UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
         SET T.ACT_LEN           = T.ACT_LEN * 2,
             T.ACT_WEIGHT        = T.ACT_WEIGHT * 2,
             T.ACT_THEORY_WEIGHT = T.ACT_THEORY_WEIGHT * 2,
             T.SAMPLE_PIPE_LEN   = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0)),
                                          0,
                                          '',
                                          TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0))),
             T.SAMPLE_PIPE_LEN_M = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_M,
                                                        0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0)),
                                          0,
                                          '',
                                          TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_M,
                                                        0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0))),
             T.IS_SAMPLE_PIPE    = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0)),
                                          0,
                                          '0',
                                          '1')
       WHERE T.MAT_NO = MYROW.MAT_NO
         AND T.PROCESS_SEQ =
             (SELECT REAL_PROCESS_SEQ
                FROM PLN_ZY_RCL_M
               WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO);
      DELETE FROM PORT_HTT_BATCH_SAMPLE_RESULT T
       WHERE T.MAT_NO_OLD = MYROW.MAT_NO;
    ELSIF (MYROW.SAMPLE_PIPE_POSTION = 'A端') THEN
      UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
         SET T.SAMPLE_PIPE_LEN   = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0)),
                                          0,
                                          '',
                                          TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0))),
             T.SAMPLE_PIPE_LEN_A = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_A,
                                                        0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0)),
                                          0,
                                          '',
                                          TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_A,
                                                        0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0))),
             T.IS_SAMPLE_PIPE    = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0)),
                                          0,
                                          '0',
                                          '1')
       WHERE T.HEAT_PLAN_NO = MYROW.HEAT_PLAN_NO
         AND T.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
         AND T.PHY_BATCH_NO = MYROW.BATCH_NO
         AND T.PROCESS_SEQ =
             (SELECT REAL_PROCESS_SEQ
                FROM PLN_ZY_RCL_M
               WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO)
         AND T.MAT_NO = MYROW.MAT_NO;
    
    ELSIF (MYROW.SAMPLE_PIPE_POSTION = 'B端') THEN
      UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
         SET T.SAMPLE_PIPE_LEN   = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0)),
                                          0,
                                          '',
                                          TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0))),
             T.SAMPLE_PIPE_LEN_B = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_B,
                                                        0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0)),
                                          0,
                                          '',
                                          TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_B,
                                                        0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0))),
             T.IS_SAMPLE_PIPE    = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0)),
                                          0,
                                          '0',
                                          '1')
       WHERE T.HEAT_PLAN_NO = MYROW.HEAT_PLAN_NO
         AND T.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
         AND T.PHY_BATCH_NO = MYROW.BATCH_NO
         AND T.PROCESS_SEQ =
             (SELECT REAL_PROCESS_SEQ
                FROM PLN_ZY_RCL_M
               WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO)
         AND T.MAT_NO = MYROW.MAT_NO;
    ELSIF (MYROW.SAMPLE_PIPE_POSTION = 'C端') THEN
      UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
         SET T.SAMPLE_PIPE_LEN   = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0)),
                                          0,
                                          '',
                                          TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0))),
             T.SAMPLE_PIPE_LEN_C = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_C,
                                                        0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0)),
                                          0,
                                          '',
                                          TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_C,
                                                        0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0))),
             T.IS_SAMPLE_PIPE    = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0)),
                                          0,
                                          '0',
                                          '1')
       WHERE T.HEAT_PLAN_NO = MYROW.HEAT_PLAN_NO
         AND T.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
         AND T.PHY_BATCH_NO = MYROW.BATCH_NO
         AND T.PROCESS_SEQ =
             (SELECT REAL_PROCESS_SEQ
                FROM PLN_ZY_RCL_M
               WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO)
         AND T.MAT_NO = MYROW.MAT_NO;
    ELSIF (MYROW.SAMPLE_PIPE_POSTION = 'D端') THEN
      UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
         SET T.SAMPLE_PIPE_LEN   = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0)),
                                          0,
                                          '',
                                          TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0))),
             T.SAMPLE_PIPE_LEN_D = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_D,
                                                        0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0)),
                                          0,
                                          '',
                                          TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_D,
                                                        0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0))),
             T.IS_SAMPLE_PIPE    = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0)),
                                          0,
                                          '0',
                                          '1')
       WHERE T.HEAT_PLAN_NO = MYROW.HEAT_PLAN_NO
         AND T.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
         AND T.PHY_BATCH_NO = MYROW.BATCH_NO
         AND T.PROCESS_SEQ =
             (SELECT REAL_PROCESS_SEQ
                FROM PLN_ZY_RCL_M
               WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO)
         AND T.MAT_NO = MYROW.MAT_NO;
    ELSIF (MYROW.SAMPLE_PIPE_POSTION = 'E端') THEN
      UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
         SET T.SAMPLE_PIPE_LEN   = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0)),
                                          0,
                                          '',
                                          TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0))),
             T.SAMPLE_PIPE_LEN_E = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_E,
                                                        0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0)),
                                          0,
                                          '',
                                          TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_E,
                                                        0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0))),
             T.IS_SAMPLE_PIPE    = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0)),
                                          0,
                                          '0',
                                          '1')
       WHERE T.HEAT_PLAN_NO = MYROW.HEAT_PLAN_NO
         AND T.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
         AND T.PHY_BATCH_NO = MYROW.BATCH_NO
         AND T.PROCESS_SEQ =
             (SELECT REAL_PROCESS_SEQ
                FROM PLN_ZY_RCL_M
               WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO)
         AND T.MAT_NO = MYROW.MAT_NO;
    ELSIF (MYROW.SAMPLE_PIPE_POSTION = 'F端') THEN
      UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
         SET T.SAMPLE_PIPE_LEN   = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0)),
                                          0,
                                          '',
                                          TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0))),
             T.SAMPLE_PIPE_LEN_F = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_F,
                                                        0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0)),
                                          0,
                                          '',
                                          TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_F,
                                                        0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0))),
             T.IS_SAMPLE_PIPE    = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0)),
                                          0,
                                          '0',
                                          '1')
       WHERE T.HEAT_PLAN_NO = MYROW.HEAT_PLAN_NO
         AND T.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
         AND T.PHY_BATCH_NO = MYROW.BATCH_NO
         AND T.PROCESS_SEQ =
             (SELECT REAL_PROCESS_SEQ
                FROM PLN_ZY_RCL_M
               WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO)
         AND T.MAT_NO = MYROW.MAT_NO;
    ELSIF (MYROW.SAMPLE_PIPE_POSTION = 'P端') THEN
      UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
         SET T.SAMPLE_PIPE_LEN   = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0)),
                                          0,
                                          '',
                                          TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0))),
             T.SAMPLE_PIPE_LEN_P = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_P,
                                                        0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0)),
                                          0,
                                          '',
                                          TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_P,
                                                        0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0))),
             T.IS_SAMPLE_PIPE    = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0)),
                                          0,
                                          '0',
                                          '1')
       WHERE T.HEAT_PLAN_NO = MYROW.HEAT_PLAN_NO
         AND T.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
         AND T.PHY_BATCH_NO = MYROW.BATCH_NO
         AND T.PROCESS_SEQ =
             (SELECT REAL_PROCESS_SEQ
                FROM PLN_ZY_RCL_M
               WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO)
         AND T.MAT_NO = MYROW.MAT_NO;
    ELSIF (MYROW.SAMPLE_PIPE_POSTION = 'Q端') THEN
      UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
         SET T.SAMPLE_PIPE_LEN   = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0)),
                                          0,
                                          '',
                                          TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0))),
             T.SAMPLE_PIPE_LEN_Q = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_Q,
                                                        0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0)),
                                          0,
                                          '',
                                          TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN_Q,
                                                        0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0))),
             T.IS_SAMPLE_PIPE    = DECODE(TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN, 0)) -
                                          TO_NUMBER(NVL(MYROW.SAMPLE_PIPE_LEN,
                                                        0)),
                                          0,
                                          '0',
                                          '1')
       WHERE T.HEAT_PLAN_NO = MYROW.HEAT_PLAN_NO
         AND T.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
         AND T.PHY_BATCH_NO = MYROW.BATCH_NO
         AND T.PROCESS_SEQ =
             (SELECT REAL_PROCESS_SEQ
                FROM PLN_ZY_RCL_M
               WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO)
         AND T.MAT_NO = MYROW.MAT_NO;
    END IF;
    DELETE FROM PORT_HTT_BATCH_SAMPLE_DETIAL T
     WHERE T.PHYDETAIL_ID = MYROW.PHYDETAIL_ID;
  END LOOP;
  SELECT COUNT(1)
    INTO ACOUNT
    FROM PORT_HTT_BATCH_SAMPLE_RESULT T
   WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
     AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
     AND T.IS_SAMPLE_PIPE = '1';
  IF (ACOUNT > 0) THEN
    UPDATE PLN_ZY_RCL_M T
       SET T.IS_BATCH = '2'
     WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
       AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#';
  ELSE
    UPDATE PLN_ZY_RCL_M T
       SET T.IS_BATCH = '1'
     WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
       AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#';
  END IF;
END;
</query>
<!-- SELECT 
			       PHY_BATCH_NO,
			       MAT_NO,
			       SAMPLE_PIPE_LEN_A,
			       SAMPLE_PIPE_LEN_B,
			       PHY_CODE_GROUP,
			       PHY_CODE_GROUPB,
			       SAMPLE_PIPE_LEN_C,
			       SAMPLE_PIPE_LEN_D,
			       SAMPLE_PIPE_LEN_M,
			       SAMPLE_PIPE_LEN_E,
			       SAMPLE_PIPE_LEN_F,
			       SAMPLE_PIPE_LEN_P,
			       SAMPLE_PIPE_LEN_Q,
			       PHY_CODE_GROUPC,
			       PHY_CODE_GROUPD,
			       PHY_CODE_GROUPM,
			       PHY_CODE_GROUPE,
			       PHY_CODE_GROUPF,
			       PHY_CODE_GROUPP,
			       PHY_CODE_GROUPQ		 
			  FROM PORT_HTT_BATCH_SAMPLE_RESULT T
             WHERE IS_SAMPLE_PIPE = '1'
               AND HEAT_PLAN_NO = ?
			   AND JUDGE_STOVE_NO = ?
			   AND CRAFT_SOURCE = ?
			   AND IS_BATCH = '2'
			   AND PROCESS_SEQ = (SELECT REAL_PROCESS_SEQ FROM PLN_ZY_RCL_M WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO )
		  ORDER BY PHY_BATCH_NO,MAT_NO	 -->
<query id = "FrmHttBatchSaplmeNew.doQuerySampleInfo" desc = "查询样管基础信息">
SELECT T.MAT_NO,T.BATCH_NO PHY_BATCH_NO,T.SAMPLE_PIPE_LEN,T.SAMPLE_PIPE_POSTION SAMPLE_POSTION,T.PHY_CODE_GROUP
  FROM PORT_HTT_BATCH_SAMPLE_DETIAL T
 WHERE NVL(T.LOT_NO, '/') = NVL(?, '/')
   AND T.JUDGE_STOVE_NO = ?
   AND T.CRAFT_SOURCE = ?
   AND T.IS_BATCH = '2'
</query>
<query id = "FrmHttBatchSaplmeNew.doQueryChemS" desc = "查询首日检成分信息">
SELECT T.DESGIN_KEY,
       T.CIC,
       T.USE_CODE,
       T.USE_DESC,
       T.SPECL_FL,
       T.INDEX_SEQ,
       T.CHEM_CODE,
       T.CHEM_NAME,
       T.CHEM_TYPE,
       T.CHEM_FORMULA,
       T.ISCHECK,
       T.ISJUDGE,
       T.ISQUOTE,
       T.COMPLEX_TYPE,
       T.STDMIN_SIGN,
       T.STDMIN,
       T.STDMAX_SIGN,
       T.STDMAX,
       T.STDTARGET,
       T.MODEL_CODE,
       T.MODEL_DESC,
       T.STDMEMO,
       T.ELE_CODE,
       T.ELE_NAME,
       T.ELE_MIN_SIGN,
       T.ELE_MIN,
       T.ELE_MAX_SIGN,
       T.ELE_MAX,
       T.SIZE_CODE2,
       T.SIZE_NAME2,
       T.SIZE_MIN_SIGN2,
       T.SIZE_MIN2,
       T.SIZE_MAX_SIGN2,
       T.SIZE_MAX2,
       T.SIZE_CODE,
       T.SIZE_NAME,
       T.SIZE_MIN_SIGN,
       T.SIZE_MIN,
       T.SIZE_MAX_SIGN,
       T.SIZE_MAX,
       T.SPEC_JG,
       T.SPEC_JG_DESC,
       T.REP_CODE,
       T.REP_NAME,
       T.REP_MIN_SIGN,
       T.REP_MIN,
       T.REP_MAX_SIGN,
       T.REP_MAX,
       T.REP_VAL
  FROM PLN_ZY_RCL_M           S,
       PLN_SALEORD              T2,
       CRAFT_ORD_DESIGN         T3,
       CRAFT_ORD_DESIGN_STD_CIC T
 WHERE S.ORD_LN_DLY_PK = T2.ORD_LN_DLY_PK
   AND T2.ORD_LN_PK = T3.ORD_LN_PK
   AND T3.CRAFT_SEQ = S.CRAFT_SEQ
   AND T3.DESGIN_KEY = T.DESGIN_KEY
   AND T.MSC_PLINE = S.INDEX_SEQ
   AND T.CHEM_TYPE = 'A'
   AND (S.CIC = T.CIC AND S.IF_PRODUCT = '1' OR T.CRAFT_SOURCE = '2')
   AND (T.ISCHECK = '1' OR T.ISJUDGE = '1')
   AND T.PROCESS_CODE = 'A'
   AND T.CRAFT_SOURCE = ?
   AND S.PRO_PLAN_ID = ?
   AND S.GX_PLAN_NO = ?
   AND S.JUDGE_STOVE_NO = ?
    AND S.HEAT_PLAN_NO = ?
</query>
<query id = "FrmHttBatchSaplmeNew.doQueryChem" desc = "查询正常成分">
SELECT T.DESGIN_KEY,
       T.CIC,
       T.USE_CODE,
       T.USE_DESC,
       T.SPECL_FL,
       T.INDEX_SEQ,
       T.CHEM_CODE,
       T.CHEM_NAME,
       T.CHEM_TYPE,
       T.CHEM_FORMULA,
       T.ISCHECK,
       T.ISJUDGE,
       T.ISQUOTE,
       T.COMPLEX_TYPE,
       T.STDMIN_SIGN,
       T.STDMIN,
       T.STDMAX_SIGN,
       T.STDMAX,
       T.STDTARGET,
       T.MODEL_CODE,
       T.MODEL_DESC,
       T.STDMEMO,
       T.ELE_CODE,
       T.ELE_NAME,
       T.ELE_MIN_SIGN,
       T.ELE_MIN,
       T.ELE_MAX_SIGN,
       T.ELE_MAX,
       T.SIZE_CODE2,
       T.SIZE_NAME2,
       T.SIZE_MIN_SIGN2,
       T.SIZE_MIN2,
       T.SIZE_MAX_SIGN2,
       T.SIZE_MAX2,
       T.SIZE_CODE,
       T.SIZE_NAME,
       T.SIZE_MIN_SIGN,
       T.SIZE_MIN,
       T.SIZE_MAX_SIGN,
       T.SIZE_MAX,
       T.SPEC_JG,
       T.SPEC_JG_DESC,
       T.REP_CODE,
       T.REP_NAME,
       T.REP_MIN_SIGN,
       T.REP_MIN,
       T.REP_MAX_SIGN,
       T.REP_MAX,
       T.REP_VAL
  FROM PLN_ZY_RCL_M           S,
       PLN_SALEORD              T2,
       CRAFT_ORD_DESIGN         T3,
       CRAFT_ORD_DESIGN_STD_CIC T
 WHERE S.ORD_LN_DLY_PK = T2.ORD_LN_DLY_PK
   AND T2.ORD_LN_PK = T3.ORD_LN_PK
   AND T3.CRAFT_SEQ = S.CRAFT_SEQ
   AND T3.DESGIN_KEY = T.DESGIN_KEY
   AND T.MSC_PLINE = S.INDEX_SEQ
   AND T.CHEM_TYPE = 'A'
   AND S.CIC = T.CIC 
   AND S.IF_PRODUCT = '1'
   AND T.CHEM_CODE NOT IN ('C012', 'C013', 'C014')
   AND (T.ISCHECK = '1' OR T.ISJUDGE = '1')
   AND T.PROCESS_CODE = 'A'
   AND T.CRAFT_SOURCE = '0'
   AND S.PRO_PLAN_ID = ?
   AND S.GX_PLAN_NO = ?
   AND S.JUDGE_STOVE_NO = ?
    AND S.HEAT_PLAN_NO = ?
   UNION ALL
   SELECT T.DESGIN_KEY,
       T.CIC,
       T.USE_CODE,
       T.USE_DESC,
       T.SPECL_FL,
       T.INDEX_SEQ,
       T.CHEM_CODE,
       T.CHEM_NAME,
       T.CHEM_TYPE,
       T.CHEM_FORMULA,
       T.ISCHECK,
       T.ISJUDGE,
       T.ISQUOTE,
       T.COMPLEX_TYPE,
       T.STDMIN_SIGN,
       T.STDMIN,
       T.STDMAX_SIGN,
       T.STDMAX,
       T.STDTARGET,
       T.MODEL_CODE,
       T.MODEL_DESC,
       T.STDMEMO,
       T.ELE_CODE,
       T.ELE_NAME,
       T.ELE_MIN_SIGN,
       T.ELE_MIN,
       T.ELE_MAX_SIGN,
       T.ELE_MAX,
       T.SIZE_CODE2,
       T.SIZE_NAME2,
       T.SIZE_MIN_SIGN2,
       T.SIZE_MIN2,
       T.SIZE_MAX_SIGN2,
       T.SIZE_MAX2,
       T.SIZE_CODE,
       T.SIZE_NAME,
       T.SIZE_MIN_SIGN,
       T.SIZE_MIN,
       T.SIZE_MAX_SIGN,
       T.SIZE_MAX,
       T.SPEC_JG,
       T.SPEC_JG_DESC,
       T.REP_CODE,
       T.REP_NAME,
       T.REP_MIN_SIGN,
       T.REP_MIN,
       T.REP_MAX_SIGN,
       T.REP_MAX,
       T.REP_VAL
  FROM PLN_ZY_RCL_M           S,
       PLN_SALEORD              T2,
       CRAFT_ORD_DESIGN         T3,
       CRAFT_ORD_DESIGN_STD_CIC T
 WHERE S.ORD_LN_DLY_PK = T2.ORD_LN_DLY_PK
   AND T2.ORD_LN_PK = T3.ORD_LN_PK
   AND T3.CRAFT_SEQ = S.CRAFT_SEQ
   AND T3.DESGIN_KEY = T.DESGIN_KEY
   AND T.CHEM_TYPE = 'A'
   AND S.IF_PRODUCT = '1'
   AND T.CHEM_CODE IN ('C012', 'C013', 'C014')
   AND (T.ISCHECK = '1' OR T.ISJUDGE = '1')
   AND T.SPECL_FL = '1'
   AND S.PRO_PLAN_ID = ?
   AND S.GX_PLAN_NO = ?
   AND S.JUDGE_STOVE_NO = ?
    AND S.HEAT_PLAN_NO = ?
   UNION ALL
   SELECT T.DESGIN_KEY,
       T.CIC,
       T.USE_CODE,
       T.USE_DESC,
       T.SPECL_FL,
       T.INDEX_SEQ,
       T.CHEM_CODE,
       T.CHEM_NAME,
       T.CHEM_TYPE,
       T.CHEM_FORMULA,
       T.ISCHECK,
       T.ISJUDGE,
       T.ISQUOTE,
       T.COMPLEX_TYPE,
       T.STDMIN_SIGN,
       T.STDMIN,
       T.STDMAX_SIGN,
       T.STDMAX,
       T.STDTARGET,
       T.MODEL_CODE,
       T.MODEL_DESC,
       T.STDMEMO,
       T.ELE_CODE,
       T.ELE_NAME,
       T.ELE_MIN_SIGN,
       T.ELE_MIN,
       T.ELE_MAX_SIGN,
       T.ELE_MAX,
       T.SIZE_CODE2,
       T.SIZE_NAME2,
       T.SIZE_MIN_SIGN2,
       T.SIZE_MIN2,
       T.SIZE_MAX_SIGN2,
       T.SIZE_MAX2,
       T.SIZE_CODE,
       T.SIZE_NAME,
       T.SIZE_MIN_SIGN,
       T.SIZE_MIN,
       T.SIZE_MAX_SIGN,
       T.SIZE_MAX,
       T.SPEC_JG,
       T.SPEC_JG_DESC,
       T.REP_CODE,
       T.REP_NAME,
       T.REP_MIN_SIGN,
       T.REP_MIN,
       T.REP_MAX_SIGN,
       T.REP_MAX,
       T.REP_VAL
  FROM PLN_ZY_RCL_M           S,
       PLN_SALEORD              T2,
       CRAFT_ORD_DESIGN         T3,
       CRAFT_ORD_DESIGN_STD_CIC T
 WHERE S.ORD_LN_DLY_PK = T2.ORD_LN_DLY_PK
   AND T2.ORD_LN_PK = T3.ORD_LN_PK
   AND T3.CRAFT_SEQ = S.CRAFT_SEQ
   AND T3.DESGIN_KEY = T.DESGIN_KEY
   AND T.CHEM_TYPE = 'A'
   AND S.IF_PRODUCT = '1'
   AND T.CHEM_CODE IN ('C012', 'C013', 'C014')
   AND T.SPECL_FL = '0'
   AND (T.ISCHECK = '1' OR T.ISJUDGE = '1')
   AND NOT EXISTS (SELECT 1
                  FROM CRAFT_ORD_DESIGN_STD_CIC E2
                 WHERE E2.CHEM_CODE = T.CHEM_CODE
                   AND E2.DESGIN_KEY = T.DESGIN_KEY
                   AND E2.SPECL_FL = '1')
   AND S.IF_PRODUCT = '1'
   AND S.PRO_PLAN_ID = ?
   AND S.GX_PLAN_NO = ?
   AND S.JUDGE_STOVE_NO = ?
    AND S.HEAT_PLAN_NO = ?
</query>
<query id = "FrmHttBatchSaplmeNew.doQueryPhy" desc = "查询理化详细信息">
 SELECT *
  FROM (SELECT T.DESGIN_KEY,
               T.PIC,
               T.SPECL_FL,
               T.INDEX_SEQ,
               T.PHY_CODE_MAX,
               T.PHY_NAME_MAX,
               (SELECT A.PHY_DEPTID
                  FROM COM_BASE_PHY_B A, COM_BASE_PHY_C B
                 WHERE T.PHY_CODE_MIN = B.PHY_CODE
                   AND A.PHY_CODE = B.PHY_TYPE_M
                   AND A.VALIDFLAG = '1'
                   AND B.VALIDFLAG = '1') DEPT_ID,
               T.PHY_CODE_MIN,
               T.PHY_NAME_MIN,
               
               T.PHY_CODE_MIN ||
               NVL2(S1.SPLINE_ITEM_CODE_F, '_' || S1.SPLINE_ITEM_CODE_F, S1.SPLINE_ITEM_CODE_S) ||
               NVL2(T.ITEM_CODE_W, '_' || T.ITEM_CODE_W, S1.SPLINE_ITEM_CODE_S) ||
               NVL2(S1.SPLINE_ITEM_CODE_S, '_' || S1.SPLINE_ITEM_CODE_S, S1.SPLINE_ITEM_CODE_S) SAMPLE_KEY, --试样组方向温度尺寸
               
               T.PHY_NAME_MIN ||
               NVL2(S1.SPLINE_ITEM_NAME_F, '_' || S1.SPLINE_ITEM_NAME_F, S1.SPLINE_ITEM_NAME_F) ||
               NVL2(T.ITEM_NAME_W, '_' || T.ITEM_NAME_W, T.ITEM_NAME_W) ||
               NVL2(S1.SPLINE_ITEM_NAME_S, '_' || S1.SPLINE_ITEM_NAME_S, S1.SPLINE_ITEM_NAME_S) SAMPLE_KEY_DESC, --试样组描述
               
               T.PHY_CODE,
               T.PHY_NAME,
               (SELECT D.ORDER_SEQ FROM COM_BASE_PHY D WHERE D.PHY_CODE = T.PHY_CODE)ORDER_SEQ,
               T.ITEM_CODE_F,
               T.ITEM_NAME_F,
               T.ITEM_CODE_W,
               T.ITEM_NAME_W,
               T.ITEM_CODE_S,
               T.ITEM_NAME_S,
               S1.RATE,
               S1.DESC_RATE,
               S1.SPLINE_ITEM_CODE_S,
               S1.SPLINE_ITEM_NAME_S,
               S1.SPLINE_ITEM_CODE_F,
               S1.SPLINE_ITEM_NAME_F,
               S1.COMMON,
               T.GROUP_SEQ,
               T.ISCHECK,
               T.ISQUOTE,
               T.RESULT_COUNT,
               T.ISJUDGE,
               T.PHY_TYPE,
               T.PHY_FORMULA,
               T.STDMIN_SIGN,
               T.STDMIN,
               T.STDMAX_SIGN,
               T.STDMAX,
               T.JUDGE_BASIS,
               T.DELIVERYSTATE,
               T.MODEL_CODE,
               T.MODEL_DESC,
               T.STDMEMO,
               T.SIZE_CODE,
               T.SIZE_NAME,
               T.SIZE_MIN_SIGN,
               T.SIZE_MIN,
               T.SIZE_MAX_SIGN,
               T.SIZE_MAX,
               T.SIZE_CODE2,
               T.SIZE_NAME2,
               T.SIZE_MIN_SIGN2,
               T.SIZE_MIN2,
               T.SIZE_MAX_SIGN2,
               T.SIZE_MAX2,
               T.SPEC_JG,
               T.SPEC_JG_DESC,
               T.ADDCONDITION,
               T.ADDSTDCON_CODE,
               T.ADDSTD_MIN_SIGN,
               T.ADDSTD_MIN,
               T.ADDSTD_MAX_SIGN,
               T.ADDSTD_MAX,
               T.ADDPERCENT,
               T.STDMIN_SIGN2,
               T.STDMIN2,
               T.STDMAX_SIGN2,
               T.STDMAX2,
               T.STD_CHOOSE,
               T.BILLET_SAMPLE,
               (SELECT DISTINCT PHY_UNIT
                  FROM COM_BASE_PHY T5
                 WHERE T5.VALIDFLAG = '1'
                   AND T5.PHY_CODE = T.PHY_CODE) PHY_UNIT,
               ROW_NUMBER() OVER(PARTITION BY T.DESGIN_KEY, T.PHY_CODE_MAX, T.PHY_CODE_MIN, T.PHY_CODE, T.ITEM_CODE_F, T.ITEM_CODE_W, T.ITEM_CODE_S ORDER BY T.SPECL_FL DESC) RN
          FROM PLN_ZY_RCL_M              S,
               PLN_SALEORD              T2,
               CRAFT_ORD_DESIGN         T3,
               CRAFT_ORD_DESIGN_STD_PIC T,
               CRAFT_ORD_DESIGN_STD_PIC_SMP S1
         WHERE S.ORD_LN_DLY_PK = T2.ORD_LN_DLY_PK
           AND T2.ORD_LN_PK = T3.ORD_LN_PK
           AND T3.CRAFT_SEQ = S.CRAFT_SEQ
           AND T3.DESGIN_KEY = T.DESGIN_KEY
           AND T.MSC_PLINE = S.INDEX_SEQ
           AND (T.PIC = S.PIC OR T.CRAFT_SOURCE = '2')
           AND T.DESGIN_KEY = S1.DESGIN_KEY
           AND T.PHY_CODE_MIN = S1.PHY_CODE_MIN
           AND NVL(T.ITEM_CODE_F,'1') = NVL(S1.ITEM_CODE_F,'1')
           AND NVL(T.ITEM_CODE_W,'1') = NVL(S1.ITEM_CODE_W,'1')
           AND NVL(T.ITEM_CODE_S,'1') = NVL(S1.ITEM_CODE_C,'1')
           AND T.PROCESS_CODE = 'F'
           AND T.CRAFT_SOURCE = ?
           AND S.PRO_PLAN_ID = ?
           AND S.GX_PLAN_NO = ?
           AND S.JUDGE_STOVE_NO = ?
           AND T.PIC = ?
           AND S1.CRAFT_SOURCE = ?) T
 WHERE RN = '1'
 --ORDER BY T.PHY_CODE_MAX,
         -- T.PHY_CODE_MIN,
         -- T.PHY_CODE,
         -- T.ITEM_CODE_F,
         -- T.ITEM_CODE_W,
         -- T.ITEM_CODE_S
</query>
<query id = "FrmHttBatchSaplmeNew.doQueryPhy1" desc = "查询首日检理化信息">
SELECT *
  FROM (SELECT T.DESGIN_KEY,
               T.PIC,
               T.SPECL_FL,
               T.INDEX_SEQ,
               T.PHY_CODE_MAX,
               T.PHY_NAME_MAX,
               (SELECT A.PHY_DEPTID
                  FROM COM_BASE_PHY_B A, COM_BASE_PHY_C B
                 WHERE T.PHY_CODE_MIN = B.PHY_CODE
                   AND A.PHY_CODE = B.PHY_TYPE_M
                   AND A.VALIDFLAG = '1'
                   AND B.VALIDFLAG = '1') DEPT_ID,
               T.PHY_CODE_MIN,
               T.PHY_NAME_MIN,
               
               T.PHY_CODE_MIN ||
               NVL2(S1.SPLINE_ITEM_CODE_F, '_' || S1.SPLINE_ITEM_CODE_F, S1.SPLINE_ITEM_CODE_S) ||
               NVL2(T.ITEM_CODE_W, '_' || T.ITEM_CODE_W, S1.SPLINE_ITEM_CODE_S) ||
               NVL2(S1.SPLINE_ITEM_CODE_S, '_' || S1.SPLINE_ITEM_CODE_S, S1.SPLINE_ITEM_CODE_S) SAMPLE_KEY, --试样组方向温度尺寸
               
               T.PHY_NAME_MIN ||
               NVL2(S1.SPLINE_ITEM_NAME_F, '_' || S1.SPLINE_ITEM_NAME_F, S1.SPLINE_ITEM_NAME_F) ||
               NVL2(T.ITEM_NAME_W, '_' || T.ITEM_NAME_W, T.ITEM_NAME_W) ||
               NVL2(S1.SPLINE_ITEM_NAME_S, '_' || S1.SPLINE_ITEM_NAME_S, S1.SPLINE_ITEM_NAME_S) SAMPLE_KEY_DESC, --试样组描述
               
               T.PHY_CODE,
               T.PHY_NAME,
               (SELECT D.ORDER_SEQ FROM COM_BASE_PHY D WHERE D.PHY_CODE = T.PHY_CODE)ORDER_SEQ,
               T.ITEM_CODE_F,
               T.ITEM_NAME_F,
               T.ITEM_CODE_W,
               T.ITEM_NAME_W,
               T.ITEM_CODE_S,
               T.ITEM_NAME_S,
               S1.RATE,
               S1.DESC_RATE,
               S1.SPLINE_ITEM_CODE_S,
               S1.SPLINE_ITEM_NAME_S,
               S1.SPLINE_ITEM_CODE_F,
               S1.SPLINE_ITEM_NAME_F,
               S1.COMMON,
               T.GROUP_SEQ,
               T.ISCHECK,
               T.ISQUOTE,
               T.RESULT_COUNT,
               T.ISJUDGE,
               T.PHY_TYPE,
               T.PHY_FORMULA,
               T.STDMIN_SIGN,
               T.STDMIN,
               T.STDMAX_SIGN,
               T.STDMAX,
               T.JUDGE_BASIS,
               T.DELIVERYSTATE,
               T.MODEL_CODE,
               T.MODEL_DESC,
               T.STDMEMO,
               T.SIZE_CODE,
               T.SIZE_NAME,
               T.SIZE_MIN_SIGN,
               T.SIZE_MIN,
               T.SIZE_MAX_SIGN,
               T.SIZE_MAX,
               T.SIZE_CODE2,
               T.SIZE_NAME2,
               T.SIZE_MIN_SIGN2,
               T.SIZE_MIN2,
               T.SIZE_MAX_SIGN2,
               T.SIZE_MAX2,
               T.SPEC_JG,
               T.SPEC_JG_DESC,
               T.ADDCONDITION,
               T.ADDSTDCON_CODE,
               T.ADDSTD_MIN_SIGN,
               T.ADDSTD_MIN,
               T.ADDSTD_MAX_SIGN,
               T.ADDSTD_MAX,
               T.ADDPERCENT,
               T.STDMIN_SIGN2,
               T.STDMIN2,
               T.STDMAX_SIGN2,
               T.STDMAX2,
               T.STD_CHOOSE,
               T.BILLET_SAMPLE,
               (SELECT DISTINCT PHY_UNIT
                  FROM COM_BASE_PHY T5
                 WHERE T5.VALIDFLAG = '1'
                   AND T5.PHY_CODE = T.PHY_CODE) PHY_UNIT,
               ROW_NUMBER() OVER(PARTITION BY T.DESGIN_KEY, T.PHY_CODE_MAX, T.PHY_CODE_MIN, T.PHY_CODE, T.ITEM_CODE_F, T.ITEM_CODE_W, T.ITEM_CODE_S ORDER BY T.SPECL_FL DESC) RN
          FROM PLN_ZY_RCL_M              S,
               PLN_SALEORD              T2,
               CRAFT_ORD_DESIGN         T3,
               CRAFT_ORD_DESIGN_STD_PIC T,
               CRAFT_ORD_DESIGN_STD_PIC_SMP S1
         WHERE S.ORD_LN_DLY_PK = T2.ORD_LN_DLY_PK
           AND T2.ORD_LN_PK = T3.ORD_LN_PK
           AND T3.CRAFT_SEQ = S.CRAFT_SEQ
           AND T3.DESGIN_KEY = T.DESGIN_KEY
           AND T.MSC_PLINE = S.INDEX_SEQ
           AND (T.PIC = S.PIC OR T.CRAFT_SOURCE = '2')
           AND T.DESGIN_KEY = S1.DESGIN_KEY
           AND T.PHY_CODE_MIN = S1.PHY_CODE_MIN
           AND NVL(T.ITEM_CODE_F,'1') = NVL(S1.ITEM_CODE_F,'1')
           AND NVL(T.ITEM_CODE_W,'1') = NVL(S1.ITEM_CODE_W,'1')
           AND NVL(T.ITEM_CODE_S,'1') = NVL(S1.ITEM_CODE_C,'1')
           AND T.PROCESS_CODE = 'F'
           AND T.CRAFT_SOURCE = ?
           AND S.PRO_PLAN_ID = ?
           AND S.GX_PLAN_NO = ?
           AND S.JUDGE_STOVE_NO = ?
           AND S1.CRAFT_SOURCE = ?) T
 WHERE RN = '1'

</query>
<query id = "FrmHttBatchSaplmeNew.doQueryPhyRate" desc = "查询取样频次">
SELECT *
  FROM (SELECT T.DESGIN_KEY,
               T.PIC,
               T.SPECL_FL,
               T.INDEX_SEQ,
               T.PHY_CODE_MAX,
               T.PHY_NAME_MAX,
               (SELECT A.PHY_DEPTID
                  FROM COM_BASE_PHY_B A, COM_BASE_PHY_C B
                 WHERE T.PHY_CODE_MIN = B.PHY_CODE
                   AND A.PHY_CODE = B.PHY_TYPE_M
                   AND A.VALIDFLAG = '1'
                   AND B.VALIDFLAG = '1') DEPT_ID,
               T.PHY_CODE_MIN,
               T.PHY_NAME_MIN,
               T.PHY_CODE,
               T.PHY_NAME,
               S1.RATE,
               S1.DESC_RATE,
               S1.TOP_STOVE,
               S1.LOOP_VALUE,
               ROW_NUMBER() OVER(PARTITION BY T.DESGIN_KEY, T.PHY_CODE_MAX, T.PHY_CODE_MIN ORDER BY T.SPECL_FL DESC) RN
          FROM PLN_ZY_RCL_M              S,
               PLN_SALEORD              T2,
               CRAFT_ORD_DESIGN         T3,
               CRAFT_ORD_DESIGN_STD_PIC T,
               CRAFT_ORD_DESIGN_STD_PIC_SMP S1
         WHERE S.ORD_LN_DLY_PK = T2.ORD_LN_DLY_PK
           AND T2.ORD_LN_PK = T3.ORD_LN_PK
           AND T3.CRAFT_SEQ = S.CRAFT_SEQ
           AND T3.DESGIN_KEY = T.DESGIN_KEY
           AND T.MSC_PLINE = S.INDEX_SEQ
           AND (T.PIC = S.PIC OR T.CRAFT_SOURCE = '2')
           AND T.DESGIN_KEY = S1.DESGIN_KEY
           AND T.PHY_CODE_MIN = S1.PHY_CODE_MIN
           AND NVL(T.ITEM_CODE_F,'1') = NVL(S1.ITEM_CODE_F,'1')
           AND NVL(T.ITEM_CODE_W,'1') = NVL(S1.ITEM_CODE_W,'1')
           AND NVL(T.ITEM_CODE_S,'1') = NVL(S1.ITEM_CODE_C,'1')
           AND T.PROCESS_CODE = 'F'
           AND T.CRAFT_SOURCE = ?
           AND S.PRO_PLAN_ID = ?
           AND S.GX_PLAN_NO = ?
           AND S.JUDGE_STOVE_NO = ?) T
 WHERE RN = '1'
</query>
<query id = "FrmHttBatchSaplmeNew.CheckConsingCount" desc = "查询已委托炉数">
   SELECT NVL(COUNT(1),0)ACOUNT FROM 
  (SELECT T.CHECK_NO FROM  PIPE_CHECKCONSIGN_BASEINFO T,PIPE_CHECKCONSIGN_DETAIL S
 WHERE T.CHECK_NO = S.CHECK_NO
   AND T.LOT_NO = '#ZY_BATCH_ID#'
   AND T.PROCESS_CODE = 'F'
   AND S.PHY_CODE_MAX = '#PHY_CODE_MAX#'
   GROUP BY T.CHECK_NO)
</query>
<query id = "FrmHttBatchSaplmeNew.SelectSeqHeatNo" desc = "查询指定的炉号">
SELECT HEAT_NO,CHECK_NO
  FROM (SELECT ROWNUM SEQ,HEAT_NO,CHECK_NO
          FROM (SELECT T.HEAT_NO,T.CHECK_NO
                  FROM PIPE_CHECKCONSIGN_BASEINFO T,PIPE_CHECKCONSIGN_DETAIL S
                 WHERE T.CHECK_NO = S.CHECK_NO
                   AND  T.LOT_NO = '#ZY_BATCH_ID#'
                   AND T.PROCESS_CODE = 'F'
                   AND T.CHECK_COUNT = '0'
                   AND S.PHY_CODE_MAX = '#PHY_CODE_MAX#'
                   GROUP BY T.HEAT_NO,T.CHECK_NO
                 ORDER BY MAX(T.CONSIGN_TIME) ASC))
 WHERE SEQ = ?
</query>
<query id = "FrmHttBatchSaplmeNew.SelectSeqCheckNo" desc = "查询指定炉号的最小编号">
SELECT MIN(T.CHECK_NO)CHECK_NO
  FROM PIPE_CHECKCONSIGN_BASEINFO T,PIPE_CHECKCONSIGN_DETAIL S
 WHERE T.CHECK_NO = S.CHECK_NO
   AND T.HEAT_NO = ?
   AND S.PHY_CODE_MAX = '#PHY_CODE_MAX#'
   AND S.FOR_CHECK_NO IS NULL
   AND T.PROCESS_CODE = 'F'
</query>
<query id = "FrmHttBatchSaplmeNew.doQueryPhySamp" desc = "查询取样要求">
SELECT T.*
  FROM (SELECT T.*,
               ROW_NUMBER() OVER(PARTITION BY T.DESGIN_KEY, T.PHY_CODE_MIN,T.ITEM_CODE_F，T.ITEM_CODE_W, T.ITEM_CODE_C,T.SIZE_DESC ORDER BY T.SPECL_FL DESC) RN
          FROM (SELECT (SELECT A.PHY_CODE
                          FROM COM_BASE_PHY_B A, COM_BASE_PHY_C B
                         WHERE T.PHY_CODE_MIN = B.PHY_CODE
                           AND A.PHY_CODE = B.PHY_TYPE_M
                           AND A.VALIDFLAG = '1'
                           AND B.VALIDFLAG = '1') PHY_CODE_MAX,
                       (SELECT A.PHY_TYPE
                          FROM COM_BASE_PHY_B A, COM_BASE_PHY_C B
                         WHERE T.PHY_CODE_MIN = B.PHY_CODE
                           AND A.PHY_CODE = B.PHY_TYPE_M
                           AND A.VALIDFLAG = '1'
                           AND B.VALIDFLAG = '1') PHY_NAME_MAX,
                       (SELECT B.PHY_DEPTID
                          FROM COM_BASE_PHY_B A, COM_BASE_PHY_C B
                         WHERE T.PHY_CODE_MIN = B.PHY_CODE
                           AND A.PHY_CODE = B.PHY_TYPE_M
                           AND A.VALIDFLAG = '1'
                           AND B.VALIDFLAG = '1') DEPT_ID,
                       T.DESGIN_KEY,
                       T.PIC,
                       T.SIC,
                       T.PHY_CODE_MIN,
                       T.PHY_NAME_MIN,
                       T.STD_CODE,
                       T.STD_NAME,
                       T.LENGTH,
                       T.DESC_LENGTH,
                       T.RATE,
                       T.DESC_RATE,
                       T.SSC_CONDITION,
                       T.TOP_STOVE,
                       T.LOOP_VALUE,
                       T.CRAFT_SOURCE,
                       T.DESC_COUNT,
                       T.POSITION,
                       T.DESC_POSITION,
                       T.SAMPLE_COUNT,
                       T.MEMO,
                       T.SAMPLE_STYLE,
                       T.BATCH_CNT,
                       T.WIDTH,
                       T.BATCH_UNIT,
                       T.EIC,
                       T.PHY_DIR,
                       T.SIZE_DESC,
                       T.ITEM_CODE_F,
                       T.ITEM_CODE_W,
                       T.ITEM_CODE_C,
                       T.STD_CODE_TEST,
                       T.STD_NAME_TEST,
                       DECODE(T.SAMPLE_STYLE,
                              '408101',
                              '片状',
                              '408102',
                              '环状') AS DESC_SAMPLE_STYLE,
                       (SELECT SPLINE_NO
                          FROM COM_BASE_SPLINE C
                         WHERE C.EIC = T.EIC) SPLINE_NO, --试样编码
                       (SELECT DISTINCT M.SPECL_FL
                          FROM CRAFT_ORD_DESIGN_STD_PIC M
                         WHERE M.DESGIN_KEY = T.DESGIN_KEY
                           AND M.PIC = T.PIC) SPECL_FL
                
                  FROM PLN_ZY_RCL_M                 S,
                       PLN_SALEORD                  T2,
                       CRAFT_ORD_DESIGN             T3,
                       CRAFT_ORD_DESIGN_STD_PIC_SMP T
                 WHERE S.ORD_LN_DLY_PK = T2.ORD_LN_DLY_PK
                   AND T2.ORD_LN_PK = T3.ORD_LN_PK
                   AND T3.CRAFT_SEQ = S.CRAFT_SEQ
                   AND T3.DESGIN_KEY = T.DESGIN_KEY
                   AND T.MSC_PLINE = S.INDEX_SEQ
                   AND T.PROCESS_CODE = 'F'
                   AND T.CRAFT_SOURCE = ?
                   AND S.PRO_PLAN_ID = ?
                   AND S.GX_PLAN_NO = ?
                   AND S.JUDGE_STOVE_NO = ?
                   AND T.PIC = ?
                   AND T.PHY_CODE_MIN = ?) T) T
 WHERE RN = '1'
 ORDER BY T.PHY_CODE_MAX,
          T.PHY_CODE_MIN,
          --T.ITEM_CODE_W,
          (SELECT T4.ORDER_SEQ FROM COM_BASE_PHY_ITEM T4 WHERE T4.ITEM_CODE = T.ITEM_CODE_W),
          T.ITEM_CODE_F,
          T.ITEM_CODE_C
</query>
<query id = "FrmHttBatchSaplmeNew.doQueryPhySampPipece" desc = "查询逐支频率试样组">
SELECT T.*
  FROM (SELECT T.*,
               ROW_NUMBER() OVER(PARTITION BY T.DESGIN_KEY, T.PHY_CODE_MIN,T.ITEM_CODE_F，T.ITEM_CODE_W, T.ITEM_CODE_C ORDER BY T.SPECL_FL DESC) RN
          FROM (SELECT (SELECT A.PHY_CODE
                          FROM COM_BASE_PHY_B A, COM_BASE_PHY_C B
                         WHERE T.PHY_CODE_MIN = B.PHY_CODE
                           AND A.PHY_CODE = B.PHY_TYPE_M
                           AND A.VALIDFLAG = '1'
                           AND B.VALIDFLAG = '1') PHY_CODE_MAX,
                       (SELECT A.PHY_TYPE
                          FROM COM_BASE_PHY_B A, COM_BASE_PHY_C B
                         WHERE T.PHY_CODE_MIN = B.PHY_CODE
                           AND A.PHY_CODE = B.PHY_TYPE_M
                           AND A.VALIDFLAG = '1'
                           AND B.VALIDFLAG = '1') PHY_NAME_MAX,
                       (SELECT A.PHY_DEPTID
                          FROM COM_BASE_PHY_B A, COM_BASE_PHY_C B
                         WHERE T.PHY_CODE_MIN = B.PHY_CODE
                           AND A.PHY_CODE = B.PHY_TYPE_M
                           AND A.VALIDFLAG = '1'
                           AND B.VALIDFLAG = '1') DEPT_ID,
                       T.DESGIN_KEY,
                       T.PIC,
                       T.SIC,
                       T.PHY_CODE_MIN,
                       T.PHY_NAME_MIN,
                       T.STD_CODE,
                       T.STD_NAME,
                       T.LENGTH,
                       T.DESC_LENGTH,
                       T.RATE,
                       T.DESC_RATE,
                       T.SSC_CONDITION,
                       T.TOP_STOVE,
                       T.LOOP_VALUE,
                       T.CRAFT_SOURCE,
                       T.DESC_COUNT,
                       T.POSITION,
                       T.DESC_POSITION,
                       T.SAMPLE_COUNT,
                       T.MEMO,
                       T.SAMPLE_STYLE,
                       T.BATCH_CNT,
                       T.WIDTH,
                       T.BATCH_UNIT,
                       T.EIC,
                       T.PHY_DIR,
                       T.SIZE_DESC,
                       T.ITEM_CODE_F,
                       T.ITEM_CODE_W,
                       T.ITEM_CODE_C,
                       T.STD_CODE_TEST,
                       T.STD_NAME_TEST,
                       DECODE(T.SAMPLE_STYLE,
                              '408101',
                              '片状',
                              '408102',
                              '环状') AS DESC_SAMPLE_STYLE,
                       (SELECT SPLINE_NO
                          FROM COM_BASE_SPLINE C
                         WHERE C.EIC = T.EIC) SPLINE_NO, --试样编码
                       (SELECT DISTINCT M.SPECL_FL
                          FROM CRAFT_ORD_DESIGN_STD_PIC M
                         WHERE M.DESGIN_KEY = T.DESGIN_KEY
                           AND M.PIC = T.PIC) SPECL_FL
                
                  FROM PLN_ZY_RCL_M                 S,
                       PLN_SALEORD                  T2,
                       CRAFT_ORD_DESIGN             T3,
                       CRAFT_ORD_DESIGN_STD_PIC_SMP T
                 WHERE S.ORD_LN_DLY_PK = T2.ORD_LN_DLY_PK
                   AND T2.ORD_LN_PK = T3.ORD_LN_PK
                   AND T3.CRAFT_SEQ = S.CRAFT_SEQ
                   AND T3.DESGIN_KEY = T.DESGIN_KEY
                   AND T.MSC_PLINE = S.INDEX_SEQ
                   AND T.PROCESS_CODE = 'F'
                   AND T.CRAFT_SOURCE = ?
                   AND S.PRO_PLAN_ID = ?
                   AND S.GX_PLAN_NO = ?
                   AND S.JUDGE_STOVE_NO = ?
                   AND T.RATE = ?
                   ) T) T
 WHERE RN = '1'
 ORDER BY T.PHY_CODE_MAX,
          T.PHY_CODE_MIN,
          T.ITEM_CODE_F,
          T.ITEM_CODE_W,
          T.ITEM_CODE_C
</query>
<query id = "FrmHttBatchSaplmeNew.getCheckNo" desc = "生成检验编号">
 SELECT ? || REGEXP_REPLACE('#JUDGE_STOVE_NO#', '-.*', '') ||
        LPAD(NVL(MAX(REPLACE(T.CHECK_NO,
                             ? ||
                             REGEXP_REPLACE('#JUDGE_STOVE_NO#', '-.*', ''),
                             '')),
                 0) + 1,
             1,
             0) CHECK_NO
   FROM PIPE_CHECKCONSIGN_BASEINFO T
  WHERE T.HEAT_NO = REGEXP_REPLACE('#JUDGE_STOVE_NO#', '-.*', '')
    AND T.PROCESS_CODE = ?
    AND T.CHECK_COUNT = '0'
    AND T.CRAFT_SOURCE IN ('0', '1')
</query>
<query id = "FrmHttBatchSaplmeNew.doQueryIsCheck" desc = "查询是否已委托过">
SELECT * FROM (SELECT S.CHECK_NO FROM PIPE_CHECKCONSIGN_BASEINFO S WHERE S.HEAT_NO = ? AND S.VALIDFLAG = '1' AND S.PROCESS_CODE = 'F'
AND S.CRAFT_SOURCE IN('0','1','3')
AND S.CHECK_COUNT = '0'
AND S.CHECK_NO NOT LIKE '%Y%'
ORDER BY S.CONSIGN_TIME DESC)
WHERE ROWNUM = 1
</query>
<query id = "FrmHttBatchSaplmeNew.updateMilPlanIsBatch" desc = "修改炉计划标识">
UPDATE PLN_ZY_RCL_M T SET T.IS_BATCH = '#IS_BATCH#',T.CHECK_NO = '#CHECK_NO#' WHERE NVL(T.ZY_BATCH_ID,'/') = NVL('#ZY_BATCH_ID#','/') AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
</query>
<query id = "FrmHttBatchSaplmeNew.updateHttPortIsBatch" desc = "修改管号队列表已委托">
DECLARE
BEGIN
  UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
     SET T.IS_BATCH = '#IS_BATCH#',
         T.CHECK_NO = DECODE(T.CHECK_NO,
                             NULL,
                             '#CHECK_NO#',
                             T.CHECK_NO || ',' || '#CHECK_NO#')
   WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
     AND T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
     AND T.PHY_BATCH_NO = '#PHY_BATCH_NO#'
     AND T.MAT_NO = '#MAT_NO#'
     AND T.PROCESS_SEQ =
         (SELECT REAL_PROCESS_SEQ
            FROM PLN_ZY_RCL_M
           WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO);
  UPDATE PORT_HTT_BATCH_SAMPLE_DETIAL T
     SET T.CHECK_NO = '#CHECK_NO#', T.IS_BATCH = '3'
   WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
     AND T.BATCH_NO = '#PHY_BATCH_NO#'
     AND T.MAT_NO = '#MAT_NO#'
     AND T.SAMPLE_PIPE_POSTION = '#SAMPLE_PIPE_POSTION#'
     AND T.IS_BATCH = '2';
END;
</query>
<query id = "FrmHttBatchSaplmeNew.cancelUpdateHttPortIsBatch" desc = "修改管号队列表已委托">
DECLARE
  V_CHECK_NO PORT_HTT_BATCH_SAMPLE_RESULT.CHECK_NO%TYPE := NULL;
  V_IS_BATCH PORT_HTT_BATCH_SAMPLE_RESULT.IS_BATCH%TYPE := NULL;
BEGIN
  FOR MYROW IN (SELECT *
                  FROM PORT_HTT_BATCH_SAMPLE_DETIAL T
                 WHERE T.CHECK_NO = '#CHECK_NO#') LOOP
    UPDATE PORT_HTT_BATCH_SAMPLE_DETIAL T
       SET T.CHECK_NO = '', T.IS_BATCH = '2'
     WHERE T.PHYDETAIL_ID = MYROW.PHYDETAIL_ID;
    FOR MYROW1 IN (SELECT T.CHECK_NO
                     FROM PORT_HTT_BATCH_SAMPLE_DETIAL T
                    WHERE T.MAT_NO = MYROW.MAT_NO
                    AND T.CHECK_NO IS NOT NULL
                    GROUP BY T.CHECK_NO
                    ORDER BY T.CHECK_NO ASC) LOOP
      IF (V_CHECK_NO != '') THEN
        V_CHECK_NO := V_CHECK_NO || ',' || MYROW1.CHECK_NO;
      ELSE
        V_CHECK_NO := MYROW1.CHECK_NO;
      END IF;
    END LOOP;
    IF (V_CHECK_NO = '') THEN
      V_IS_BATCH := '2';
    ELSE
      V_IS_BATCH := '3';
    END IF;
    UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
       SET T.IS_BATCH = V_IS_BATCH, T.CHECK_NO = V_CHECK_NO
     WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
       AND NVl(T.LOT_NO, '/') = NVL('#ZY_BATCH_ID#', '/')
       AND T.MAT_NO = MYROW.MAT_NO
       AND T.PROCESS_SEQ =
           (SELECT REAL_PROCESS_SEQ
              FROM PLN_ZY_RCL_M
             WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO);
  END LOOP;
END;
</query>
    <query id = "FrmHttBatchSaplmeNew.GetCIC" desc = "热处理炉计划获取CIC信息">
        UPDATE pln_zy_rcl_m t3
        SET t3.cic = (
        SELECT
        decode(
        ( instr( max( CIC ), ',', 1 ) ),
        0,
        max( CIC ),
        substr( max( CIC ), 0, ( instr( max( CIC ), ',', 1 ) ) - 1 )
        )
        FROM
        pln_order_rcl_s
        WHERE
        craft_file_no = t3.craft_file_no
        ) ,
        T3.PIC = (SELECT
        C1.PIC
        FROM
        PLN_ORDER_RCL_S T,
        PLN_SALEORD T1,
        CRAFT_ORD_DESIGN C,
        CRAFT_ORD_DESIGN_MSC_PL_PRC C1,
        pln_zy_rcl_m M
        WHERE
        T1.ORD_LN_DLY_PK = T.ORD_LN_DLY_PK
        AND C.ORD_LN_PK = T1.ORD_LN_PK
        AND c.DESGIN_KEY = c1.DESGIN_KEY
        AND C.CRAFT_SEQ = m.CRAFT_SEQ
        AND c.VALIDFLAG = '1'
        AND C1.MSC_PLINE = T.INDEX_SEQ
        AND C1.PROCESS_CODE = 'F'
        AND T.PRO_PLAN_ID = M.PRO_PLAN_ID
        AND T.GX_PLAN_NO = M.GX_PLAN_NO
        AND M.HEAT_PLAN_NO = t3.heat_plan_no)
        WHERE
        t3.heat_plan_no = ?
    </query>
<query id = "FrmHttBatchSaplmeNew.CancelupdateHttPortIsBatch" desc = "撤销委托修改管号队列表已委托">
UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
   SET T.IS_BATCH = '#IS_BATCH#',
   T.CHECK_NO = '#CHECK_NO#'
 WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
   AND T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
   AND T.PHY_BATCH_NO = '#PHY_BATCH_NO#'
</query>
<query id = "FrmHttBatchSaplmeNew.SelectHeatCheckNo" desc = "查询检验编号集合">
SELECT T.CHECK_NO
  FROM PLN_ZY_RCL_M T
 WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
   AND T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
</query>
<query id = "FrmHttBatchSaplmeNew.doQueryDetialSampleNo" desc = "查询检验委托试样组信息">
SELECT S.*
  FROM PIPE_CHECKCONSIGN_BASEINFO T, PIPE_CHECKCONSIGN_DETAIL S
 WHERE T.CHECK_NO = S.CHECK_NO
   AND T.PROCESS_CODE = 'F'
   AND INSTR(?, S.CHECK_NO) > 0
   ORDER BY S.BATCH_NO,S.SAMPLE_NO
</query>
<query id = "FrmHttBatchSaplmeNew.updateMatBcIsSample" desc = "重新标记样管">
DECLARE
  V_MAT_NO MAT_BC_M.ZG_MAT_NO%TYPE := NULL;
BEGIN
  UPDATE MAT_BC_M T
     SET T.QCM_STAUS = '22',
     T.JUDGE_RESULT_CODE = '40740705',
     T.JUDGE_RESULT = '废品',
     T.JUDGE_MAKER = 'SYSTEM'
   WHERE T.ZG_MAT_NO = '#MAT_NO#'
     AND T.BATCH_NO = '#BATCH_NO#'
     AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#';
  UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
     SET T.MAT_STATUS = '10'
   WHERE T.MAT_NO = '#MAT_NO#'
     AND T.MAT_STATUS = '00';
  SELECT MAT_NO
    INTO V_MAT_NO
    FROM (SELECT T.MAT_NO
            FROM PORT_HTT_BATCH_SAMPLE_RESULT T
           WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
             AND T.BATCH_NO = '#BATCH_NO#'
             AND T.MAT_STATUS = '00'
             AND T.IS_SAMPLE_PIPE = '0'
           ORDER BY T.MAT_NO ASC)
   WHERE ROWNUM = 1;
  UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
     SET T.IS_SAMPLE_PIPE = '1'
   WHERE T.MAT_NO = V_MAT_NO;
  UPDATE MAT_BC_M T SET T.SAMPLE_FLAG = '1' WHERE T.ZG_MAT_NO = V_MAT_NO;
END;
</query>
<query id = "FrmHttBatchSaplmeNew.updatePortSql" desc = "删除新样管">
DECLARE
BEGIN
  UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
     SET T.IS_SAMPLE_PIPE = '0'
   WHERE T.MAT_NO = '#MAT_NO#'
     AND T.MAT_STATUS = '00';
  UPDATE MAT_BC_M T
     SET T.QCM_STAUS         = '00',
         T.JUDGE_RESULT_CODE = '',
         T.JUDGE_RESULT      = '',
         T.JUDGE_MAKER       = ''
   WHERE T.ZG_MAT_NO = '#MAT_NO#';
END;
</query>
<query id = "FrmHttBatchSaplmeNew.updatePortOldSql" desc = "恢复旧样管">
DECLARE
BEGIN
  UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
     SET T.MAT_STATUS = '00'
   WHERE T.MAT_NO = '#MAT_NO#'
     AND T.MAT_STATUS = '10'
     AND T.IS_SAMPLE_PIPE = '1';
  UPDATE MAT_BC_M T
     SET T.QCM_STAUS         = '00',
         T.JUDGE_RESULT_CODE = '',
         T.JUDGE_RESULT      = '',
         T.JUDGE_MAKER       = ''
   WHERE T.ZG_MAT_NO = '#MAT_NO#';
END;
</query>
<query id = "FrmHttBatchSaplmeNew.SelectPortHttCheckNo" desc = "查询炉计划委托编号集合">
SELECT T.CHECK_NO
  FROM PORT_HTT_BATCH_SAMPLE_RESULT T
 WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
   AND T.LOT_NO = '#ZY_BATCH_ID#'
   AND T.IS_BATCH = '3'
   AND T.CHECK_NO IS NOT NULL
   GROUP BY T.CHECK_NO
</query>
<query id = "FrmHttBatchSaplmeNew.SelectPortDetialCheckNo" desc = "查询单支管的检验编号">
SELECT T.CHECK_NO
  FROM PORT_HTT_BATCH_SAMPLE_DETIAL T
 WHERE T.MAT_NO = '#MAT_NO#'
 GROUP BY T.CHECK_NO
 ORDER BY T.CHECK_NO ASC;
</query>
<query id = "FrmHttBatchSaplmeNew.deleteConsingCheckNo" desc = "删除产销检验记录">
DECLARE
BEGIN
  FOR V IN (SELECT A.CHECK_NO, A.JUDGE_STOVE_NO, A.BATCH_NO
              FROM QCM_ZC_CHECKCONSIGN A
             WHERE A.CHECK_NO = '#CHECK_NO#') LOOP
    UPDATE QCM_JHY_ELEMENTS T
       SET T.LG_JUDGE_FLAG = '00'
     WHERE T.JUDGE_STOVE_NO = V.JUDGE_STOVE_NO
       AND T.BATCH_NO = V.BATCH_NO
       AND T.SAMPLE_ID = V.CHECK_NO;
    UPDATE QCM_JHY_PHYRESULT T
       SET T.JUDGE_FLAG = '00'
     WHERE T.JUDGE_STOVE_NO = V.JUDGE_STOVE_NO
       AND T.BATCH_NO = V.BATCH_NO
       AND T.SAMPLE_ID = V.CHECK_NO;
  END LOOP;

  DELETE FROM QCM_ZC_CHECKCONSIGN T WHERE T.CHECK_NO = '#CHECK_NO#';
  DELETE FROM QCM_ZC_CHECKCONSIGN_DETAIL T WHERE T.CHECK_NO = '#CHECK_NO#';
END;
</query>
<query id = "FrmHttBatchSaplmeNew.insertHttMatNo" desc = "取样M端时新增管号队列">
DECLARE
  V_MAT_NO PORT_HTT_BATCH_SAMPLE_RESULT.MAT_NO%TYPE := NULL;
BEGIN
  UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
     SET T.ACT_LEN = T.ACT_LEN/2,
     --T.ACT_LEN = (TO_NUMBER('#ACT_LEN#')- TO_NUMBER(T.SAMPLE_PIPE_LEN))/2,
     T.ACT_WEIGHT = TO_NUMBER(T.ACT_WEIGHT)/2,
     T.ACT_THEORY_WEIGHT = TO_NUMBER(T.ACT_THEORY_WEIGHT)/2
   WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
     AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
     AND T.MAT_NO = '#MAT_NO#';
  SELECT '#JUDGE_STOVE_NO#' || '#BATCH_NO#' ||
         LPAD(NVL(MAX(SUBSTR(T.MAT_NO, LENGTH(T.MAT_NO) - 3)), 0) + 1, 4, 0)
    INTO V_MAT_NO
    FROM (SELECT MAX(T1.MAT_NO) MAT_NO
            FROM MAT_BC_M T1
           WHERE T1.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
             AND T1.BATCH_NO = '#BATCH_NO#'
          UNION ALL
          SELECT MAX(T3.MAT_NO) MAT_NO
            FROM MAT_BC_BACKUP T3
           WHERE T3.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
             AND T3.BATCH_NO = '#BATCH_NO#'
          UNION ALL
          SELECT MAX(T4.MAT_NO) MAT_NO
            FROM YDM_BC_INLIST T4
           WHERE T4.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
             AND T4.BATCH_NO = '#BATCH_NO#') T;
  INSERT INTO PORT_HTT_BATCH_SAMPLE_RESULT
    SELECT HEAT_PLAN_NO,
        V_MAT_NO,
        M_MAT_NO,
        M_M_MAT_NO,
        LOT_NO,
        LOT_NO_SQE,
        PLINE_CODE,
        PLINE_NAME,
        JUDGE_STOVE_NO,
        BATCH_NO,
        GROUP_NO,
        STOVE_NO,
        FLAG_STOVE_NO,
        ACT_DIMATER,
        ACT_HEIGHT,
        ACT_LEN,
        ACT_LEN_MIN,
        ACT_LEN_MAX,
        ACT_COUNT,
        ACT_WEIGHT,
        ACT_THEORY_WEIGHT,
        '0',
        '',
        '',
        '',
        '',
        '',
        OLD_JUDGE_STOVE_NO,
        GROUP_FLAG,
        OP_PROCESS,
        MAT_STATUS,
        LEVE_LOG,
        INSTORE_FLAG,
        VM_INSTORE_FLAG,
        PRC_TECHNOLOGY_PATH,
        RETURN_PROCESS,
        PHY_BATCH_NO,
        PRO_YEAR_MONTH_DAY,
        BAL_YEAR_MONTH,
        JUGDE_APPLY_CODE,
        JUGDE_APPLY,
        PRO_USER,
        PRO_SHIFT,
        PRO_GROUP,
        PRO_TIME,
        REMARK,
        '',
        '',
        CHEM_RESULT_CODE,
        PHY_RESULT_CODE,
        HEAT_PLAN_SQE,
        '',
        '',
        TR_FLAG,
        FEED_HEAT_NO,
        PROCESS_SEQ,
        RESULT_NO,
        '0',
        '',
        '',
        '',
        '',
        '',
        '',
        '',
        '#MAT_NO#',
        '',
        '',
        '',
        '',
        '',
        '',
        '',
        '',
        '0',
        '',
        '',
        '',
        '0',
        '',
        '',
        '',
        '',
        '',
        '',
        '',
        '',
        '',
        '',
        '',
        '',
        '',
        '1'
      FROM PORT_HTT_BATCH_SAMPLE_RESULT T
     WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
       AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
       AND T.MAT_NO = '#MAT_NO#';
END;
</query>
<query id = "FrmHttBatchSaplmeNew.doQueryRepeatRack" desc = "查询管号队列(复取样)">
<![CDATA[
SELECT ROWNUM SEQ,
       MAT_NO,
       RESAMPLE_PIPE_LEN_A,
       RESAMPLE_PIPE_LEN_B,
       RESAMPLE_PIPE_LEN_C,
       RESAMPLE_PIPE_LEN_D,
       RESAMPLE_PIPE_LEN_M,
       RESAMPLE_PIPE_LEN_E,
       RESAMPLE_PIPE_LEN_F,
       RESAMPLE_PIPE_LEN_P,
       RESAMPLE_PIPE_LEN_Q,
       HEAT_PLAN_NO,
       JUDGE_STOVE_NO,
       BATCH_NO,
       PHY_BATCH_NO,
       MAT_STATUS,
       ACT_LEN,
       IS_SAMPLE_PIPE,
       IS_BATCH
  FROM (SELECT T.MAT_NO,
               T.RESAMPLE_PIPE_LEN_A,
               T.RESAMPLE_PIPE_LEN_B,
               T.RESAMPLE_PIPE_LEN_C,
               T.RESAMPLE_PIPE_LEN_D,
               T.RESAMPLE_PIPE_LEN_M,
               T.RESAMPLE_PIPE_LEN_E,
               T.RESAMPLE_PIPE_LEN_F,
               T.RESAMPLE_PIPE_LEN_P,
               T.RESAMPLE_PIPE_LEN_Q,
               T.HEAT_PLAN_NO,
               T.JUDGE_STOVE_NO,
               T.PHY_BATCH_NO,
               T.BATCH_NO,
               T.ACT_LEN,
               DECODE(T.MAT_STATUS, '00', '是', '否') MAT_STATUS,
               T.IS_SAMPLE_PIPE,
               T.IS_BATCH
          FROM PORT_HTT_BATCH_SAMPLE_RESULT T
         WHERE T.JUDGE_STOVE_NO = ?
           AND (T.MAT_STATUS IN ('00','20') OR (T.MAT_STATUS = '10' AND T.OP_PROCESS NOT IN('600201','600202','600203','600204')))
           AND T.PROCESS_SEQ = (SELECT REAL_PROCESS_SEQ FROM PLN_ZY_RCL_M WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO )
         ORDER BY NVL(T.PHY_BATCH_NO,'99999'),T.MAT_STATUS,T.MAT_NO ASC)
         ]]>
</query>
<query id = "FrmHttBatchSaplmeNew.doQueryResampleInfo" desc = "查询复样样管基础信息">
SELECT 
			       PHY_BATCH_NO,
			       MAT_NO,
                   RESAMPLE_PIPE_LEN_A,
			       RESAMPLE_PIPE_LEN_B,
                   RESAMPLE_PIPE_LEN_C,
                   RESAMPLE_PIPE_LEN_D,
                   RESAMPLE_PIPE_LEN_M,
                   RESAMPLE_PIPE_LEN_E,
                   RESAMPLE_PIPE_LEN_F,
                   RESAMPLE_PIPE_LEN_P,
                   RESAMPLE_PIPE_LEN_Q
			  FROM PORT_HTT_BATCH_SAMPLE_RESULT T
             WHERE IS_SAMPLE_PIPE = '1'
			   AND JUDGE_STOVE_NO = ?
			   AND RE_CHECK_NO = ?
			   AND RE_GET_SAMPLE_STATUS = '1'
			   AND T.PROCESS_SEQ = (SELECT REAL_PROCESS_SEQ FROM PLN_ZY_RCL_M WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO )
		  ORDER BY PHY_BATCH_NO,MAT_NO	
</query>
<query id = "FrmHttBatchSaplmeNew.updatePortMilResultReSample" desc = "复取样完成修改管号队列">
UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
   SET T.IS_SAMPLE_PIPE  = '#IS_SAMPLE_PIPE#',
       T.RESAMPLE_PIPE_LEN_A = '#RESAMPLE_PIPE_LEN_A#',
       
       T.RESAMPLE_PIPE_LEN_B = '#RESAMPLE_PIPE_LEN_B#',
       
       T.RESAMPLE_PIPE_LEN_C = '#RESAMPLE_PIPE_LEN_C#',
       
       T.RESAMPLE_PIPE_LEN_D = '#RESAMPLE_PIPE_LEN_D#',
       
       T.RESAMPLE_PIPE_LEN_M = '#RESAMPLE_PIPE_LEN_M#',
       
       
       T.RESAMPLE_PIPE_LEN_E = '#RESAMPLE_PIPE_LEN_E#',
       
       T.RESAMPLE_PIPE_LEN_F = '#RESAMPLE_PIPE_LEN_F#',
       
       T.RESAMPLE_PIPE_LEN_P = '#RESAMPLE_PIPE_LEN_P#',
       
       T.RESAMPLE_PIPE_LEN_Q = '#RESAMPLE_PIPE_LEN_Q#',
       
       T.SAMPLE_PIPE_LEN = TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN,0)) + TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_A#',0))+TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_B#',0))+TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_C#',0))+TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_D#',0)) + TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_M#',0)) + TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_E#',0)) + TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_F#',0)) + TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_P#',0)) +TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_Q#',0)) ,
       T.RE_GET_SAMPLE_NAME = '#RE_GET_SAMPLE_NAME#',
       T.RE_GET_SAMPLE_TIME = TO_DATE('#RE_GET_SAMPLE_TIME#','YYYY-MM-DD HH24:MI:SS'),
       T.RE_GET_SAMPLE_STATUS = '#RE_GET_SAMPLE_STATUS#',
       T.RE_CHECK_NO = '#RE_CHECK_NO#'
 WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
   AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
   AND T.MAT_NO = '#MAT_NO#'
</query>
<query id = "FrmHttBatchSaplmeNew.CancelupdatePortMilResultReSample" desc = "复取样完成修改管号队列">
DECLARE
  ACOUNT PORT_HTT_BATCH_SAMPLE_RESULT.ACT_COUNT%TYPE := NULL;
BEGIN
  FOR MYROW IN (SELECT *
                  FROM PORT_HTT_BATCH_SAMPLE_RESULT T
                 WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
                   AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
                   AND T.RE_CHECK_NO = '#RE_CHECK_NO#'
                   AND T.RESAMPLE_PIPE_LEN_M IS NOT NULL) LOOP
    UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
       SET T.ACT_LEN           = T.ACT_LEN * 2,
           T.ACT_WEIGHT        = T.ACT_WEIGHT * 2,
           T.ACT_THEORY_WEIGHT = T.ACT_THEORY_WEIGHT * 2
     WHERE T.MAT_NO = MYROW.MAT_NO;
    DELETE FROM PORT_HTT_BATCH_SAMPLE_RESULT T
     WHERE T.MAT_NO_OLD = MYROW.MAT_NO;
  END LOOP;
  UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
   SET T.IS_SAMPLE_PIPE  = '#IS_SAMPLE_PIPE#',
       T.RESAMPLE_PIPE_LEN_A = '#RESAMPLE_PIPE_LEN_A#',
       T.RESAMPLE_PIPE_LEN_B = '#RESAMPLE_PIPE_LEN_B#',
       T.RESAMPLE_PIPE_LEN_C = '#RESAMPLE_PIPE_LEN_C#',
       T.RESAMPLE_PIPE_LEN_D = '#RESAMPLE_PIPE_LEN_D#',
       T.RESAMPLE_PIPE_LEN_M = '#RESAMPLE_PIPE_LEN_M#',
       T.RESAMPLE_PIPE_LEN_E = '#RESAMPLE_PIPE_LEN_E#',
       T.RESAMPLE_PIPE_LEN_F = '#RESAMPLE_PIPE_LEN_F#',
       T.RESAMPLE_PIPE_LEN_P = '#RESAMPLE_PIPE_LEN_P#',
       T.RESAMPLE_PIPE_LEN_Q = '#RESAMPLE_PIPE_LEN_Q#',
       T.SAMPLE_PIPE_LEN = TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN,0)) - TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_A#',0))- TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_B#',0))- TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_C#',0))-TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_D#',0)) - TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_M#',0)) - TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_E#',0)) - TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_F#',0)) - TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_P#',0)) - TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_Q#',0)) ,
       T.RE_GET_SAMPLE_NAME = '#RE_GET_SAMPLE_NAME#',
       T.RE_GET_SAMPLE_TIME = TO_DATE('#RE_GET_SAMPLE_TIME#','YYYY-MM-DD HH24:MI:SS'),
       T.RE_GET_SAMPLE_STATUS = '#RE_GET_SAMPLE_STATUS#',
       T.RE_CHECK_NO = ''
 WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
   AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
   AND T.MAT_NO = '#MAT_NO#'
   AND T.RE_CHECK_NO = '#RE_CHECK_NO#';
END;
</query>
<query id = "FrmHttBatchSaplmeNew.updatePortCopyMat" desc = "修改管号队列复取样状态">
UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
   SET T.RE_GET_SAMPLE_STATUS = '#RE_GET_SAMPLE_STATUS#'
 WHERE T.LOT_NO = '#LOT_NO#'
   AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
   AND T.MAT_NO = '#MAT_NO#'
</query>
<query id = "FrmHttBatchSaplmeNew.updateFlagSql" desc = "修改状态、删除产销委托数据">
DECLARE
BEGIN
  UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
     SET T.RE_GET_SAMPLE_STATUS = '1'
   WHERE T.LOT_NO = '#LOT_NO#'
     AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
     AND T.RE_GET_SAMPLE_STATUS = '2'
     AND T.RE_CHECK_NO = '#NEW_CHECK_NO#';
  --更新炉批结果表
  FOR V2 IN (SELECT T.*
               FROM QCM_ZC_CHECKCONSIGN_DETAIL T
              WHERE T.CHECK_NO = '#NEW_CHECK_NO#') LOOP
    IF V2.RATE = '408601' THEN
      FOR V IN (SELECT D.JUDGE_STOVE_NO,
                       D.BATCH_NO,
                       D.PROCESS_CODE,
                       D.ORD_LN_DLY_PK,
                       D.CRAFT_SOURCE
                  FROM QCM_ZC_CHECKCONSIGN C, QCM_ZC_CHECKCONSIGN D
                 WHERE C.CHECK_NO = V2.CHECK_NO
                   AND C.BATCH_NO = V2.BATCH_NO
                   AND D.LOT_NO = C.LOT_NO
                   AND (C.LOT_NO_GROUP IS NULL OR
                       C.LOT_NO_GROUP = D.LOT_NO_GROUP)
                   AND D.PROCESS_CODE = C.PROCESS_CODE
                   AND D.ORD_LN_DLY_PK = C.ORD_LN_DLY_PK
                 GROUP BY D.JUDGE_STOVE_NO,
                          D.BATCH_NO,
                          D.PROCESS_CODE,
                          D.ORD_LN_DLY_PK,
                          D.CRAFT_SOURCE) LOOP
        UPDATE QCM_BC_BATCH_RESULT A
           SET A.JUDGE_RESULT_CODE = '40740704'
         WHERE A.JUDGE_STOVE_NO = V.JUDGE_STOVE_NO
           AND A.BATCH_NO = V.BATCH_NO
           AND A.PROCESS_CODE = V.PROCESS_CODE
           AND A.ORD_LN_DLY_PK = V.ORD_LN_DLY_PK
           AND A.CRAFT_SOURCE = V.CRAFT_SOURCE;
      END LOOP;
    ELSIF V2.RATE = '408603' THEN
      FOR V IN (SELECT D.JUDGE_STOVE_NO,
                       D.BATCH_NO,
                       D.PROCESS_CODE,
                       D.ORD_LN_DLY_PK,
                       D.CRAFT_SOURCE
                  FROM QCM_ZC_CHECKCONSIGN C, QCM_ZC_CHECKCONSIGN D
                 WHERE C.CHECK_NO = V2.CHECK_NO
                   AND C.BATCH_NO = V2.BATCH_NO
                   AND D.JUDGE_STOVE_NO = C.JUDGE_STOVE_NO
                   AND D.PROCESS_CODE = C.PROCESS_CODE
                   AND D.ORD_LN_DLY_PK = C.ORD_LN_DLY_PK
                 GROUP BY D.JUDGE_STOVE_NO,
                          D.BATCH_NO,
                          D.PROCESS_CODE,
                          D.ORD_LN_DLY_PK,
                          D.CRAFT_SOURCE) LOOP
        UPDATE QCM_BC_BATCH_RESULT A
           SET A.JUDGE_RESULT_CODE = '40740704'
         WHERE A.JUDGE_STOVE_NO = V.JUDGE_STOVE_NO
           AND A.BATCH_NO = V.BATCH_NO
           AND A.PROCESS_CODE = V.PROCESS_CODE
           AND A.ORD_LN_DLY_PK = V.ORD_LN_DLY_PK
           AND A.CRAFT_SOURCE = V.CRAFT_SOURCE;
      END LOOP;
    ELSE
      FOR V IN (SELECT C.JUDGE_STOVE_NO,
                       C.BATCH_NO,
                       C.PROCESS_CODE,
                       C.ORD_LN_DLY_PK,
                       C.CRAFT_SOURCE
                  FROM QCM_ZC_CHECKCONSIGN C
                 WHERE C.CHECK_NO = V2.CHECK_NO
                   AND C.BATCH_NO = V2.BATCH_NO
                 GROUP BY C.JUDGE_STOVE_NO,
                          C.BATCH_NO,
                          C.PROCESS_CODE,
                          C.ORD_LN_DLY_PK,
                          C.CRAFT_SOURCE) LOOP
        UPDATE QCM_BC_BATCH_RESULT A
           SET A.JUDGE_RESULT_CODE = '40740704'
         WHERE A.JUDGE_STOVE_NO = V.JUDGE_STOVE_NO
           AND A.BATCH_NO = V.BATCH_NO
           AND A.PROCESS_CODE = V.PROCESS_CODE
           AND A.ORD_LN_DLY_PK = V.ORD_LN_DLY_PK
           AND A.CRAFT_SOURCE = V.CRAFT_SOURCE;
      END LOOP;
    END IF;
  END LOOP;
  -- 委托表
  DELETE FROM QCM_ZC_CHECKCONSIGN T WHERE T.CHECK_NO = '#NEW_CHECK_NO#';
  DELETE FROM QCM_ZC_CHECKCONSIGN_DETAIL T
   WHERE T.CHECK_NO = '#NEW_CHECK_NO#';
END;
</query>
<query id = "FrmHttBatchSaplmeNew.selectBarCode" desc = "查询管序号">
SELECT T.BAR_CODE FROM PORT_HTT_BATCH_SAMPLE_RESULT T WHERE T.MAT_NO = ? AND T.HEAT_PLAN_NO = ?
AND T.PROCESS_SEQ = (SELECT REAL_PROCESS_SEQ FROM PLN_ZY_RCL_M WHERE HEAT_PLAN_NO = T.HEAT_PLAN_NO )
</query>
<query id = "FrmHttBatchSaplmeNew.selectBarCodeF" desc = "查询复样管序号">
SELECT T.BAR_CODE FROM PORT_HTT_BATCH_SAMPLE_RESULT T WHERE T.MAT_NO = ? AND T.JUDGE_STOVE_NO = ?
</query>
<query id = "FrmHttBatchSaplmeNew.initBaseInfo" desc = "查询炉号下所有检验单">
SELECT T.CHECK_NO, T.CHECK_NO CHECK_NO_VALUE
  FROM PIPE_CHECKCONSIGN_BASEINFO T
 WHERE T.HEAT_NO = ?
   AND T.PROCESS_CODE = ?
   AND T.CRAFT_SOURCE = '0'
</query>
<query id = "FrmHttBatchSaplmeNew.doQueryQcmZcCheckConsing" desc = "查询是否已写该炉批">
SELECT COUNT(1)ACOUNT
  FROM QCM_ZC_CHECKCONSIGN T
 WHERE T.CHECK_NO = ?
   AND T.JUDGE_STOVE_NO = ?
   AND T.BATCH_NO = ?
   AND T.PROCESS_CODE = ?
</query>
<query id = "FrmHttBatchSaplmeNew.selectForCheckNoCount" desc = "查询是否已指定炉数">
SELECT COUNT(1)ACOUNT FROM PIPE_CHECKCONSIGN_DETAIL T WHERE T.FOR_CHECK_NO = '#CHECK_NO#'
</query>
<query id = "FrmHttBatchSaplmeNew.insertPortDetial" desc = "插入取样子表">
INSERT INTO PORT_HTT_BATCH_SAMPLE_DETIAL
  (HEAT_PLAN_NO,
   MAT_NO,
   LOT_NO,
   JUDGE_STOVE_NO,
   BATCH_NO,
   SAMPLE_PIPE_LEN,
   SAMPLE_PIPE_POSTION,
   CRAFT_SOURCE,
   PHY_CODE_GROUP)
VALUES
  ('#HEAT_PLAN_NO#',
   '#MAT_NO#',
   '#LOT_NO#',
   '#JUDGE_STOVE_NO#',
   '#BATCH_NO#',
   '#SAMPLE_PIPE_LEN#',
   '#SAMPLE_PIPE_POSTION#',
   '#CRAFT_SOURCE#',
   '#PHY_CODE_GROUP#')
</query>
<query id = "FrmHttBatchSaplmeNew.doQueryHeadNum" desc = "查询管头数量">
SELECT T.BATCH_NO,COUNT(1)ACOUNT
  FROM PORT_HTT_BATCH_SAMPLE_DETIAL T
  WHERE T.HEAT_PLAN_NO = ?
  AND T.JUDGE_STOVE_NO = ?
  GROUP BY T.BATCH_NO
</query>
<query id = "FrmHttBatchSaplmeNew.selectTestResultCount" desc = "查询是否经过探伤">
SELECT COUNT(1)ACOUNT
  FROM HTT_CRACK_DETECTION_ET T
 WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
   AND T.BATCH_NO >= '#PHY_BATCH_NO#'
</query>
<query id = "FrmHttBatchSaplmeNew.doQueryPhyMaxPipece" desc = "查询是否存在逐支取样试样组">
SELECT S1.*
          FROM PLN_ZY_RCL_M              S,
               PLN_SALEORD              T2,
               CRAFT_ORD_DESIGN         T3,
               CRAFT_ORD_DESIGN_STD_PIC_SMP S1
         WHERE S.ORD_LN_DLY_PK = T2.ORD_LN_DLY_PK
           AND T2.ORD_LN_PK = T3.ORD_LN_PK
           AND T3.CRAFT_SEQ = S.CRAFT_SEQ
           AND S1.MSC_PLINE = S.INDEX_SEQ
           AND (S1.PIC = S.PIC OR S1.CRAFT_SOURCE = '2')
           AND T3.DESGIN_KEY = S1.DESGIN_KEY
           AND S1.PROCESS_CODE = 'F'
           AND S.PRO_PLAN_ID = ?
           AND S.GX_PLAN_NO = ?
           AND S.JUDGE_STOVE_NO = ?
           AND S1.CRAFT_SOURCE = ?
           AND S1.RATE = '408607'
</query>
<query id = "FrmHttBatchSaplmeNew.doQuerySampleMatNo" desc = "查询所有委托信息">
SELECT S.* ,SUBSTR(S.SAMPLE_NO,LENGTH(S.SAMPLE_NO))POSTION
  FROM PIPE_CHECKCONSIGN_BASEINFO T, PIPE_CHECKCONSIGN_DETAIL S
 WHERE T.CHECK_NO = S.CHECK_NO
   AND T.PROCESS_CODE = 'F'
   AND T.HEAT_NO = ?
   AND T.CRAFT_SOURCE = ?
   AND S.PHY_CODE_MAX IN
       ('C0003', 'C0021', 'C0075', 'C0076', 'C0101', 'C0004', 'C0077',
        'C0078', 'C0100', 'C0102', 'C0103', 'C0107', 'C0130', 'C0131', 'C0005', 'C0079','C0080','C0081')
</query>
<query id = "FrmHttBatchSaplmeNew.doQueryLotNoCount" desc = "查询是否已取首日检生产批号与委托是否相同">
<![CDATA[
SELECT COUNT(1) ACOUNT
  FROM PIPE_CHECKCONSIGN_BASEINFO T
 WHERE T.CONTRACT_NO = '#ORDER_NO#'||'/'||'#ORDER_SEQ#'
   AND T.PLINE_CODE = '#PLINE_CODE#'
   --AND T.LOT_NO <> '#ZY_BATCH_ID#'
   AND T.CRAFT_SOURCE = '1'
]]>
</query>
<query id = "FrmHttBatchSaplmeNew.selectPortVrpCount" desc = "查询下线支数">
    SELECT NVL(SUM(T.ACT_COUNT),0) ACOUNT
    FROM PORT_HTT_BATCH_SAMPLE_RESULT T
    WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
    AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
    AND T.INSTORE_FLAG = '1'
</query>
<query id = "FrmHttBatchSaplmeNew.doQueryPrdcrNo" desc = "查询监制编号">
select t.*
  from PLN_ORDER_RCL_S t
 WHERE T.PRO_PLAN_ID = ?
   AND T.GX_PLAN_NO = ?
</query>
</queryMap>