FrmHandleJuge.xml 17 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578
  1. <?xml version="1.0" encoding="UTF-8"?>
  2. <queryMap desc = "手工判定">
  3. <query id = "FrmHandleJuge.doQueryApplyData" desc = "查询申请判定信息">
  4. SELECT
  5. T.JUGDE_APPLY_CODE,
  6. T.JUDGE_STOVE_NO,
  7. T.BATCH_NO,
  8. T.BATCH_GROUD_NO,
  9. T.PROCESS_CODE,
  10. T.PLINE_CODE,
  11. T.ACT_COUNT,
  12. T.ACT_WEIGHT,
  13. T.ACT_THEORY_WEIGHT,
  14. T.PRO_ORDER_ID,
  15. T.FACE_RESULT_CODE,
  16. T.SPEC_RESULT_CODE,
  17. T.CHEM_RESULT_CODE,
  18. T.PHY_RESULT_CODE,
  19. T.DETECT_RESULT_CODE,
  20. T.WPRESSURE_RESULT_CODE,
  21. T.PROCESS_RESULT_CODE,
  22. T.FACE_RESULT_PATH,
  23. T.SPEC_RESULT_PATH,
  24. T.CHEM_RESULT_PATH,
  25. T.PHY_RESULT_PATH,
  26. T.DETECT_RESULT_PATH,
  27. T.WPRESSURE_RESULT_PATH,
  28. T.PROCESS_RESULT_PATH,
  29. DECODE(T.VALIDFLAG,'00','待判','20','已判','正在处理')VALIDFLAG,
  30. T.APPLY_NAME,
  31. TO_CHAR(T.APPLY_TIME, 'YYYY-MM-DD HH24:MI:SS') APPLY_TIME,
  32. T.MEMO,
  33. T.QUALITY_GROUP,
  34. T.MATERIAL_NO,
  35. T.MATERIAL_NAME,
  36. T.PRODUCCODE,
  37. T.PRODUCNAME,
  38. T.STEELCODE,
  39. T.STEELNAME,
  40. T.GRADECODE,
  41. T.GRADENAME,
  42. T.SPEC_CODE,
  43. T.SPEC_NAME,
  44. T.MODEL_CODE,
  45. T.MODEL_DESC,
  46. T.STD_CODE,
  47. T.STD_NAME,
  48. T.STD_STYLE,
  49. T.STD_STYLE_DESC,
  50. T.CRAF_NO,
  51. T.LOT_NO,
  52. T.PLINE_NAME,
  53. T.PRO_ORDER_NO,
  54. T.TARGET,
  55. T.PROCESS_STATUS,
  56. T.MAT_GOWHERE_CODE,
  57. T.MAT_GOWHERE_NAME,
  58. T.ACT_DIMATER,
  59. T.ACT_HEIGHT,
  60. T.ACT_LEN_MIN,
  61. T.ACT_LEN_MAX,
  62. T.JUDGE_RESULT_CODE,
  63. T.JUDGE_RESULT,
  64. TO_CHAR(T.JUDGE_RESULT_TIME, 'YYYY-MM-DD HH24:MI:SS') JUDGE_RESULT_TIME,
  65. T.JUDGE_MAKER,
  66. T.IF_SET_ZY_PLAN,
  67. T.TESTING_GRADE,
  68. T.TESTING_TYPE,
  69. T.TESTING_GRADE1,
  70. T.TESTING_TYPE1,
  71. T.DETECT_RESULT_CODE1,
  72. T.DETECT_RESULT_PATH1,
  73. T.ORD_LN_DLY_PK,
  74. T.APPLY_FLAG,
  75. T.BACK_JUGDE_MEMO,
  76. T.BELONG_CODE,
  77. T.BELONG_NAME,
  78. DECODE(T.INSTOCK_FLAG,'0','未确认','1','已确认')INSTOCK_FLAG,
  79. S.NEXT_GX
  80. FROM QCM_ZG_JUGDE_APPLY T
  81. LEFT JOIN (SELECT T1.NEXT_GX,T2.PRO_PLAN_ID
  82. FROM PLN_ORDER_ZG T1, PLN_ORDER_ZG_S T2 WHERE T1.Pro_Order_No =
  83. T2.Pro_Order_No
  84. GROUP BY T1.NEXT_GX,T2.PRO_PLAN_ID)S
  85. ON T.PRO_ORDER_ID = S.PRO_PLAN_ID
  86. WHERE 1=1
  87. AND T.PROCESS_CODE = 'D'
  88. AND T.TARGET IN ('B','C')
  89. AND T.PLINE_CODE NOT IN('C065','C066')
  90. AND T.BELONG_CODE_JUGDE = '002001001'
  91. AND T.IS_FLAG = '0'
  92. </query>
  93. <query id = "doHandleApply.SelectApplyData" desc = "查询申判信息是否已判">
  94. SELECT T.VALIDFLAG
  95. FROM QCM_ZG_JUGDE_APPLY T
  96. WHERE T.JUGDE_APPLY_CODE = '#JUGDE_APPLY_CODE#'
  97. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  98. AND T.BATCH_NO = '#BATCH_NO#'
  99. AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
  100. AND T.QUALITY_GROUP = '#QUALITY_GROUP#'
  101. AND T.MAT_GOWHERE_CODE = '#MAT_GOWHERE_CODE#'
  102. </query>
  103. <query id = "doHandleApply.SelectComfirmApplyData" desc = "查询判定信息是否已确认">
  104. SELECT T.INSTOCK_FLAG
  105. FROM QCM_ZG_JUGDE_APPLY T
  106. WHERE T.JUGDE_APPLY_CODE = '#JUGDE_APPLY_CODE#'
  107. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  108. AND T.BATCH_NO = '#BATCH_NO#'
  109. AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
  110. AND T.QUALITY_GROUP = '#QUALITY_GROUP#'
  111. AND T.MAT_GOWHERE_CODE = '#MAT_GOWHERE_CODE#'
  112. </query>
  113. <query id = "FrmHandleJuge.doHandleApply" desc = "手工判定">
  114. DECLARE
  115. BEGIN
  116. FOR MYROW IN (SELECT *
  117. FROM MAT_BC_M T
  118. WHERE T.JUDGE_STOVE_NO = ?
  119. AND T.BATCH_NO = ?
  120. AND T.BATCH_GROUD_NO = ?
  121. AND T.QUALITY_GROUP_ZG = ?
  122. AND T.MAT_GOWHERE_CODE = ?
  123. AND T.JUGDE_APPLY_CODE = ?
  124. AND (T.BELONG_CODE='002001016002'
  125. OR T.BELONG_CODE='002001016003'
  126. OR T.BELONG_CODE='002001017003'
  127. OR T.BELONG_CODE='002001017005'
  128. OR T.BELONG_CODE='002001018003')
  129. ORDER BY T.MAT_NO ASC) LOOP
  130. UPDATE MAT_BC_M T
  131. SET T.JUDGE_RESULT_CODE = ?,
  132. T.JUDGE_RESULT = ?,
  133. T.JUDGE_RESULT_TIME = SYSDATE,
  134. T.MAT_STATUS = '80150102',
  135. T.belong_code='002001001',
  136. T.belong_name='制造部'
  137. WHERE T.MAT_NO = MYROW.MAT_NO
  138. AND (T.BELONG_CODE='002001016002'
  139. OR T.BELONG_CODE='002001016003'
  140. OR T.BELONG_CODE='002001017003'
  141. OR T.BELONG_CODE='002001017005'
  142. OR T.BELONG_CODE='002001018003');
  143. END LOOP;
  144. UPDATE QCM_ZG_JUGDE_APPLY T SET T.VALIDFLAG = '20',T.JUDGE_RESULT_CODE = ?,
  145. T.JUDGE_RESULT = ?,
  146. T.JUDGE_RESULT_TIME = SYSDATE,
  147. T.belong_code='002001001',
  148. T.belong_name='制造部'
  149. WHERE T.JUDGE_STOVE_NO = ?
  150. AND T.BATCH_NO = ?
  151. AND T.BATCH_GROUD_NO = ?
  152. AND T.QUALITY_GROUP = ?
  153. AND T.MAT_GOWHERE_CODE = ?
  154. AND T.JUGDE_APPLY_CODE = ?;
  155. END;
  156. </query>
  157. <query id = "FrmHandleJuge.doCancelHandleApply" desc = "撤销判定">
  158. DECLARE
  159. V_BELONG_CODE MAT_BC_M.BELONG_CODE%TYPE := NULL;
  160. V_BELONG_NAME MAT_BC_M.BELONG_NAME%TYPE := NULL;
  161. BEGIN
  162. FOR MYROW IN (SELECT *
  163. FROM MAT_BC_M T
  164. WHERE T.JUDGE_STOVE_NO = ?
  165. AND T.BATCH_NO = ?
  166. AND T.BATCH_GROUD_NO = ?
  167. AND T.QUALITY_GROUP_ZG = ?
  168. AND T.MAT_GOWHERE_CODE = ?
  169. AND T.JUGDE_APPLY_CODE = ?
  170. AND T.BELONG_CODE = '002001001'
  171. ORDER BY T.MAT_NO ASC) LOOP
  172. IF (MYROW.PLINE_CODE = 'C008') THEN
  173. V_BELONG_CODE := '002001016003';
  174. V_BELONG_NAME := '250机组';
  175. ELSIF (MYROW.PLINE_CODE = 'C009') THEN
  176. V_BELONG_CODE := '002001016002';
  177. V_BELONG_NAME := '258机组';
  178. ELSIF (MYROW.PLINE_CODE = 'C010') THEN
  179. V_BELONG_CODE := '002001017003';
  180. V_BELONG_NAME := '168机组';
  181. ELSIF (MYROW.PLINE_CODE = 'C017') THEN
  182. V_BELONG_CODE := '002001018003';
  183. V_BELONG_NAME := '460机组';
  184. END IF;
  185. UPDATE MAT_BC_M T
  186. SET T.JUDGE_RESULT_CODE = '',
  187. T.JUDGE_RESULT = '',
  188. T.JUDGE_RESULT_TIME = '',
  189. T.MAT_STATUS = '80150101',
  190. T.belong_code = V_BELONG_CODE,
  191. T.belong_name = V_BELONG_NAME
  192. WHERE T.MAT_NO = MYROW.MAT_NO
  193. AND T.BELONG_CODE = '002001001';
  194. END LOOP;
  195. UPDATE QCM_ZG_JUGDE_APPLY T
  196. SET T.VALIDFLAG = '00',
  197. T.JUDGE_RESULT_CODE = '',
  198. T.JUDGE_RESULT = '',
  199. T.JUDGE_RESULT_TIME = '',
  200. T.belong_code = V_BELONG_CODE,
  201. T.belong_name = V_BELONG_NAME
  202. WHERE T.JUDGE_STOVE_NO = ?
  203. AND T.BATCH_NO = ?
  204. AND T.BATCH_GROUD_NO = ?
  205. AND T.QUALITY_GROUP = ?
  206. AND T.MAT_GOWHERE_CODE = ?
  207. AND T.JUGDE_APPLY_CODE = ?;
  208. END;
  209. </query>
  210. <query id = "FrmHandleJuge.doComfirm" desc = "确认缴库">
  211. DECLARE
  212. V_BELONG_CODE MAT_BC_M.BELONG_CODE%TYPE := NULL;
  213. V_BELONG_NAME MAT_BC_M.BELONG_NAME%TYPE := NULL;
  214. v_inListDoc YDM_BC_INLIST.INSTOCK_DOC%TYPE := NULL;
  215. v_inListDocSeq YDM_BC_INLIST.INSTOCK_SQE%TYPE := NULL;
  216. vCount NUMBER := 1;
  217. v_time MAT_BC_M.judge_result_time%type := SYSDATE;
  218. v_date ydm_zc_outlist.bal_year_month%type := TO_CHAR(SYSDATE,
  219. 'YYYYMM');
  220. BEGIN
  221. SELECT 'IA'||'ZZB'|| TO_CHAR(sysdate, 'YYMMDD') ||
  222. LPAD(NVL(MAX(SUBSTR(T.INSTOCK_DOC, LENGTH(T.INSTOCK_DOC) - 4)), 0) + 1,
  223. 5,
  224. 0) INSTOCK_DOC INTO v_inListDoc
  225. FROM YDM_BC_INLIST T
  226. WHERE TRUNC(T.CREATE_TIME) = TRUNC(SYSDATE)
  227. AND T.INSTOCK_TYPE_CODE = '800701'
  228. AND T.BELONG_CODE = '002001001';
  229. FOR MYROW IN (SELECT *
  230. FROM MAT_BC_M T
  231. WHERE T.JUDGE_STOVE_NO = ?
  232. AND T.BATCH_NO = ?
  233. AND T.BATCH_GROUD_NO = ?
  234. --AND T.QUALITY_GROUP_ZG = ?
  235. AND T.JUGDE_APPLY_CODE = ?
  236. AND T.BELONG_CODE = '002001001'
  237. ORDER BY T.MAT_NO ASC) LOOP
  238. IF (MYROW.PLINE_CODE = 'C008') THEN
  239. V_BELONG_CODE := '002001016003';
  240. V_BELONG_NAME := '250机组';
  241. ELSIF (MYROW.PLINE_CODE = 'C009') THEN
  242. V_BELONG_CODE := '002001016002';
  243. V_BELONG_NAME := '258机组';
  244. ELSIF (MYROW.PLINE_CODE = 'C010') THEN
  245. V_BELONG_CODE := '002001017003';
  246. V_BELONG_NAME := '168机组';
  247. ELSIF (MYROW.PLINE_CODE = 'C017') THEN
  248. V_BELONG_CODE := '002001018003';
  249. V_BELONG_NAME := '460机组';
  250. END IF;
  251. v_inListDocSeq := v_inListDoc || LPAD(vCount, 4, 0);
  252. INSERT INTO YDM_BC_OUTLIST
  253. (OUTSTOCK_SQE,
  254. OUTSTOCK_DOC,
  255. OUTSTOCK_TYPE_CODE,
  256. OUTSTOCK_TYPE_NAME,
  257. ICCAR_NO,
  258. VEHICLE_NO,
  259. MAT_NO,
  260. LOT_NO,
  261. JUDGE_STOVE_NO,
  262. BATCH_NO,
  263. BATCH_GROUD_NO,
  264. MATERIAL_NO,
  265. MATERIAL_NAME,
  266. PRODUCCODE,
  267. PRODUCNAME,
  268. STD_CODE,
  269. STD_NAME,
  270. GRADECODE,
  271. GRADENAME,
  272. STEELCODE,
  273. STEELNAME,
  274. STD_STYLE,
  275. STD_STYLE_DESC,
  276. SPEC_CODE,
  277. SPEC_NAME,
  278. MODEL_CODE,
  279. MODEL_DESC,
  280. PRO_ORDER_NO,
  281. PLINE_CODE,
  282. PLINE_NAME,
  283. ACT_DIMATER,
  284. ACT_HEIGHT,
  285. ACT_LEN,
  286. ACT_LEN_MIN,
  287. ACT_LEN_MAX,
  288. ACT_COUNT,
  289. ACT_WEIGHT,
  290. ACT_THEORY_WEIGHT,
  291. BELONG_CODE,
  292. BELONG_NAME,
  293. STORAGE_NO,
  294. LOCATION_NO,
  295. STORAGE_ATTR,
  296. STORAGE_ATTR_NAME,
  297. STORAGE_TYPE_NO,
  298. STORAGE_TYPE_NAME,
  299. management_no,
  300. management_name,
  301. TAR_STORAGE_NO,
  302. TAR_LOCATION_NO,
  303. INSTOCK_TIME,
  304. OUTSTOCK_TIME,
  305. MEMO,
  306. CREATE_NAME,
  307. CREATE_TIME,
  308. PRODUCT_FLAG,
  309. MAT_STATUS,
  310. JUDGE_STD_NAME,
  311. JUDGE_STD_CODE,
  312. PONDER_GROSS_WT,
  313. BAL_YEAR_MONTH,
  314. TAR_REC_FLAG,
  315. ORDER_NO,
  316. ORDER_SEQ,
  317. DELIVERY_NO,
  318. ORD_PK,
  319. ORD_LN_PK,
  320. ORD_LN_DLY_PK)
  321. VALUES
  322. (v_inListDocSeq,
  323. v_inListDoc,
  324. '800809',
  325. '产权出库',
  326. '',
  327. '',
  328. MYROW.MAT_NO,
  329. MYROW.LOT_NO,
  330. MYROW.JUDGE_STOVE_NO,
  331. MYROW.BATCH_NO,
  332. MYROW.BATCH_GROUD_NO,
  333. MYROW.MATERIAL_NO,
  334. MYROW.MATERIAL_NAME,
  335. MYROW.PRODUCCODE,
  336. MYROW.PRODUCNAME,
  337. MYROW.STD_CODE,
  338. MYROW.STD_NAME,
  339. MYROW.GRADECODE,
  340. MYROW.GRADENAME,
  341. MYROW.STEELCODE,
  342. MYROW.STEELNAME,
  343. MYROW.STD_STYLE,
  344. MYROW.STD_STYLE_DESC,
  345. MYROW.SPEC_CODE,
  346. MYROW.SPEC_NAME,
  347. MYROW.MODEL_CODE,
  348. MYROW.MODEL_DESC,
  349. MYROW.PRO_ORDER_NO,
  350. MYROW.PLINE_CODE,
  351. MYROW.PLINE_NAME,
  352. MYROW.ACT_DIMATER,
  353. MYROW.ACT_HEIGHT,
  354. MYROW.ACT_LEN,
  355. MYROW.ACT_LEN_MIN,
  356. MYROW.ACT_LEN_MAX,
  357. MYROW.ACT_COUNT,
  358. MYROW.ACT_WEIGHT,
  359. MYROW.ACT_THEORY_WEIGHT,
  360. V_BELONG_CODE,
  361. V_BELONG_NAME,
  362. MYROW.MAT_GOWHERE_CODE,
  363. MYROW.MAT_GOWHERE_CODE||'10101',
  364. '',
  365. '',
  366. '',
  367. '',
  368. (SELECT F.MANAGEMENT_NO FROM YDM_BS_STORAGE F WHERE F.STORAGE_NO = MYROW.MAT_GOWHERE_CODE),
  369. (SELECT F.MANAGEMENT_NAME FROM YDM_BS_STORAGE F WHERE F.STORAGE_NO = MYROW.MAT_GOWHERE_CODE),
  370. '',
  371. '',
  372. MYROW.INSTOCK_TIME,
  373. v_time,
  374. MYROW.MEMO,
  375. '',
  376. v_time,
  377. MYROW.PRODUCT_FLAG,
  378. MYROW.MAT_STATUS,
  379. MYROW.JUDGE_STD_NAME,
  380. MYROW.JUDGE_STD_CODE,
  381. MYROW.PONDER_GROSS_WT,
  382. v_date,
  383. '1',
  384. MYROW.ORDER_NO,
  385. MYROW.ORDER_SEQ,
  386. MYROW.ORDER_SEQ_NO,
  387. MYROW.ORD_PK,
  388. MYROW.ORD_LN_PK,
  389. MYROW.ORD_LN_DLY_PK);
  390. INSERT INTO YDM_BC_INLIST
  391. (INSTOCK_SQE,
  392. INSTOCK_DOC,
  393. INSTOCK_TYPE_CODE,
  394. INSTOCK_TYPE_NAME,
  395. VEHICLE_NO,
  396. MAT_NO,
  397. LOT_NO,
  398. STOVE_NO,
  399. JUDGE_STOVE_NO,
  400. BATCH_NO,
  401. BATCH_GROUD_NO,
  402. MATERIAL_NO,
  403. MATERIAL_NAME,
  404. PRODUCCODE,
  405. PRODUCNAME,
  406. STD_CODE,
  407. STD_NAME,
  408. GRADECODE,
  409. GRADENAME,
  410. STEELCODE,
  411. STEELNAME,
  412. STD_STYLE,
  413. STD_STYLE_DESC,
  414. SPEC_CODE,
  415. SPEC_NAME,
  416. MODEL_CODE,
  417. MODEL_DESC,
  418. PRO_ORDER_NO,
  419. PLINE_CODE,
  420. PLINE_NAME,
  421. ACT_DIMATER,
  422. ACT_HEIGHT,
  423. ACT_LEN,
  424. ACT_LEN_MIN,
  425. ACT_LEN_MAX,
  426. ACT_COUNT,
  427. ACT_WEIGHT,
  428. ACT_THEORY_WEIGHT,
  429. BELONG_CODE,
  430. BELONG_NAME,
  431. STORAGE_NO,
  432. LOCATION_NO,
  433. STORAGE_ATTR,
  434. STORAGE_ATTR_NAME,
  435. STORAGE_TYPE_NO,
  436. STORAGE_TYPE_NAME,
  437. MANAGEMENT_NO,
  438. MANAGEMENT_NAME,
  439. CREATE_NAME,
  440. INSTOCK_TIME,
  441. CREATE_TIME,
  442. DEPARTMENT_CODE,
  443. DEPARTMENT_DESC,
  444. ORD_PK,
  445. ORD_LN_PK,
  446. ORD_LN_DLY_PK,
  447. ORDER_NO,
  448. ORDER_SEQ,
  449. DELIVERY_NO,
  450. PRODUCT_FLAG,
  451. MAT_STATUS,
  452. IN_TIME_F,
  453. AFFIRM_LOG,
  454. FINISHPRO_MOLD,
  455. IN_MOLD,
  456. QCM_STAUS
  457. )
  458. VALUES
  459. (v_inListDocSeq,
  460. v_inListDoc,
  461. '800701',
  462. '产出入库',
  463. '',
  464. MYROW.MAT_NO,
  465. MYROW.LOT_NO,
  466. MYROW.STOVE_NO,
  467. MYROW.JUDGE_STOVE_NO,
  468. MYROW.BATCH_NO,
  469. MYROW.BATCH_GROUD_NO,
  470. MYROW.MATERIAL_NO,
  471. MYROW.MATERIAL_NAME,
  472. MYROW.PRODUCCODE,
  473. MYROW.PRODUCNAME,
  474. MYROW.STD_CODE,
  475. MYROW.STD_NAME,
  476. MYROW.GRADECODE,
  477. MYROW.GRADENAME,
  478. MYROW.STEELCODE,
  479. MYROW.STEELNAME,
  480. MYROW.STD_STYLE,
  481. MYROW.STD_STYLE_DESC,
  482. MYROW.SPEC_CODE,
  483. MYROW.SPEC_NAME,
  484. MYROW.MODEL_CODE,
  485. MYROW.MODEL_DESC,
  486. MYROW.PRO_ORDER_NO,
  487. MYROW.PLINE_CODE,
  488. MYROW.PLINE_NAME,
  489. MYROW.ACT_DIMATER,
  490. MYROW.ACT_HEIGHT,
  491. MYROW.ACT_LEN,
  492. MYROW.ACT_LEN_MIN,
  493. MYROW.ACT_LEN_MAX,
  494. MYROW.ACT_COUNT,
  495. MYROW.ACT_WEIGHT,
  496. MYROW.ACT_THEORY_WEIGHT,
  497. MYROW.BELONG_CODE,
  498. MYROW.BELONG_NAME,
  499. MYROW.MAT_GOWHERE_CODE,
  500. MYROW.MAT_GOWHERE_CODE || '10101',
  501. '',
  502. '',
  503. '',
  504. '',
  505. (SELECT F.MANAGEMENT_NO FROM YDM_BS_STORAGE F WHERE F.STORAGE_NO = MYROW.MAT_GOWHERE_CODE),
  506. (SELECT F.MANAGEMENT_NAME FROM YDM_BS_STORAGE F WHERE F.STORAGE_NO = MYROW.MAT_GOWHERE_CODE),
  507. ?,
  508. v_time,
  509. v_time,
  510. (SELECT F.DEPARTMENT_CODE FROM YDM_BS_STORAGE F WHERE F.STORAGE_NO = MYROW.MAT_GOWHERE_CODE),
  511. (SELECT F.DEPARTMENT_DESC FROM YDM_BS_STORAGE F WHERE F.STORAGE_NO = MYROW.MAT_GOWHERE_CODE),
  512. MYROW.ORD_PK,
  513. MYROW.ORD_LN_PK,
  514. MYROW.ORD_LN_DLY_PK,
  515. MYROW.ORDER_NO,
  516. MYROW.ORDER_SEQ,
  517. MYROW.ORDER_SEQ_NO,
  518. MYROW.PRODUCT_FLAG,
  519. MYROW.MAT_STATUS,
  520. v_time,
  521. '1',
  522. MYROW.FINISHPRO_MOLD,
  523. MYROW.IN_MOLD,
  524. MYROW.QCM_STAUS
  525. );
  526. vCount := vCount + 1;
  527. END LOOP;
  528. UPDATE QCM_ZG_JUGDE_APPLY T
  529. SET T.INSTOCK_FLAG = '1'
  530. WHERE T.JUDGE_STOVE_NO = ?
  531. AND T.BATCH_NO = ?
  532. AND T.BATCH_GROUD_NO = ?
  533. --AND T.QUALITY_GROUP = ?
  534. --AND T.MAT_GOWHERE_CODE = ?
  535. AND T.JUGDE_APPLY_CODE = ?;
  536. END;
  537. </query>
  538. <query id = "FrmHandleJuge.doCancelComfirm" desc = "取消确认">
  539. DECLARE
  540. V_BELONG_CODE MAT_BC_M.BELONG_CODE%TYPE := NULL;
  541. V_BELONG_NAME MAT_BC_M.BELONG_NAME%TYPE := NULL;
  542. BEGIN
  543. FOR MYROW IN (SELECT *
  544. FROM MAT_BC_M T
  545. WHERE T.JUDGE_STOVE_NO = ?
  546. AND T.BATCH_NO = ?
  547. AND T.BATCH_GROUD_NO = ?
  548. --AND T.QUALITY_GROUP_ZG = ?
  549. --AND T.MAT_GOWHERE_CODE = ?
  550. AND T.JUGDE_APPLY_CODE = ?
  551. ORDER BY T.MAT_NO ASC) LOOP
  552. DELETE FROM YDM_BC_OUTLIST T WHERE T.MAT_NO = MYROW.MAT_NO AND T.OUTSTOCK_TYPE_CODE = '800809';
  553. DELETE FROM YDM_BC_INLIST T WHERE T.MAT_NO = MYROW.MAT_NO AND T.BELONG_CODE = '002001001';
  554. END LOOP;
  555. UPDATE QCM_ZG_JUGDE_APPLY T
  556. SET T.Instock_Flag = '0'
  557. WHERE T.JUDGE_STOVE_NO = ?
  558. AND T.BATCH_NO = ?
  559. AND T.BATCH_GROUD_NO = ?
  560. --AND T.QUALITY_GROUP = ?
  561. --AND T.MAT_GOWHERE_CODE = ?
  562. AND T.JUGDE_APPLY_CODE = ?;
  563. END;
  564. </query>
  565. <query id = "doHandleApply.SelectDBKStovePlan" desc = "查询是否已生成炉计划">
  566. <![CDATA[
  567. SELECT COUNT(1) ACOUNT
  568. FROM PLN_ZY_DBK_M T
  569. WHERE T.HEATNO_LAST = '#JUDGE_STOVE_NO#'
  570. AND T.ZG_BATCH_NO = '#BATCH_NO#'
  571. AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
  572. AND T.PLANSTATUS <>'0'
  573. ]]>
  574. </query>
  575. </queryMap>