| 1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270 |
- <?xml version="1.0" encoding="UTF-8"?>
- <queryMap desc="管材检验委托单录入">
- <query id="FrmCheckConsignAdd.QueryCheckConsignBase" desc="查询检验委托基本信息">
- <![CDATA[
- SELECT CHECK_NO,
- HEAT_NO,
- LOT_NO,
- CRAFT_PATH,
- PLINE_CODE,
- DECODE(CRAFT_SOURCE,
- '0',
- '生产样',
- '1',
- '首日检',
- '2',
- '科研样',
- '3',
- '生产预备样',
- '4',
- '外购管委托',
- '5',
- '技术中心内部委托',
- '6',
- '委外热处理样',
- '7',
- '生产补样') CRAFT_SOURCE,
- STEEL_GRADE,
- STEEL_NO,
- PRODUCT_STD,
- CONTRACT_NO,
- CHECK_COUNT,
- DIMATER,
- HEIGHT,
- DIMATER || '*' || HEIGHT PIPE_SIZE,
- CRAFT_FILE_NO,
- PRODUCT_NAME,
- BUCKLE_TYPE,
- PROCESS_STATUS,
- ISPRODUCER,
- DECODE(ISPRODUCER, '0', '否', '1', '是') AS ISPRODUCER_DESC,
- SPEC_REQ,
- IS_RUSH,
- RUSH_NAME,
- RUSH_TIME,
- CONSIGN_DEPT,
- CONSIGN_NAME,
- CONSIGN_TIME,
- GET_NAME,
- GET_TIME,
- CONSIGNDEPT_SEND_NAME,
- CONSIGNDEPT_SEND_TIME,
- JG_RECEIVE_NAME,
- JG_RECEIVE_TIME,
- FLAG,
- DECODE(FLAG,
- '0',
- '委托单位未下发',
- '1',
- '委托单位已下发',
- '2',
- '加工已确认') AS FLAG_DESC,
- SAMPLE_REMARK,
- REMARK
- FROM PIPE_CHECKCONSIGN_BASEINFO S
- WHERE VALIDFLAG = '1'
- AND DATA_TYPE = '1'
- /*AND INSTR(?, FLAG) > 0
- AND (CONSIGN_TIME BETWEEN TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS') AND
- TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'))
- AND DECODE(?, NULL, '1', STEEL_GRADE) = DECODE(?, NULL, '1', ?)
- AND (HEAT_NO LIKE '%' || ? || '%' OR HEAT_NO IS NULL)
- AND CHECK_NO LIKE '%' || ? || '%'
- ORDER BY IS_RUSH DESC, RUSH_TIME, CHECK_NO
- */
- ]]>
- </query>
- <query id="FrmCheckConsignAdd.QueryCheckConsignBaseTips" desc="查询检验委托基本信息">
- <![CDATA[
- SELECT FLAG
- FROM PIPE_CHECKCONSIGN_BASEINFO
- WHERE CHECK_NO = ?
- ]]>
- </query>
-
- <query id="FrmCheckConsignAdd.querySampleNo" desc="查询试样号">
- <![CDATA[
- select COUNT(1) ACOUNT from PIPE_CHECKCONSIGN_DETAIL t WHERE T.SAMPLE_NO = ?
- ]]>
- </query>
-
- <query id="FrmCheckConsignAdd.querySampleNoHX" desc="查询试样号">
- <![CDATA[
- select COUNT(1) ACOUNT from PIPE_CHECKCONSIGN_CHEMDETAIL t WHERE T.SAMPLE_NO = ?
- ]]>
- </query>
-
- <query id="FrmCheckConsignAdd.QueryCheckConsignDetail" desc="查询检验委托明细信息">
- <![CDATA[
- SELECT DISTINCT
- 'TRUE' CHK,
- PHY_CODE_MAX,
- PHY_NAME_MAX,
- DEPT_ID
- FROM PIPE_CHECKCONSIGN_DETAIL
- WHERE PHY_CODE_MAX != 'HX'
- AND PHY_CODE_MAX != 'ONH'
- AND CHECK_NO = ?
- ORDER BY PHY_CODE_MAX
- ]]>
- </query>
- <query id="FrmCheckConsignAdd.QueryCheckConsignPhyDetail_SampleCode"
- desc="查询检验委托明细试样组取样码信息">
- <![CDATA[
- SELECT DISTINCT
- 'TRUE' CHK,
- PHY_CODE_MAX,
- PHY_NAME_MAX,
- DEPT_ID,
- PHY_CODE_MIN,
- PHY_NAME_MIN
- FROM PIPE_CHECKCONSIGN_PHYDETAIL
- WHERE CHECK_NO = ?
- ORDER BY PHY_CODE_MAX,PHY_CODE_MIN
- ]]>
- </query>
- <query id="FrmCheckConsignAdd.QueryCheckConsignPhyDetail_SampleCode_Log"
- desc="查询检验委托明细试样组取样码信息">
- <![CDATA[
- SELECT DISTINCT
- 'TRUE' CHK,
- PHY_CODE_MAX,
- PHY_NAME_MAX,
- DEPT_ID,
- PHY_CODE_MIN,
- PHY_NAME_MIN,
- SAMPLE_KEY,
- SAMPLE_KEY_DESC
- FROM PIPE_CHECKCONSIGN_DETAIL
- WHERE CHECK_NO = ?
- ORDER BY PHY_CODE_MAX,PHY_CODE_MIN,SAMPLE_KEY
- ]]>
- </query>
-
- <query id="FrmCheckConsignAdd.QueryCheckConsignPhyDetail" desc="查询检验委托明细信息">
- <![CDATA[
- SELECT DISTINCT
- 'TRUE' CHK,
- PHY_CODE_MAX,
- PHY_NAME_MAX,
- DEPT_ID,
- PHY_CODE_MIN,
- PHY_NAME_MIN,
- PHY_CODE,
- PHY_NAME,
- PHY_UNIT
- FROM PIPE_CHECKCONSIGN_PHYDETAIL
- WHERE CHECK_NO = ?
- ORDER BY PHY_CODE_MAX,PHY_CODE_MIN,PHY_CODE
- ]]>
- </query>
- <query id="FrmCheckConsignAdd.QueryCheckConsignPhyDetail_R" desc="查询检验委托明细信息">
- <![CDATA[
- SELECT DISTINCT
- 'TRUE' CHK,
- PHY_CODE_MAX,
- PHY_NAME_MAX,
- DEPT_ID,
- PHY_CODE_MIN,
- PHY_NAME_MIN,
-
- --PHY_UNIT,
- ITEM_CODE_F,
- ITEM_NAME_F,
- ITEM_CODE_W,
- ITEM_NAME_W,
- ITEM_CODE_S ITEM_CODE_C,
- ITEM_NAME_S ITEM_NAME_C
- FROM PIPE_CHECKCONSIGN_PHYDETAIL
- WHERE CHECK_NO = ?
- ORDER BY PHY_CODE_MAX,PHY_CODE_MIN,ITEM_CODE_F,ITEM_CODE_W,ITEM_CODE_S
- ]]>
- </query>
- <query id="FrmCheckConsignAdd.AddCheckConsignBase" desc="新增检验委托基础数据">
- <![CDATA[
- INSERT INTO PIPE_CHECKCONSIGN_BASEINFO
- (CHECK_NO,
- HEAT_NO,
- STEEL_GRADE,
- STEEL_NO,
- LOT_NO,
- CRAFT_PATH,
- CRAFT_FILE_NO,
-
- PRODUCT_STD,
- CONTRACT_NO,
- DIMATER,
- HEIGHT,
- CONSIGN_DEPT,
- CONSIGN_NAME,
- CONSIGN_TIME,
- ISPRODUCER,
- SPEC_REQ,
- FLAG,
- REMARK,
- DATA_TYPE,
- PLINE_CODE,
- PROCESS_CODE,
- CRAFT_SOURCE,
- BATCH_NO,
- SUPPLY_UNIT_CODE,
- SUPPLY_UNIT)
- VALUES
- (?,?,?,?,?,?,?,?,?,?,?,?,?,SYSDATE,?,?,?,?,?,?,?,?,?,?,?)
- ]]>
- </query>
- <query id="FrmCheckConsignAdd.AddCheckConsignJG" desc="新增检验委托加工表数据">
- <![CDATA[
- INSERT INTO PIPE_CHECKCONSIGN_JGINFO
- (CHECK_NO,
- SAMPLE_NO)
- VALUES
- (?,?)
- ]]>
- </query>
- <query id="FrmCheckConsignAdd.AddCheckConsignDetail" desc="新增检验委托明细表数据DEPT_ID">
- <![CDATA[
- INSERT INTO PIPE_CHECKCONSIGN_DETAIL
- (CHECK_NO,
- SAMPLE_NO,
- BATCH_NO,
- PHY_CODE_MAX,
- PHY_NAME_MAX,
- DEPT_ID,
- SAMPLE_COUNT,
- PHY_DIR,
- SIZE_DESC)
- VALUES
- (?,?,?,?,?,?,?,?,?)
- ]]>
- </query>
- <query id="FrmCheckConsignAdd.AddCheckConsignPhyDetail" desc="新增检验委托理化明细表数据">
- <![CDATA[
- INSERT INTO PIPE_CHECKCONSIGN_PHYDETAIL
- (CHECK_NO,
- SAMPLE_NO,
- BATCH_NO,
- PHY_CODE_MAX,
- PHY_NAME_MAX,
- DEPT_ID,
- PHY_CODE_MIN,
- PHY_NAME_MIN,
- PHY_CODE,
- PHY_NAME,
- PHY_UNIT,
- ITEM_CODE_F,
- ITEM_NAME_F,
- ITEM_CODE_W,
- ITEM_NAME_W,
- ITEM_CODE_S,
- ITEM_NAME_S)
- VALUES
- (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)
- ]]>
- </query>
- <query id="FrmCheckConsignAdd.AddCheckConsignChemDetail" desc="新增检验委托化学明细表数据">
- <![CDATA[
- INSERT INTO PIPE_CHECKCONSIGN_CHEMDETAIL
- (CHECK_NO,
- SAMPLE_NO,
- BATCH_NO,
- CHEM_NAME,
- CHEM_CODE)
- VALUES
- (?,?,?,?,?)
- ]]>
- </query>
- <query id="FrmCheckConsignAdd.UpdateCheckConsign" desc="修改检验委托">
- <![CDATA[
- SELECT *FROM PIPE_CHECKCONSIGN_BASEINFO
- ]]>
- </query>
- <query id="FrmCheckConsignAdd.DeleteCheckConsignBase" desc="删除检验委托基础数据">
- <![CDATA[
- DELETE PIPE_CHECKCONSIGN_BASEINFO
- WHERE CHECK_NO = ?
- ]]>
- </query>
- <query id="FrmCheckConsignAdd.DeleteCheckConsignJG" desc="删除检验委托加工数据">
- <![CDATA[
- DELETE PIPE_CHECKCONSIGN_JGINFO
- WHERE CHECK_NO = ?
- ]]>
- </query>
- <query id="FrmCheckConsignAdd.DeleteCheckConsignDetail" desc="删除检验委托明细数据">
- <![CDATA[
- DELETE PIPE_CHECKCONSIGN_DETAIL
- WHERE CHECK_NO = ?
- ]]>
- </query>
- <query id="FrmCheckConsignAdd.DeleteCheckConsignPhyDetail" desc="删除检验委托理化项目明细数据">
- <![CDATA[
- DELETE PIPE_CHECKCONSIGN_PHYDETAIL
- WHERE CHECK_NO = ?
- ]]>
- </query>
- <query id="FrmCheckConsignAdd.DeleteCheckConsignChemDetail" desc="删除检验委托化学项目明细数据">
- <![CDATA[
- DELETE PIPE_CHECKCONSIGN_CHEMDETAIL
- WHERE CHECK_NO = ?
- ]]>
- </query>
- <query id="FrmCheckConsignAdd.DeleteCheckConsignProcessResult" desc="删除化学数据传输数据">
- <![CDATA[
- DELETE PIPEOUTDEC_CHEM_PROCESS_RESULT
- WHERE CHECK_NO = ?
- ]]>
- </query>
- <query id = "FrmCheckConsignAdd.querySteel" desc = "加载钢级">
- SELECT T.STEELNAME,T.STEELCODE FROM COM_BASE_STEEL T WHERE T.VALIDFLAG = '1' ORDER BY T.STEELCODE ASC
- </query>
- <query id = "FrmCheckConsignAdd.queryGrade" desc = "加载钢种">
- SELECT T.GRADENAME,T.GRADECODE FROM COM_BASE_GRADE T WHERE T.VALIDFLAG = '1' ORDER BY T.GRADECODE ASC
- </query>
- <query id = "FrmCheckConsignAdd.queryStd" desc = "加载产品标准">
- SELECT T.STD_NAME,T.STD_CODE FROM COM_BASE_STD T WHERE T.VALIDFLAG= '1' ORDER BY T.STD_CODE ASC
- </query>
- <query id = "FrmCheckConsignAdd.queryDimater" desc= "加载外径">
- SELECT T.DIMATER,T.SPEC_CODE FROM COM_BASE_SPEC T WHERE T.VALIDFLAG = '1' ORDER BY T.SPEC_CODE ASC
- </query>
- <query id = "FrmCheckConsignAdd.queryHeight" desc = "加载壁厚">
- SELECT T.HEIGHT,T.SPEC_CODE FROM COM_BASE_SPEC T WHERE T.VALIDFLAG = '1' ORDER BY T.SPEC_CODE ASC
- </query>
- <query id = "FrmCheckConsignAdd.queryPlineCode" desc = "加载产线">
- select T.PLINE_CODE || T.PROCESS_CODE PLINE_CODE, T.PLINE_NAME, T.PLINE_CODE PLINE_CODE_A
- from COM_BASE_PLINE t
- WHERE T.VALIDFLAG = '1'
- </query>
-
- <query id = "FrmCheckConsignAdd.queryPlineCode2" desc = "加载产线">
- select T.PLINE_CODE || T.PROCESS_CODE PLINE_CODE,
- T.PLINE_NAME,
- T.PLINE_CODE PLINE_CODE_A
- from COM_BASE_PLINE t
- WHERE T.PLINE_CODE = ?
- ORDER BY T.PROCESS_CODE, T.PLINE_CODE
- </query>
- <query id = "FrmCheckConsignAdd.queryPlineCode3" desc = "查询产线信息">
- select T.* from COM_BASE_PLINE t WHERE T.PLINE_CODE = ?
- </query>
- <query id = "FrmCheckConsignAdd.getDeptIdTH" desc = "更新天淮实验室">
- SELECT DECODE(?,
- '002001007010',
- '002023003001',
- '002001007013',
- '002023003003',
- '002001007014',
- '002023003004',
- '002001007015',
- '002023003005',
- '002001007009',
- '002023003002',
- '002001007020',
- '002023003005',
- '002001020001',
- '002023003005') newDeptID
- FROM DUAL
- </query>
- <query id = "FrmCheckConsignAdd.getCheckNo" desc = "生成检验编号">
- SELECT ? || TO_CHAR(SYSDATE,'YYMM') ||
- LPAD(NVL(MAX(SUBSTR(T.CHECK_NO, 6)), 0) + 1,3,0) CHECK_NO
- FROM PIPE_CHECKCONSIGN_BASEINFO T
- WHERE T.CRAFT_SOURCE = ?
- AND T.CHECK_NO LIKE ? || '%'
- AND TO_CHAR(T.CONSIGN_TIME, 'YYYYMM') = TO_CHAR(SYSDATE, 'YYYYMM')
- </query>
-
- <query id = "FrmCheckConsignAdd.queryReport" desc = "查询报告">
- SELECT T.*,
- TO_CHAR(T.CONSIGN_TIME, 'YYYY-MM-DD HH24:MI:SS') CONSIGN_TIME1,
- DECODE(CRAFT_SOURCE,
- '0',
- '生产样',
- '1',
- '首日检',
- '2',
- '科研样',
- '3',
- '生产加样',
- '4',
- '外购管委托',
- '5',
- '内部委托',
- '6',
- '委外热处理样') CRAFT_SOURCE_DESC,
- DECODE(T.ISPRODUCER, '0', '', '1', '监制') ISPRODUCER_DESC,
- DECODE((SELECT COUNT(1)
- FROM PIPE_CHECKCONSIGN_DETAIL
- WHERE DEPT_ID IN ('002001007015,002001007009',
- '002001007009',
- '002023003002')
- AND CHECK_NO = T.CHECK_NO),
- 0,
- 0,
- 1) CAILI_FLAG,
- DECODE((SELECT COUNT(1)
- FROM PIPE_CHECKCONSIGN_DETAIL
- WHERE DEPT_ID IN ('002001007013', '002023003003')
- AND CHECK_NO = T.CHECK_NO),
- 0,
- 0,
- 1) FUSHI_FLAG,
- DECODE((SELECT COUNT(1)
- FROM PIPE_CHECKCONSIGN_DETAIL
- WHERE DEPT_ID IN ('002001007015', '002023003005')
- AND CHECK_NO = T.CHECK_NO),
- 0,
- 0,
- 1) JINWU_FLAG,
- DECODE((SELECT COUNT(1)
- FROM PIPE_CHECKCONSIGN_DETAIL
- WHERE DEPT_ID IN ('002001007014', '002023003004')
- AND CHECK_NO = T.CHECK_NO),
- 0,
- 0,
- 1) GONGCHENG_FLAG,
- DECODE((SELECT COUNT(1)
- FROM PIPE_CHECKCONSIGN_DETAIL
- WHERE DEPT_ID IN
- ('002001007020', '002001020001', '002023003005')
- AND CHECK_NO = T.CHECK_NO),
- 0,
- 0,
- 1) DIBEI_FLAG,
- DECODE((SELECT COUNT(1)
- FROM PIPE_CHECKCONSIGN_DETAIL
- WHERE DEPT_ID IN ('002001007010', '002023003001')
- AND CHECK_NO = T.CHECK_NO),
- 0,
- 0,
- 1) HUAXUE_FLAG,
- (SELECT MIN(DECODE(FLAG, '9', '0', FLAG))
- FROM PIPE_CHECKCONSIGN_DETAIL
- WHERE DEPT_ID IN
- ('002001007015,002001007009', '002001007009', '002023003002')
- AND CHECK_NO = T.CHECK_NO) CAILI_Status,
- (SELECT MIN(DECODE(FLAG, '9', '0', FLAG))
- FROM PIPE_CHECKCONSIGN_DETAIL
- WHERE DEPT_ID IN ('002001007013', '002023003003')
- AND CHECK_NO = T.CHECK_NO) FUSHI_Status,
- (SELECT MIN(DECODE(FLAG, '9', '0', FLAG))
- FROM PIPE_CHECKCONSIGN_DETAIL
- WHERE DEPT_ID IN ('002001007015', '002023003005')
- AND CHECK_NO = T.CHECK_NO) JINWU_Status,
- (SELECT MIN(DECODE(FLAG, '9', '0', FLAG))
- FROM PIPE_CHECKCONSIGN_DETAIL
- WHERE DEPT_ID IN ('002001007014', '002023003004')
- AND CHECK_NO = T.CHECK_NO) GONGCHENG_Status,
- (SELECT MIN(DECODE(FLAG, '9', '0', FLAG))
- FROM PIPE_CHECKCONSIGN_DETAIL
- WHERE DEPT_ID IN ('002001007020', '002001020001', '002023003005')
- AND CHECK_NO = T.CHECK_NO) DIBEI_Status,
- (SELECT MIN(DECODE(FLAG, '9', '0', FLAG))
- FROM PIPE_CHECKCONSIGN_DETAIL
- WHERE DEPT_ID IN ('002001007010', '002023003001')
- AND CHECK_NO = T.CHECK_NO) HUAXUE_Status
- FROM PIPE_CHECKCONSIGN_BASEINFO T
- WHERE 1 = 1
- </query>
-
- <query id="FrmCheckConsignAdd.deleteChechconsign" desc="删除105主表数据">
- <![CDATA[
- DELETE QCM_ZC_CHECKCONSIGN
- WHERE CHECK_NO = ?
- ]]>
- </query>
- <query id="FrmCheckConsignAdd.deleteChechconsignDetail" desc="删除105从表数据">
- <![CDATA[
- DELETE QCM_ZC_CHECKCONSIGN_DETAIL
- WHERE CHECK_NO = ?
- ]]>
- </query>
- <query id="FrmCheckConsignAdd.deleteChechconsign126" desc="删除126一、二、三层表数据">
- <![CDATA[
- DECLARE
- V_CHECK_NO PIPE_CHECKCONSIGN_BASEINFO.CHECK_NO%type := ?;
- BEGIN
- DELETE PIPE_CHECKCONSIGN_BASEINFO WHERE CHECK_NO = V_CHECK_NO;
- DELETE PIPE_CHECKCONSIGN_DETAIL WHERE CHECK_NO = V_CHECK_NO;
- DELETE PIPE_CHECKCONSIGN_PHYDETAIL WHERE CHECK_NO = V_CHECK_NO;
- DELETE PIPE_CHECKCONSIGN_CHEMDETAIL WHERE CHECK_NO = V_CHECK_NO;
- END;
- ]]>
- </query>
- <query id="FrmCheckConsignAdd.insertChechconsign" desc="新增105主、从表数据">
- <![CDATA[
- DECLARE
- V_CHECK_NO_OLD QCM_ZC_CHECKCONSIGN.CHECK_NO%type := ?;
- V_CHECK_NO QCM_ZC_CHECKCONSIGN.CHECK_NO%type := ?;
- BEGIN
- FOR MYROW IN (SELECT T.*
- FROM QCM_ZC_CHECKCONSIGN T
- WHERE T.CHECK_NO = V_CHECK_NO_OLD) LOOP
- INSERT INTO QCM_ZC_CHECKCONSIGN
- (CHECK_NO,
- LOT_NO,
- JUDGE_STOVE_NO,
- BATCH_NO,
- STOVE_NO,
- PROCESS_CODE,
- PLINE_CODE,
- PLINE_NAME,
- ACT_COUNT,
- ACT_WEIGHT,
- ACT_THEORY_WEIGHT,
- CHEM_RESULT_CODE,
- PHY_RESULT_CODE,
- CHEM_RESULT_PATH,
- PHY_RESULT_PATH,
- MATERIAL_NO,
- MATERIAL_NAME,
- PRODUCCODE,
- PRODUCNAME,
- STEELCODE,
- STEELNAME,
- GRADECODE,
- GRADENAME,
- SPEC_CODE,
- SPEC_NAME,
- MODEL_CODE,
- MODEL_DESC,
- STD_CODE,
- STD_NAME,
- STD_STYLE,
- STD_STYLE_DESC,
- ACT_DIMATER,
- ACT_HEIGHT,
- ACT_LEN_MIN,
- ACT_LEN_MAX,
- PRO_ORDER_ID,
- GX_PLAN_NO,
- ORD_LN_DLY_PK,
- CRAF_NO,
- CRAFT_SEQ,
- INDEX_SEQ,
- STEEL_STANDRAD,
- CIC,
- PIC,
- BAL_YEAR_MONTH,
-
- CONSIGN_NAME,
- CONSIGN_TIME,
- CONSIGN_MEMO,
- RESAMPLE,
- TARGET,
- CRAFT_SOURCE,
- IS_NO_SSC,
- APPLY_RESAMPLE,
- IS_NO_HIC,
- LOT_NO_GROUP,
- QUOTE_STATE,
- ZP_M_LH,
- ZP_COLL)
- VALUES
- (V_CHECK_NO,
- MYROW.LOT_NO,
- MYROW.JUDGE_STOVE_NO,
- MYROW.BATCH_NO,
- MYROW.STOVE_NO,
- MYROW.PROCESS_CODE,
- MYROW.PLINE_CODE,
- MYROW.PLINE_NAME,
- MYROW.ACT_COUNT,
- MYROW.ACT_WEIGHT,
- MYROW.ACT_THEORY_WEIGHT,
- MYROW.CHEM_RESULT_CODE,
- MYROW.PHY_RESULT_CODE,
- MYROW.CHEM_RESULT_PATH,
- MYROW.PHY_RESULT_PATH,
- MYROW.MATERIAL_NO,
- MYROW.MATERIAL_NAME,
- MYROW.PRODUCCODE,
- MYROW.PRODUCNAME,
- MYROW.STEELCODE,
- MYROW.STEELNAME,
- MYROW.GRADECODE,
- MYROW.GRADENAME,
- MYROW.SPEC_CODE,
- MYROW.SPEC_NAME,
- MYROW.MODEL_CODE,
- MYROW.MODEL_DESC,
- MYROW.STD_CODE,
- MYROW.STD_NAME,
- MYROW.STD_STYLE,
- MYROW.STD_STYLE_DESC,
- MYROW.ACT_DIMATER,
- MYROW.ACT_HEIGHT,
- MYROW.ACT_LEN_MIN,
- MYROW.ACT_LEN_MAX,
- MYROW.PRO_ORDER_ID,
- MYROW.GX_PLAN_NO,
- MYROW.ORD_LN_DLY_PK,
- MYROW.CRAF_NO,
- MYROW.CRAFT_SEQ,
- MYROW.INDEX_SEQ,
- MYROW.STEEL_STANDRAD,
- MYROW.CIC,
- MYROW.PIC,
- MYROW.BAL_YEAR_MONTH,
-
- MYROW.CONSIGN_NAME,
- SYSDATE,
- MYROW.CONSIGN_MEMO,
- MYROW.RESAMPLE,
- MYROW.TARGET,
- MYROW.CRAFT_SOURCE,
- MYROW.IS_NO_SSC,
- MYROW.APPLY_RESAMPLE,
- MYROW.IS_NO_HIC,
- MYROW.LOT_NO_GROUP,
- MYROW.QUOTE_STATE,
- MYROW.ZP_M_LH,
- MYROW.ZP_COLL);
- END LOOP;
- FOR MYROW1 IN (SELECT T.*
- FROM QCM_ZC_CHECKCONSIGN_DETAIL T, QCM_ZC_CHECKCONSIGN T1
- WHERE T1.CHECK_NO = V_CHECK_NO_OLD
- AND T.CHECK_NO = T1.CHECK_NO
- AND T.BATCH_NO = T1.BATCH_NO) LOOP
- INSERT INTO QCM_ZC_CHECKCONSIGN_DETAIL
- (CHECK_NO,
- BATCH_NO,
- SAMPLE_NO,
- PHY_CODE_MAX,
- PHY_NAME_MAX,
- RATE,
- DESC_RATE,
- EIC,
- SAMPLE_NO_MIN,
- SAMPLE_COUNT,
- SAMPLE_LEN,
- MAT_NO,
- HEAD_MAT_NO,
- BAR_CODE,
- NK_RESULT,
- JF_RESULT,
- RESULT_SOURCE,
- IS_QUOTE,
- VALIDFLAG,
- OLD_JUDGE_STOVE_NO,
- OLD_BATCH_NO,
- IS_MAIN,
- CREATE_TIME)
- VALUES
- (V_CHECK_NO,
- MYROW1.BATCH_NO,
- MYROW1.SAMPLE_NO,
- MYROW1.PHY_CODE_MAX,
- MYROW1.PHY_NAME_MAX,
- MYROW1.RATE,
- MYROW1.DESC_RATE,
- MYROW1.EIC,
- MYROW1.SAMPLE_NO_MIN,
- MYROW1.SAMPLE_COUNT,
- MYROW1.SAMPLE_LEN,
- MYROW1.MAT_NO,
- MYROW1.HEAD_MAT_NO,
- MYROW1.BAR_CODE,
- MYROW1.NK_RESULT,
- MYROW1.JF_RESULT,
- MYROW1.RESULT_SOURCE,
- MYROW1.IS_QUOTE,
- MYROW1.VALIDFLAG,
- MYROW1.OLD_JUDGE_STOVE_NO,
- MYROW1.OLD_BATCH_NO,
- MYROW1.IS_MAIN,
- SYSDATE);
- END LOOP;
- --生成新的试样号
- FOR MYROW2 IN (SELECT CHECK_NO,
- SAMPLE_NO,
- V_CHECK_NO || ROW_NUMBER() OVER(PARTITION BY(CHECK_NO) ORDER BY(SAMPLE_NO)) SAMPLE_NO_NEW,
- ROW_NUMBER() OVER(PARTITION BY(CHECK_NO) ORDER BY(SAMPLE_NO)) RN
- FROM (select DISTINCT T.CHECK_NO, T.SAMPLE_NO
- from QCM_ZC_CHECKCONSIGN_DETAIL t
- WHERE T.CHECK_NO = V_CHECK_NO_OLD)) LOOP
- UPDATE QCM_ZC_CHECKCONSIGN_DETAIL T
- SET T.SAMPLE_NO = MYROW2.SAMPLE_NO_NEW
- WHERE T.CHECK_NO = V_CHECK_NO
- AND T.SAMPLE_NO = MYROW2.SAMPLE_NO;
- END LOOP;
-
- --旧的检验编号设置需要重新热处理
- UPDATE QCM_ZC_CHECKCONSIGN T
- SET T.CYCLES_FLAG = '1'
- WHERE T.CHECK_NO = V_CHECK_NO_OLD;
- END;
- ]]>
- </query>
- <query id="FrmCheckConsignAdd.insertChechconsignDetail" desc="新增105从表数据">
- <![CDATA[
- DECLARE
- V_CHECK_NO QCM_ZC_CHECKCONSIGN_DETAIL.CHECK_NO%type := ?;
- V_SAMPLE_NO QCM_ZC_CHECKCONSIGN_DETAIL.SAMPLE_NO%type := ?;
- V_PHY_CODE_MAX QCM_ZC_CHECKCONSIGN_DETAIL.PHY_CODE_MAX%type := ?;
- V_JUDGE_STOVE_NO QCM_ZC_CHECKCONSIGN.JUDGE_STOVE_NO%type := ?;
- BEGIN
- FOR MYROW IN (SELECT T.*
- FROM QCM_ZC_CHECKCONSIGN_DETAIL T, QCM_ZC_CHECKCONSIGN T1
- WHERE T1.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
- AND T1.CHECK_NO NOT LIKE 'F%'
- AND T.CHECK_NO = T1.CHECK_NO
- AND T.PHY_CODE_MAX = V_PHY_CODE_MAX
- AND ROWNUM = 1) LOOP
- INSERT INTO QCM_ZC_CHECKCONSIGN_DETAIL
- (CHECK_NO,
- BATCH_NO,
- SAMPLE_NO,
- PHY_CODE_MAX,
- PHY_NAME_MAX,
- RATE,
- DESC_RATE,
- EIC,
- SAMPLE_NO_MIN,
- SAMPLE_COUNT,
- SAMPLE_LEN,
- MAT_NO,
- HEAD_MAT_NO,
- BAR_CODE,
- NK_RESULT,
- JF_RESULT,
- RESULT_SOURCE,
- IS_QUOTE,
- VALIDFLAG,
- OLD_JUDGE_STOVE_NO,
- OLD_BATCH_NO,
- IS_MAIN,
- CREATE_TIME)
- VALUES
- (V_CHECK_NO,
- MYROW.BATCH_NO,
- V_SAMPLE_NO,
- MYROW.PHY_CODE_MAX,
- MYROW.PHY_NAME_MAX,
- MYROW.RATE,
- MYROW.DESC_RATE,
- MYROW.EIC,
- MYROW.SAMPLE_NO_MIN,
- MYROW.SAMPLE_COUNT,
- MYROW.SAMPLE_LEN,
- MYROW.MAT_NO,
- MYROW.HEAD_MAT_NO,
- MYROW.BAR_CODE,
- MYROW.NK_RESULT,
- MYROW.JF_RESULT,
- MYROW.RESULT_SOURCE,
- MYROW.IS_QUOTE,
- MYROW.VALIDFLAG,
- MYROW.OLD_JUDGE_STOVE_NO,
- MYROW.OLD_BATCH_NO,
- MYROW.IS_MAIN,
- SYSDATE);
- END LOOP;
- END;
- ]]>
- </query>
-
- <query id="FrmCheckConsignAdd.SelectIsBY" desc="查询是否可以补样">
- <![CDATA[
- SELECT COUNT(*) acount FROM QCM_ZC_CHECKCONSIGN T WHERE T.JUDGE_STOVE_NO = ? AND T.PLINE_CODE = ?
- ]]>
- </query>
-
- <query id="FrmCheckConsignAdd.addChechconsign" desc="新增105主表数据">
- <![CDATA[
- DECLARE
- V_CHECK_NO QCM_ZC_CHECKCONSIGN.CHECK_NO%type := ?;
- V_JUDGE_STOVE_NO QCM_ZC_CHECKCONSIGN.JUDGE_STOVE_NO%type := ?;
- V_BATCH_NO QCM_ZC_CHECKCONSIGN.BATCH_NO%type := ?;
- V_PLINE_CODE QCM_ZC_CHECKCONSIGN.PLINE_CODE%type := ?;
- V_CRAF_NO QCM_ZC_CHECKCONSIGN.CRAF_NO%type := ?;
- V_ORDER_NO QCM_ZC_CHECKCONSIGN.ORD_LN_DLY_PK%type := ?;
- V_ORD_LN_DLY_PK QCM_ZC_CHECKCONSIGN.ORD_LN_DLY_PK%type := NULL;
- BEGIN
- select MAX(t2.Ord_Ln_Dly_Pk)
- INTO V_ORD_LN_DLY_PK
- from SLM_ORDER_LINE t, slm_order_head t1, SLM_ORDER_LINE_DELIVERY T2
- where t1.ORD_PK = t.ORD_PK
- AND T.ORD_PK = T2.ORD_PK
- AND T.ORD_LN_PK = T2.ORD_LN_PK
- AND T2.VALIDFLAG = '1'
- and t1.order_no || '/' || t.order_seq = V_ORDER_NO;
- DELETE FROM QCM_ZC_CHECKCONSIGN T
- WHERE T.CHECK_NO = V_CHECK_NO
- AND T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
- AND T.BATCH_NO = V_BATCH_NO;
- DELETE FROM QCM_ZC_CHECKCONSIGN_DETAIL T WHERE T.CHECK_NO = V_CHECK_NO;
- FOR MYROW IN (SELECT *
- FROM QCM_ZC_CHECKCONSIGN T
- WHERE T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
- AND T.PLINE_CODE = V_PLINE_CODE
- AND ROWNUM = 1) LOOP
-
- INSERT INTO QCM_ZC_CHECKCONSIGN
- (CHECK_NO,
- JUDGE_STOVE_NO,
- BATCH_NO,
- CONSIGN_TIME,
- CONSIGN_MEMO,
- LOT_NO,
- STOVE_NO,
- PROCESS_CODE,
- PLINE_CODE,
- PLINE_NAME,
- ORD_LN_DLY_PK,
- CRAF_NO,
- CRAFT_SEQ,
- INDEX_SEQ,
- STEEL_STANDRAD,
- CIC,
- PIC)
- VALUES
- (V_CHECK_NO,
- V_JUDGE_STOVE_NO,
- V_BATCH_NO,
- SYSDATE,
- '生产补样',
- MYROW.LOT_NO,
- MYROW.STOVE_NO,
- MYROW.PROCESS_CODE,
- MYROW.PLINE_CODE,
- MYROW.PLINE_NAME,
- V_ORD_LN_DLY_PK,
- V_CRAF_NO,
- SUBSTR(V_CRAF_NO, -1),
- MYROW.INDEX_SEQ,
- MYROW.STEEL_STANDRAD,
- MYROW.CIC,
- MYROW.PIC);
- END LOOP;
- END;
- ]]>
- </query>
-
- <query id="FrmCheckConsignAdd.addChechconsignDetail" desc="增加105从表数据">
- <![CDATA[
- INSERT INTO QCM_ZC_CHECKCONSIGN_DETAIL
- (CHECK_NO, SAMPLE_NO, BATCH_NO, PHY_CODE_MAX, PHY_NAME_MAX)
- VALUES
- (?, ?, ?, ?, ?)
- ]]>
- </query>
- <query id="FrmCheckConsignAdd.SelectPHY_CODE_MAX" desc="根据检验编号查试样号、检验项">
- <![CDATA[
- select T.CHECK_NO,T.SAMPLE_NO,T.PHY_CODE_MAX from PIPE_CHECKCONSIGN_DETAIL t WHERE T.CHECK_NO = ?
- ]]>
- </query>
- <query id="FrmCheckConsignAdd.SelectBatchNo" desc="根据炉号查询生产批、性能批">
- <![CDATA[
- select t.*
- from QCM_ZC_CHECKCONSIGN t
- WHERE T.CHECK_NO = ?
- AND T.JUDGE_STOVE_NO = ?
- ]]>
- </query>
-
- <query id="FrmCheckConsignAdd.SelectCheckNoOld" desc="查询126上的原始检验编号">
- <![CDATA[
- select t.*
- from PIPE_CHECKCONSIGN_BASEINFO t
- WHERE T.PROCESS_CODE = 'D'
- AND T.CRAFT_SOURCE = '0'
- AND T.HEAT_NO = ?
- AND T.CONTRACT_NO = ?
- AND INSTR('0123456789', SUBSTR(T.CHECK_NO, 1, 1)) > 0
- ]]>
- </query>
-
- <query id="FrmCheckConsignAdd.updateBatchNo" desc="修改126主从表的批号">
- <![CDATA[
- DECLARE
- V_CHECK_NO PIPE_CHECKCONSIGN_BASEINFO.CHECK_NO%type := ?;
- V_LOT_NO PIPE_CHECKCONSIGN_BASEINFO.LOT_NO%type := ?;
- V_BATCH_NO PIPE_CHECKCONSIGN_DETAIL.BATCH_NO%type := ?;
- BEGIN
- UPDATE PIPE_CHECKCONSIGN_BASEINFO T
- SET T.LOT_NO = V_LOT_NO
- WHERE T.CHECK_NO = V_CHECK_NO;
- UPDATE PIPE_CHECKCONSIGN_DETAIL T
- SET T.BATCH_NO = V_BATCH_NO
- WHERE T.CHECK_NO = V_CHECK_NO;
- UPDATE PIPE_CHECKCONSIGN_PHYDETAIL T
- SET T.BATCH_NO = V_BATCH_NO
- WHERE T.CHECK_NO = V_CHECK_NO;
- END;
- ]]>
- </query>
-
- <query id="FrmCheckConsignAdd.initCraftPath" desc="查询工艺文件">
- <![CDATA[
- select distinct t1.craft_no, t.CRAFT_PATH
- from CRAFT_ORD_DESIGN t, SLM_ORDER_LINE t1, SLM_ORDER_HEAD T2
- where t.ord_ln_pk = t1.ord_ln_pk
- AND T1.ORD_PK = T2.ORD_PK
- and t.CRAFT_PATH is not null
- and t1.craft_no is not null
- AND T2.ORDER_NO || '/' || T1.ORDER_SEQ = ?
- ]]>
- </query>
-
- <query id="FrmCheckConsignAdd.insertChechconsign126" desc="新增126一、二、三层表数据">
- <![CDATA[
- DECLARE
- V_CHECK_NO_OLD PIPE_CHECKCONSIGN_BASEINFO.CHECK_NO%type := ?;
- V_CHECK_NO PIPE_CHECKCONSIGN_BASEINFO.CHECK_NO%type := ?;
- BEGIN
- --复制主信息
- FOR MYROW IN (SELECT T.*
- FROM PIPE_CHECKCONSIGN_BASEINFO T
- WHERE T.CHECK_NO = V_CHECK_NO_OLD) LOOP
- INSERT INTO PIPE_CHECKCONSIGN_BASEINFO
- (CHECK_NO,
- LOT_NO,
- STOVE_NO,
- HEAT_NO,
- STEEL_GRADE,
- STEEL_NO,
- PRODUCT_NAME,
- PRODUCT_STD,
- CRAFT_FILE_NO,
- CONTRACT_NO,
- CHECK_COUNT,
- PLINE_CODE,
- DIMATER,
- HEIGHT,
- BUCKLE_TYPE,
- PROCESS_STATUS,
- CONSIGN_DEPT,
- CONSIGN_NAME,
- CONSIGN_TIME,
- ISPRODUCER,
- SPEC_REQ,
-
- FLAG,
- SAMPLE_REMARK,
- REMARK,
- DATA_TYPE,
- VALIDFLAG,
- CRAFT_PATH,
- PRODUCER_DEPT,
- FINAL_USER_DESC,
- STD_STYLE_DESC,
-
- PROCESS_CODE,
- MERGER_NO,
- CRAFT_SOURCE,
-
- INDEX_SEQ,
- PIC,
- CIC,
- LOT_NO_GROUP)
- VALUES
- (V_CHECK_NO,
- MYROW.LOT_NO,
- MYROW.STOVE_NO,
- MYROW.HEAT_NO,
- MYROW.STEEL_GRADE,
- MYROW.STEEL_NO,
- MYROW.PRODUCT_NAME,
- MYROW.PRODUCT_STD,
- MYROW.CRAFT_FILE_NO,
- MYROW.CONTRACT_NO,
- MYROW.CHECK_COUNT,
- MYROW.PLINE_CODE,
- MYROW.DIMATER,
- MYROW.HEIGHT,
- MYROW.BUCKLE_TYPE,
- MYROW.PROCESS_STATUS,
- MYROW.CONSIGN_DEPT,
- MYROW.CONSIGN_NAME,
- SYSDATE,
- MYROW.ISPRODUCER,
- MYROW.SPEC_REQ,
-
- '0',
- MYROW.SAMPLE_REMARK,
- MYROW.REMARK,
- '1',
- MYROW.VALIDFLAG,
- MYROW.CRAFT_PATH,
- MYROW.PRODUCER_DEPT,
- MYROW.FINAL_USER_DESC,
- MYROW.STD_STYLE_DESC,
-
- MYROW.PROCESS_CODE,
- MYROW.MERGER_NO,
- '6',
-
- MYROW.INDEX_SEQ,
- MYROW.PIC,
- MYROW.CIC,
- MYROW.LOT_NO_GROUP);
- END LOOP;
- --复制试样组信息
- FOR MYROW1 IN (SELECT T.*
- FROM PIPE_CHECKCONSIGN_DETAIL T
- WHERE T.CHECK_NO = V_CHECK_NO_OLD) LOOP
- INSERT INTO PIPE_CHECKCONSIGN_DETAIL
- (CHECK_NO,
- BATCH_NO,
- SAMPLE_NO,
- SAMPLE_NO_MIN,
- SAMPLE_BARCODE,
- SAMPLE_LEN,
- CHECK_STD,
- PHY_CODE_MAX,
- PHY_NAME_MAX,
- SAMPLE_COUNT,
- DEPT_ID,
- LENGTH,
- WIDTH,
- EIC,
- PHY_DIR,
- SIZE_DESC)
- VALUES
- (V_CHECK_NO,
- MYROW1.BATCH_NO,
- MYROW1.SAMPLE_NO,
- MYROW1.SAMPLE_NO_MIN,
- MYROW1.SAMPLE_BARCODE,
- MYROW1.SAMPLE_LEN,
- MYROW1.CHECK_STD,
- MYROW1.PHY_CODE_MAX,
- MYROW1.PHY_NAME_MAX,
- MYROW1.SAMPLE_COUNT,
- MYROW1.DEPT_ID,
- MYROW1.LENGTH,
- MYROW1.WIDTH,
- MYROW1.EIC,
- MYROW1.PHY_DIR,
- MYROW1.SIZE_DESC);
- END LOOP;
- --生成新的试样号
- FOR MYROW2 IN (SELECT CHECK_NO,
- SAMPLE_NO,
- V_CHECK_NO || ROW_NUMBER() OVER(PARTITION BY(CHECK_NO) ORDER BY(SAMPLE_NO)) SAMPLE_NO_NEW,
- ROW_NUMBER() OVER(PARTITION BY(CHECK_NO) ORDER BY(SAMPLE_NO)) RN
- FROM (select DISTINCT T.CHECK_NO, T.SAMPLE_NO
- from PIPE_CHECKCONSIGN_DETAIL t
- WHERE T.CHECK_NO = V_CHECK_NO_OLD)) LOOP
- UPDATE PIPE_CHECKCONSIGN_DETAIL T
- SET T.SAMPLE_NO = MYROW2.SAMPLE_NO_NEW
- WHERE T.CHECK_NO = V_CHECK_NO
- AND T.SAMPLE_NO = MYROW2.SAMPLE_NO;
- END LOOP;
- --复制检验项信息
- FOR MYROW4 IN (SELECT T.*
- FROM PIPE_CHECKCONSIGN_PHYDETAIL T
- WHERE T.CHECK_NO = V_CHECK_NO_OLD) LOOP
- INSERT INTO PIPE_CHECKCONSIGN_PHYDETAIL
- (CHECK_NO,
- BATCH_NO,
- SAMPLE_NO,
- INDEX_SEQ,
- DEPT_ID,
- PHY_CODE_MAX,
- PHY_NAME_MAX,
- PHY_CODE_MIN,
- PHY_NAME_MIN,
- PHY_CODE,
- PHY_NAME,
- PHY_UNIT,
- ITEM_CODE_F,
- ITEM_NAME_F,
- ITEM_CODE_W,
- ITEM_NAME_W,
- ITEM_CODE_S,
- ITEM_NAME_S,
- GROUP_SEQ,
- RESULT_COUNT,
- ISCHECK,
- ISJUDGE,
- ISQUOTE,
- PHY_TYPE,
- PHY_FORMULA,
- STDMIN_SIGN,
- STDMIN,
- STDMAX_SIGN,
- STDMAX,
- JUDGE_BASIS,
- STDMIN_SIGN2,
- STDMIN2,
- STDMAX_SIGN2,
- STDMAX2,
- STD_CHOOSE,
- STDMEMO,
- ADDCONDITION,
- ADDSTDCON_CODE,
- ADDSTD_MIN_SIGN,
- ADDSTD_MIN,
- ADDSTD_MAX_SIGN,
- ADDSTD_MAX,
- ADDPERCENT,
- BILLET_SAMPLE,
- REMARK,
-
- SEQ,
- PHY_CODE_DIR,
- PHY_NAME_DIR,
- SPLINE_ITEM_CODE_S,
- SPLINE_ITEM_NAME_S,
- SPLINE_ITEM_CODE_F,
- SPLINE_ITEM_NAME_F)
- VALUES
- (V_CHECK_NO,
- MYROW4.BATCH_NO,
- MYROW4.SAMPLE_NO,
- MYROW4.INDEX_SEQ,
- MYROW4.DEPT_ID,
- MYROW4.PHY_CODE_MAX,
- MYROW4.PHY_NAME_MAX,
- MYROW4.PHY_CODE_MIN,
- MYROW4.PHY_NAME_MIN,
- MYROW4.PHY_CODE,
- MYROW4.PHY_NAME,
- MYROW4.PHY_UNIT,
- MYROW4.ITEM_CODE_F,
- MYROW4.ITEM_NAME_F,
- MYROW4.ITEM_CODE_W,
- MYROW4.ITEM_NAME_W,
- MYROW4.ITEM_CODE_S,
- MYROW4.ITEM_NAME_S,
- MYROW4.GROUP_SEQ,
- MYROW4.RESULT_COUNT,
- MYROW4.ISCHECK,
- MYROW4.ISJUDGE,
- MYROW4.ISQUOTE,
- MYROW4.PHY_TYPE,
- MYROW4.PHY_FORMULA,
- MYROW4.STDMIN_SIGN,
- MYROW4.STDMIN,
- MYROW4.STDMAX_SIGN,
- MYROW4.STDMAX,
- MYROW4.JUDGE_BASIS,
- MYROW4.STDMIN_SIGN2,
- MYROW4.STDMIN2,
- MYROW4.STDMAX_SIGN2,
- MYROW4.STDMAX2,
- MYROW4.STD_CHOOSE,
- MYROW4.STDMEMO,
- MYROW4.ADDCONDITION,
- MYROW4.ADDSTDCON_CODE,
- MYROW4.ADDSTD_MIN_SIGN,
- MYROW4.ADDSTD_MIN,
- MYROW4.ADDSTD_MAX_SIGN,
- MYROW4.ADDSTD_MAX,
- MYROW4.ADDPERCENT,
- MYROW4.BILLET_SAMPLE,
- MYROW4.REMARK,
-
- MYROW4.SEQ,
- MYROW4.PHY_CODE_DIR,
- MYROW4.PHY_NAME_DIR,
- MYROW4.SPLINE_ITEM_CODE_S,
- MYROW4.SPLINE_ITEM_NAME_S,
- MYROW4.SPLINE_ITEM_CODE_F,
- MYROW4.SPLINE_ITEM_NAME_F);
- END LOOP;
- --生成检验项信息 新的试样号
- FOR MYROW5 IN (SELECT CHECK_NO,
- SAMPLE_NO,
- V_CHECK_NO || ROW_NUMBER() OVER(PARTITION BY(CHECK_NO) ORDER BY(SAMPLE_NO)) SAMPLE_NO_NEW,
- ROW_NUMBER() OVER(PARTITION BY(CHECK_NO) ORDER BY(SAMPLE_NO)) RN
- FROM (select DISTINCT T.CHECK_NO, T.SAMPLE_NO
- from PIPE_CHECKCONSIGN_PHYDETAIL t
- WHERE T.CHECK_NO = V_CHECK_NO_OLD)) LOOP
- UPDATE PIPE_CHECKCONSIGN_PHYDETAIL T
- SET T.SAMPLE_NO = MYROW5.SAMPLE_NO_NEW
- WHERE T.CHECK_NO = V_CHECK_NO
- AND T.SAMPLE_NO = MYROW5.SAMPLE_NO;
- END LOOP;
- --复制成分信息
- FOR MYROW6 IN (SELECT T.*
- FROM PIPE_CHECKCONSIGN_CHEMDETAIL T
- WHERE T.CHECK_NO = V_CHECK_NO_OLD) LOOP
- INSERT INTO PIPE_CHECKCONSIGN_CHEMDETAIL
- (CHECK_NO,
- SAMPLE_NO,
- CHEM_CODE,
- CHEM_NAME,
- CHEM_TYPE,
- ISCHECK,
- ISJUDGE,
- ISQUOTE,
- COMPLEX_TYPE,
- CHEM_FORMULA,
- STDMIN_SIGN,
- STDMIN,
- STDMAX_SIGN,
- STDMAX,
- STDTARGET,
- STDMEMO,
- BATCH_NO)
- VALUES
- (V_CHECK_NO,
- MYROW6.SAMPLE_NO,
- MYROW6.CHEM_CODE,
- MYROW6.CHEM_NAME,
- MYROW6.CHEM_TYPE,
- MYROW6.ISCHECK,
- MYROW6.ISJUDGE,
- MYROW6.ISQUOTE,
- MYROW6.COMPLEX_TYPE,
- MYROW6.CHEM_FORMULA,
- MYROW6.STDMIN_SIGN,
- MYROW6.STDMIN,
- MYROW6.STDMAX_SIGN,
- MYROW6.STDMAX,
- MYROW6.STDTARGET,
- MYROW6.STDMEMO,
- MYROW6.BATCH_NO);
- END LOOP;
- --生成成分信息新的试样号
- FOR MYROW7 IN (SELECT CHECK_NO,
- SAMPLE_NO,
- V_CHECK_NO || ROW_NUMBER() OVER(PARTITION BY(CHECK_NO) ORDER BY(SAMPLE_NO)) SAMPLE_NO_NEW,
- ROW_NUMBER() OVER(PARTITION BY(CHECK_NO) ORDER BY(SAMPLE_NO)) RN
- FROM (select DISTINCT T.CHECK_NO, T.SAMPLE_NO
- from PIPE_CHECKCONSIGN_CHEMDETAIL t
- WHERE T.CHECK_NO = V_CHECK_NO_OLD)) LOOP
- UPDATE PIPE_CHECKCONSIGN_CHEMDETAIL T
- SET T.SAMPLE_NO = MYROW7.SAMPLE_NO_NEW
- WHERE T.CHECK_NO = V_CHECK_NO
- AND T.SAMPLE_NO = MYROW7.SAMPLE_NO;
- END LOOP;
- END;
- ]]>
- </query>
- </queryMap>
|