FrmMchApply.xml 21 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626
  1. <?xml version="1.0" encoding="UTF-8"?>
  2. <queryMap desc="申请判定管理">
  3. <query id="FrmMchApply.doQueryLibrary" desc="查询炉计划信息">
  4. <![CDATA[
  5. SELECT T3.*,
  6. TO_NUMBER(T3.OUT_NUM_REAL) - TO_NUMBER(T3.APPLY_COUNT) UNAPPLY_COUNT
  7. FROM (SELECT
  8. T.HEAT_PLAN_NO,
  9. T.ORDER_NO,
  10. T.ORDER_SEQ,
  11. T.DELIVERY_NO,
  12. T.ORDER_NO || '/' || T.ORDER_SEQ || '/' || T.DELIVERY_NO ORDER_NO_SEQ,
  13. T.JUDGE_STOVE_NO,
  14. T.BATCH_NO ZG_BATCH_NO,
  15. T.OUTWL_ID,
  16. T.OUTWL_DESC,
  17. T1.PRODUCCODE,
  18. T1.PRODUCNAME,
  19. T1.STD_CODE,
  20. T1.STD_NAME,
  21. T1.STEELCODE,
  22. T1.STEELNAME,
  23. T1.SPEC_CODE,
  24. T1.SPEC_NAME,
  25. T1.MODEL_CODE,
  26. T1.MODEL_DESC,
  27. T1.STD_STYLE_DESC,
  28. TO_CHAR(T1.LENGTHMIN, 'FM999990.00') AS LENGTHMIN,
  29. TO_CHAR(T1.LENGTHMAX, 'FM999990.00') AS LENGTHMAX,
  30. TO_CHAR(T1.LENGTHMIN, 'FM999990.00') || '-' ||
  31. TO_CHAR(T1.LENGTHMAX, 'FM999990.00') AS ACT_LEN_SCOPE,
  32. SUM(NVL(Th.REAL_OUTDOUBLE_WT, 0)) OUT_WT_REAL,
  33. SUM(NVL(Th.REAL_OUTDOUBLE_NUM, 0)) OUT_NUM_REAL,
  34. T.CRAFT_FILE_NO,
  35. T.ZY_BATCH_ID,
  36. NVL((SELECT SUM(T2.ACT_COUNT)
  37. FROM QCM_ZG_JUGDE_APPLY T2
  38. WHERE T2.JUDGE_STOVE_NO = T.JUDGE_STOVE_NO
  39. AND T2.BATCH_NO = T.BATCH_NO
  40. AND T2.PROCESS_CODE = 'G'),
  41. 0) APPLY_COUNT,
  42. T.CREATE_NAME,
  43. TO_CHAR(T.CREATE_TIME,'YYYY-MM-DD') CREATE_TIME,
  44. T.PLINE_CODE,
  45. T.PLINE_NAME
  46. FROM PLN_ZY_JGX_M T, PLN_SALEORD T1,PLN_ZY_JGX_C th
  47. WHERE T.ORD_LN_DLY_PK = T1.ORD_LN_DLY_PK(+)
  48. AND T.PLANSTATUS = '30' AND TH.OUTNUM_CUT='1'
  49. ]]>
  50. </query>
  51. <query id="FrmMchApply.doQueryVrpMatNo" desc="查询材料表实体类">
  52. <![CDATA[
  53. SELECT T1.*
  54. FROM MAT_ZC_M T1,YDM_ZC_BUTTRESS S
  55. WHERE T1.MAT_NO = S.MAT_NO
  56. AND T1.JUDGE_STOVE_NO =?
  57. AND T1.BATCH_NO = ?
  58. AND T1.BATCH_GROUD_NO = ?
  59. AND T1.PRC_QCM_STAUS = '00'
  60. ORDER BY T1.MAT_NO ASC
  61. ]]>
  62. </query>
  63. <query id="FrmMchApply.doQueryMatZcM" desc="查询炉批信息">
  64. <![CDATA[
  65. SELECT T2.*,
  66. DECODE(T4.APPLY_FLAG, '0', '正常送判', '1', '退判', '未送判') APPLY_FLAG,
  67. T4.BACK_JUGDE_MEMO
  68. FROM (SELECT T1.JUDGE_STOVE_NO,
  69. T1.BATCH_NO,
  70. T1.BATCH_GROUD_NO,
  71. T1.PRODUCNAME,
  72. T1.STEELNAME,
  73. T1.SPEC_NAME,
  74. T1.MODEL_DESC,
  75. T1.STD_NAME,
  76. T1.ORDER_NO,
  77. T1.ORDER_SEQ,
  78. T1.ORDER_SEQ_NO,
  79. T1.ACT_DIMATER,
  80. T1.ACT_HEIGHT,
  81. T1.BELONG_NAME,
  82. T1.STD_STYLE_DESC,
  83. T1.GRADENAME,
  84. SUM(T1.ACT_COUNT) ACT_COUNT,
  85. TO_CHAR(SUM(T1.ACT_WEIGHT), 'FM999999990.000') ACT_WEIGHT,
  86. TO_CHAR(SUM(T1.ACT_THEORY_WEIGHT), 'FM999999990.000') ACT_THEORY_WEIGHT,
  87. SUM(NVL(T1.ACT_LEN, 0)) AS ACT_LEN,
  88. TO_CHAR(T1.ACT_LEN_MIN, 'FM999990.00') AS ACT_LEN_MIN,
  89. TO_CHAR(T1.ACT_LEN_MAX, 'FM999990.00') AS ACT_LEN_MAX,
  90. TO_CHAR(T1.ACT_LEN_MIN, 'FM999990.00') || '-' ||
  91. TO_CHAR(T1.ACT_LEN_MAX, 'FM999990.00') AS LEN,
  92. MAX(TO_CHAR(T1.CREATE_TIME, 'YYYY-MM-DD HH24:MI:SS')) CREATE_TIME,
  93. MAX(TO_CHAR(T1.INSTOCK_TIME, 'YYYY-MM-DD')) INSTOCK_TIME,
  94. T1.MATERIAL_NAME,
  95. T1.JUDGE_STD_NAME,
  96. T1.PLINE_CODE,
  97. T1.PLINE_NAME,
  98. T1.MAT_STATUS,
  99. P.HEAT_PLAN_NO,
  100. TO_CHAR(TO_DATE(P.BAL_YEAR_MONTH, 'YYYY-MM'), 'YYYY-MM') AS BAL_YEAR_MONTH,
  101. T1.PRODUCT_FLAG,
  102. T1.PRC_JUGDE_APPLY_CODE VRP_JUGDE_APPLY_CODE,
  103. DECODE(T1.PRC_QCM_STAUS,
  104. '00',
  105. '合格',
  106. '11',
  107. '待处理',
  108. '22',
  109. '判废',
  110. '10',
  111. '处理合格',
  112. '12',
  113. '处理判废') VRP_QCM_STAUS,
  114. T1.PRC_PHY_RESULT_CODE VRP_PHY_RESULT_CODE,
  115. T1.PRC_FACE_RESULT_CODE VRP_FACE_RESULT_CODE,
  116. T1.PRC_JUDGE_RESULT_CODE VRP_JUDGE_RESULT_CODE,
  117. T1.PRC_CHEM_RESULT_CODE VRP_CHEM_RESULT_CODE
  118. FROM MAT_ZC_M T1,
  119. YDM_ZC_BUTTRESS T,
  120. PORT_MCH_BATCH_SAMPLE_RESULT P
  121. WHERE T1.MAT_NO = T.MAT_NO
  122. AND T1.MAT_NO = P.MAT_NO
  123. AND P.MAT_STATUS = '00'
  124. AND T1.JUDGE_STOVE_NO = ?
  125. AND NVL(T1.BATCH_NO, '/') = NVL(?, '/')
  126. AND T1.PRC_QCM_STAUS IN ('00', '10')
  127. AND P.PLINE_CODE = ?
  128. #VRP_JUGDE_APPLY_CODE#
  129. GROUP BY T1.JUDGE_STOVE_NO,
  130. T1.BATCH_NO,
  131. T1.BATCH_GROUD_NO,
  132. T1.PRODUCNAME,
  133. T1.STEELNAME,
  134. T1.SPEC_NAME,
  135. T1.GRADENAME,
  136. T1.STD_STYLE_DESC,
  137. T1.MAT_STATUS,
  138. T1.PRC_JUGDE_APPLY_CODE,
  139. T1.PRC_QCM_STAUS,
  140. T1.MODEL_DESC,
  141. T1.STD_NAME,
  142. T1.ORDER_NO,
  143. T1.ORDER_SEQ,
  144. T1.ORDER_SEQ_NO,
  145. T1.ACT_DIMATER,
  146. T1.ACT_HEIGHT,
  147. T1.BELONG_NAME,
  148. T1.PLINE_CODE,
  149. T1.PLINE_NAME,
  150. P.BAL_YEAR_MONTH,
  151. T1.MATERIAL_NAME,
  152. T1.ACT_LEN_MIN,
  153. T1.ACT_LEN_MAX,
  154. T1.PRODUCT_FLAG,
  155. T1.JUDGE_STD_NAME,
  156. T1.PRC_PHY_RESULT_CODE,
  157. T1.PRC_FACE_RESULT_CODE,
  158. T1.PRC_JUDGE_RESULT_CODE,
  159. T1.PRC_CHEM_RESULT_CODE,
  160. P.HEAT_PLAN_NO) T2
  161. LEFT JOIN (SELECT T3.JUGDE_APPLY_CODE, T3.APPLY_FLAG, T3.BACK_JUGDE_MEMO
  162. FROM QCM_ZG_JUGDE_APPLY T3
  163. GROUP BY T3.JUGDE_APPLY_CODE,
  164. T3.APPLY_FLAG,
  165. T3.BACK_JUGDE_MEMO) T4
  166. ON T2.VRP_JUGDE_APPLY_CODE = T4.JUGDE_APPLY_CODE
  167. ORDER BY T2.BAL_YEAR_MONTH DESC
  168. ]]>
  169. </query>
  170. <query id="FrmMchApply.getProductflag" desc="查询材料类别">
  171. <![CDATA[
  172. SELECT T.BASENAME,T.BASECODE
  173. FROM COM_BASE_INFO T
  174. WHERE T.SORTCODE = ?
  175. AND T.VALIDFLAG = '1'
  176. ]]>
  177. </query>
  178. <query id="FrmMchApply.jugdeApplyNo" desc="生产判定单号">
  179. <![CDATA[
  180. SELECT ?|| ? || TO_CHAR(SYSDATE, 'YYYYMMDD') ||
  181. LPAD(NVL(MAX(SUBSTR(T.JUGDE_APPLY_CODE, 19)), 0) + 1, 5, 0) JUGDE_APPLY_CODE
  182. FROM QCM_ZG_JUGDE_APPLY T
  183. WHERE T.PLINE_CODE = ?
  184. AND T.PROCESS_CODE = ?
  185. ]]>
  186. </query>
  187. <query id="FrmMchApply.insertJugeApply" desc="生产判定单号">
  188. <![CDATA[
  189. DECLARE
  190. V_COUNT MAT_ZC_M.PRC_QUALITY_GROUP_ZG%TYPE := 1;
  191. BEGIN
  192. FOR MYROW IN (SELECT SUM(T.ACT_COUNT) ACT_COUNT,
  193. SUM(T.ACT_WEIGHT) ACT_THEORY_WEIGHT,
  194. SUM(T.PONDER_GROSS_WT) ACT_WEIGHT,
  195. T.JUDGE_STOVE_NO,
  196. T.BATCH_NO,
  197. T.BATCH_GROUD_NO,
  198. T.PRC_JUDGE_RESULT_CODE,
  199. T.PRC_FACE_RESULT_CODE,
  200. T.PRC_CHEM_RESULT_CODE,
  201. T.PRC_PHY_RESULT_CODE,
  202. T.PRC_SPEC_RESULT_CODE,
  203. T.PLINE_CODE,
  204. T.PRO_ORDER_ID,
  205. T.LOT_NO,
  206. T.PLINE_NAME,
  207. T.PRO_ORDER_NO,
  208. T.TARGET,
  209. T.PROCESS_STATUS,
  210. --T.MAT_GOWHERE_CODE,
  211. --T.MAT_GOWHERE_NAME,
  212. T.ACT_DIMATER,
  213. T.ACT_HEIGHT,
  214. T.ACT_LEN_MIN,
  215. T.ACT_LEN_MAX,
  216. T.CRAF_NO,
  217. T.MATERIAL_NO,
  218. T.MATERIAL_NAME,
  219. T.PRODUCCODE,
  220. T.PRODUCNAME,
  221. T.SPEC_CODE,
  222. T.SPEC_NAME,
  223. T.STEELCODE,
  224. T.STEELNAME,
  225. T.MODEL_CODE,
  226. T.MODEL_DESC,
  227. T.STD_CODE,
  228. T.STD_NAME,
  229. T.STD_STYLE,
  230. T.STD_STYLE_DESC,
  231. T.GRADECODE,
  232. T.GRADENAME
  233. FROM MAT_ZC_M T
  234. WHERE T.JUDGE_STOVE_NO = ?
  235. AND T.BATCH_NO = ?
  236. AND T.BATCH_GROUD_NO = ?
  237. AND T.PLINE_CODE = ?
  238. AND T.PRC_HEAT_PLAN_NO IS NOT NULL
  239. AND T.PRC_QCM_STAUS IN ('00', '10')
  240. GROUP BY T.JUDGE_STOVE_NO,
  241. T.BATCH_NO,
  242. T.BATCH_GROUD_NO,
  243. T.PRC_JUDGE_RESULT_CODE,
  244. T.PRC_FACE_RESULT_CODE,
  245. T.PRC_CHEM_RESULT_CODE,
  246. T.PRC_PHY_RESULT_CODE,
  247. T.PRC_SPEC_RESULT_CODE,
  248. T.PLINE_CODE,
  249. T.PRO_ORDER_ID,
  250. T.LOT_NO,
  251. T.PLINE_NAME,
  252. T.PRO_ORDER_NO,
  253. T.TARGET,
  254. T.PROCESS_STATUS,
  255. --T.MAT_GOWHERE_CODE,
  256. --T.MAT_GOWHERE_NAME,
  257. T.ACT_DIMATER,
  258. T.ACT_HEIGHT,
  259. T.ACT_LEN_MIN,
  260. T.ACT_LEN_MAX,
  261. T.CRAF_NO,
  262. T.MATERIAL_NO,
  263. T.MATERIAL_NAME,
  264. T.PRODUCCODE,
  265. T.PRODUCNAME,
  266. T.SPEC_CODE,
  267. T.SPEC_NAME,
  268. T.STEELCODE,
  269. T.STEELNAME,
  270. T.MODEL_CODE,
  271. T.MODEL_DESC,
  272. T.STD_CODE,
  273. T.STD_NAME,
  274. T.STD_STYLE,
  275. T.STD_STYLE_DESC,
  276. T.GRADECODE,
  277. T.GRADENAME) LOOP
  278. FOR MYROW IN (SELECT SUM(T.ACT_COUNT) ACT_COUNT,
  279. SUM(T.ACT_WEIGHT) ACT_THEORY_WEIGHT,
  280. SUM(T.PONDER_GROSS_WT) ACT_WEIGHT,
  281. T.JUDGE_STOVE_NO,
  282. T.BATCH_NO,
  283. T.BATCH_GROUD_NO,
  284. T.PRC_JUDGE_RESULT_CODE,
  285. T.PRC_FACE_RESULT_CODE,
  286. T.PRC_CHEM_RESULT_CODE,
  287. T.PRC_PHY_RESULT_CODE,
  288. T.PRC_SPEC_RESULT_CODE,
  289. T.PLINE_CODE,
  290. T.PRO_ORDER_ID,
  291. T.LOT_NO,
  292. T.PLINE_NAME,
  293. T.PRO_ORDER_NO,
  294. T.TARGET,
  295. T.PROCESS_STATUS,
  296. T.MAT_GOWHERE_CODE,
  297. T.MAT_GOWHERE_NAME,
  298. T.ACT_DIMATER,
  299. T.ACT_HEIGHT,
  300. T.ACT_LEN_MIN,
  301. T.ACT_LEN_MAX,
  302. T.CRAF_NO,
  303. T.MATERIAL_NO,
  304. T.MATERIAL_NAME,
  305. T.PRODUCCODE,
  306. T.PRODUCNAME,
  307. T.SPEC_CODE,
  308. T.SPEC_NAME,
  309. T.STEELCODE,
  310. T.STEELNAME,
  311. T.MODEL_CODE,
  312. T.MODEL_DESC,
  313. T.STD_CODE,
  314. T.STD_NAME,
  315. T.STD_STYLE,
  316. T.STD_STYLE_DESC,
  317. T.GRADECODE,
  318. T.GRADENAME,
  319. T.TESTING_GRADE,
  320. T.TESTING_TYPE,
  321. T.TESTING_GRADE1,
  322. T.TESTING_TYPE1,
  323. T.ORD_LN_DLY_PK
  324. FROM MAT_ZC_M T
  325. WHERE T.JUDGE_STOVE_NO = ?
  326. AND T.BATCH_NO = ?
  327. AND T.BATCH_GROUD_NO = ?
  328. AND T.PLINE_CODE = ?
  329. AND T.PRC_HEAT_PLAN_NO IS NOT NULL
  330. AND T.PRC_QCM_STAUS IN ('00', '10')
  331. GROUP BY T.JUDGE_STOVE_NO,
  332. T.BATCH_NO,
  333. T.BATCH_GROUD_NO,
  334. T.PRC_JUDGE_RESULT_CODE,
  335. T.PRC_FACE_RESULT_CODE,
  336. T.PRC_CHEM_RESULT_CODE,
  337. T.PRC_PHY_RESULT_CODE,
  338. T.PRC_SPEC_RESULT_CODE,
  339. T.PLINE_CODE,
  340. T.PRO_ORDER_ID,
  341. T.LOT_NO,
  342. T.PLINE_NAME,
  343. T.PRO_ORDER_NO,
  344. T.TARGET,
  345. T.PROCESS_STATUS,
  346. T.MAT_GOWHERE_CODE,
  347. T.MAT_GOWHERE_NAME,
  348. T.ACT_DIMATER,
  349. T.ACT_HEIGHT,
  350. T.ACT_LEN_MIN,
  351. T.ACT_LEN_MAX,
  352. T.CRAF_NO,
  353. T.MATERIAL_NO,
  354. T.MATERIAL_NAME,
  355. T.PRODUCCODE,
  356. T.PRODUCNAME,
  357. T.SPEC_CODE,
  358. T.SPEC_NAME,
  359. T.STEELCODE,
  360. T.STEELNAME,
  361. T.MODEL_CODE,
  362. T.MODEL_DESC,
  363. T.STD_CODE,
  364. T.STD_NAME,
  365. T.STD_STYLE,
  366. T.STD_STYLE_DESC,
  367. T.GRADECODE,
  368. T.GRADENAME,
  369. T.TESTING_GRADE,
  370. T.TESTING_TYPE,
  371. T.TESTING_GRADE1,
  372. T.TESTING_TYPE1,
  373. T.ORD_LN_DLY_PK) LOOP
  374. INSERT INTO QCM_ZG_JUGDE_APPLY
  375. (JUGDE_APPLY_CODE,
  376. JUDGE_STOVE_NO,
  377. BATCH_NO,
  378. BATCH_GROUD_NO,
  379. PROCESS_CODE,
  380. PLINE_CODE,
  381. ACT_COUNT,
  382. ACT_WEIGHT,
  383. ACT_THEORY_WEIGHT,
  384. PRO_ORDER_ID,
  385. FACE_RESULT_CODE,
  386. SPEC_RESULT_CODE,
  387. CHEM_RESULT_CODE,
  388. PHY_RESULT_CODE,
  389. DETECT_RESULT_CODE,
  390. WPRESSURE_RESULT_CODE,
  391. PROCESS_RESULT_CODE,
  392. APPLY_NAME,
  393. APPLY_TIME,
  394. MEMO,
  395. QUALITY_GROUP,
  396. LOT_NO,
  397. PLINE_NAME,
  398. PRO_ORDER_NO,
  399. TARGET,
  400. PROCESS_STATUS,
  401. MAT_GOWHERE_CODE,
  402. MAT_GOWHERE_NAME,
  403. ACT_DIMATER,
  404. ACT_HEIGHT,
  405. ACT_LEN_MIN,
  406. ACT_LEN_MAX,
  407. CRAF_NO,
  408. MATERIAL_NO,
  409. MATERIAL_NAME,
  410. PRODUCCODE,
  411. PRODUCNAME,
  412. SPEC_CODE,
  413. SPEC_NAME,
  414. STEELCODE,
  415. STEELNAME,
  416. MODEL_CODE,
  417. MODEL_DESC,
  418. STD_CODE,
  419. STD_NAME,
  420. STD_STYLE,
  421. STD_STYLE_DESC,
  422. GRADECODE,
  423. GRADENAME,
  424. TESTING_GRADE,
  425. TESTING_TYPE,
  426. TESTING_GRADE1,
  427. TESTING_TYPE1,
  428. ORD_LN_DLY_PK,
  429. BELONG_CODE,
  430. BELONG_NAME,
  431. ISENDGX)
  432. VALUES
  433. (?,
  434. MYROW.JUDGE_STOVE_NO,
  435. MYROW.BATCH_NO,
  436. MYROW.BATCH_GROUD_NO,
  437. 'G',
  438. MYROW.PLINE_CODE,
  439. MYROW.ACT_COUNT,
  440. MYROW.ACT_WEIGHT,
  441. MYROW.ACT_THEORY_WEIGHT,
  442. MYROW.PRO_ORDER_ID,
  443. MYROW.PRC_FACE_RESULT_CODE,
  444. MYROW.PRC_SPEC_RESULT_CODE,
  445. MYROW.PRC_CHEM_RESULT_CODE,
  446. MYROW.PRC_PHY_RESULT_CODE,
  447. '',
  448. '',
  449. '',
  450. ?,
  451. TO_DATE(?, 'YYYY-MM-DD HH24:MI:SS'),
  452. '',
  453. V_COUNT,
  454. ?,
  455. MYROW.PLINE_NAME,
  456. MYROW.PRO_ORDER_NO,
  457. MYROW.TARGET,
  458. MYROW.PROCESS_STATUS,
  459. MYROW.MAT_GOWHERE_CODE,
  460. MYROW.MAT_GOWHERE_NAME,
  461. MYROW.ACT_DIMATER,
  462. MYROW.ACT_HEIGHT,
  463. MYROW.ACT_LEN_MIN,
  464. MYROW.ACT_LEN_MAX,
  465. ?,
  466. MYROW.MATERIAL_NO,
  467. MYROW.MATERIAL_NAME,
  468. MYROW.PRODUCCODE,
  469. MYROW.PRODUCNAME,
  470. MYROW.SPEC_CODE,
  471. MYROW.SPEC_NAME,
  472. MYROW.STEELCODE,
  473. MYROW.STEELNAME,
  474. MYROW.MODEL_CODE,
  475. MYROW.MODEL_DESC,
  476. MYROW.STD_CODE,
  477. MYROW.STD_NAME,
  478. MYROW.STD_STYLE,
  479. MYROW.STD_STYLE_DESC,
  480. MYROW.GRADECODE,
  481. MYROW.GRADENAME,
  482. MYROW.TESTING_GRADE,
  483. MYROW.TESTING_TYPE,
  484. MYROW.TESTING_GRADE1,
  485. MYROW.TESTING_TYPE1,
  486. SUBSTR(MYROW.ORD_LN_DLY_PK, 0, INSTR(MYROW.ORD_LN_DLY_PK, '-') - 1),
  487. ?,
  488. ?,
  489. ?);
  490. END LOOP;
  491. FOR MYROW1 IN (SELECT *
  492. FROM MAT_ZC_M T
  493. WHERE T.JUDGE_STOVE_NO = MYROW.JUDGE_STOVE_NO
  494. AND T.BATCH_NO = MYROW.BATCH_NO
  495. AND T.BATCH_GROUD_NO = MYROW.BATCH_GROUD_NO
  496. AND NVL(T.PRC_CHEM_RESULT_CODE, '/') =
  497. NVL(MYROW.PRC_CHEM_RESULT_CODE, '/')
  498. AND NVL(T.PRC_FACE_RESULT_CODE, '/') =
  499. NVL(MYROW.PRC_FACE_RESULT_CODE, '/')
  500. AND NVL(T.PRC_JUDGE_RESULT_CODE, '/') =
  501. NVL(MYROW.PRC_JUDGE_RESULT_CODE, '/')
  502. AND NVL(T.PRC_PHY_RESULT_CODE, '/') =
  503. NVL(MYROW.PRC_PHY_RESULT_CODE, '/')) LOOP
  504. UPDATE MAT_ZC_M T
  505. SET T.PRC_QUALITY_GROUP_ZG = V_COUNT
  506. WHERE T.MAT_NO = MYROW1.MAT_NO;
  507. END LOOP;
  508. V_COUNT := V_COUNT + 1;
  509. END LOOP;
  510. END;
  511. ]]>
  512. </query>
  513. <query id="FrmMchApply.doDecision" desc="申请判定">
  514. <![CDATA[
  515. UPDATE MAT_ZC_M T
  516. SET T.PRC_JUGDE_APPLY_CODE = ?, T.PRC_JUGDE_APPLY_TIME =TO_DATE(?,'YYYY-MM-DD HH24:MI:SS')
  517. WHERE T.JUDGE_STOVE_NO = ?
  518. AND T.BATCH_NO = ?
  519. --AND T.BATCH_GROUD_NO =?
  520. AND T.PRC_HEAT_PLAN_NO=?
  521. ]]>
  522. </query>
  523. <query id="FrmMchApply.doQuery" desc="查询是否有已进行判定支数">
  524. <![CDATA[
  525. SELECT COUNT(1)ACOUNT
  526. FROM QCM_ZG_JUGDE_APPLY T
  527. WHERE T.JUGDE_APPLY_CODE = ?
  528. AND T.JUDGE_STOVE_NO = ?
  529. AND T.BATCH_NO = ?
  530. AND T.BATCH_GROUD_NO = ?
  531. AND T.VALIDFLAG <> '00'
  532. ]]>
  533. </query>
  534. <query id="FrmMchApply.ReciveZB" desc="查询质保系统是否已接收">
  535. <![CDATA[
  536. SELECT COUNT(1) ACOUNT
  537. FROM QCM_ZG_JUGDE_APPLY T
  538. WHERE T.JUGDE_APPLY_CODE = ?
  539. AND T.JUDGE_STOVE_NO = ?
  540. AND T.BATCH_NO = ?
  541. AND T.BATCH_GROUD_NO = ?
  542. AND T.VALIDFLAG = '10'
  543. ]]>
  544. </query>
  545. <query id="FrmMchApply.cancelDoDecision" desc="撤销申请修改材料状态">
  546. <![CDATA[
  547. DECLARE
  548. BEGIN
  549. DELETE FROM QCM_ZG_JUGDE_APPLY T
  550. WHERE T.JUGDE_APPLY_CODE = ?
  551. AND T.JUDGE_STOVE_NO = ?
  552. AND T.BATCH_NO = ?;
  553. --AND T.BATCH_GROUD_NO = ?;
  554. UPDATE MAT_ZC_M T
  555. SET T.PRC_JUGDE_APPLY_CODE = '', T.PRC_JUGDE_APPLY_TIME = ''
  556. WHERE T.PRC_JUGDE_APPLY_CODE = ?
  557. AND T.JUDGE_STOVE_NO = ?
  558. AND T.BATCH_NO = ?
  559. --AND T.BATCH_GROUD_NO = ?
  560. AND T.PRC_QCM_STAUS IN('00','10');
  561. END;
  562. ]]>
  563. </query>
  564. <query id="FrmMchApply.updatePossWt" desc="修改过磅重量">
  565. <![CDATA[
  566. UPDATE MAT_ZC_M T
  567. SET T.PONDER_GROSS_WT = ?
  568. WHERE T.MAT_NO = ?
  569. AND T.JUDGE_STOVE_NO = ?
  570. ]]>
  571. </query>
  572. <query id="FrmMchApply.updateVrpInfo" desc="修改公共实绩表过磅重量">
  573. <![CDATA[
  574. UPDATE MCH_COM_INFO T
  575. SET T.PONDER_GROSS_WT = ?
  576. WHERE T.HEAT_PLAN_NO = ?
  577. AND T.STATION_DESC = '交库'
  578. ]]>
  579. </query>
  580. <query id="FrmMchApply.selectMatNo" desc="查询所有材料号">
  581. <![CDATA[
  582. SELECT T.MAT_NO
  583. FROM MAT_ZC_M T
  584. WHERE T.JUDGE_STOVE_NO = ?
  585. AND T.BATCH_NO = ?
  586. -- AND T.BATCH_GROUD_NO = ?
  587. AND T.PRC_QCM_STAUS = '00'
  588. ]]>
  589. </query>
  590. <query id="FrmMchApply.selectCount" desc="查询该炉总支数">
  591. <![CDATA[
  592. SELECT NVL(SUM(T.ACT_COUNT), 0) ACOUNT
  593. FROM MAT_ZC_M T
  594. WHERE T.JUDGE_STOVE_NO = ?
  595. AND T.BATCH_NO = ?
  596. --AND T.BATCH_GROUD_NO = ?
  597. AND T.PRC_QCM_STAUS = '00'
  598. ]]>
  599. </query>
  600. <query id="FrmMchApply.doQueryApplyCodeNull" desc="查询该炉是否有未送判数据">
  601. <![CDATA[
  602. SELECT NVL(SUM(T.ACT_COUNT), 0) ACT_COUNT
  603. FROM MAT_ZC_M T
  604. WHERE T.JUDGE_STOVE_NO = ?
  605. AND T.BATCH_NO = ?
  606. AND T.PRC_QCM_STAUS = '00'
  607. AND T.PRC_JUGDE_APPLY_CODE IS NULL
  608. ]]>
  609. </query>
  610. <query id="FrmMchApply.doUpdateProt" desc="修改管号队列判定单号">
  611. <![CDATA[
  612. UPDATE PORT_MCH_BATCH_SAMPLE_RESULT
  613. SET JUGDE_APPLY_CODE = ?, JUGDE_APPLY = ?
  614. WHERE HEAT_PLAN_NO = ?
  615. AND MAT_STATUS != '20'
  616. ]]>
  617. </query>
  618. </queryMap>