FrmVrpBatchSaplmeNew.xml 33 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943
  1. <?xml version="1.0" encoding="UTF-8"?>
  2. <queryMap desc = "镦拔扩分批取样">
  3. <query id = "FrmVrpBatchSaplmeNew.doQueryPlan" desc = "查询轧管炉计划">
  4. SELECT T.*,
  5. (SELECT C.CRAFT_PATH
  6. FROM CRAFT_ORD_DESIGN C
  7. WHERE C.ORD_LN_PK = T.ORD_LN_PK
  8. AND C.CRAFT_SEQ = T.CRAFT_SEQ) CRAFT_PATH
  9. FROM (SELECT T.*,
  10. S.ORD_LN_PK,
  11. (SELECT T1.ABRVITION
  12. FROM SLM_BASE_CUSTOMER T1
  13. WHERE T1.CUSTOMER_NO = S.FINAL_USER) ABRVITION,
  14. (SELECT S.PDEPT_NAME
  15. FROM SLM_ORDER_LINE_PRDCR_LST T, SLM_BASE_PRDCR_DEPT S
  16. WHERE T.PDEPT_NO = S.PDEPT_NO
  17. AND T.PROCESS_CODE = 'E'
  18. AND T.PRDCR_NO = T.PRDCR_NO
  19. AND ROWNUM = 1) PDEPT_NAME
  20. FROM PLN_ZY_DBK_M T, PLN_SALEORD S
  21. WHERE T.ORD_LN_DLY_PK = S.ORD_LN_DLY_PK) T
  22. WHERE 1 = 1
  23. </query>
  24. <query id = "FrmVrpBatchSaplmeNew.doQueryBasePlan" desc = "查询炉计划基础信息">
  25. SELECT T.* FROM PLN_ZY_DBK_M T WHERE T.HEAT_PLAN_NO = ? AND T.JUDGE_STOVE_NO = ?
  26. </query>
  27. <query id = "FrmVrpBatchSaplmeNew.doQueryCheckPlan" desc = "查询检验计划主表信息">
  28. SELECT T.*
  29. FROM CRAFT_SAMPLING_M T WHERE T.PROCESS_CODE = 'E'
  30. AND T.ORD_LN_PK = ?
  31. AND T.CRAFT_NO = ?
  32. AND T.CRAFT_SEQ = ?
  33. AND (T.STOVE_NUM = ? OR T.STOVE_NUM IS NULL)
  34. </query>
  35. <query id = "FrmVrpBatchSaplmeNew.doQueryCheckPlanDetial" desc = "查询检验计划从表信息">
  36. SELECT T.*
  37. FROM CRAFT_SAMPLING_DETAIL T WHERE T.PROCESS_CODE = 'E'
  38. AND T.ORD_LN_PK = ?
  39. AND T.CRAFT_NO = ?
  40. AND T.CRAFT_SEQ = ?
  41. </query>
  42. <query id = "FrmVrpBatchSaplmeNew.doQueryRack" desc = "查询管号队列">
  43. SELECT ROWNUM SEQ,
  44. MAT_NO,
  45. SAMPLE_PIPE_LEN_A,
  46. SAMPLE_PIPE_LEN_B,
  47. HEAT_PLAN_NO,
  48. JUDGE_STOVE_NO,
  49. PHY_BATCH_NO,
  50. MAT_STATUS,
  51. IS_SAMPLE_PIPE
  52. FROM (SELECT T.MAT_NO,
  53. T.SAMPLE_PIPE_LEN_A,
  54. T.SAMPLE_PIPE_LEN_B,
  55. T.HEAT_PLAN_NO,
  56. T.JUDGE_STOVE_NO,
  57. T.PHY_BATCH_NO,
  58. DECODE(T.MAT_STATUS, '00', '是', '否') MAT_STATUS,
  59. T.IS_SAMPLE_PIPE
  60. FROM PORT_VRP_BATCH_SAMPLE_RESULT T
  61. WHERE T.HEAT_PLAN_NO = ?
  62. AND T.JUDGE_STOVE_NO = ?
  63. ORDER BY T.MAT_STATUS,T.MAT_NO ASC)
  64. </query>
  65. <query id = "FrmVrpBatchSaplmeNew.updateMilPlan" desc = "修改炉计划标识">
  66. UPDATE PLN_ZY_DBK_M T
  67. SET T.IS_BATCH = '#IS_BATCH#'
  68. WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
  69. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  70. </query>
  71. <query id = "FrmVrpBatchSaplmeNew.updatePortMilResult" desc = "修改样管管号队列">
  72. UPDATE PORT_VRP_BATCH_SAMPLE_RESULT T
  73. SET T.IS_SAMPLE_PIPE = '#IS_SAMPLE_PIPE#',
  74. T.SAMPLE_PIPE_LEN_A = '#SAMPLE_PIPE_LEN_A#',
  75. T.PHY_BATCH_NO = '#PHY_BATCH_NO#',
  76. T.PHY_CODE_GROUP = '#PHY_CODE_GROUP#',
  77. T.SAMPLE_PIPE_LEN_B = '#SAMPLE_PIPE_LEN_B#',
  78. T.PHY_CODE_GROUPB = '#PHY_CODE_GROUPB#',
  79. T.SAMPLE_PIPE_LEN = TO_NUMBER(NVL('#SAMPLE_PIPE_LEN_A#',0))+TO_NUMBER(NVL('#SAMPLE_PIPE_LEN_B#',0)),
  80. T.GET_SAMPLE_NAME = '#GET_SAMPLE_NAME#',
  81. T.GET_SAMPLE_TIME = TO_DATE('#GET_SAMPLE_TIME#','YYYY-MM-DD HH24:MI:SS'),
  82. T.GET_SAMPLE_SHIFT = '#GET_SAMPLE_SHIFT#',
  83. T.GET_SAMPLE_CLASS = '#GET_SAMPLE_CLASS#'
  84. WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
  85. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  86. AND T.MAT_NO = '#MAT_NO#'
  87. </query>
  88. <query id = "FrmVrpBatchSaplmeNew.updateMilPortBacth" desc = "分批完成修改进程管号队列">
  89. UPDATE PORT_VRP_BATCH_SAMPLE_RESULT T
  90. SET
  91. T.PHY_BATCH_NO = '#PHY_BATCH_NO#'
  92. WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
  93. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  94. AND T.MAT_NO = '#MAT_NO#'
  95. </query>
  96. <query id = "FrmVrpBatchSaplmeNew.updatePortMilResultSample" desc = "分批取样完成修改管号队列">
  97. UPDATE PORT_VRP_BATCH_SAMPLE_RESULT T
  98. SET T.IS_SAMPLE_PIPE = '#IS_SAMPLE_PIPE#',
  99. T.SAMPLE_PIPE_LEN_A = '#SAMPLE_PIPE_LEN_A#',
  100. T.PHY_CODE_GROUP = '#PHY_CODE_GROUP#',
  101. T.SAMPLE_PIPE_LEN_B = '#SAMPLE_PIPE_LEN_B#',
  102. T.PHY_CODE_GROUPB = '#PHY_CODE_GROUPB#',
  103. T.SAMPLE_PIPE_LEN = TO_NUMBER(NVL('#SAMPLE_PIPE_LEN_A#',0))+TO_NUMBER(NVL('#SAMPLE_PIPE_LEN_B#',0)),
  104. T.GET_SAMPLE_NAME = '#GET_SAMPLE_NAME#',
  105. T.GET_SAMPLE_TIME = TO_DATE('#GET_SAMPLE_TIME#','YYYY-MM-DD HH24:MI:SS'),
  106. T.GET_SAMPLE_SHIFT = '#GET_SAMPLE_SHIFT#',
  107. T.GET_SAMPLE_CLASS = '#GET_SAMPLE_CLASS#'
  108. WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
  109. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  110. AND T.MAT_NO = '#MAT_NO#'
  111. </query>
  112. <query id = "FrmVrpBatchSaplmeNew.selectIsBacth" desc = "查询分批取样标识">
  113. SELECT T.IS_BATCH FROM PLN_ZY_DBK_M T WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#' AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  114. </query>
  115. <query id = "FrmVrpBatchSaplmeNew.cancelBatchSeting" desc = "撤销分批取样">
  116. DECLARE
  117. BEGIN
  118. UPDATE PLN_ZY_DBK_M T
  119. SET T.IS_BATCH = '0'
  120. WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
  121. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#';
  122. UPDATE PORT_VRP_BATCH_SAMPLE_RESULT T
  123. SET T.PHY_BATCH_NO = '', T.IS_SAMPLE_PIPE = '0', T.SAMPLE_PIPE_LEN = '',T.SAMPLE_PIPE_LEN_A = '',T.SAMPLE_PIPE_LEN_B = '',
  124. T.GET_SAMPLE_NAME = '',
  125. T.GET_SAMPLE_TIME = '',
  126. T.GET_SAMPLE_SHIFT = '',
  127. T.GET_SAMPLE_CLASS = ''
  128. WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
  129. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#';
  130. END;
  131. </query>
  132. <query id = "FrmVrpBatchSaplmeNew.cancelBatch" desc = "撤销分批">
  133. DECLARE
  134. BEGIN
  135. UPDATE PLN_ZY_DBK_M T
  136. SET T.IS_BATCH = '0'
  137. WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
  138. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#';
  139. UPDATE PORT_VRP_BATCH_SAMPLE_RESULT T
  140. SET T.PHY_BATCH_NO = ''
  141. WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
  142. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#';
  143. END;
  144. </query>
  145. <query id = "FrmVrpBatchSaplmeNew.cancelGetSample" desc = "撤销取样">
  146. DECLARE
  147. BEGIN
  148. UPDATE PLN_ZY_DBK_M T
  149. SET T.IS_BATCH = '1'
  150. WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
  151. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#';
  152. UPDATE PORT_VRP_BATCH_SAMPLE_RESULT T
  153. SET T.IS_SAMPLE_PIPE = '0', T.SAMPLE_PIPE_LEN = '',T.SAMPLE_PIPE_LEN_A = '',T.SAMPLE_PIPE_LEN_B = '',
  154. T.GET_SAMPLE_NAME = '',
  155. T.GET_SAMPLE_TIME = '',
  156. T.GET_SAMPLE_SHIFT = '',
  157. T.GET_SAMPLE_CLASS = ''
  158. WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
  159. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#';
  160. END;
  161. </query>
  162. <query id = "FrmVrpBatchSaplmeNew.doQuerySampleInfo" desc = "查询样管基础信息">
  163. SELECT
  164. PHY_BATCH_NO,
  165. MAT_NO,
  166. SAMPLE_PIPE_LEN_A,
  167. SAMPLE_PIPE_LEN_B,
  168. PHY_CODE_GROUP,
  169. PHY_CODE_GROUPB
  170. FROM PORT_VRP_BATCH_SAMPLE_RESULT
  171. WHERE IS_SAMPLE_PIPE = '1'
  172. AND HEAT_PLAN_NO = ?
  173. AND JUDGE_STOVE_NO = ?
  174. ORDER BY PHY_BATCH_NO,MAT_NO
  175. </query>
  176. <query id = "FrmVrpBatchSaplmeNew.doQueryChem" desc = "查询成分信息">
  177. SELECT T.DESGIN_KEY,
  178. T.CIC,
  179. T.USE_CODE,
  180. T.USE_DESC,
  181. T.SPECL_FL,
  182. T.INDEX_SEQ,
  183. T.CHEM_CODE,
  184. T.CHEM_NAME,
  185. T.CHEM_TYPE,
  186. T.CHEM_FORMULA,
  187. T.ISCHECK,
  188. T.ISJUDGE,
  189. T.ISQUOTE,
  190. T.COMPLEX_TYPE,
  191. T.STDMIN_SIGN,
  192. T.STDMIN,
  193. T.STDMAX_SIGN,
  194. T.STDMAX,
  195. T.STDTARGET,
  196. T.MODEL_CODE,
  197. T.MODEL_DESC,
  198. T.STDMEMO,
  199. T.ELE_CODE,
  200. T.ELE_NAME,
  201. T.ELE_MIN_SIGN,
  202. T.ELE_MIN,
  203. T.ELE_MAX_SIGN,
  204. T.ELE_MAX,
  205. T.SIZE_CODE2,
  206. T.SIZE_NAME2,
  207. T.SIZE_MIN_SIGN2,
  208. T.SIZE_MIN2,
  209. T.SIZE_MAX_SIGN2,
  210. T.SIZE_MAX2,
  211. T.SIZE_CODE,
  212. T.SIZE_NAME,
  213. T.SIZE_MIN_SIGN,
  214. T.SIZE_MIN,
  215. T.SIZE_MAX_SIGN,
  216. T.SIZE_MAX,
  217. T.SPEC_JG,
  218. T.SPEC_JG_DESC,
  219. T.REP_CODE,
  220. T.REP_NAME,
  221. T.REP_MIN_SIGN,
  222. T.REP_MIN,
  223. T.REP_MAX_SIGN,
  224. T.REP_MAX,
  225. T.REP_VAL
  226. FROM PLN_ZY_DBK_M S,
  227. PLN_SALEORD T2,
  228. CRAFT_ORD_DESIGN T3,
  229. CRAFT_ORD_DESIGN_STD_CIC T
  230. WHERE S.ORD_LN_DLY_PK = T2.ORD_LN_DLY_PK
  231. AND T2.ORD_LN_PK = T3.ORD_LN_PK
  232. AND T3.CRAFT_SEQ = S.CRAFT_SEQ
  233. AND T3.DESGIN_KEY = T.DESGIN_KEY
  234. AND T.MSC_PLINE = S.INDEX_SEQ
  235. AND T.CHEM_TYPE = 'A'
  236. AND S.IF_PRODUCT = '1'
  237. AND S.CIC = T.CIC
  238. AND (T.ISCHECK = '1' OR T.ISJUDGE = '1')
  239. AND T.CHEM_CODE NOT IN ('C012', 'C013', 'C014')
  240. AND T.PROCESS_CODE = 'A'
  241. AND S.PRO_PLAN_ID = ?
  242. AND S.GX_PLAN_NO = ?
  243. AND S.JUDGE_STOVE_NO = ?
  244. UNION ALL
  245. SELECT T.DESGIN_KEY,
  246. T.CIC,
  247. T.USE_CODE,
  248. T.USE_DESC,
  249. T.SPECL_FL,
  250. T.INDEX_SEQ,
  251. T.CHEM_CODE,
  252. T.CHEM_NAME,
  253. T.CHEM_TYPE,
  254. T.CHEM_FORMULA,
  255. T.ISCHECK,
  256. T.ISJUDGE,
  257. T.ISQUOTE,
  258. T.COMPLEX_TYPE,
  259. T.STDMIN_SIGN,
  260. T.STDMIN,
  261. T.STDMAX_SIGN,
  262. T.STDMAX,
  263. T.STDTARGET,
  264. T.MODEL_CODE,
  265. T.MODEL_DESC,
  266. T.STDMEMO,
  267. T.ELE_CODE,
  268. T.ELE_NAME,
  269. T.ELE_MIN_SIGN,
  270. T.ELE_MIN,
  271. T.ELE_MAX_SIGN,
  272. T.ELE_MAX,
  273. T.SIZE_CODE2,
  274. T.SIZE_NAME2,
  275. T.SIZE_MIN_SIGN2,
  276. T.SIZE_MIN2,
  277. T.SIZE_MAX_SIGN2,
  278. T.SIZE_MAX2,
  279. T.SIZE_CODE,
  280. T.SIZE_NAME,
  281. T.SIZE_MIN_SIGN,
  282. T.SIZE_MIN,
  283. T.SIZE_MAX_SIGN,
  284. T.SIZE_MAX,
  285. T.SPEC_JG,
  286. T.SPEC_JG_DESC,
  287. T.REP_CODE,
  288. T.REP_NAME,
  289. T.REP_MIN_SIGN,
  290. T.REP_MIN,
  291. T.REP_MAX_SIGN,
  292. T.REP_MAX,
  293. T.REP_VAL
  294. FROM PLN_ZY_DBK_M S,
  295. PLN_SALEORD T2,
  296. CRAFT_ORD_DESIGN T3,
  297. CRAFT_ORD_DESIGN_STD_CIC T
  298. WHERE S.ORD_LN_DLY_PK = T2.ORD_LN_DLY_PK
  299. AND T2.ORD_LN_PK = T3.ORD_LN_PK
  300. AND T3.CRAFT_SEQ = S.CRAFT_SEQ
  301. AND T3.DESGIN_KEY = T.DESGIN_KEY
  302. AND T.CHEM_TYPE = 'A'
  303. AND T.CHEM_CODE IN ('C012', 'C013', 'C014')
  304. AND T.SPECL_FL = '1'
  305. AND (T.ISCHECK = '1' OR T.ISJUDGE = '1')
  306. AND S.IF_PRODUCT = '1'
  307. AND S.PRO_PLAN_ID = ?
  308. AND S.GX_PLAN_NO = ?
  309. AND S.JUDGE_STOVE_NO = ?
  310. UNION ALL
  311. SELECT T.DESGIN_KEY,
  312. T.CIC,
  313. T.USE_CODE,
  314. T.USE_DESC,
  315. T.SPECL_FL,
  316. T.INDEX_SEQ,
  317. T.CHEM_CODE,
  318. T.CHEM_NAME,
  319. T.CHEM_TYPE,
  320. T.CHEM_FORMULA,
  321. T.ISCHECK,
  322. T.ISJUDGE,
  323. T.ISQUOTE,
  324. T.COMPLEX_TYPE,
  325. T.STDMIN_SIGN,
  326. T.STDMIN,
  327. T.STDMAX_SIGN,
  328. T.STDMAX,
  329. T.STDTARGET,
  330. T.MODEL_CODE,
  331. T.MODEL_DESC,
  332. T.STDMEMO,
  333. T.ELE_CODE,
  334. T.ELE_NAME,
  335. T.ELE_MIN_SIGN,
  336. T.ELE_MIN,
  337. T.ELE_MAX_SIGN,
  338. T.ELE_MAX,
  339. T.SIZE_CODE2,
  340. T.SIZE_NAME2,
  341. T.SIZE_MIN_SIGN2,
  342. T.SIZE_MIN2,
  343. T.SIZE_MAX_SIGN2,
  344. T.SIZE_MAX2,
  345. T.SIZE_CODE,
  346. T.SIZE_NAME,
  347. T.SIZE_MIN_SIGN,
  348. T.SIZE_MIN,
  349. T.SIZE_MAX_SIGN,
  350. T.SIZE_MAX,
  351. T.SPEC_JG,
  352. T.SPEC_JG_DESC,
  353. T.REP_CODE,
  354. T.REP_NAME,
  355. T.REP_MIN_SIGN,
  356. T.REP_MIN,
  357. T.REP_MAX_SIGN,
  358. T.REP_MAX,
  359. T.REP_VAL
  360. FROM PLN_ZY_DBK_M S,
  361. PLN_SALEORD T2,
  362. CRAFT_ORD_DESIGN T3,
  363. CRAFT_ORD_DESIGN_STD_CIC T
  364. WHERE S.ORD_LN_DLY_PK = T2.ORD_LN_DLY_PK
  365. AND T2.ORD_LN_PK = T3.ORD_LN_PK
  366. AND T3.CRAFT_SEQ = S.CRAFT_SEQ
  367. AND T3.DESGIN_KEY = T.DESGIN_KEY
  368. AND T.CHEM_TYPE = 'A'
  369. AND T.CHEM_CODE IN ('C012', 'C013', 'C014')
  370. AND T.SPECL_FL = '0'
  371. AND (T.ISCHECK = '1' OR T.ISJUDGE = '1')
  372. AND NOT EXISTS (SELECT 1
  373. FROM CRAFT_ORD_DESIGN_STD_CIC E2
  374. WHERE E2.CHEM_CODE = T.CHEM_CODE
  375. AND E2.DESGIN_KEY = T.DESGIN_KEY
  376. AND E2.SPECL_FL = '1')
  377. AND S.IF_PRODUCT = '1'
  378. AND S.PRO_PLAN_ID = ?
  379. AND S.GX_PLAN_NO = ?
  380. AND S.JUDGE_STOVE_NO = ?
  381. </query>
  382. <query id = "FrmVrpBatchSaplmeNew.doQueryPhy" desc = "查询理化详细信息">
  383. SELECT *
  384. FROM (SELECT T.DESGIN_KEY,
  385. T.PIC,
  386. T.SPECL_FL,
  387. T.INDEX_SEQ,
  388. T.PHY_CODE_MAX,
  389. T.PHY_NAME_MAX,
  390. (SELECT A.PHY_DEPTID
  391. FROM COM_BASE_PHY_B A, COM_BASE_PHY_C B
  392. WHERE T.PHY_CODE_MIN = B.PHY_CODE
  393. AND A.PHY_CODE = B.PHY_TYPE_M
  394. AND A.VALIDFLAG = '1'
  395. AND B.VALIDFLAG = '1') DEPT_ID,
  396. T.PHY_CODE_MIN,
  397. T.PHY_NAME_MIN,
  398. T.PHY_CODE_MIN ||
  399. NVL2(S1.SPLINE_ITEM_CODE_F, '_' || S1.SPLINE_ITEM_CODE_F, S1.SPLINE_ITEM_CODE_S) ||
  400. NVL2(T.ITEM_CODE_W, '_' || T.ITEM_CODE_W, S1.SPLINE_ITEM_CODE_S) ||
  401. NVL2(S1.SPLINE_ITEM_CODE_S, '_' || S1.SPLINE_ITEM_CODE_S, S1.SPLINE_ITEM_CODE_S) SAMPLE_KEY, --试样组方向温度尺寸
  402. T.PHY_NAME_MIN ||
  403. NVL2(S1.SPLINE_ITEM_NAME_F, '_' || S1.SPLINE_ITEM_NAME_F, S1.SPLINE_ITEM_NAME_F) ||
  404. NVL2(T.ITEM_NAME_W, '_' || T.ITEM_NAME_W, T.ITEM_NAME_W) ||
  405. NVL2(S1.SPLINE_ITEM_NAME_S, '_' || S1.SPLINE_ITEM_NAME_S, S1.SPLINE_ITEM_NAME_S) SAMPLE_KEY_DESC, --试样组描述
  406. T.PHY_CODE,
  407. T.PHY_NAME,
  408. (SELECT D.ORDER_SEQ FROM COM_BASE_PHY D WHERE D.PHY_CODE = T.PHY_CODE)ORDER_SEQ,
  409. T.ITEM_CODE_F,
  410. T.ITEM_NAME_F,
  411. T.ITEM_CODE_W,
  412. T.ITEM_NAME_W,
  413. T.ITEM_CODE_S,
  414. T.ITEM_NAME_S,
  415. S1.RATE,
  416. S1.DESC_RATE,
  417. S1.SPLINE_ITEM_CODE_S,
  418. S1.SPLINE_ITEM_NAME_S,
  419. S1.SPLINE_ITEM_CODE_F,
  420. S1.SPLINE_ITEM_NAME_F,
  421. T.GROUP_SEQ,
  422. T.ISCHECK,
  423. T.ISQUOTE,
  424. T.RESULT_COUNT,
  425. T.ISJUDGE,
  426. T.PHY_TYPE,
  427. T.PHY_FORMULA,
  428. T.STDMIN_SIGN,
  429. T.STDMIN,
  430. T.STDMAX_SIGN,
  431. T.STDMAX,
  432. T.JUDGE_BASIS,
  433. T.DELIVERYSTATE,
  434. T.MODEL_CODE,
  435. T.MODEL_DESC,
  436. T.STDMEMO,
  437. T.SIZE_CODE,
  438. T.SIZE_NAME,
  439. T.SIZE_MIN_SIGN,
  440. T.SIZE_MIN,
  441. T.SIZE_MAX_SIGN,
  442. T.SIZE_MAX,
  443. T.SIZE_CODE2,
  444. T.SIZE_NAME2,
  445. T.SIZE_MIN_SIGN2,
  446. T.SIZE_MIN2,
  447. T.SIZE_MAX_SIGN2,
  448. T.SIZE_MAX2,
  449. T.SPEC_JG,
  450. T.SPEC_JG_DESC,
  451. T.ADDCONDITION,
  452. T.ADDSTDCON_CODE,
  453. T.ADDSTD_MIN_SIGN,
  454. T.ADDSTD_MIN,
  455. T.ADDSTD_MAX_SIGN,
  456. T.ADDSTD_MAX,
  457. T.ADDPERCENT,
  458. T.STDMIN_SIGN2,
  459. T.STDMIN2,
  460. T.STDMAX_SIGN2,
  461. T.STDMAX2,
  462. T.STD_CHOOSE,
  463. T.BILLET_SAMPLE,
  464. (SELECT DISTINCT PHY_UNIT
  465. FROM COM_BASE_PHY T5
  466. WHERE T5.VALIDFLAG = '1'
  467. AND T5.PHY_CODE = T.PHY_CODE) PHY_UNIT,
  468. ROW_NUMBER() OVER(PARTITION BY T.DESGIN_KEY, T.PHY_CODE_MAX, T.PHY_CODE_MIN, T.PHY_CODE, T.ITEM_CODE_F, T.ITEM_CODE_W, T.ITEM_CODE_S ORDER BY T.SPECL_FL DESC) RN
  469. FROM PLN_ZY_DBK_M S,
  470. PLN_SALEORD T2,
  471. CRAFT_ORD_DESIGN T3,
  472. CRAFT_ORD_DESIGN_STD_PIC T,
  473. CRAFT_ORD_DESIGN_STD_PIC_SMP S1
  474. WHERE S.ORD_LN_DLY_PK = T2.ORD_LN_DLY_PK
  475. AND T2.ORD_LN_PK = T3.ORD_LN_PK
  476. AND T3.CRAFT_SEQ = S.CRAFT_SEQ
  477. AND T3.DESGIN_KEY = T.DESGIN_KEY
  478. AND T.MSC_PLINE = S.INDEX_SEQ
  479. AND T.PIC = S.PIC
  480. AND T.DESGIN_KEY = S1.DESGIN_KEY
  481. AND T.PHY_CODE_MIN = S1.PHY_CODE_MIN
  482. AND NVL(T.ITEM_CODE_F,'1') = NVL(S1.ITEM_CODE_F,'1')
  483. AND NVL(T.ITEM_CODE_W,'1') = NVL(S1.ITEM_CODE_W,'1')
  484. AND NVL(T.ITEM_CODE_S,'1') = NVL(S1.ITEM_CODE_C,'1')
  485. AND T.PROCESS_CODE = 'E'
  486. AND S.PRO_PLAN_ID = ?
  487. AND S.GX_PLAN_NO = ?
  488. AND S.JUDGE_STOVE_NO = ?) T
  489. WHERE RN = '1'
  490. --ORDER BY T.PHY_CODE_MAX,
  491. -- T.PHY_CODE_MIN,
  492. -- T.PHY_CODE,
  493. -- T.ITEM_CODE_F,
  494. -- T.ITEM_CODE_W,
  495. -- T.ITEM_CODE_S
  496. </query>
  497. <query id = "FrmVrpBatchSaplmeNew.doQueryPhyRate" desc = "查询取样频次">
  498. SELECT *
  499. FROM (SELECT T.DESGIN_KEY,
  500. T.PIC,
  501. T.SPECL_FL,
  502. T.INDEX_SEQ,
  503. T.PHY_CODE_MAX,
  504. T.PHY_NAME_MAX,
  505. (SELECT A.PHY_DEPTID
  506. FROM COM_BASE_PHY_B A, COM_BASE_PHY_C B
  507. WHERE T.PHY_CODE_MIN = B.PHY_CODE
  508. AND A.PHY_CODE = B.PHY_TYPE_M
  509. AND A.VALIDFLAG = '1'
  510. AND B.VALIDFLAG = '1') DEPT_ID,
  511. T.PHY_CODE_MIN,
  512. T.PHY_NAME_MIN,
  513. T.PHY_CODE,
  514. T.PHY_NAME,
  515. S1.RATE,
  516. S1.DESC_RATE,
  517. S1.TOP_STOVE,
  518. S1.LOOP_VALUE,
  519. ROW_NUMBER() OVER(PARTITION BY T.DESGIN_KEY, T.PHY_CODE_MAX, T.PHY_CODE_MIN ORDER BY T.SPECL_FL DESC) RN
  520. FROM PLN_ZY_DBK_M S,
  521. PLN_SALEORD T2,
  522. CRAFT_ORD_DESIGN T3,
  523. CRAFT_ORD_DESIGN_STD_PIC T,
  524. CRAFT_ORD_DESIGN_STD_PIC_SMP S1
  525. WHERE S.ORD_LN_DLY_PK = T2.ORD_LN_DLY_PK
  526. AND T2.ORD_LN_PK = T3.ORD_LN_PK
  527. AND T3.CRAFT_SEQ = S.CRAFT_SEQ
  528. AND T3.DESGIN_KEY = T.DESGIN_KEY
  529. AND T.MSC_PLINE = S.INDEX_SEQ
  530. AND T.PIC = S.PIC
  531. AND T.DESGIN_KEY = S1.DESGIN_KEY
  532. AND T.PHY_CODE_MIN = S1.PHY_CODE_MIN
  533. AND NVL(T.ITEM_CODE_F,'1') = NVL(S1.ITEM_CODE_F,'1')
  534. AND NVL(T.ITEM_CODE_W,'1') = NVL(S1.ITEM_CODE_W,'1')
  535. AND NVL(T.ITEM_CODE_S,'1') = NVL(S1.ITEM_CODE_C,'1')
  536. AND T.PROCESS_CODE = 'E'
  537. AND S.PRO_PLAN_ID = ?
  538. AND S.GX_PLAN_NO = ?
  539. AND S.JUDGE_STOVE_NO = ?) T
  540. WHERE RN = '1'
  541. </query>
  542. <query id = "FrmVrpBatchSaplmeNew.CheckConsingCount" desc = "查询已委托炉数">
  543. SELECT NVL(COUNT(1),0)ACOUNT
  544. FROM PIPE_CHECKCONSIGN_BASEINFO T
  545. WHERE T.LOT_NO = '#ZY_BATCH_ID#'
  546. AND T.PROCESS_CODE = 'E'
  547. </query>
  548. <query id = "FrmVrpBatchSaplmeNew.SelectSeqCheckNo" desc = "查询取第几炉结果作为当前炉的结果">
  549. SELECT CHECK_NO FROM (SELECT ROWNUM SEQ,CHECK_NO FROM ( SELECT T.CHECK_NO
  550. FROM PIPE_CHECKCONSIGN_BASEINFO T
  551. WHERE T.LOT_NO = '#ZY_BATCH_ID#'
  552. AND T.PROCESS_CODE = 'E'
  553. AND T.CHECK_COUNT = '0'
  554. ORDER BY T.CONSIGN_TIME ASC)) WHERE SEQ = ?
  555. </query>
  556. <query id = "FrmVrpBatchSaplmeNew.doQueryPhySamp" desc = "查询取样要求">
  557. SELECT T.*
  558. FROM (SELECT T.*,
  559. ROW_NUMBER() OVER(PARTITION BY T.DESGIN_KEY, T.PHY_CODE_MIN,T.ITEM_CODE_F,T.ITEM_CODE_W,T.ITEM_CODE_C ORDER BY T.SPECL_FL DESC) RN
  560. FROM (SELECT (SELECT A.PHY_CODE
  561. FROM COM_BASE_PHY_B A, COM_BASE_PHY_C B
  562. WHERE T.PHY_CODE_MIN = B.PHY_CODE
  563. AND A.PHY_CODE = B.PHY_TYPE_M
  564. AND A.VALIDFLAG = '1'
  565. AND B.VALIDFLAG = '1') PHY_CODE_MAX,
  566. (SELECT A.PHY_TYPE
  567. FROM COM_BASE_PHY_B A, COM_BASE_PHY_C B
  568. WHERE T.PHY_CODE_MIN = B.PHY_CODE
  569. AND A.PHY_CODE = B.PHY_TYPE_M
  570. AND A.VALIDFLAG = '1'
  571. AND B.VALIDFLAG = '1') PHY_NAME_MAX,
  572. (SELECT B.PHY_DEPTID
  573. FROM COM_BASE_PHY_B A, COM_BASE_PHY_C B
  574. WHERE T.PHY_CODE_MIN = B.PHY_CODE
  575. AND A.PHY_CODE = B.PHY_TYPE_M
  576. AND A.VALIDFLAG = '1'
  577. AND B.VALIDFLAG = '1') DEPT_ID,
  578. T.DESGIN_KEY,
  579. T.PIC,
  580. T.SIC,
  581. T.PHY_CODE_MIN,
  582. T.PHY_NAME_MIN,
  583. T.STD_CODE,
  584. T.STD_NAME,
  585. T.LENGTH,
  586. T.DESC_LENGTH,
  587. T.RATE,
  588. T.DESC_RATE,
  589. T.SSC_CONDITION,
  590. T.TOP_STOVE,
  591. T.LOOP_VALUE,
  592. T.DESC_COUNT,
  593. T.POSITION,
  594. T.DESC_POSITION,
  595. T.SAMPLE_COUNT,
  596. T.MEMO,
  597. T.SAMPLE_STYLE,
  598. T.BATCH_CNT,
  599. T.WIDTH,
  600. T.BATCH_UNIT,
  601. T.EIC,
  602. T.PHY_DIR,
  603. T.SIZE_DESC,
  604. T.ITEM_CODE_F,
  605. T.ITEM_CODE_W,
  606. T.ITEM_CODE_C,
  607. T.STD_CODE_TEST,
  608. T.STD_NAME_TEST,
  609. T.SPLINE_ITEM_CODE_S,
  610. T.SPLINE_ITEM_NAME_S,
  611. T.SPLINE_ITEM_CODE_F,
  612. T.SPLINE_ITEM_NAME_F,
  613. DECODE(T.SAMPLE_STYLE,
  614. '408101',
  615. '片状',
  616. '408102',
  617. '环状') AS DESC_SAMPLE_STYLE,
  618. (SELECT SPLINE_NO
  619. FROM COM_BASE_SPLINE C
  620. WHERE C.EIC = T.EIC) SPLINE_NO, --试样编码
  621. (SELECT DISTINCT M.SPECL_FL
  622. FROM CRAFT_ORD_DESIGN_STD_PIC M
  623. WHERE M.DESGIN_KEY = T.DESGIN_KEY
  624. AND M.PIC = T.PIC) SPECL_FL
  625. FROM PLN_ZY_DBK_M S,
  626. PLN_SALEORD T2,
  627. CRAFT_ORD_DESIGN T3,
  628. CRAFT_ORD_DESIGN_STD_PIC_SMP T
  629. WHERE S.ORD_LN_DLY_PK = T2.ORD_LN_DLY_PK
  630. AND T2.ORD_LN_PK = T3.ORD_LN_PK
  631. AND T3.CRAFT_SEQ = S.CRAFT_SEQ
  632. AND T3.DESGIN_KEY = T.DESGIN_KEY
  633. AND T.MSC_PLINE = S.INDEX_SEQ
  634. AND T.PROCESS_CODE = 'E'
  635. AND S.PRO_PLAN_ID = ?
  636. AND S.GX_PLAN_NO = ?
  637. AND S.JUDGE_STOVE_NO = ?
  638. AND T.PHY_CODE_MIN = ?) T) T
  639. WHERE RN = '1'
  640. ORDER BY T.PHY_CODE_MAX,
  641. T.PHY_CODE_MIN,
  642. T.ITEM_CODE_F,
  643. T.ITEM_CODE_W,
  644. T.ITEM_CODE_C
  645. </query>
  646. <query id = "FrmVrpBatchSaplmeNew.getCheckNo" desc = "生成检验编号">
  647. SELECT ? || REGEXP_REPLACE('#JUDGE_STOVE_NO#', '-.*', '') ||
  648. LPAD(NVL(MAX(REPLACE(T.CHECK_NO,
  649. ? ||
  650. REGEXP_REPLACE('#JUDGE_STOVE_NO#', '-.*', ''),
  651. '')),
  652. 0) + 1,
  653. 1,
  654. 0) CHECK_NO
  655. FROM PIPE_CHECKCONSIGN_BASEINFO T
  656. WHERE T.HEAT_NO = REGEXP_REPLACE('#JUDGE_STOVE_NO#', '-.*', '')
  657. AND T.PROCESS_CODE = ?
  658. AND T.CHECK_COUNT = '0'
  659. AND T.CRAFT_SOURCE IN ('0', '1')
  660. </query>
  661. <query id = "FrmVrpBatchSaplmeNew.updateMilPlanIsBatch" desc = "修改炉计划标识">
  662. UPDATE PLN_ZY_DBK_M T SET T.IS_BATCH = '#IS_BATCH#',T.CHECK_NO = '#CHECK_NO#' WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#' AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  663. </query>
  664. <query id = "FrmVrpBatchSaplmeNew.doQueryDetialSampleNo" desc = "查询检验委托试样组信息">
  665. SELECT S.*
  666. FROM PIPE_CHECKCONSIGN_BASEINFO T, PIPE_CHECKCONSIGN_DETAIL S
  667. WHERE T.CHECK_NO = S.CHECK_NO
  668. AND T.PROCESS_CODE = 'E'
  669. AND S.CHECK_NO = ?
  670. ORDER BY S.BATCH_NO,S.SAMPLE_NO
  671. </query>
  672. <query id = "FrmVrpBatchSaplmeNew.updateMatBcIsSample" desc = "重新标记样管">
  673. DECLARE
  674. V_MAT_NO MAT_BC_M.ZG_MAT_NO%TYPE := NULL;
  675. BEGIN
  676. UPDATE MAT_BC_M T
  677. SET T.QCM_STAUS = '22',
  678. T.JUDGE_RESULT_CODE = '40740705',
  679. T.JUDGE_RESULT = '废品',
  680. T.JUDGE_MAKER = 'SYSTEM'
  681. WHERE T.ZG_MAT_NO = '#MAT_NO#'
  682. AND T.BATCH_NO = '#BATCH_NO#'
  683. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#';
  684. UPDATE PORT_VRP_BATCH_SAMPLE_RESULT T
  685. SET T.MAT_STATUS = '10'
  686. WHERE T.MAT_NO = '#MAT_NO#'
  687. AND T.MAT_STATUS = '00';
  688. SELECT MAT_NO
  689. INTO V_MAT_NO
  690. FROM (SELECT T.MAT_NO
  691. FROM PORT_VRP_BATCH_SAMPLE_RESULT T
  692. WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  693. AND T.BATCH_NO = '#BATCH_NO#'
  694. AND T.MAT_STATUS = '00'
  695. AND T.IS_SAMPLE_PIPE = '0'
  696. ORDER BY T.MAT_NO ASC)
  697. WHERE ROWNUM = 1;
  698. UPDATE PORT_VRP_BATCH_SAMPLE_RESULT T
  699. SET T.IS_SAMPLE_PIPE = '1'
  700. WHERE T.MAT_NO = V_MAT_NO;
  701. UPDATE MAT_BC_M T SET T.SAMPLE_FLAG = '1' WHERE T.ZG_MAT_NO = V_MAT_NO;
  702. END;
  703. </query>
  704. <query id = "FrmVrpBatchSaplmeNew.updatePortSql" desc = "删除新样管">
  705. DECLARE
  706. BEGIN
  707. UPDATE PORT_VRP_BATCH_SAMPLE_RESULT T
  708. SET T.IS_SAMPLE_PIPE = '0'
  709. WHERE T.MAT_NO = '#MAT_NO#'
  710. AND T.MAT_STATUS = '00';
  711. UPDATE MAT_BC_M T
  712. SET T.QCM_STAUS = '00',
  713. T.JUDGE_RESULT_CODE = '',
  714. T.JUDGE_RESULT = '',
  715. T.JUDGE_MAKER = ''
  716. WHERE T.ZG_MAT_NO = '#MAT_NO#';
  717. END;
  718. </query>
  719. <query id = "FrmVrpBatchSaplmeNew.updatePortOldSql" desc = "恢复旧样管">
  720. DECLARE
  721. BEGIN
  722. UPDATE PORT_VRP_BATCH_SAMPLE_RESULT T
  723. SET T.MAT_STATUS = '00'
  724. WHERE T.MAT_NO = '#MAT_NO#'
  725. AND T.MAT_STATUS = '10'
  726. AND T.IS_SAMPLE_PIPE = '1';
  727. UPDATE MAT_BC_M T
  728. SET T.QCM_STAUS = '00',
  729. T.JUDGE_RESULT_CODE = '',
  730. T.JUDGE_RESULT = '',
  731. T.JUDGE_MAKER = ''
  732. WHERE T.ZG_MAT_NO = '#MAT_NO#';
  733. END;
  734. </query>
  735. <query id = "FrmVrpBatchSaplmeNew.deleteConsingCheckNo" desc = "删除产销检验记录">
  736. DECLARE
  737. BEGIN
  738. DELETE FROM QCM_ZC_CHECKCONSIGN T WHERE T.CHECK_NO = '#CHECK_NO#';
  739. DELETE FROM QCM_ZC_CHECKCONSIGN_DETAIL T WHERE T.CHECK_NO = '#CHECK_NO#';
  740. END;
  741. </query>
  742. <query id = "FrmVrpBatchSaplmeNew.doQueryRepeatRack" desc = "查询管号队列(复取样)">
  743. <![CDATA[
  744. SELECT ROWNUM SEQ,
  745. MAT_NO,
  746. RESAMPLE_PIPE_LEN_A,
  747. RESAMPLE_PIPE_LEN_B,
  748. SAMPLE_PIPE_LEN_A,
  749. SAMPLE_PIPE_LEN_B,
  750. HEAT_PLAN_NO,
  751. JUDGE_STOVE_NO,
  752. BATCH_NO,
  753. MAT_STATUS,
  754. IS_SAMPLE_PIPE
  755. FROM (SELECT T.MAT_NO,
  756. T.RESAMPLE_PIPE_LEN_A,
  757. T.RESAMPLE_PIPE_LEN_B,
  758. T.SAMPLE_PIPE_LEN_A,
  759. T.SAMPLE_PIPE_LEN_B,
  760. T.HEAT_PLAN_NO,
  761. T.JUDGE_STOVE_NO,
  762. T.BATCH_NO,
  763. DECODE(T.MAT_STATUS, '00', '是', '否') MAT_STATUS,
  764. T.IS_SAMPLE_PIPE
  765. FROM PORT_VRP_BATCH_SAMPLE_RESULT T
  766. WHERE T.JUDGE_STOVE_NO = ?
  767. ORDER BY T.MAT_STATUS ASC,T.MAT_NO)
  768. ]]>
  769. </query>
  770. <query id = "FrmVrpBatchSaplmeNew.updatePortMilResultReSample" desc = "复取样完成修改管号队列">
  771. UPDATE PORT_VRP_BATCH_SAMPLE_RESULT T
  772. SET T.IS_SAMPLE_PIPE = '#IS_SAMPLE_PIPE#',
  773. T.RESAMPLE_PIPE_LEN_A = '#RESAMPLE_PIPE_LEN_A#',
  774. T.RESAMPLE_PIPE_LEN_B = '#RESAMPLE_PIPE_LEN_B#',
  775. T.SAMPLE_PIPE_LEN = TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN,0)) + TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_A#',0))+TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_B#',0)),
  776. T.RE_GET_SAMPLE_NAME = '#RE_GET_SAMPLE_NAME#',
  777. T.RE_GET_SAMPLE_TIME = TO_DATE('#RE_GET_SAMPLE_TIME#','YYYY-MM-DD HH24:MI:SS'),
  778. T.RE_GET_SAMPLE_STATUS = '#RE_GET_SAMPLE_STATUS#'
  779. WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
  780. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  781. AND T.MAT_NO = '#MAT_NO#'
  782. </query>
  783. <query id = "FrmVrpBatchSaplmeNew.CancelupdatePortMilResultReSample" desc = "撤销复取样完成修改管号队列">
  784. UPDATE PORT_MIL_BATCH_SAMPLE_RESULT T
  785. SET T.IS_SAMPLE_PIPE = '#IS_SAMPLE_PIPE#',
  786. T.RESAMPLE_PIPE_LEN_A = '#RESAMPLE_PIPE_LEN_A#',
  787. T.RESAMPLE_PIPE_LEN_B = '#RESAMPLE_PIPE_LEN_B#',
  788. T.SAMPLE_PIPE_LEN = TO_NUMBER(NVL(T.SAMPLE_PIPE_LEN,0)) - TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_A#',0))-TO_NUMBER(NVL('#RESAMPLE_PIPE_LEN_B#',0)),
  789. T.RE_GET_SAMPLE_NAME = '#RE_GET_SAMPLE_NAME#',
  790. T.RE_GET_SAMPLE_TIME = TO_DATE('#RE_GET_SAMPLE_TIME#','YYYY-MM-DD HH24:MI:SS'),
  791. T.RE_GET_SAMPLE_STATUS = '#RE_GET_SAMPLE_STATUS#'
  792. WHERE T.PLAN_ID = '#PLAN_ID#'
  793. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  794. AND T.MAT_NO = '#MAT_NO#'
  795. </query>
  796. <query id = "FrmVrpBatchSaplmeNew.updatePortCopyMat" desc = "修改管号队列复取样状态">
  797. UPDATE PORT_VRP_BATCH_SAMPLE_RESULT T
  798. SET T.RE_GET_SAMPLE_STATUS = '#RE_GET_SAMPLE_STATUS#'
  799. WHERE T.LOT_NO = '#LOT_NO#'
  800. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  801. AND T.MAT_NO = '#MAT_NO#'
  802. </query>
  803. <query id = "FrmVrpBatchSaplmeNew.updateFlagSql" desc = "修改状态、删除产销委托数据">
  804. DECLARE
  805. BEGIN
  806. UPDATE PORT_VRP_BATCH_SAMPLE_RESULT T
  807. SET T.RE_GET_SAMPLE_STATUS = '1'
  808. WHERE T.LOT_NO = '#LOT_NO#'
  809. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  810. AND T.RE_GET_SAMPLE_STATUS = '2';
  811. --更新炉批结果表
  812. FOR V2 IN (SELECT T.*
  813. FROM QCM_ZC_CHECKCONSIGN_DETAIL T
  814. WHERE T.CHECK_NO = '#NEW_CHECK_NO#') LOOP
  815. IF V2.RATE = '408601' THEN
  816. FOR V IN (SELECT D.JUDGE_STOVE_NO,
  817. D.BATCH_NO,
  818. D.PROCESS_CODE,
  819. D.ORD_LN_DLY_PK,
  820. D.CRAFT_SOURCE
  821. FROM QCM_ZC_CHECKCONSIGN C, QCM_ZC_CHECKCONSIGN D
  822. WHERE C.CHECK_NO = V2.CHECK_NO
  823. AND C.BATCH_NO = V2.BATCH_NO
  824. AND D.LOT_NO = C.LOT_NO
  825. AND (C.LOT_NO_GROUP IS NULL OR
  826. C.LOT_NO_GROUP = D.LOT_NO_GROUP)
  827. AND D.PROCESS_CODE = C.PROCESS_CODE
  828. AND D.ORD_LN_DLY_PK = C.ORD_LN_DLY_PK
  829. GROUP BY D.JUDGE_STOVE_NO,
  830. D.BATCH_NO,
  831. D.PROCESS_CODE,
  832. D.ORD_LN_DLY_PK,
  833. D.CRAFT_SOURCE) LOOP
  834. UPDATE QCM_BC_BATCH_RESULT A
  835. SET A.JUDGE_RESULT_CODE = '40740704'
  836. WHERE A.JUDGE_STOVE_NO = V.JUDGE_STOVE_NO
  837. AND A.BATCH_NO = V.BATCH_NO
  838. AND A.PROCESS_CODE = V.PROCESS_CODE
  839. AND A.ORD_LN_DLY_PK = V.ORD_LN_DLY_PK
  840. AND A.CRAFT_SOURCE = V.CRAFT_SOURCE;
  841. END LOOP;
  842. ELSIF V2.RATE = '408603' THEN
  843. FOR V IN (SELECT D.JUDGE_STOVE_NO,
  844. D.BATCH_NO,
  845. D.PROCESS_CODE,
  846. D.ORD_LN_DLY_PK,
  847. D.CRAFT_SOURCE
  848. FROM QCM_ZC_CHECKCONSIGN C, QCM_ZC_CHECKCONSIGN D
  849. WHERE C.CHECK_NO = V2.CHECK_NO
  850. AND C.BATCH_NO = V2.BATCH_NO
  851. AND D.JUDGE_STOVE_NO = C.JUDGE_STOVE_NO
  852. AND D.PROCESS_CODE = C.PROCESS_CODE
  853. AND D.ORD_LN_DLY_PK = C.ORD_LN_DLY_PK
  854. GROUP BY D.JUDGE_STOVE_NO,
  855. D.BATCH_NO,
  856. D.PROCESS_CODE,
  857. D.ORD_LN_DLY_PK,
  858. D.CRAFT_SOURCE) LOOP
  859. UPDATE QCM_BC_BATCH_RESULT A
  860. SET A.JUDGE_RESULT_CODE = '40740704'
  861. WHERE A.JUDGE_STOVE_NO = V.JUDGE_STOVE_NO
  862. AND A.BATCH_NO = V.BATCH_NO
  863. AND A.PROCESS_CODE = V.PROCESS_CODE
  864. AND A.ORD_LN_DLY_PK = V.ORD_LN_DLY_PK
  865. AND A.CRAFT_SOURCE = V.CRAFT_SOURCE;
  866. END LOOP;
  867. ELSE
  868. FOR V IN (SELECT C.JUDGE_STOVE_NO,
  869. C.BATCH_NO,
  870. C.PROCESS_CODE,
  871. C.ORD_LN_DLY_PK,
  872. C.CRAFT_SOURCE
  873. FROM QCM_ZC_CHECKCONSIGN C
  874. WHERE C.CHECK_NO = V2.CHECK_NO
  875. AND C.BATCH_NO = V2.BATCH_NO
  876. GROUP BY C.JUDGE_STOVE_NO,
  877. C.BATCH_NO,
  878. C.PROCESS_CODE,
  879. C.ORD_LN_DLY_PK,
  880. C.CRAFT_SOURCE) LOOP
  881. UPDATE QCM_BC_BATCH_RESULT A
  882. SET A.JUDGE_RESULT_CODE = '40740704'
  883. WHERE A.JUDGE_STOVE_NO = V.JUDGE_STOVE_NO
  884. AND A.BATCH_NO = V.BATCH_NO
  885. AND A.PROCESS_CODE = V.PROCESS_CODE
  886. AND A.ORD_LN_DLY_PK = V.ORD_LN_DLY_PK
  887. AND A.CRAFT_SOURCE = V.CRAFT_SOURCE;
  888. END LOOP;
  889. END IF;
  890. END LOOP;
  891. DELETE FROM QCM_ZC_CHECKCONSIGN T WHERE T.CHECK_NO = '#NEW_CHECK_NO#';
  892. DELETE FROM QCM_ZC_CHECKCONSIGN_DETAIL T WHERE T.CHECK_NO = '#NEW_CHECK_NO#';
  893. END;
  894. </query>
  895. <query id = "FrmVrpBatchSaplmeNew.doQueryResampleInfo" desc = "查询复样样管基础信息">
  896. SELECT
  897. PHY_BATCH_NO,
  898. MAT_NO,
  899. RESAMPLE_PIPE_LEN_A,
  900. RESAMPLE_PIPE_LEN_B,
  901. REPHY_CODE_GROUP,
  902. REPHY_CODE_GROUPB
  903. FROM PORT_VRP_BATCH_SAMPLE_RESULT
  904. WHERE IS_SAMPLE_PIPE = '1'
  905. AND JUDGE_STOVE_NO = ?
  906. AND RE_GET_SAMPLE_STATUS = '1'
  907. ORDER BY PHY_BATCH_NO,MAT_NO
  908. </query>
  909. <query id = "FrmVrpBatchSaplmeNew.selectPortHttResult" desc = "查询样管是否已分批">
  910. SELECT COUNT(1) ACOUNT
  911. FROM PORT_VRP_BATCH_SAMPLE_RESULT T
  912. WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
  913. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  914. AND T.PHY_BATCH_NO IS NULL
  915. AND T.MAT_NO = '#MAT_NO#'
  916. </query>
  917. <query id = "FrmVrpBatchSaplmeNew.selectPortVrpCount" desc = "查询下线支数">
  918. SELECT SUM(T.ACT_COUNT) ACOUNT
  919. FROM PORT_VRP_BATCH_SAMPLE_RESULT T
  920. WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
  921. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  922. AND T.INSTORE_FLAG = '1'
  923. </query>
  924. <query id = "FrmVrpBatchSaplmeNew.doQueryPrdcrNo" desc = "查询监制编号">
  925. select t.*
  926. from PLN_ORDER_DBK_S t
  927. WHERE T.PRO_PLAN_ID = ?
  928. AND T.GX_PLAN_NO = ?
  929. </query>
  930. </queryMap>