FrmVrpApply.xml 21 KB

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