FrmCheckConsignAdd.xml 35 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270
  1. <?xml version="1.0" encoding="UTF-8"?>
  2. <queryMap desc="管材检验委托单录入">
  3. <query id="FrmCheckConsignAdd.QueryCheckConsignBase" desc="查询检验委托基本信息">
  4. <![CDATA[
  5. SELECT CHECK_NO,
  6. HEAT_NO,
  7. LOT_NO,
  8. CRAFT_PATH,
  9. PLINE_CODE,
  10. DECODE(CRAFT_SOURCE,
  11. '0',
  12. '生产样',
  13. '1',
  14. '首日检',
  15. '2',
  16. '科研样',
  17. '3',
  18. '生产预备样',
  19. '4',
  20. '外购管委托',
  21. '5',
  22. '技术中心内部委托',
  23. '6',
  24. '委外热处理样',
  25. '7',
  26. '生产补样') CRAFT_SOURCE,
  27. STEEL_GRADE,
  28. STEEL_NO,
  29. PRODUCT_STD,
  30. CONTRACT_NO,
  31. CHECK_COUNT,
  32. DIMATER,
  33. HEIGHT,
  34. DIMATER || '*' || HEIGHT PIPE_SIZE,
  35. CRAFT_FILE_NO,
  36. PRODUCT_NAME,
  37. BUCKLE_TYPE,
  38. PROCESS_STATUS,
  39. ISPRODUCER,
  40. DECODE(ISPRODUCER, '0', '否', '1', '是') AS ISPRODUCER_DESC,
  41. SPEC_REQ,
  42. IS_RUSH,
  43. RUSH_NAME,
  44. RUSH_TIME,
  45. CONSIGN_DEPT,
  46. CONSIGN_NAME,
  47. CONSIGN_TIME,
  48. GET_NAME,
  49. GET_TIME,
  50. CONSIGNDEPT_SEND_NAME,
  51. CONSIGNDEPT_SEND_TIME,
  52. JG_RECEIVE_NAME,
  53. JG_RECEIVE_TIME,
  54. FLAG,
  55. DECODE(FLAG,
  56. '0',
  57. '委托单位未下发',
  58. '1',
  59. '委托单位已下发',
  60. '2',
  61. '加工已确认') AS FLAG_DESC,
  62. SAMPLE_REMARK,
  63. REMARK
  64. FROM PIPE_CHECKCONSIGN_BASEINFO S
  65. WHERE VALIDFLAG = '1'
  66. AND DATA_TYPE = '1'
  67. /*AND INSTR(?, FLAG) > 0
  68. AND (CONSIGN_TIME BETWEEN TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS') AND
  69. TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'))
  70. AND DECODE(?, NULL, '1', STEEL_GRADE) = DECODE(?, NULL, '1', ?)
  71. AND (HEAT_NO LIKE '%' || ? || '%' OR HEAT_NO IS NULL)
  72. AND CHECK_NO LIKE '%' || ? || '%'
  73. ORDER BY IS_RUSH DESC, RUSH_TIME, CHECK_NO
  74. */
  75. ]]>
  76. </query>
  77. <query id="FrmCheckConsignAdd.QueryCheckConsignBaseTips" desc="查询检验委托基本信息">
  78. <![CDATA[
  79. SELECT FLAG
  80. FROM PIPE_CHECKCONSIGN_BASEINFO
  81. WHERE CHECK_NO = ?
  82. ]]>
  83. </query>
  84. <query id="FrmCheckConsignAdd.querySampleNo" desc="查询试样号">
  85. <![CDATA[
  86. select COUNT(1) ACOUNT from PIPE_CHECKCONSIGN_DETAIL t WHERE T.SAMPLE_NO = ?
  87. ]]>
  88. </query>
  89. <query id="FrmCheckConsignAdd.querySampleNoHX" desc="查询试样号">
  90. <![CDATA[
  91. select COUNT(1) ACOUNT from PIPE_CHECKCONSIGN_CHEMDETAIL t WHERE T.SAMPLE_NO = ?
  92. ]]>
  93. </query>
  94. <query id="FrmCheckConsignAdd.QueryCheckConsignDetail" desc="查询检验委托明细信息">
  95. <![CDATA[
  96. SELECT DISTINCT
  97. 'TRUE' CHK,
  98. PHY_CODE_MAX,
  99. PHY_NAME_MAX,
  100. DEPT_ID
  101. FROM PIPE_CHECKCONSIGN_DETAIL
  102. WHERE PHY_CODE_MAX != 'HX'
  103. AND PHY_CODE_MAX != 'ONH'
  104. AND CHECK_NO = ?
  105. ORDER BY PHY_CODE_MAX
  106. ]]>
  107. </query>
  108. <query id="FrmCheckConsignAdd.QueryCheckConsignPhyDetail_SampleCode"
  109. desc="查询检验委托明细试样组取样码信息">
  110. <![CDATA[
  111. SELECT DISTINCT
  112. 'TRUE' CHK,
  113. PHY_CODE_MAX,
  114. PHY_NAME_MAX,
  115. DEPT_ID,
  116. PHY_CODE_MIN,
  117. PHY_NAME_MIN
  118. FROM PIPE_CHECKCONSIGN_PHYDETAIL
  119. WHERE CHECK_NO = ?
  120. ORDER BY PHY_CODE_MAX,PHY_CODE_MIN
  121. ]]>
  122. </query>
  123. <query id="FrmCheckConsignAdd.QueryCheckConsignPhyDetail_SampleCode_Log"
  124. desc="查询检验委托明细试样组取样码信息">
  125. <![CDATA[
  126. SELECT DISTINCT
  127. 'TRUE' CHK,
  128. PHY_CODE_MAX,
  129. PHY_NAME_MAX,
  130. DEPT_ID,
  131. PHY_CODE_MIN,
  132. PHY_NAME_MIN,
  133. SAMPLE_KEY,
  134. SAMPLE_KEY_DESC
  135. FROM PIPE_CHECKCONSIGN_DETAIL
  136. WHERE CHECK_NO = ?
  137. ORDER BY PHY_CODE_MAX,PHY_CODE_MIN,SAMPLE_KEY
  138. ]]>
  139. </query>
  140. <query id="FrmCheckConsignAdd.QueryCheckConsignPhyDetail" desc="查询检验委托明细信息">
  141. <![CDATA[
  142. SELECT DISTINCT
  143. 'TRUE' CHK,
  144. PHY_CODE_MAX,
  145. PHY_NAME_MAX,
  146. DEPT_ID,
  147. PHY_CODE_MIN,
  148. PHY_NAME_MIN,
  149. PHY_CODE,
  150. PHY_NAME,
  151. PHY_UNIT
  152. FROM PIPE_CHECKCONSIGN_PHYDETAIL
  153. WHERE CHECK_NO = ?
  154. ORDER BY PHY_CODE_MAX,PHY_CODE_MIN,PHY_CODE
  155. ]]>
  156. </query>
  157. <query id="FrmCheckConsignAdd.QueryCheckConsignPhyDetail_R" desc="查询检验委托明细信息">
  158. <![CDATA[
  159. SELECT DISTINCT
  160. 'TRUE' CHK,
  161. PHY_CODE_MAX,
  162. PHY_NAME_MAX,
  163. DEPT_ID,
  164. PHY_CODE_MIN,
  165. PHY_NAME_MIN,
  166. --PHY_UNIT,
  167. ITEM_CODE_F,
  168. ITEM_NAME_F,
  169. ITEM_CODE_W,
  170. ITEM_NAME_W,
  171. ITEM_CODE_S ITEM_CODE_C,
  172. ITEM_NAME_S ITEM_NAME_C
  173. FROM PIPE_CHECKCONSIGN_PHYDETAIL
  174. WHERE CHECK_NO = ?
  175. ORDER BY PHY_CODE_MAX,PHY_CODE_MIN,ITEM_CODE_F,ITEM_CODE_W,ITEM_CODE_S
  176. ]]>
  177. </query>
  178. <query id="FrmCheckConsignAdd.AddCheckConsignBase" desc="新增检验委托基础数据">
  179. <![CDATA[
  180. INSERT INTO PIPE_CHECKCONSIGN_BASEINFO
  181. (CHECK_NO,
  182. HEAT_NO,
  183. STEEL_GRADE,
  184. STEEL_NO,
  185. LOT_NO,
  186. CRAFT_PATH,
  187. CRAFT_FILE_NO,
  188. PRODUCT_STD,
  189. CONTRACT_NO,
  190. DIMATER,
  191. HEIGHT,
  192. CONSIGN_DEPT,
  193. CONSIGN_NAME,
  194. CONSIGN_TIME,
  195. ISPRODUCER,
  196. SPEC_REQ,
  197. FLAG,
  198. REMARK,
  199. DATA_TYPE,
  200. PLINE_CODE,
  201. PROCESS_CODE,
  202. CRAFT_SOURCE,
  203. BATCH_NO,
  204. SUPPLY_UNIT_CODE,
  205. SUPPLY_UNIT)
  206. VALUES
  207. (?,?,?,?,?,?,?,?,?,?,?,?,?,SYSDATE,?,?,?,?,?,?,?,?,?,?,?)
  208. ]]>
  209. </query>
  210. <query id="FrmCheckConsignAdd.AddCheckConsignJG" desc="新增检验委托加工表数据">
  211. <![CDATA[
  212. INSERT INTO PIPE_CHECKCONSIGN_JGINFO
  213. (CHECK_NO,
  214. SAMPLE_NO)
  215. VALUES
  216. (?,?)
  217. ]]>
  218. </query>
  219. <query id="FrmCheckConsignAdd.AddCheckConsignDetail" desc="新增检验委托明细表数据DEPT_ID">
  220. <![CDATA[
  221. INSERT INTO PIPE_CHECKCONSIGN_DETAIL
  222. (CHECK_NO,
  223. SAMPLE_NO,
  224. BATCH_NO,
  225. PHY_CODE_MAX,
  226. PHY_NAME_MAX,
  227. DEPT_ID,
  228. SAMPLE_COUNT,
  229. PHY_DIR,
  230. SIZE_DESC)
  231. VALUES
  232. (?,?,?,?,?,?,?,?,?)
  233. ]]>
  234. </query>
  235. <query id="FrmCheckConsignAdd.AddCheckConsignPhyDetail" desc="新增检验委托理化明细表数据">
  236. <![CDATA[
  237. INSERT INTO PIPE_CHECKCONSIGN_PHYDETAIL
  238. (CHECK_NO,
  239. SAMPLE_NO,
  240. BATCH_NO,
  241. PHY_CODE_MAX,
  242. PHY_NAME_MAX,
  243. DEPT_ID,
  244. PHY_CODE_MIN,
  245. PHY_NAME_MIN,
  246. PHY_CODE,
  247. PHY_NAME,
  248. PHY_UNIT,
  249. ITEM_CODE_F,
  250. ITEM_NAME_F,
  251. ITEM_CODE_W,
  252. ITEM_NAME_W,
  253. ITEM_CODE_S,
  254. ITEM_NAME_S)
  255. VALUES
  256. (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)
  257. ]]>
  258. </query>
  259. <query id="FrmCheckConsignAdd.AddCheckConsignChemDetail" desc="新增检验委托化学明细表数据">
  260. <![CDATA[
  261. INSERT INTO PIPE_CHECKCONSIGN_CHEMDETAIL
  262. (CHECK_NO,
  263. SAMPLE_NO,
  264. BATCH_NO,
  265. CHEM_NAME,
  266. CHEM_CODE)
  267. VALUES
  268. (?,?,?,?,?)
  269. ]]>
  270. </query>
  271. <query id="FrmCheckConsignAdd.UpdateCheckConsign" desc="修改检验委托">
  272. <![CDATA[
  273. SELECT *FROM PIPE_CHECKCONSIGN_BASEINFO
  274. ]]>
  275. </query>
  276. <query id="FrmCheckConsignAdd.DeleteCheckConsignBase" desc="删除检验委托基础数据">
  277. <![CDATA[
  278. DELETE PIPE_CHECKCONSIGN_BASEINFO
  279. WHERE CHECK_NO = ?
  280. ]]>
  281. </query>
  282. <query id="FrmCheckConsignAdd.DeleteCheckConsignJG" desc="删除检验委托加工数据">
  283. <![CDATA[
  284. DELETE PIPE_CHECKCONSIGN_JGINFO
  285. WHERE CHECK_NO = ?
  286. ]]>
  287. </query>
  288. <query id="FrmCheckConsignAdd.DeleteCheckConsignDetail" desc="删除检验委托明细数据">
  289. <![CDATA[
  290. DELETE PIPE_CHECKCONSIGN_DETAIL
  291. WHERE CHECK_NO = ?
  292. ]]>
  293. </query>
  294. <query id="FrmCheckConsignAdd.DeleteCheckConsignPhyDetail" desc="删除检验委托理化项目明细数据">
  295. <![CDATA[
  296. DELETE PIPE_CHECKCONSIGN_PHYDETAIL
  297. WHERE CHECK_NO = ?
  298. ]]>
  299. </query>
  300. <query id="FrmCheckConsignAdd.DeleteCheckConsignChemDetail" desc="删除检验委托化学项目明细数据">
  301. <![CDATA[
  302. DELETE PIPE_CHECKCONSIGN_CHEMDETAIL
  303. WHERE CHECK_NO = ?
  304. ]]>
  305. </query>
  306. <query id="FrmCheckConsignAdd.DeleteCheckConsignProcessResult" desc="删除化学数据传输数据">
  307. <![CDATA[
  308. DELETE PIPEOUTDEC_CHEM_PROCESS_RESULT
  309. WHERE CHECK_NO = ?
  310. ]]>
  311. </query>
  312. <query id = "FrmCheckConsignAdd.querySteel" desc = "加载钢级">
  313. SELECT T.STEELNAME,T.STEELCODE FROM COM_BASE_STEEL T WHERE T.VALIDFLAG = '1' ORDER BY T.STEELCODE ASC
  314. </query>
  315. <query id = "FrmCheckConsignAdd.queryGrade" desc = "加载钢种">
  316. SELECT T.GRADENAME,T.GRADECODE FROM COM_BASE_GRADE T WHERE T.VALIDFLAG = '1' ORDER BY T.GRADECODE ASC
  317. </query>
  318. <query id = "FrmCheckConsignAdd.queryStd" desc = "加载产品标准">
  319. SELECT T.STD_NAME,T.STD_CODE FROM COM_BASE_STD T WHERE T.VALIDFLAG= '1' ORDER BY T.STD_CODE ASC
  320. </query>
  321. <query id = "FrmCheckConsignAdd.queryDimater" desc= "加载外径">
  322. SELECT T.DIMATER,T.SPEC_CODE FROM COM_BASE_SPEC T WHERE T.VALIDFLAG = '1' ORDER BY T.SPEC_CODE ASC
  323. </query>
  324. <query id = "FrmCheckConsignAdd.queryHeight" desc = "加载壁厚">
  325. SELECT T.HEIGHT,T.SPEC_CODE FROM COM_BASE_SPEC T WHERE T.VALIDFLAG = '1' ORDER BY T.SPEC_CODE ASC
  326. </query>
  327. <query id = "FrmCheckConsignAdd.queryPlineCode" desc = "加载产线">
  328. select T.PLINE_CODE || T.PROCESS_CODE PLINE_CODE, T.PLINE_NAME, T.PLINE_CODE PLINE_CODE_A
  329. from COM_BASE_PLINE t
  330. WHERE T.VALIDFLAG = '1'
  331. </query>
  332. <query id = "FrmCheckConsignAdd.queryPlineCode2" desc = "加载产线">
  333. select T.PLINE_CODE || T.PROCESS_CODE PLINE_CODE,
  334. T.PLINE_NAME,
  335. T.PLINE_CODE PLINE_CODE_A
  336. from COM_BASE_PLINE t
  337. WHERE T.PLINE_CODE = ?
  338. ORDER BY T.PROCESS_CODE, T.PLINE_CODE
  339. </query>
  340. <query id = "FrmCheckConsignAdd.queryPlineCode3" desc = "查询产线信息">
  341. select T.* from COM_BASE_PLINE t WHERE T.PLINE_CODE = ?
  342. </query>
  343. <query id = "FrmCheckConsignAdd.getDeptIdTH" desc = "更新天淮实验室">
  344. SELECT DECODE(?,
  345. '002001007010',
  346. '002023003001',
  347. '002001007013',
  348. '002023003003',
  349. '002001007014',
  350. '002023003004',
  351. '002001007015',
  352. '002023003005',
  353. '002001007009',
  354. '002023003002',
  355. '002001007020',
  356. '002023003005',
  357. '002001020001',
  358. '002023003005') newDeptID
  359. FROM DUAL
  360. </query>
  361. <query id = "FrmCheckConsignAdd.getCheckNo" desc = "生成检验编号">
  362. SELECT ? || TO_CHAR(SYSDATE,'YYMM') ||
  363. LPAD(NVL(MAX(SUBSTR(T.CHECK_NO, 6)), 0) + 1,3,0) CHECK_NO
  364. FROM PIPE_CHECKCONSIGN_BASEINFO T
  365. WHERE T.CRAFT_SOURCE = ?
  366. AND T.CHECK_NO LIKE ? || '%'
  367. AND TO_CHAR(T.CONSIGN_TIME, 'YYYYMM') = TO_CHAR(SYSDATE, 'YYYYMM')
  368. </query>
  369. <query id = "FrmCheckConsignAdd.queryReport" desc = "查询报告">
  370. SELECT T.*,
  371. TO_CHAR(T.CONSIGN_TIME, 'YYYY-MM-DD HH24:MI:SS') CONSIGN_TIME1,
  372. DECODE(CRAFT_SOURCE,
  373. '0',
  374. '生产样',
  375. '1',
  376. '首日检',
  377. '2',
  378. '科研样',
  379. '3',
  380. '生产加样',
  381. '4',
  382. '外购管委托',
  383. '5',
  384. '内部委托',
  385. '6',
  386. '委外热处理样') CRAFT_SOURCE_DESC,
  387. DECODE(T.ISPRODUCER, '0', '', '1', '监制') ISPRODUCER_DESC,
  388. DECODE((SELECT COUNT(1)
  389. FROM PIPE_CHECKCONSIGN_DETAIL
  390. WHERE DEPT_ID IN ('002001007015,002001007009',
  391. '002001007009',
  392. '002023003002')
  393. AND CHECK_NO = T.CHECK_NO),
  394. 0,
  395. 0,
  396. 1) CAILI_FLAG,
  397. DECODE((SELECT COUNT(1)
  398. FROM PIPE_CHECKCONSIGN_DETAIL
  399. WHERE DEPT_ID IN ('002001007013', '002023003003')
  400. AND CHECK_NO = T.CHECK_NO),
  401. 0,
  402. 0,
  403. 1) FUSHI_FLAG,
  404. DECODE((SELECT COUNT(1)
  405. FROM PIPE_CHECKCONSIGN_DETAIL
  406. WHERE DEPT_ID IN ('002001007015', '002023003005')
  407. AND CHECK_NO = T.CHECK_NO),
  408. 0,
  409. 0,
  410. 1) JINWU_FLAG,
  411. DECODE((SELECT COUNT(1)
  412. FROM PIPE_CHECKCONSIGN_DETAIL
  413. WHERE DEPT_ID IN ('002001007014', '002023003004')
  414. AND CHECK_NO = T.CHECK_NO),
  415. 0,
  416. 0,
  417. 1) GONGCHENG_FLAG,
  418. DECODE((SELECT COUNT(1)
  419. FROM PIPE_CHECKCONSIGN_DETAIL
  420. WHERE DEPT_ID IN
  421. ('002001007020', '002001020001', '002023003005')
  422. AND CHECK_NO = T.CHECK_NO),
  423. 0,
  424. 0,
  425. 1) DIBEI_FLAG,
  426. DECODE((SELECT COUNT(1)
  427. FROM PIPE_CHECKCONSIGN_DETAIL
  428. WHERE DEPT_ID IN ('002001007010', '002023003001')
  429. AND CHECK_NO = T.CHECK_NO),
  430. 0,
  431. 0,
  432. 1) HUAXUE_FLAG,
  433. (SELECT MIN(DECODE(FLAG, '9', '0', FLAG))
  434. FROM PIPE_CHECKCONSIGN_DETAIL
  435. WHERE DEPT_ID IN
  436. ('002001007015,002001007009', '002001007009', '002023003002')
  437. AND CHECK_NO = T.CHECK_NO) CAILI_Status,
  438. (SELECT MIN(DECODE(FLAG, '9', '0', FLAG))
  439. FROM PIPE_CHECKCONSIGN_DETAIL
  440. WHERE DEPT_ID IN ('002001007013', '002023003003')
  441. AND CHECK_NO = T.CHECK_NO) FUSHI_Status,
  442. (SELECT MIN(DECODE(FLAG, '9', '0', FLAG))
  443. FROM PIPE_CHECKCONSIGN_DETAIL
  444. WHERE DEPT_ID IN ('002001007015', '002023003005')
  445. AND CHECK_NO = T.CHECK_NO) JINWU_Status,
  446. (SELECT MIN(DECODE(FLAG, '9', '0', FLAG))
  447. FROM PIPE_CHECKCONSIGN_DETAIL
  448. WHERE DEPT_ID IN ('002001007014', '002023003004')
  449. AND CHECK_NO = T.CHECK_NO) GONGCHENG_Status,
  450. (SELECT MIN(DECODE(FLAG, '9', '0', FLAG))
  451. FROM PIPE_CHECKCONSIGN_DETAIL
  452. WHERE DEPT_ID IN ('002001007020', '002001020001', '002023003005')
  453. AND CHECK_NO = T.CHECK_NO) DIBEI_Status,
  454. (SELECT MIN(DECODE(FLAG, '9', '0', FLAG))
  455. FROM PIPE_CHECKCONSIGN_DETAIL
  456. WHERE DEPT_ID IN ('002001007010', '002023003001')
  457. AND CHECK_NO = T.CHECK_NO) HUAXUE_Status
  458. FROM PIPE_CHECKCONSIGN_BASEINFO T
  459. WHERE 1 = 1
  460. </query>
  461. <query id="FrmCheckConsignAdd.deleteChechconsign" desc="删除105主表数据">
  462. <![CDATA[
  463. DELETE QCM_ZC_CHECKCONSIGN
  464. WHERE CHECK_NO = ?
  465. ]]>
  466. </query>
  467. <query id="FrmCheckConsignAdd.deleteChechconsignDetail" desc="删除105从表数据">
  468. <![CDATA[
  469. DELETE QCM_ZC_CHECKCONSIGN_DETAIL
  470. WHERE CHECK_NO = ?
  471. ]]>
  472. </query>
  473. <query id="FrmCheckConsignAdd.deleteChechconsign126" desc="删除126一、二、三层表数据">
  474. <![CDATA[
  475. DECLARE
  476. V_CHECK_NO PIPE_CHECKCONSIGN_BASEINFO.CHECK_NO%type := ?;
  477. BEGIN
  478. DELETE PIPE_CHECKCONSIGN_BASEINFO WHERE CHECK_NO = V_CHECK_NO;
  479. DELETE PIPE_CHECKCONSIGN_DETAIL WHERE CHECK_NO = V_CHECK_NO;
  480. DELETE PIPE_CHECKCONSIGN_PHYDETAIL WHERE CHECK_NO = V_CHECK_NO;
  481. DELETE PIPE_CHECKCONSIGN_CHEMDETAIL WHERE CHECK_NO = V_CHECK_NO;
  482. END;
  483. ]]>
  484. </query>
  485. <query id="FrmCheckConsignAdd.insertChechconsign" desc="新增105主、从表数据">
  486. <![CDATA[
  487. DECLARE
  488. V_CHECK_NO_OLD QCM_ZC_CHECKCONSIGN.CHECK_NO%type := ?;
  489. V_CHECK_NO QCM_ZC_CHECKCONSIGN.CHECK_NO%type := ?;
  490. BEGIN
  491. FOR MYROW IN (SELECT T.*
  492. FROM QCM_ZC_CHECKCONSIGN T
  493. WHERE T.CHECK_NO = V_CHECK_NO_OLD) LOOP
  494. INSERT INTO QCM_ZC_CHECKCONSIGN
  495. (CHECK_NO,
  496. LOT_NO,
  497. JUDGE_STOVE_NO,
  498. BATCH_NO,
  499. STOVE_NO,
  500. PROCESS_CODE,
  501. PLINE_CODE,
  502. PLINE_NAME,
  503. ACT_COUNT,
  504. ACT_WEIGHT,
  505. ACT_THEORY_WEIGHT,
  506. CHEM_RESULT_CODE,
  507. PHY_RESULT_CODE,
  508. CHEM_RESULT_PATH,
  509. PHY_RESULT_PATH,
  510. MATERIAL_NO,
  511. MATERIAL_NAME,
  512. PRODUCCODE,
  513. PRODUCNAME,
  514. STEELCODE,
  515. STEELNAME,
  516. GRADECODE,
  517. GRADENAME,
  518. SPEC_CODE,
  519. SPEC_NAME,
  520. MODEL_CODE,
  521. MODEL_DESC,
  522. STD_CODE,
  523. STD_NAME,
  524. STD_STYLE,
  525. STD_STYLE_DESC,
  526. ACT_DIMATER,
  527. ACT_HEIGHT,
  528. ACT_LEN_MIN,
  529. ACT_LEN_MAX,
  530. PRO_ORDER_ID,
  531. GX_PLAN_NO,
  532. ORD_LN_DLY_PK,
  533. CRAF_NO,
  534. CRAFT_SEQ,
  535. INDEX_SEQ,
  536. STEEL_STANDRAD,
  537. CIC,
  538. PIC,
  539. BAL_YEAR_MONTH,
  540. CONSIGN_NAME,
  541. CONSIGN_TIME,
  542. CONSIGN_MEMO,
  543. RESAMPLE,
  544. TARGET,
  545. CRAFT_SOURCE,
  546. IS_NO_SSC,
  547. APPLY_RESAMPLE,
  548. IS_NO_HIC,
  549. LOT_NO_GROUP,
  550. QUOTE_STATE,
  551. ZP_M_LH,
  552. ZP_COLL)
  553. VALUES
  554. (V_CHECK_NO,
  555. MYROW.LOT_NO,
  556. MYROW.JUDGE_STOVE_NO,
  557. MYROW.BATCH_NO,
  558. MYROW.STOVE_NO,
  559. MYROW.PROCESS_CODE,
  560. MYROW.PLINE_CODE,
  561. MYROW.PLINE_NAME,
  562. MYROW.ACT_COUNT,
  563. MYROW.ACT_WEIGHT,
  564. MYROW.ACT_THEORY_WEIGHT,
  565. MYROW.CHEM_RESULT_CODE,
  566. MYROW.PHY_RESULT_CODE,
  567. MYROW.CHEM_RESULT_PATH,
  568. MYROW.PHY_RESULT_PATH,
  569. MYROW.MATERIAL_NO,
  570. MYROW.MATERIAL_NAME,
  571. MYROW.PRODUCCODE,
  572. MYROW.PRODUCNAME,
  573. MYROW.STEELCODE,
  574. MYROW.STEELNAME,
  575. MYROW.GRADECODE,
  576. MYROW.GRADENAME,
  577. MYROW.SPEC_CODE,
  578. MYROW.SPEC_NAME,
  579. MYROW.MODEL_CODE,
  580. MYROW.MODEL_DESC,
  581. MYROW.STD_CODE,
  582. MYROW.STD_NAME,
  583. MYROW.STD_STYLE,
  584. MYROW.STD_STYLE_DESC,
  585. MYROW.ACT_DIMATER,
  586. MYROW.ACT_HEIGHT,
  587. MYROW.ACT_LEN_MIN,
  588. MYROW.ACT_LEN_MAX,
  589. MYROW.PRO_ORDER_ID,
  590. MYROW.GX_PLAN_NO,
  591. MYROW.ORD_LN_DLY_PK,
  592. MYROW.CRAF_NO,
  593. MYROW.CRAFT_SEQ,
  594. MYROW.INDEX_SEQ,
  595. MYROW.STEEL_STANDRAD,
  596. MYROW.CIC,
  597. MYROW.PIC,
  598. MYROW.BAL_YEAR_MONTH,
  599. MYROW.CONSIGN_NAME,
  600. SYSDATE,
  601. MYROW.CONSIGN_MEMO,
  602. MYROW.RESAMPLE,
  603. MYROW.TARGET,
  604. MYROW.CRAFT_SOURCE,
  605. MYROW.IS_NO_SSC,
  606. MYROW.APPLY_RESAMPLE,
  607. MYROW.IS_NO_HIC,
  608. MYROW.LOT_NO_GROUP,
  609. MYROW.QUOTE_STATE,
  610. MYROW.ZP_M_LH,
  611. MYROW.ZP_COLL);
  612. END LOOP;
  613. FOR MYROW1 IN (SELECT T.*
  614. FROM QCM_ZC_CHECKCONSIGN_DETAIL T, QCM_ZC_CHECKCONSIGN T1
  615. WHERE T1.CHECK_NO = V_CHECK_NO_OLD
  616. AND T.CHECK_NO = T1.CHECK_NO
  617. AND T.BATCH_NO = T1.BATCH_NO) LOOP
  618. INSERT INTO QCM_ZC_CHECKCONSIGN_DETAIL
  619. (CHECK_NO,
  620. BATCH_NO,
  621. SAMPLE_NO,
  622. PHY_CODE_MAX,
  623. PHY_NAME_MAX,
  624. RATE,
  625. DESC_RATE,
  626. EIC,
  627. SAMPLE_NO_MIN,
  628. SAMPLE_COUNT,
  629. SAMPLE_LEN,
  630. MAT_NO,
  631. HEAD_MAT_NO,
  632. BAR_CODE,
  633. NK_RESULT,
  634. JF_RESULT,
  635. RESULT_SOURCE,
  636. IS_QUOTE,
  637. VALIDFLAG,
  638. OLD_JUDGE_STOVE_NO,
  639. OLD_BATCH_NO,
  640. IS_MAIN,
  641. CREATE_TIME)
  642. VALUES
  643. (V_CHECK_NO,
  644. MYROW1.BATCH_NO,
  645. MYROW1.SAMPLE_NO,
  646. MYROW1.PHY_CODE_MAX,
  647. MYROW1.PHY_NAME_MAX,
  648. MYROW1.RATE,
  649. MYROW1.DESC_RATE,
  650. MYROW1.EIC,
  651. MYROW1.SAMPLE_NO_MIN,
  652. MYROW1.SAMPLE_COUNT,
  653. MYROW1.SAMPLE_LEN,
  654. MYROW1.MAT_NO,
  655. MYROW1.HEAD_MAT_NO,
  656. MYROW1.BAR_CODE,
  657. MYROW1.NK_RESULT,
  658. MYROW1.JF_RESULT,
  659. MYROW1.RESULT_SOURCE,
  660. MYROW1.IS_QUOTE,
  661. MYROW1.VALIDFLAG,
  662. MYROW1.OLD_JUDGE_STOVE_NO,
  663. MYROW1.OLD_BATCH_NO,
  664. MYROW1.IS_MAIN,
  665. SYSDATE);
  666. END LOOP;
  667. --生成新的试样号
  668. FOR MYROW2 IN (SELECT CHECK_NO,
  669. SAMPLE_NO,
  670. V_CHECK_NO || ROW_NUMBER() OVER(PARTITION BY(CHECK_NO) ORDER BY(SAMPLE_NO)) SAMPLE_NO_NEW,
  671. ROW_NUMBER() OVER(PARTITION BY(CHECK_NO) ORDER BY(SAMPLE_NO)) RN
  672. FROM (select DISTINCT T.CHECK_NO, T.SAMPLE_NO
  673. from QCM_ZC_CHECKCONSIGN_DETAIL t
  674. WHERE T.CHECK_NO = V_CHECK_NO_OLD)) LOOP
  675. UPDATE QCM_ZC_CHECKCONSIGN_DETAIL T
  676. SET T.SAMPLE_NO = MYROW2.SAMPLE_NO_NEW
  677. WHERE T.CHECK_NO = V_CHECK_NO
  678. AND T.SAMPLE_NO = MYROW2.SAMPLE_NO;
  679. END LOOP;
  680. --旧的检验编号设置需要重新热处理
  681. UPDATE QCM_ZC_CHECKCONSIGN T
  682. SET T.CYCLES_FLAG = '1'
  683. WHERE T.CHECK_NO = V_CHECK_NO_OLD;
  684. END;
  685. ]]>
  686. </query>
  687. <query id="FrmCheckConsignAdd.insertChechconsignDetail" desc="新增105从表数据">
  688. <![CDATA[
  689. DECLARE
  690. V_CHECK_NO QCM_ZC_CHECKCONSIGN_DETAIL.CHECK_NO%type := ?;
  691. V_SAMPLE_NO QCM_ZC_CHECKCONSIGN_DETAIL.SAMPLE_NO%type := ?;
  692. V_PHY_CODE_MAX QCM_ZC_CHECKCONSIGN_DETAIL.PHY_CODE_MAX%type := ?;
  693. V_JUDGE_STOVE_NO QCM_ZC_CHECKCONSIGN.JUDGE_STOVE_NO%type := ?;
  694. BEGIN
  695. FOR MYROW IN (SELECT T.*
  696. FROM QCM_ZC_CHECKCONSIGN_DETAIL T, QCM_ZC_CHECKCONSIGN T1
  697. WHERE T1.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
  698. AND T1.CHECK_NO NOT LIKE 'F%'
  699. AND T.CHECK_NO = T1.CHECK_NO
  700. AND T.PHY_CODE_MAX = V_PHY_CODE_MAX
  701. AND ROWNUM = 1) LOOP
  702. INSERT INTO QCM_ZC_CHECKCONSIGN_DETAIL
  703. (CHECK_NO,
  704. BATCH_NO,
  705. SAMPLE_NO,
  706. PHY_CODE_MAX,
  707. PHY_NAME_MAX,
  708. RATE,
  709. DESC_RATE,
  710. EIC,
  711. SAMPLE_NO_MIN,
  712. SAMPLE_COUNT,
  713. SAMPLE_LEN,
  714. MAT_NO,
  715. HEAD_MAT_NO,
  716. BAR_CODE,
  717. NK_RESULT,
  718. JF_RESULT,
  719. RESULT_SOURCE,
  720. IS_QUOTE,
  721. VALIDFLAG,
  722. OLD_JUDGE_STOVE_NO,
  723. OLD_BATCH_NO,
  724. IS_MAIN,
  725. CREATE_TIME)
  726. VALUES
  727. (V_CHECK_NO,
  728. MYROW.BATCH_NO,
  729. V_SAMPLE_NO,
  730. MYROW.PHY_CODE_MAX,
  731. MYROW.PHY_NAME_MAX,
  732. MYROW.RATE,
  733. MYROW.DESC_RATE,
  734. MYROW.EIC,
  735. MYROW.SAMPLE_NO_MIN,
  736. MYROW.SAMPLE_COUNT,
  737. MYROW.SAMPLE_LEN,
  738. MYROW.MAT_NO,
  739. MYROW.HEAD_MAT_NO,
  740. MYROW.BAR_CODE,
  741. MYROW.NK_RESULT,
  742. MYROW.JF_RESULT,
  743. MYROW.RESULT_SOURCE,
  744. MYROW.IS_QUOTE,
  745. MYROW.VALIDFLAG,
  746. MYROW.OLD_JUDGE_STOVE_NO,
  747. MYROW.OLD_BATCH_NO,
  748. MYROW.IS_MAIN,
  749. SYSDATE);
  750. END LOOP;
  751. END;
  752. ]]>
  753. </query>
  754. <query id="FrmCheckConsignAdd.SelectIsBY" desc="查询是否可以补样">
  755. <![CDATA[
  756. SELECT COUNT(*) acount FROM QCM_ZC_CHECKCONSIGN T WHERE T.JUDGE_STOVE_NO = ? AND T.PLINE_CODE = ?
  757. ]]>
  758. </query>
  759. <query id="FrmCheckConsignAdd.addChechconsign" desc="新增105主表数据">
  760. <![CDATA[
  761. DECLARE
  762. V_CHECK_NO QCM_ZC_CHECKCONSIGN.CHECK_NO%type := ?;
  763. V_JUDGE_STOVE_NO QCM_ZC_CHECKCONSIGN.JUDGE_STOVE_NO%type := ?;
  764. V_BATCH_NO QCM_ZC_CHECKCONSIGN.BATCH_NO%type := ?;
  765. V_PLINE_CODE QCM_ZC_CHECKCONSIGN.PLINE_CODE%type := ?;
  766. V_CRAF_NO QCM_ZC_CHECKCONSIGN.CRAF_NO%type := ?;
  767. V_ORDER_NO QCM_ZC_CHECKCONSIGN.ORD_LN_DLY_PK%type := ?;
  768. V_ORD_LN_DLY_PK QCM_ZC_CHECKCONSIGN.ORD_LN_DLY_PK%type := NULL;
  769. BEGIN
  770. select MAX(t2.Ord_Ln_Dly_Pk)
  771. INTO V_ORD_LN_DLY_PK
  772. from SLM_ORDER_LINE t, slm_order_head t1, SLM_ORDER_LINE_DELIVERY T2
  773. where t1.ORD_PK = t.ORD_PK
  774. AND T.ORD_PK = T2.ORD_PK
  775. AND T.ORD_LN_PK = T2.ORD_LN_PK
  776. AND T2.VALIDFLAG = '1'
  777. and t1.order_no || '/' || t.order_seq = V_ORDER_NO;
  778. DELETE FROM QCM_ZC_CHECKCONSIGN T
  779. WHERE T.CHECK_NO = V_CHECK_NO
  780. AND T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
  781. AND T.BATCH_NO = V_BATCH_NO;
  782. DELETE FROM QCM_ZC_CHECKCONSIGN_DETAIL T WHERE T.CHECK_NO = V_CHECK_NO;
  783. FOR MYROW IN (SELECT *
  784. FROM QCM_ZC_CHECKCONSIGN T
  785. WHERE T.JUDGE_STOVE_NO = V_JUDGE_STOVE_NO
  786. AND T.PLINE_CODE = V_PLINE_CODE
  787. AND ROWNUM = 1) LOOP
  788. INSERT INTO QCM_ZC_CHECKCONSIGN
  789. (CHECK_NO,
  790. JUDGE_STOVE_NO,
  791. BATCH_NO,
  792. CONSIGN_TIME,
  793. CONSIGN_MEMO,
  794. LOT_NO,
  795. STOVE_NO,
  796. PROCESS_CODE,
  797. PLINE_CODE,
  798. PLINE_NAME,
  799. ORD_LN_DLY_PK,
  800. CRAF_NO,
  801. CRAFT_SEQ,
  802. INDEX_SEQ,
  803. STEEL_STANDRAD,
  804. CIC,
  805. PIC)
  806. VALUES
  807. (V_CHECK_NO,
  808. V_JUDGE_STOVE_NO,
  809. V_BATCH_NO,
  810. SYSDATE,
  811. '生产补样',
  812. MYROW.LOT_NO,
  813. MYROW.STOVE_NO,
  814. MYROW.PROCESS_CODE,
  815. MYROW.PLINE_CODE,
  816. MYROW.PLINE_NAME,
  817. V_ORD_LN_DLY_PK,
  818. V_CRAF_NO,
  819. SUBSTR(V_CRAF_NO, -1),
  820. MYROW.INDEX_SEQ,
  821. MYROW.STEEL_STANDRAD,
  822. MYROW.CIC,
  823. MYROW.PIC);
  824. END LOOP;
  825. END;
  826. ]]>
  827. </query>
  828. <query id="FrmCheckConsignAdd.addChechconsignDetail" desc="增加105从表数据">
  829. <![CDATA[
  830. INSERT INTO QCM_ZC_CHECKCONSIGN_DETAIL
  831. (CHECK_NO, SAMPLE_NO, BATCH_NO, PHY_CODE_MAX, PHY_NAME_MAX)
  832. VALUES
  833. (?, ?, ?, ?, ?)
  834. ]]>
  835. </query>
  836. <query id="FrmCheckConsignAdd.SelectPHY_CODE_MAX" desc="根据检验编号查试样号、检验项">
  837. <![CDATA[
  838. select T.CHECK_NO,T.SAMPLE_NO,T.PHY_CODE_MAX from PIPE_CHECKCONSIGN_DETAIL t WHERE T.CHECK_NO = ?
  839. ]]>
  840. </query>
  841. <query id="FrmCheckConsignAdd.SelectBatchNo" desc="根据炉号查询生产批、性能批">
  842. <![CDATA[
  843. select t.*
  844. from QCM_ZC_CHECKCONSIGN t
  845. WHERE T.CHECK_NO = ?
  846. AND T.JUDGE_STOVE_NO = ?
  847. ]]>
  848. </query>
  849. <query id="FrmCheckConsignAdd.SelectCheckNoOld" desc="查询126上的原始检验编号">
  850. <![CDATA[
  851. select t.*
  852. from PIPE_CHECKCONSIGN_BASEINFO t
  853. WHERE T.PROCESS_CODE = 'D'
  854. AND T.CRAFT_SOURCE = '0'
  855. AND T.HEAT_NO = ?
  856. AND T.CONTRACT_NO = ?
  857. AND INSTR('0123456789', SUBSTR(T.CHECK_NO, 1, 1)) > 0
  858. ]]>
  859. </query>
  860. <query id="FrmCheckConsignAdd.updateBatchNo" desc="修改126主从表的批号">
  861. <![CDATA[
  862. DECLARE
  863. V_CHECK_NO PIPE_CHECKCONSIGN_BASEINFO.CHECK_NO%type := ?;
  864. V_LOT_NO PIPE_CHECKCONSIGN_BASEINFO.LOT_NO%type := ?;
  865. V_BATCH_NO PIPE_CHECKCONSIGN_DETAIL.BATCH_NO%type := ?;
  866. BEGIN
  867. UPDATE PIPE_CHECKCONSIGN_BASEINFO T
  868. SET T.LOT_NO = V_LOT_NO
  869. WHERE T.CHECK_NO = V_CHECK_NO;
  870. UPDATE PIPE_CHECKCONSIGN_DETAIL T
  871. SET T.BATCH_NO = V_BATCH_NO
  872. WHERE T.CHECK_NO = V_CHECK_NO;
  873. UPDATE PIPE_CHECKCONSIGN_PHYDETAIL T
  874. SET T.BATCH_NO = V_BATCH_NO
  875. WHERE T.CHECK_NO = V_CHECK_NO;
  876. END;
  877. ]]>
  878. </query>
  879. <query id="FrmCheckConsignAdd.initCraftPath" desc="查询工艺文件">
  880. <![CDATA[
  881. select distinct t1.craft_no, t.CRAFT_PATH
  882. from CRAFT_ORD_DESIGN t, SLM_ORDER_LINE t1, SLM_ORDER_HEAD T2
  883. where t.ord_ln_pk = t1.ord_ln_pk
  884. AND T1.ORD_PK = T2.ORD_PK
  885. and t.CRAFT_PATH is not null
  886. and t1.craft_no is not null
  887. AND T2.ORDER_NO || '/' || T1.ORDER_SEQ = ?
  888. ]]>
  889. </query>
  890. <query id="FrmCheckConsignAdd.insertChechconsign126" desc="新增126一、二、三层表数据">
  891. <![CDATA[
  892. DECLARE
  893. V_CHECK_NO_OLD PIPE_CHECKCONSIGN_BASEINFO.CHECK_NO%type := ?;
  894. V_CHECK_NO PIPE_CHECKCONSIGN_BASEINFO.CHECK_NO%type := ?;
  895. BEGIN
  896. --复制主信息
  897. FOR MYROW IN (SELECT T.*
  898. FROM PIPE_CHECKCONSIGN_BASEINFO T
  899. WHERE T.CHECK_NO = V_CHECK_NO_OLD) LOOP
  900. INSERT INTO PIPE_CHECKCONSIGN_BASEINFO
  901. (CHECK_NO,
  902. LOT_NO,
  903. STOVE_NO,
  904. HEAT_NO,
  905. STEEL_GRADE,
  906. STEEL_NO,
  907. PRODUCT_NAME,
  908. PRODUCT_STD,
  909. CRAFT_FILE_NO,
  910. CONTRACT_NO,
  911. CHECK_COUNT,
  912. PLINE_CODE,
  913. DIMATER,
  914. HEIGHT,
  915. BUCKLE_TYPE,
  916. PROCESS_STATUS,
  917. CONSIGN_DEPT,
  918. CONSIGN_NAME,
  919. CONSIGN_TIME,
  920. ISPRODUCER,
  921. SPEC_REQ,
  922. FLAG,
  923. SAMPLE_REMARK,
  924. REMARK,
  925. DATA_TYPE,
  926. VALIDFLAG,
  927. CRAFT_PATH,
  928. PRODUCER_DEPT,
  929. FINAL_USER_DESC,
  930. STD_STYLE_DESC,
  931. PROCESS_CODE,
  932. MERGER_NO,
  933. CRAFT_SOURCE,
  934. INDEX_SEQ,
  935. PIC,
  936. CIC,
  937. LOT_NO_GROUP)
  938. VALUES
  939. (V_CHECK_NO,
  940. MYROW.LOT_NO,
  941. MYROW.STOVE_NO,
  942. MYROW.HEAT_NO,
  943. MYROW.STEEL_GRADE,
  944. MYROW.STEEL_NO,
  945. MYROW.PRODUCT_NAME,
  946. MYROW.PRODUCT_STD,
  947. MYROW.CRAFT_FILE_NO,
  948. MYROW.CONTRACT_NO,
  949. MYROW.CHECK_COUNT,
  950. MYROW.PLINE_CODE,
  951. MYROW.DIMATER,
  952. MYROW.HEIGHT,
  953. MYROW.BUCKLE_TYPE,
  954. MYROW.PROCESS_STATUS,
  955. MYROW.CONSIGN_DEPT,
  956. MYROW.CONSIGN_NAME,
  957. SYSDATE,
  958. MYROW.ISPRODUCER,
  959. MYROW.SPEC_REQ,
  960. '0',
  961. MYROW.SAMPLE_REMARK,
  962. MYROW.REMARK,
  963. '1',
  964. MYROW.VALIDFLAG,
  965. MYROW.CRAFT_PATH,
  966. MYROW.PRODUCER_DEPT,
  967. MYROW.FINAL_USER_DESC,
  968. MYROW.STD_STYLE_DESC,
  969. MYROW.PROCESS_CODE,
  970. MYROW.MERGER_NO,
  971. '6',
  972. MYROW.INDEX_SEQ,
  973. MYROW.PIC,
  974. MYROW.CIC,
  975. MYROW.LOT_NO_GROUP);
  976. END LOOP;
  977. --复制试样组信息
  978. FOR MYROW1 IN (SELECT T.*
  979. FROM PIPE_CHECKCONSIGN_DETAIL T
  980. WHERE T.CHECK_NO = V_CHECK_NO_OLD) LOOP
  981. INSERT INTO PIPE_CHECKCONSIGN_DETAIL
  982. (CHECK_NO,
  983. BATCH_NO,
  984. SAMPLE_NO,
  985. SAMPLE_NO_MIN,
  986. SAMPLE_BARCODE,
  987. SAMPLE_LEN,
  988. CHECK_STD,
  989. PHY_CODE_MAX,
  990. PHY_NAME_MAX,
  991. SAMPLE_COUNT,
  992. DEPT_ID,
  993. LENGTH,
  994. WIDTH,
  995. EIC,
  996. PHY_DIR,
  997. SIZE_DESC)
  998. VALUES
  999. (V_CHECK_NO,
  1000. MYROW1.BATCH_NO,
  1001. MYROW1.SAMPLE_NO,
  1002. MYROW1.SAMPLE_NO_MIN,
  1003. MYROW1.SAMPLE_BARCODE,
  1004. MYROW1.SAMPLE_LEN,
  1005. MYROW1.CHECK_STD,
  1006. MYROW1.PHY_CODE_MAX,
  1007. MYROW1.PHY_NAME_MAX,
  1008. MYROW1.SAMPLE_COUNT,
  1009. MYROW1.DEPT_ID,
  1010. MYROW1.LENGTH,
  1011. MYROW1.WIDTH,
  1012. MYROW1.EIC,
  1013. MYROW1.PHY_DIR,
  1014. MYROW1.SIZE_DESC);
  1015. END LOOP;
  1016. --生成新的试样号
  1017. FOR MYROW2 IN (SELECT CHECK_NO,
  1018. SAMPLE_NO,
  1019. V_CHECK_NO || ROW_NUMBER() OVER(PARTITION BY(CHECK_NO) ORDER BY(SAMPLE_NO)) SAMPLE_NO_NEW,
  1020. ROW_NUMBER() OVER(PARTITION BY(CHECK_NO) ORDER BY(SAMPLE_NO)) RN
  1021. FROM (select DISTINCT T.CHECK_NO, T.SAMPLE_NO
  1022. from PIPE_CHECKCONSIGN_DETAIL t
  1023. WHERE T.CHECK_NO = V_CHECK_NO_OLD)) LOOP
  1024. UPDATE PIPE_CHECKCONSIGN_DETAIL T
  1025. SET T.SAMPLE_NO = MYROW2.SAMPLE_NO_NEW
  1026. WHERE T.CHECK_NO = V_CHECK_NO
  1027. AND T.SAMPLE_NO = MYROW2.SAMPLE_NO;
  1028. END LOOP;
  1029. --复制检验项信息
  1030. FOR MYROW4 IN (SELECT T.*
  1031. FROM PIPE_CHECKCONSIGN_PHYDETAIL T
  1032. WHERE T.CHECK_NO = V_CHECK_NO_OLD) LOOP
  1033. INSERT INTO PIPE_CHECKCONSIGN_PHYDETAIL
  1034. (CHECK_NO,
  1035. BATCH_NO,
  1036. SAMPLE_NO,
  1037. INDEX_SEQ,
  1038. DEPT_ID,
  1039. PHY_CODE_MAX,
  1040. PHY_NAME_MAX,
  1041. PHY_CODE_MIN,
  1042. PHY_NAME_MIN,
  1043. PHY_CODE,
  1044. PHY_NAME,
  1045. PHY_UNIT,
  1046. ITEM_CODE_F,
  1047. ITEM_NAME_F,
  1048. ITEM_CODE_W,
  1049. ITEM_NAME_W,
  1050. ITEM_CODE_S,
  1051. ITEM_NAME_S,
  1052. GROUP_SEQ,
  1053. RESULT_COUNT,
  1054. ISCHECK,
  1055. ISJUDGE,
  1056. ISQUOTE,
  1057. PHY_TYPE,
  1058. PHY_FORMULA,
  1059. STDMIN_SIGN,
  1060. STDMIN,
  1061. STDMAX_SIGN,
  1062. STDMAX,
  1063. JUDGE_BASIS,
  1064. STDMIN_SIGN2,
  1065. STDMIN2,
  1066. STDMAX_SIGN2,
  1067. STDMAX2,
  1068. STD_CHOOSE,
  1069. STDMEMO,
  1070. ADDCONDITION,
  1071. ADDSTDCON_CODE,
  1072. ADDSTD_MIN_SIGN,
  1073. ADDSTD_MIN,
  1074. ADDSTD_MAX_SIGN,
  1075. ADDSTD_MAX,
  1076. ADDPERCENT,
  1077. BILLET_SAMPLE,
  1078. REMARK,
  1079. SEQ,
  1080. PHY_CODE_DIR,
  1081. PHY_NAME_DIR,
  1082. SPLINE_ITEM_CODE_S,
  1083. SPLINE_ITEM_NAME_S,
  1084. SPLINE_ITEM_CODE_F,
  1085. SPLINE_ITEM_NAME_F)
  1086. VALUES
  1087. (V_CHECK_NO,
  1088. MYROW4.BATCH_NO,
  1089. MYROW4.SAMPLE_NO,
  1090. MYROW4.INDEX_SEQ,
  1091. MYROW4.DEPT_ID,
  1092. MYROW4.PHY_CODE_MAX,
  1093. MYROW4.PHY_NAME_MAX,
  1094. MYROW4.PHY_CODE_MIN,
  1095. MYROW4.PHY_NAME_MIN,
  1096. MYROW4.PHY_CODE,
  1097. MYROW4.PHY_NAME,
  1098. MYROW4.PHY_UNIT,
  1099. MYROW4.ITEM_CODE_F,
  1100. MYROW4.ITEM_NAME_F,
  1101. MYROW4.ITEM_CODE_W,
  1102. MYROW4.ITEM_NAME_W,
  1103. MYROW4.ITEM_CODE_S,
  1104. MYROW4.ITEM_NAME_S,
  1105. MYROW4.GROUP_SEQ,
  1106. MYROW4.RESULT_COUNT,
  1107. MYROW4.ISCHECK,
  1108. MYROW4.ISJUDGE,
  1109. MYROW4.ISQUOTE,
  1110. MYROW4.PHY_TYPE,
  1111. MYROW4.PHY_FORMULA,
  1112. MYROW4.STDMIN_SIGN,
  1113. MYROW4.STDMIN,
  1114. MYROW4.STDMAX_SIGN,
  1115. MYROW4.STDMAX,
  1116. MYROW4.JUDGE_BASIS,
  1117. MYROW4.STDMIN_SIGN2,
  1118. MYROW4.STDMIN2,
  1119. MYROW4.STDMAX_SIGN2,
  1120. MYROW4.STDMAX2,
  1121. MYROW4.STD_CHOOSE,
  1122. MYROW4.STDMEMO,
  1123. MYROW4.ADDCONDITION,
  1124. MYROW4.ADDSTDCON_CODE,
  1125. MYROW4.ADDSTD_MIN_SIGN,
  1126. MYROW4.ADDSTD_MIN,
  1127. MYROW4.ADDSTD_MAX_SIGN,
  1128. MYROW4.ADDSTD_MAX,
  1129. MYROW4.ADDPERCENT,
  1130. MYROW4.BILLET_SAMPLE,
  1131. MYROW4.REMARK,
  1132. MYROW4.SEQ,
  1133. MYROW4.PHY_CODE_DIR,
  1134. MYROW4.PHY_NAME_DIR,
  1135. MYROW4.SPLINE_ITEM_CODE_S,
  1136. MYROW4.SPLINE_ITEM_NAME_S,
  1137. MYROW4.SPLINE_ITEM_CODE_F,
  1138. MYROW4.SPLINE_ITEM_NAME_F);
  1139. END LOOP;
  1140. --生成检验项信息 新的试样号
  1141. FOR MYROW5 IN (SELECT CHECK_NO,
  1142. SAMPLE_NO,
  1143. V_CHECK_NO || ROW_NUMBER() OVER(PARTITION BY(CHECK_NO) ORDER BY(SAMPLE_NO)) SAMPLE_NO_NEW,
  1144. ROW_NUMBER() OVER(PARTITION BY(CHECK_NO) ORDER BY(SAMPLE_NO)) RN
  1145. FROM (select DISTINCT T.CHECK_NO, T.SAMPLE_NO
  1146. from PIPE_CHECKCONSIGN_PHYDETAIL t
  1147. WHERE T.CHECK_NO = V_CHECK_NO_OLD)) LOOP
  1148. UPDATE PIPE_CHECKCONSIGN_PHYDETAIL T
  1149. SET T.SAMPLE_NO = MYROW5.SAMPLE_NO_NEW
  1150. WHERE T.CHECK_NO = V_CHECK_NO
  1151. AND T.SAMPLE_NO = MYROW5.SAMPLE_NO;
  1152. END LOOP;
  1153. --复制成分信息
  1154. FOR MYROW6 IN (SELECT T.*
  1155. FROM PIPE_CHECKCONSIGN_CHEMDETAIL T
  1156. WHERE T.CHECK_NO = V_CHECK_NO_OLD) LOOP
  1157. INSERT INTO PIPE_CHECKCONSIGN_CHEMDETAIL
  1158. (CHECK_NO,
  1159. SAMPLE_NO,
  1160. CHEM_CODE,
  1161. CHEM_NAME,
  1162. CHEM_TYPE,
  1163. ISCHECK,
  1164. ISJUDGE,
  1165. ISQUOTE,
  1166. COMPLEX_TYPE,
  1167. CHEM_FORMULA,
  1168. STDMIN_SIGN,
  1169. STDMIN,
  1170. STDMAX_SIGN,
  1171. STDMAX,
  1172. STDTARGET,
  1173. STDMEMO,
  1174. BATCH_NO)
  1175. VALUES
  1176. (V_CHECK_NO,
  1177. MYROW6.SAMPLE_NO,
  1178. MYROW6.CHEM_CODE,
  1179. MYROW6.CHEM_NAME,
  1180. MYROW6.CHEM_TYPE,
  1181. MYROW6.ISCHECK,
  1182. MYROW6.ISJUDGE,
  1183. MYROW6.ISQUOTE,
  1184. MYROW6.COMPLEX_TYPE,
  1185. MYROW6.CHEM_FORMULA,
  1186. MYROW6.STDMIN_SIGN,
  1187. MYROW6.STDMIN,
  1188. MYROW6.STDMAX_SIGN,
  1189. MYROW6.STDMAX,
  1190. MYROW6.STDTARGET,
  1191. MYROW6.STDMEMO,
  1192. MYROW6.BATCH_NO);
  1193. END LOOP;
  1194. --生成成分信息新的试样号
  1195. FOR MYROW7 IN (SELECT CHECK_NO,
  1196. SAMPLE_NO,
  1197. V_CHECK_NO || ROW_NUMBER() OVER(PARTITION BY(CHECK_NO) ORDER BY(SAMPLE_NO)) SAMPLE_NO_NEW,
  1198. ROW_NUMBER() OVER(PARTITION BY(CHECK_NO) ORDER BY(SAMPLE_NO)) RN
  1199. FROM (select DISTINCT T.CHECK_NO, T.SAMPLE_NO
  1200. from PIPE_CHECKCONSIGN_CHEMDETAIL t
  1201. WHERE T.CHECK_NO = V_CHECK_NO_OLD)) LOOP
  1202. UPDATE PIPE_CHECKCONSIGN_CHEMDETAIL T
  1203. SET T.SAMPLE_NO = MYROW7.SAMPLE_NO_NEW
  1204. WHERE T.CHECK_NO = V_CHECK_NO
  1205. AND T.SAMPLE_NO = MYROW7.SAMPLE_NO;
  1206. END LOOP;
  1207. END;
  1208. ]]>
  1209. </query>
  1210. </queryMap>