FrmCouplingAppl.xml 45 KB

1234567891011121314151617181920212223242526272829303132333435363738394041424344454647484950515253545556575859606162636465666768697071727374757677787980818283848586878889909192939495969798991001011021031041051061071081091101111121131141151161171181191201211221231241251261271281291301311321331341351361371381391401411421431441451461471481491501511521531541551561571581591601611621631641651661671681691701711721731741751761771781791801811821831841851861871881891901911921931941951961971981992002012022032042052062072082092102112122132142152162172182192202212222232242252262272282292302312322332342352362372382392402412422432442452462472482492502512522532542552562572582592602612622632642652662672682692702712722732742752762772782792802812822832842852862872882892902912922932942952962972982993003013023033043053063073083093103113123133143153163173183193203213223233243253263273283293303313323333343353363373383393403413423433443453463473483493503513523533543553563573583593603613623633643653663673683693703713723733743753763773783793803813823833843853863873883893903913923933943953963973983994004014024034044054064074084094104114124134144154164174184194204214224234244254264274284294304314324334344354364374384394404414424434444454464474484494504514524534544554564574584594604614624634644654664674684694704714724734744754764774784794804814824834844854864874884894904914924934944954964974984995005015025035045055065075085095105115125135145155165175185195205215225235245255265275285295305315325335345355365375385395405415425435445455465475485495505515525535545555565575585595605615625635645655665675685695705715725735745755765775785795805815825835845855865875885895905915925935945955965975985996006016026036046056066076086096106116126136146156166176186196206216226236246256266276286296306316326336346356366376386396406416426436446456466476486496506516526536546556566576586596606616626636646656666676686696706716726736746756766776786796806816826836846856866876886896906916926936946956966976986997007017027037047057067077087097107117127137147157167177187197207217227237247257267277287297307317327337347357367377387397407417427437447457467477487497507517527537547557567577587597607617627637647657667677687697707717727737747757767777787797807817827837847857867877887897907917927937947957967977987998008018028038048058068078088098108118128138148158168178188198208218228238248258268278288298308318328338348358368378388398408418428438448458468478488498508518528538548558568578588598608618628638648658668678688698708718728738748758768778788798808818828838848858868878888898908918928938948958968978988999009019029039049059069079089099109119129139149159169179189199209219229239249259269279289299309319329339349359369379389399409419429439449459469479489499509519529539549559569579589599609619629639649659669679689699709719729739749759769779789799809819829839849859869879889899909919929939949959969979989991000100110021003100410051006100710081009101010111012101310141015101610171018101910201021102210231024102510261027102810291030103110321033103410351036103710381039104010411042104310441045104610471048104910501051105210531054105510561057105810591060106110621063106410651066106710681069107010711072107310741075107610771078107910801081108210831084108510861087108810891090109110921093109410951096109710981099110011011102110311041105110611071108110911101111111211131114111511161117111811191120112111221123112411251126112711281129113011311132113311341135113611371138113911401141114211431144114511461147114811491150115111521153115411551156115711581159116011611162116311641165116611671168116911701171117211731174117511761177117811791180118111821183118411851186118711881189119011911192119311941195119611971198119912001201120212031204120512061207120812091210121112121213121412151216121712181219122012211222122312241225122612271228122912301231123212331234123512361237123812391240124112421243124412451246124712481249125012511252125312541255125612571258125912601261126212631264126512661267126812691270127112721273127412751276127712781279128012811282128312841285128612871288128912901291129212931294
  1. <?xml version="1.0" encoding="UTF-8"?>
  2. <queryMap desc = "申请判定管理">
  3. <query id = "FrmCouplingAppl.doQueryMat" desc = "查询炉信息">
  4. <![CDATA[
  5. SELECT T.WO_ID,
  6. T.JUDGE_STOVE_NO,
  7. t.DETER_NO,
  8. t.BATCH_NO,
  9. DECODE(MAX(T.LOCK_LIKU),'0','正常','1','利库') LOCK_LIKU,
  10. MAX(T.JUDGE_STD_NAME) JUDGE_STD_NAME,
  11. MAX(T.SOURE_CODE) SOURE_CODE,
  12. MAX(T.SOURE_NAME) SOURE_NAME,
  13. MAX(T.MAT_ORIGIN_CODE) MAT_ORIGIN_CODE,
  14. MAX(T.MAT_ORIGIN_NAME) MAT_ORIGIN_NAME,
  15. MAX(T.FINAL_USER_DESC) FINAL_USER_DESC,
  16. max(T.DETER_RESULTS) DETER_RESULTS,
  17. decode(MAX(t.DETER_STATUS),'0','未判定','1','申请判定','2','已判定') DETER_STATUS,
  18. DECODE(MAX(T.MNG_LOCK_FLAG),'0','未封锁','1','管理封锁') MNG_LOCK_FLAG,
  19. DECODE(MAX(T.LOCK_FLAG),'0','未封锁','1','质量封锁') LOCK_FLAG,
  20. MAX(T.CRAFT_SEQ) CRAFT_SEQ,
  21. MAX(T.CRAFT_FILE_NO) CRAFT_FILE_NO,
  22. MAX(T.CODE_JG_BL) CODE_JG_BL,
  23. DECODE(MAX(T.COAT_TYPE),'0','无','1','镀铜','2','磷化','3','镀铜及磷化') COAT_TYPE,
  24. MAX(T.DEMAND_COPPER) DEMAND_COPPER,
  25. MAX(T.DEMAND_BONDERIZING) DEMAND_BONDERIZING,
  26. MAX(T.DEMAND_BLAST) DEMAND_BLAST,
  27. MAX(T.DEMAND_DETECTION) DEMAND_DETECTION,
  28. MAX(T.MEMO) MEMO,
  29. (SELECT SUM(M.REJECTED_PCS) FROM COUPLING_THREADING_RESULT M WHERE T.WO_ID = M.WO_ID) REJECTED_PCS,
  30. ROUND(MAX(T.PRO_WT/T.PRO_NUM)*(SELECT SUM(M.REJECTED_PCS) FROM COUPLING_THREADING_RESULT M WHERE T.WO_ID = M.WO_ID),3) REJECTED_WT,
  31. MAX(T.BL_WL_DESC) BL_WL_DESC,
  32. MAX(T.F_IN_TIME) F_IN_TIME,
  33. MAX(T.UPDATE_NAME) UPDATE_NAME,
  34. MAX(T.UPDATE_TIME) UPDATE_TIME,
  35. MAX(T.CREATE_TIME) CREATE_TIME,
  36. MAX(T.CREATE_NAME) CREATE_NAME,
  37. DECODE(MAX(T.PRO_GROUP),'1','甲','2','乙','3','丙','4','丁') PRO_GROUP,
  38. DECODE(MAX(T.PRO_SHIFT),'1','早班','2','中班','3','晚班') PRO_SHIFT,
  39. MAX(T.RRO_TIME) RRO_TIME,
  40. MAX(T.COL_OPERATOR) COL_OPERATOR,
  41. SUM(T.PRO_NUM) PRO_NUM,
  42. ROUND(SUM(T.PRO_WT),3) PRO_WT,
  43. MAX(T.PRODUCER) PRODUCER,
  44. MAX(T.PRDCR_NO) PRDCR_NO,
  45. DECODE(MAX(T.IF_MONITOR_JG),'0','否','是') IF_MONITOR_JG,
  46. MAX(T.MONITORDEMAND) MONITORDEMAND,
  47. MAX(T.SINGLEWEIGHT) SINGLEWEIGHT,
  48. MAX(T.AIMLENGTH) AIMLENGTH,
  49. MAX(T.CHECK_J_VAL) CHECK_J_VAL,
  50. MAX(T.DIAMETER) DIAMETER,
  51. MAX(T.STYLE_JG) STYLE_JG,
  52. MAX(T.SPEC_JG_DESC) SPEC_JG_DESC,
  53. MAX(T.SPEC_JG) SPEC_JG,
  54. MAX(T.OUTDIAMETER) OUTDIAMETER,
  55. MAX(T.WALLTHICK) WALLTHICK,
  56. MAX(T.CODE_JG) CODE_JG,
  57. MAX(T.BL_WL_ID) BL_WL_ID,
  58. MAX(T.MIN_D) MIN_D,
  59. MAX(T.STEELCODE) STEELCODE,
  60. MAX(T.STEELNAME) STEELNAME,
  61. MAX(T.GRADECODE) GRADECODE,
  62. MAX(T.GRADENAME) GRADENAME,
  63. MAX(T.MODEL_CODE) MODEL_CODE,
  64. MAX(T.MODEL_DESC) MODEL_DESC,
  65. MAX(T.PLINE_CODE) PLINE_CODE,
  66. MAX(T.PLINE_NAME) PLINE_NAME,
  67. MAX(T.BELONG_CODE) BELONG_CODE,
  68. MAX(T.BELONG_NAME) BELONG_NAME,
  69. MAX(T2.JUDGE_RESULT_CODE),
  70. DECODE(MAX(T1.JUDGE_RESULT_CODE),
  71. NULL,
  72. '未判',
  73. DECODE(MAX(T2.JUDGE_RESULT_CODE), '1', '部分已判', '已判')) JUDGE_FLAG,
  74. MAX(T1.HTT_TYPE) HTT_TYPE,
  75. MAX(T1.MIN_TEMP) MIN_TEMP,
  76. MAX(T1.HTT_TECHNOLOGY) HTT_TECHNOLOGY,
  77. MAX(T1.NOTCH_INFO) NOTCH_INFO,
  78. MAX(T1.NOTCH_LENGTH) NOTCH_LENGTH,
  79. MAX(T1.NOTCH_WIDTH) NOTCH_WIDTH,
  80. MAX(T1.NOTCH_DEPTH) NOTCH_DEPTH,
  81. MAX(T1.TEST_PRESSURE) TEST_PRESSURE,
  82. MAX(T1.HOLDTIME_TIME) HOLDTIME_TIME,
  83. MAX(T1.TEST_PRESSURE_Y) TEST_PRESSURE_Y,
  84. MAX(T1.MCH_WATERGAGE_RESULT) MCH_WATERGAGE_RESULT,
  85. MAX(T1.MCH_PATH_RESULT) MCH_PATH_RESULT,
  86. MAX(T1.MCH_CHAMFERING_RESULT) MCH_CHAMFERING_RESULT,
  87. MAX(T1.MCH_TWISTINGLY_RESULT) MCH_TWISTINGLY_RESULT,
  88. MAX(T1.MCH_DIMENSIONS_RESULT) MCH_DIMENSIONS_RESULT,
  89. MAX(T1.MCH_VISUAL_RESULT) MCH_VISUAL_RESULT,
  90. MAX(T1.MCH_THREAD_INSPECTION_RESULT) MCH_THREAD_INSPECTION_RESULT,
  91. MAX(T1.MCH_REMANENCE_RESULT) MCH_REMANENCE_RESULT,
  92. MAX(T1.MCH_RADIOACTIVITY_RESULT) MCH_RADIOACTIVITY_RESULT,
  93. MAX(T1.MCH_BEVEL_RESULT) MCH_BEVEL_RESULT,
  94. MAX(T1.ANGLE_VAL) ANGLE_VAL,
  95. MAX(T1.EDGE_VAL) EDGE_VAL,
  96. MAX(T1.DRIFT_MODEL_MIN) DRIFT_MODEL_MIN,
  97. MAX(T1.MEASURED_END_PART) MEASURED_END_PART,
  98. MAX(T1.MEASURED_MIDDLE_PART) MEASURED_MIDDLE_PART,
  99. MAX(T1.MEASURED_TAIL_PART) MEASURED_TAIL_PART,
  100. MAX(T1.DETECT_RESULT_CODE) DETECT_RESULT_CODE,
  101. MAX(T1.TESTING_STANDAR) TESTING_STANDAR,
  102. MAX(T1.TESTING_GRADE) TESTING_GRADE,
  103. MAX(T1.TESTING_TYPE) TESTING_TYPE,
  104. MAX(T3.PLAN_BL_NUM) PLAN_BL_NUM,
  105. MAX(T3.PLAN_BL_WT) PLAN_BL_WT,
  106. MAX(T3.REAL_BL_NUM) REAL_BL_NUM,
  107. MAX(T3.REAL_BL_WT) REAL_BL_WT
  108. FROM PLN_ZY_JG_WORKBILL t3,COUPLING_MAT_M T
  109. LEFT JOIN (SELECT MAX(JUDGE_RESULT_CODE) JUDGE_RESULT_CODE,
  110. MAX(T1.HTT_TYPE) HTT_TYPE,
  111. MAX(T1.MIN_TEMP) MIN_TEMP,
  112. MAX(T1.HTT_TECHNOLOGY) HTT_TECHNOLOGY,
  113. MAX(T1.NOTCH_INFO) NOTCH_INFO,
  114. MAX(T1.NOTCH_LENGTH) NOTCH_LENGTH,
  115. MAX(T1.NOTCH_WIDTH) NOTCH_WIDTH,
  116. MAX(T1.NOTCH_DEPTH) NOTCH_DEPTH,
  117. MAX(T1.TEST_PRESSURE) TEST_PRESSURE,
  118. MAX(T1.HOLDTIME_TIME) HOLDTIME_TIME,
  119. MAX(T1.TEST_PRESSURE_Y) TEST_PRESSURE_Y,
  120. MAX(T1.MCH_WATERGAGE_RESULT) MCH_WATERGAGE_RESULT,
  121. MAX(T1.MCH_PATH_RESULT) MCH_PATH_RESULT,
  122. MAX(T1.MCH_CHAMFERING_RESULT) MCH_CHAMFERING_RESULT,
  123. MAX(T1.MCH_TWISTINGLY_RESULT) MCH_TWISTINGLY_RESULT,
  124. MAX(T1.MCH_DIMENSIONS_RESULT) MCH_DIMENSIONS_RESULT,
  125. MAX(T1.MCH_VISUAL_RESULT) MCH_VISUAL_RESULT,
  126. MAX(T1.MCH_THREAD_INSPECTION_RESULT) MCH_THREAD_INSPECTION_RESULT,
  127. MAX(T1.MCH_REMANENCE_RESULT) MCH_REMANENCE_RESULT,
  128. MAX(T1.MCH_RADIOACTIVITY_RESULT) MCH_RADIOACTIVITY_RESULT,
  129. MAX(T1.MCH_BEVEL_RESULT) MCH_BEVEL_RESULT,
  130. MAX(T1.ANGLE_VAL) ANGLE_VAL,
  131. MAX(T1.EDGE_VAL) EDGE_VAL,
  132. MAX(T1.DRIFT_MODEL_MIN) DRIFT_MODEL_MIN,
  133. MAX(T1.MEASURED_END_PART) MEASURED_END_PART,
  134. MAX(T1.MEASURED_MIDDLE_PART) MEASURED_MIDDLE_PART,
  135. MAX(T1.MEASURED_TAIL_PART) MEASURED_TAIL_PART,
  136. MAX(T1.TESTING_GRADE) TESTING_GRADE,
  137. MAX(T1.TESTING_TYPE) TESTING_TYPE,
  138. MAX(T1.TESTING_STANDAR) TESTING_STANDAR,
  139. MAX(DECODE(T1.DETECT_RESULT_CODE,
  140. '40740401',
  141. '合格',
  142. '40740402',
  143. '不合格')) DETECT_RESULT_CODE,
  144. JUGDE_APPLY_CODE
  145. FROM QCM_ZG_JUGDE_APPLY T1
  146. GROUP BY JUGDE_APPLY_CODE) t1
  147. ON T.DETER_NO = T1.JUGDE_APPLY_CODE
  148. LEFT JOIN (SELECT MIN(nvl(JUDGE_RESULT_CODE, '1')) JUDGE_RESULT_CODE,
  149. JUGDE_APPLY_CODE
  150. FROM QCM_ZG_JUGDE_APPLY T1
  151. GROUP BY JUGDE_APPLY_CODE) t2
  152. ON T.DETER_NO = T2.JUGDE_APPLY_CODE
  153. WHERE 1 = 1 AND T.QCM_STAUS = '00' and t.WO_ID = t3.WO_ID
  154. #WO_ID#
  155. #INSTOCK_TIME#
  156. #JUDGE_STOVE_NO#
  157. #JUGDE_APPLY_CODE#
  158. #JUDGE_RESULT_CODE#
  159. #BELONG_CODE#
  160. #GROUP_BY#
  161. ]]>
  162. </query>
  163. <query id = "FrmCouplingAppl.QueryQcmAddAsk" desc = "查询合同附加要求信息 (QCM_ADD_ASK)">
  164. <![CDATA[
  165. select t.* from QCM_ADD_ASK t WHERE T.JUGDE_APPLY_CODE = ? AND T.JUDGE_STOVE_NO = ?
  166. ]]>
  167. </query>
  168. <query id = "FrmCouplingAppl.doQueryJgWt" desc = "查询接箍单个重(COM_MSC_JG)">
  169. <![CDATA[
  170. select t.* from COM_MSC_JG t WHERE T.CODE_JG = ?
  171. ]]>
  172. </query>
  173. <query id = "FrmCouplingAppl.QueryQcmAddAsk2" desc = "查询合同附加要求信息 (CRAFT_ORD_DESIGN_ADD_ASK)">
  174. <![CDATA[
  175. select t.DESGIN_KEY,
  176. T.ASK_ITME,
  177. T.ASK_ITME_DESC,
  178. T.ASK_SUB_ITME,
  179. T.ASK_SUB_ITME_DESC,
  180. T.ASK_SUB_ITME_VAL,
  181. T.ASK_SUB_ITME_VAL_DESC
  182. from CRAFT_ORD_DESIGN_ADD_ASK t
  183. WHERE T.DESGIN_KEY =
  184. (SELECT C.DESGIN_KEY
  185. FROM SLM_ORDER_HEAD A, SLM_ORDER_LINE B, CRAFT_ORD_DESIGN C
  186. WHERE A.ORD_PK = B.ORD_PK
  187. AND C.ORD_LN_PK = B.ORD_LN_PK
  188. AND C.VALIDFLAG = '1'
  189. AND A.ORDER_NO || '/' || B.ORDER_SEQ = ?)
  190. ]]>
  191. </query>
  192. <query id = "FrmCouplingAppl.QueryZgJugdeApply" desc = "查询送判数据">
  193. <![CDATA[
  194. select t.*
  195. from QCM_ZG_JUGDE_APPLY t
  196. WHERE 1=1
  197. AND T.PROCESS_CODE = 'H'
  198. ]]>
  199. </query>
  200. <query id = "FrmCouplingAppl.insertQcmAddAsk" desc = "新增合同附加要求信息 (QCM_ADD_ASK)">
  201. <![CDATA[
  202. INSERT INTO QCM_ADD_ASK(
  203. JUGDE_APPLY_CODE,
  204. JUDGE_STOVE_NO,
  205. DESGIN_KEY,
  206. ASK_ITME,
  207. ASK_ITME_DESC,
  208. ASK_SUB_ITME,
  209. ASK_SUB_ITME_DESC,
  210. ASK_SUB_ITME_VAL,
  211. ASK_SUB_ITME_VAL_DESC,
  212. ASK_IS_COMFRIM,
  213. ASK_VAL_DESC,
  214. COMFRIM_NAME,
  215. COMFRIM_TIME)
  216. VALUES(
  217. '#JUGDE_APPLY_CODE#',
  218. '#JUDGE_STOVE_NO#',
  219. '#DESGIN_KEY#',
  220. '#ASK_ITME#',
  221. '#ASK_ITME_DESC#',
  222. '#ASK_SUB_ITME#',
  223. '#ASK_SUB_ITME_DESC#',
  224. '#ASK_SUB_ITME_VAL#',
  225. '#ASK_SUB_ITME_VAL_DESC#',
  226. '#ASK_IS_COMFRIM#',
  227. '#ASK_VAL_DESC#',
  228. '#COMFRIM_NAME#',
  229. SYSDATE)
  230. ]]>
  231. </query>
  232. <query id = "FrmCouplingAppl.doUpdateJgWt" desc = "修改单重 (COM_MSC_JG)">
  233. <![CDATA[
  234. UPDATE COM_MSC_JG T
  235. SET T.WEIGHT_JG = '#WEIGHT_JG#'
  236. WHERE T.CODE_JG = '#CODE_JG#'
  237. ]]>
  238. </query>
  239. <query id = "FrmCouplingAppl.doUpdateJgCouplingWt" desc = "修改单重 (COM_MSC_JG)">
  240. <![CDATA[
  241. UPDATE COUPLING_MAT_M T
  242. SET T.SINGLEWEIGHT = '#WEIGHT_JG#',
  243. T.PRO_WT = TO_NUMBER(T.PRO_NUM)*TO_NUMBER('#WEIGHT_JG#')/1000
  244. WHERE T.CODE_JG = '#CODE_JG#' AND T.DETER_NO IS NULL
  245. ]]>
  246. </query>
  247. <query id = "FrmCouplingAppl.doQueryJudgeBath" desc = "查询详细炉批信息">
  248. SELECT
  249. T.WO_ID,
  250. T.JUDGE_STOVE_NO,
  251. t.DETER_NO,
  252. T.BATCH_NO,
  253. T1.ORDER_NO,
  254. T1.ORDER_SEQ,
  255. T1.ORDER_SEQ_NO,
  256. T1.CRAFT_SEQ_ORD CRAFT_SEQ,
  257. T1.CRAFT_FILE_NO_ORD CRAFT_FILE_NO,
  258. DECODE(MAX(T.LOCK_LIKU),'0','正常','1','利库') LOCK_LIKU,
  259. MAX(T.JUDGE_STD_NAME) JUDGE_STD_NAME,
  260. MAX(T.SOURE_CODE) SOURE_CODE,
  261. MAX(T.SOURE_NAME) SOURE_NAME,
  262. MAX(T.MAT_ORIGIN_CODE) MAT_ORIGIN_CODE,
  263. MAX(T.MAT_ORIGIN_NAME) MAT_ORIGIN_NAME,
  264. MAX(T.FINAL_USER_DESC) FINAL_USER_DESC,
  265. max(T.DETER_RESULTS) DETER_RESULTS,
  266. decode(MAX(t.DETER_STATUS),'0','未判定','1','申请判定','2','已判定') DETER_STATUS,
  267. DECODE(MAX(T.MNG_LOCK_FLAG),'0','未封锁','1','管理封锁') MNG_LOCK_FLAG,
  268. DECODE(MAX(T.LOCK_FLAG),'0','未封锁','1','质量封锁') LOCK_FLAG,
  269. MAX(T.CODE_JG_BL) CODE_JG_BL,
  270. DECODE(MAX(T.COAT_TYPE),'0','无','1','镀铜','2','磷化','3','镀铜及磷化') COAT_TYPE,
  271. MAX(T.DEMAND_COPPER) DEMAND_COPPER,
  272. MAX(T.DEMAND_BONDERIZING) DEMAND_BONDERIZING,
  273. MAX(T.DEMAND_BLAST) DEMAND_BLAST,
  274. MAX(T.DEMAND_DETECTION) DEMAND_DETECTION,
  275. MAX(T.MEMO) MEMO,
  276. MAX(T.BL_WL_DESC) BL_WL_DESC,
  277. MAX(T.F_IN_TIME) F_IN_TIME,
  278. MAX(T.UPDATE_NAME) UPDATE_NAME,
  279. MAX(T.UPDATE_TIME) UPDATE_TIME,
  280. MAX(T.CREATE_TIME) CREATE_TIME,
  281. MAX(T.CREATE_NAME) CREATE_NAME,
  282. DECODE(MAX(T.PRO_GROUP),'1','甲','2','乙','3','丙','4','丁') PRO_GROUP,
  283. DECODE(MAX(T.PRO_SHIFT),'1','早班','2','中班','3','晚班') PRO_SHIFT,
  284. MAX(T.RRO_TIME) RRO_TIME,
  285. MAX(T.COL_OPERATOR) COL_OPERATOR,
  286. SUM(T.PRO_NUM) PRO_NUM,
  287. ROUND(SUM(T.PRO_WT),3) PRO_WT,
  288. MAX(T.PRODUCER) PRODUCER,
  289. MAX(T.PRDCR_NO) PRDCR_NO,
  290. DECODE(MAX(T.IF_MONITOR_JG),'0','否','是') IF_MONITOR_JG,
  291. MAX(T.MONITORDEMAND) MONITORDEMAND,
  292. MAX(T.SINGLEWEIGHT) SINGLEWEIGHT,
  293. MAX(T.AIMLENGTH) AIMLENGTH,
  294. MAX(T.CHECK_J_VAL) CHECK_J_VAL,
  295. MAX(T.DIAMETER) DIAMETER,
  296. MAX(T.STYLE_JG) STYLE_JG,
  297. MAX(T.SPEC_JG_DESC) SPEC_JG_DESC,
  298. MAX(T.SPEC_JG) SPEC_JG,
  299. MAX(T.OUTDIAMETER) OUTDIAMETER,
  300. MAX(T.WALLTHICK) WALLTHICK,
  301. MAX(T.CODE_JG) CODE_JG,
  302. MAX(T.BL_WL_ID) BL_WL_ID,
  303. MAX(T.MIN_D) MIN_D,
  304. MAX(T.STEELCODE) STEELCODE,
  305. MAX(T.STEELNAME) STEELNAME,
  306. MAX(T.GRADECODE) GRADECODE,
  307. MAX(T.GRADENAME) GRADENAME,
  308. MAX(T.MODEL_CODE) MODEL_CODE,
  309. MAX(T.MODEL_DESC) MODEL_DESC,
  310. MAX(T.PLINE_CODE) PLINE_CODE,
  311. MAX(T.PLINE_NAME) PLINE_NAME,
  312. MAX(T.BELONG_CODE) BELONG_CODE,
  313. MAX(T.BELONG_NAME) BELONG_NAME,
  314. T.DETER_NO_SEQ,
  315. MAX(T.MAT_NO) MAT_NO
  316. FROM COUPLING_MAT_M T,PLN_ZY_JG_MIDDLE T1
  317. WHERE 1=1 AND T.WO_ID = T1.WO_ID AND T.MAT_NO = T1.MAT_NO AND T.QCM_STAUS = '00'
  318. #WO_ID#
  319. #JUDGE_STOVE_NO#
  320. #JUGDE_APPLY_CODE#
  321. #JUGDE_APPLY_CODE2#
  322. #GROUP_BY#
  323. </query>
  324. <query id = "FrmCouplingAppl.doQueryHttData" desc = "查询热处理槽长槽宽槽深">
  325. SELECT MAX(T.NOTCH_LENGTH) NOTCH_LENGTH, MAX(T.NOTCH_WIDTH) NOTCH_WIDTH, MAX(T.NOTCH_DEPTH) NOTCH_DEPTH
  326. FROM HTT_CRACK_DETECTION_ET T
  327. WHERE 1 = 1
  328. </query>
  329. <query id = "FrmCouplingAppl.updateProWgt" desc = "回报过磅量">
  330. UPDATE COUPLING_MAT_M T SET T.PRO_WT = ? WHERE T.MAT_NO = ? AND T.JUDGE_STOVE_NO = ? AND T.BELONG_CODE = ? AND T.BATCH_NO = ?
  331. </query>
  332. <query id = "FrmCouplingAppl.selectCount" desc = "查询该炉总支数">
  333. SELECT COUNT(*) ACOUNT
  334. FROM COUPLING_MAT_M T
  335. WHERE T.JUDGE_STOVE_NO = ?
  336. AND T.BELONG_CODE = ?
  337. AND T.BATCH_NO = ?
  338. </query>
  339. <query id = "FrmCouplingAppl.doQueryJudgeBathCount" desc = "查询详细炉批信息">
  340. SELECT
  341. COUNT(*) COUNT
  342. FROM COUPLING_MAT_M T
  343. WHERE T.WO_ID = ?
  344. AND T.JUDGE_STOVE_NO = ?
  345. </query>
  346. <query id = "FrmCouplingAppl.doQueryWt" desc = "查询回磅重量">
  347. SELECT NVL(SUM(T.PONDER_GROSS_WT),0) PONDER_GROSS_WT FROM MAT_BC_M T WHERE 1 = 1 AND T.QCM_STAUS = '00' AND T.JUGDE_APPLY_CODE IS NULL
  348. </query>
  349. <query id = "FrmCouplingAppl.doQueryQcmApply" desc = "查询判定表热处理状态">
  350. SELECT T.HTT_TYPE, T.MIN_TEMP, T.HTT_TECHNOLOGY,T.NOTCH_INFO,T.NOTCH_LENGTH,T.NOTCH_WIDTH,T.NOTCH_DEPTH FROM QCM_ZG_JUGDE_APPLY T WHERE 1 = 1
  351. </query>
  352. <query id = "FrmCouplingAppl.doQueryProcess" desc = "查询镦拔扩二级工序">
  353. SELECT T.PROCESS_CODE_C
  354. FROM PLN_ZY_DBK_M T
  355. WHERE 1=1
  356. </query>
  357. <query id = "FrmCouplingAppl.getQueryProcessRcl" desc = "查询热处理二级工序">
  358. SELECT T.PROCESS_CODE_C
  359. FROM PLN_ZY_RCL_M T
  360. WHERE 1=1
  361. </query>
  362. <query id = "FrmCouplingAppl.getQueryProcessJgx" desc = "查询加工线二级工序">
  363. SELECT T.PROCESS_CODE_C
  364. FROM PLN_ZY_JGX_M T
  365. WHERE 1=1
  366. </query>
  367. <query id = "FrmCouplingAppl.doQueryProcessDesc" desc = "查询镦拔扩二级工序">
  368. SELECT T.PROCESS_CODE_C
  369. FROM PLN_ZY_DBK_M T
  370. WHERE 1=1
  371. </query>
  372. <query id = "FrmCouplingAppl.doQueryProcessRclDesc" desc = "查询热处理二级工序">
  373. SELECT T.PROCESS_CODE_C
  374. FROM PLN_ZY_RCL_M T
  375. WHERE 1=1
  376. </query>
  377. <query id = "FrmCouplingAppl.selectMatNo" desc = "查询所有材料号">
  378. SELECT T.MAT_NO
  379. FROM COUPLING_MAT_M T
  380. WHERE T.JUDGE_STOVE_NO = ?
  381. AND T.BELONG_CODE = ?
  382. AND T.BATCH_NO = ?
  383. </query>
  384. <query id = "FrmCouplingAppl.doQueryStorage" desc = "查询存储位置">
  385. SELECT T1.STORAGE_NAME
  386. FROM YDM_BC_BUTTRESS T,YDM_BS_STORAGE T1
  387. WHERE 1 = 1 AND T.STORAGE_NO = T1.STORAGE_NO
  388. </query>
  389. <query id = "FrmCouplingAppl.doQueryBsStorage" desc = "查询存储">
  390. SELECT T.STORAGE_NAME
  391. FROM YDM_BS_STORAGE T
  392. WHERE 1 = 1
  393. </query>
  394. <query id = "FrmCouplingAppl.doQueryTestingGrade" desc = "根据快速检索码查基础信息">
  395. SELECT T.BASENAME,T.BASECODE FROM COM_BASE_INFO T WHERE T.SORTCODE = ?
  396. </query>
  397. <query id = "FrmCouplingAppl.jugdeApplyNo" desc = "申请判定单号">
  398. SELECT '#PLINE_CODE#'||'801401' || TO_CHAR(SYSDATE, 'YYYYMMDD') ||
  399. LPAD(NVL(MAX(SUBSTR(T.JUGDE_APPLY_CODE, 19,5)), 0) + 1, 5, 0)||'1' JUGDE_APPLY_CODE
  400. FROM QCM_ZG_JUGDE_APPLY T
  401. WHERE TRUNC(T.APPLY_TIME) = TRUNC(SYSDATE)
  402. AND T.IS_ALL_SCRAP != '3' AND T.IS_ALL_SCRAP != '4' AND T.JUGDE_APPLY_CODE LIKE '#PLINE_CODE#'||'801401' || '%'
  403. </query>
  404. <query id = "FrmCouplingAppl.getQueryPlnRclM" desc = "查询热处理是否下发">
  405. SELECT NVL(COUNT(*),0) COUNT FROM PLN_ZY_RCL_M WHERE PLANSTATUS NOT IN ('00','10')
  406. </query>
  407. <query id = "FrmCouplingAppl.getQueryPlnJgx" desc = "查询加工线是否下发">
  408. SELECT NVL(COUNT(*),0) COUNT FROM PLN_ZY_JGX_M WHERE PLANSTATUS NOT IN ('00','10')
  409. </query>
  410. <query id = "FrmCouplingAppl.getQueryPlnJg" desc = "查询接箍是否下发">
  411. SELECT NVL(COUNT(*),0) COUNT FROM PLN_ZY_JG_M WHERE PLANSTATUS NOT IN ('00','10')
  412. </query>
  413. <query id = "FrmCouplingAppl.SelectJudegNo" desc = "查询最大序号">
  414. SELECT T.JUGDE_APPLY_CODE
  415. FROM QCM_ZG_JUGDE_APPLY T
  416. WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  417. AND T.PROCESS_CODE = 'H'
  418. AND T.IS_FLAG = '0'
  419. AND T.IS_ALL_SCRAP = '0'
  420. GROUP BY T.JUGDE_APPLY_CODE
  421. </query>
  422. <query id = "FrmCouplingAppl.SelectJudegNoSequenNo" desc = "查询申请判定顺序号">
  423. SELECT NVL(MAX(T.JUGDE_APPLY_SEQUENO),0)+1 JUGDE_APPLY_SEQUENO
  424. FROM QCM_ZG_JUGDE_APPLY T
  425. WHERE T.JUGDE_APPLY_CODE = ?
  426. </query>
  427. <query id = "FrmCouplingAppl.SelectFaceResultPath" desc = "查询表检报告路径">
  428. SELECT S.FACE_RESULT_PATH,S.HEAT_PLAN_NO
  429. FROM VRP_COM_INFO S
  430. WHERE S.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
  431. AND S.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  432. AND S.PLINE_CODE = '#PLINE_CODE#'
  433. AND S.STATION_CODE IN('650106','650404','650504','650604','650704')
  434. </query>
  435. <query id = "FrmCouplingAppl.SelectDeteceResultPath" desc = "查询探伤报告路径">
  436. SELECT MIN(T.REPORT_PATH) REPORT_PATH
  437. FROM HTT_CRACK_DETECTION_PARA T
  438. WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
  439. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  440. AND T.batch_no = TRIM('#BATCH_NO#')
  441. AND T.REPORT_PATH IS NOT NULL
  442. </query>
  443. <query id = "FrmCouplingAppl.QueryCode" desc = "查询申请判定数据刷新">
  444. SELECT SUM(COUNT) COUNT FROM
  445. (SELECT SUM(T.PRO_NUM) COUNT
  446. FROM COUPLING_MAT_M T
  447. WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  448. AND T.WO_ID = '#WO_ID#'
  449. AND T.BATCH_NO = '#BATCH_NO#'
  450. AND T.PLINE_CODE = '#PLINE_CODE#'
  451. AND T.DETER_NO IS NULL
  452. )
  453. </query>
  454. <query id = "FrmCouplingAppl.SelectNodeFlagVrp" desc = "查询结炉状态">
  455. SELECT T.*
  456. FROM PLN_ZY_JG_WORKBILL T
  457. WHERE T.WO_ID = '#WO_ID#'
  458. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  459. AND T.BATCH_NO = '#BATCH_NO#'
  460. </query>
  461. <query id = "FrmCouplingAppl.SelectNodePortEntity" desc = "查询管号队列检验编号">
  462. SELECT T.CHECK_NO
  463. FROM PORT_htt_BATCH_SAMPLE_RESULT T
  464. WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
  465. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  466. AND T.PHY_BATCH_NO = '#BATCH_NO#'
  467. AND T.IS_SAMPLE_PIPE = '1'
  468. GROUP BY T.CHECK_NO
  469. </query>
  470. <query id = "FrmCouplingAppl.QueryVrpPortFailPiece" desc = "查询各实绩废品和">
  471. select NVL(SUM(T.ACT_COUNT), 0) ACT_COUNT
  472. from PORT_HTT_BATCH_SAMPLE_RESULT t
  473. WHERE T.HEAT_PLAN_NO = ?
  474. AND T.JUDGE_STOVE_NO = ?
  475. AND T.PROCESS_SEQ = ?
  476. AND T.MAT_STATUS = '10'
  477. </query>
  478. <query id = "FrmCouplingAppl.insertJugdeApply" desc = "插入申请判定表">
  479. INSERT INTO QCM_ZG_JUGDE_APPLY
  480. (JUGDE_APPLY_CODE,
  481. JUDGE_STOVE_NO,
  482. BATCH_NO,
  483. BATCH_GROUD_NO,
  484. PROCESS_CODE,
  485. PLINE_CODE,
  486. ACT_COUNT,
  487. ACT_WEIGHT,
  488. ACT_THEORY_WEIGHT,
  489. PRO_ORDER_ID,
  490. FACE_RESULT_PATH,
  491. SPEC_RESULT_PATH,
  492. CHEM_RESULT_PATH,
  493. PHY_RESULT_PATH,
  494. DETECT_RESULT_PATH,
  495. WPRESSURE_RESULT_PATH,
  496. PROCESS_RESULT_PATH,
  497. VALIDFLAG,
  498. APPLY_NAME,
  499. APPLY_TIME,
  500. MEMO,
  501. QUALITY_GROUP,
  502. MATERIAL_NO,
  503. MATERIAL_NAME,
  504. PRODUCCODE,
  505. PRODUCNAME,
  506. STEELCODE,
  507. STEELNAME,
  508. GRADECODE,
  509. GRADENAME,
  510. SPEC_CODE,
  511. SPEC_NAME,
  512. MODEL_CODE,
  513. MODEL_DESC,
  514. STD_CODE,
  515. STD_NAME,
  516. STD_STYLE,
  517. STD_STYLE_DESC,
  518. CRAF_NO,
  519. LOT_NO,
  520. PLINE_NAME,
  521. PRO_ORDER_NO,
  522. MAT_GOWHERE_CODE,
  523. MAT_GOWHERE_NAME,
  524. ACT_DIMATER,
  525. ACT_HEIGHT,
  526. ACT_LEN_MIN,
  527. ACT_LEN_MAX,
  528. ORD_LN_DLY_PK,
  529. APPLY_FLAG,
  530. INSTOCK_FLAG,
  531. BELONG_CODE,
  532. BELONG_NAME,
  533. ISENDGX,
  534. ACT_LEN,
  535. BELONG_CODE_JUGDE,
  536. BELONG_NAME_JUGDE,
  537. GX_PLAN_NO,
  538. BAL_YEAR_MONTH,
  539. STOVE_NO,
  540. STEEL_STANDRAD,
  541. PRO_PLAN_ID_NEXT,
  542. GX_PLAN_NO_NEXT,
  543. LK_FLAG,
  544. JUGDE_APPLY_SEQUENO,
  545. TARGET,
  546. CRAFT_SEQ,
  547. INDEX_SEQ,
  548. CIC,
  549. PIC,
  550. SIC,
  551. DIC,
  552. WIC,
  553. GIC,
  554. FACE_RESULT_CODE,
  555. SPEC_RESULT_CODE,
  556. CHEM_RESULT_CODE,
  557. PHY_RESULT_CODE,
  558. DETECT_RESULT_CODE,
  559. WPRESSURE_RESULT_CODE,
  560. PROCESS_RESULT_CODE,
  561. CHECK_NO,
  562. HEAT_PLAN_NO_NEXT,
  563. HEAT_PLAN_NO,
  564. NEXT_PROCESS_CDOE,
  565. DELIVERY_STATE_CODE,
  566. DELIVERY_STATE_NAME,
  567. LOAD_JUDGE_STOVE_NO,
  568. ZP_M_LH,
  569. ZP_COLL,
  570. HTT_TYPE,
  571. MIN_TEMP,
  572. HTT_TECHNOLOGY,
  573. NOTCH_INFO,
  574. NOTCH_LENGTH,
  575. NOTCH_WIDTH,
  576. NOTCH_DEPTH,
  577. LOT_NO_GROUP,
  578. TESTING_GRADE,
  579. TESTING_TYPE,
  580. TEST_PRESSURE,
  581. HOLDTIME_TIME,
  582. TEST_PRESSURE_Y,
  583. MCH_WATERGAGE_RESULT,
  584. MCH_PATH_RESULT,
  585. MCH_CHAMFERING_RESULT,
  586. MCH_TWISTINGLY_RESULT,
  587. MCH_DIMENSIONS_RESULT,
  588. MCH_VISUAL_RESULT,
  589. MCH_THREAD_INSPECTION_RESULT,
  590. MCH_REMANENCE_RESULT,
  591. MCH_RADIOACTIVITY_RESULT,
  592. MCH_BEVEL_RESULT,
  593. ANGLE_VAL,
  594. EDGE_VAL,
  595. INPUT_WEIGHT,
  596. INPUT_COUNT,
  597. OUTPUT_WEIGHT,
  598. OUTPUT_COUNT,
  599. TESTING_STANDAR,
  600. DRIFT_MODEL_MIN,
  601. MEASURED_END_PART,
  602. MEASURED_MIDDLE_PART,
  603. MEASURED_TAIL_PART,
  604. INSTANCY_FLAG)
  605. VALUES
  606. ('#JUGDE_APPLY_CODE#',
  607. '#JUDGE_STOVE_NO#',
  608. '#BATCH_NO#',
  609. '#BATCH_GROUD_NO#',
  610. '#PROCESS_CODE#',
  611. '#PLINE_CODE#',
  612. '#ACT_COUNT#',
  613. '#ACT_WEIGHT#',
  614. '#ACT_THEORY_WEIGHT#',
  615. '#PRO_ORDER_ID#',
  616. '#FACE_RESULT_PATH#',
  617. '#SPEC_RESULT_PATH#',
  618. '#CHEM_RESULT_PATH#',
  619. '#PHY_RESULT_PATH#',
  620. '#DETECT_RESULT_PATH#',
  621. '#WPRESSURE_RESULT_PATH#',
  622. '#PROCESS_RESULT_PATH#',
  623. '#VALIDFLAG#',
  624. '#APPLY_NAME#',
  625. TO_DATE('#APPLY_TIME#', 'YYYY-MM-DD HH24:MI:SS'),
  626. '#MEMO#',
  627. '#QUALITY_GROUP#',
  628. '#MATERIAL_NO#',
  629. '#MATERIAL_NAME#',
  630. '#PRODUCCODE#',
  631. '#PRODUCNAME#',
  632. '#STEELCODE#',
  633. '#STEELNAME#',
  634. '#GRADECODE#',
  635. '#GRADENAME#',
  636. '#SPEC_CODE#',
  637. '#SPEC_NAME#',
  638. '#MODEL_CODE#',
  639. '#MODEL_DESC#',
  640. '#STD_CODE#',
  641. '#STD_NAME#',
  642. '#STD_STYLE#',
  643. '#STD_STYLE_DESC#',
  644. NVL('#CRAF_NO#', '\'),
  645. '#LOT_NO#',
  646. '#PLINE_NAME#',
  647. '#PRO_ORDER_NO#',
  648. NVL('#MAT_GOWHERE_CODE#', '\'),
  649. NVL('#MAT_GOWHERE_NAME#', '\'),
  650. '#ACT_DIMATER#',
  651. '#ACT_HEIGHT#',
  652. '#ACT_LEN_MIN#',
  653. '#ACT_LEN_MAX#',
  654. '#ORD_LN_DLY_PK#',
  655. '#APPLY_FLAG#',
  656. '#INSTOCK_FLAG#',
  657. '#BELONG_CODE#',
  658. '#BELONG_NAME#',
  659. '#ISENDGX#',
  660. '#ACT_LEN#',
  661. '#BELONG_CODE_JUGDE#',
  662. '#BELONG_NAME_JUGDE#',
  663. '#GX_PLAN_NO#',
  664. '',
  665. NVL('#STOVE_NO#', ''),
  666. '#STEEL_STANDRAD#',
  667. '#PRO_PLAN_ID_NEXT#',
  668. '#GX_PLAN_NO_NEXT#',
  669. '#LK_FLAG#',
  670. '#JUGDE_APPLY_SEQUENO#',
  671. '#TARGET#',
  672. '#CRAFT_SEQ#',
  673. '#INDEX_SEQ#',
  674. '#CIC#',
  675. '#PIC#',
  676. '#SIC#',
  677. '#DIC#',
  678. '#WIC#',
  679. '#GIC#',
  680. '#FACE_RESULT_CODE#',
  681. '#SPEC_RESULT_CODE#',
  682. '#CHEM_RESULT_CODE#',
  683. '#PHY_RESULT_CODE#',
  684. '#DETECT_RESULT_CODE#',
  685. '#WPRESSURE_RESULT_CODE#',
  686. '#PROCESS_RESULT_CODE#',
  687. '#CHECK_NO#',
  688. '#HEAT_PLAN_NO_NEXT#',
  689. '#HEAT_PLAN_NO#',
  690. '#NEXT_PROCESS_CDOE#',
  691. '#DELIVERY_STATE_CODE#',
  692. '#DELIVERY_STATE_NAME#',
  693. '#LOAD_JUDGE_STOVE_NO#',
  694. '#ZP_M_LH#',
  695. '#ZP_COLL#',
  696. '#HTT_TYPE#',
  697. '#MIN_TEMP#',
  698. '#HTT_TECHNOLOGY#',
  699. '#NOTCH_INFO#',
  700. '#NOTCH_LENGTH#',
  701. '#NOTCH_WIDTH#',
  702. '#NOTCH_DEPTH#',
  703. '#LOT_NO_GROUP#',
  704. '#TESTING_GRADE#',
  705. '#TESTING_TYPE#',
  706. '#TEST_PRESSURE#',
  707. '#HOLDTIME_TIME#',
  708. '#TEST_PRESSURE_Y#',
  709. '#MCH_WATERGAGE_RESULT#',
  710. '#MCH_PATH_RESULT#',
  711. '#MCH_CHAMFERING_RESULT#',
  712. '#MCH_TWISTINGLY_RESULT#',
  713. '#MCH_DIMENSIONS_RESULT#',
  714. '#MCH_VISUAL_RESULT#',
  715. '#MCH_THREAD_INSPECTION_RESULT#',
  716. '#MCH_REMANENCE_RESULT#',
  717. '#MCH_RADIOACTIVITY_RESULT#',
  718. '#MCH_BEVEL_RESULT#',
  719. '#ANGLE_VAL#',
  720. '#EDGE_VAL#',
  721. '#INPUT_WEIGHT#',
  722. '#INPUT_COUNT#',
  723. '#OUTPUT_WEIGHT#',
  724. '#OUTPUT_COUNT#',
  725. '#TESTING_STANDAR#',
  726. '#DRIFT_MODEL_MIN#',
  727. '#MEASURED_END_PART#',
  728. '#MEASURED_MIDDLE_PART#',
  729. '#MEASURED_TAIL_PART#',
  730. '1')
  731. </query>
  732. <query id = "FrmCouplingAppl.updateMatBcJugdeApplyCode" desc = "修改库存申请判定单号">
  733. DECLARE
  734. BEGIN
  735. FOR MYROW IN (SELECT T.MAT_NO, T.PLINE_CODE
  736. FROM COUPLING_MAT_M T
  737. WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  738. AND T.BATCH_NO = '#BATCH_NO#'
  739. AND T.PLINE_CODE = '#PLINE_CODE#'
  740. --AND T.PRO_ORDER_ID = '#PRO_ORDER_ID#'
  741. --AND T.GX_PLAN_NO = '#GX_PLAN_NO#'
  742. --AND T.QCM_STAUS = '00'
  743. AND T.DETER_NO IS NULL
  744. ORDER BY MAT_NO ASC) LOOP
  745. UPDATE COUPLING_MAT_M T
  746. SET T.DETER_NO = '#JUGDE_APPLY_CODE#',
  747. T.DETER_NO_SEQ = '#JUGDE_APPLY_SEQUENO#',
  748. T.INSTANCY_FLAG = '1',
  749. T.DETER_STATUS = '1'
  750. -- T.JUGDE_APPLY_TIME = TO_DATE('#APPLY_TIME#','YYYY-MM-DD HH24:MI:SS')
  751. WHERE T.MAT_NO = MYROW.MAT_NO
  752. AND T.QCM_STAUS = '00'
  753. AND T.PLINE_CODE = MYROW.PLINE_CODE;
  754. UPDATE coupling_phosphate_result T
  755. SET T.DETER_NO = '#JUGDE_APPLY_CODE#',
  756. T.DETER_NO_SEQ = '#JUGDE_APPLY_SEQUENO#',
  757. T.DETER_STATUS = '1'
  758. WHERE T.Wo_Id = '#PRO_ORDER_ID#'
  759. AND T.PLINE_CODE = MYROW.PLINE_CODE;
  760. END LOOP;
  761. END;
  762. </query>
  763. <query id = "FrmCouplingAppl.SelectPlineBelong" desc = "获取现有产线所属权">
  764. SELECT S.DEPARTMENT_CODE FROM COM_BASE_PLINE S WHERE S.PLINE_CODE = '#PLINE_CODE#'
  765. </query>
  766. <query id = "FrmCouplingAppl.SelectOrderInfo" desc = "查询midd合同信息">
  767. SELECT T.ORDER_NO || '/' || T.ORDER_SEQ PRO_ORDER_NO,T.ORD_LN_DLY_PK FROM PLN_ZY_JG_MIDDLE T WHERE T.MAT_NO='#MAT_NO#'
  768. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#' AND T.BATCH_NO = '#BATCH_NO#'
  769. </query>
  770. <query id = "FrmCouplingAppl.updateMatBcButter" desc = "修改储存库位">
  771. UPDATE YDM_BC_BUTTRESS T
  772. SET T.STORAGE_NO = (SELECT T1.STORAGE_NO FROM YDM_BS_STORAGE T1 WHERE T1.STORAGE_NAME = '#STORAGE_NAME#')
  773. WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  774. AND T.BATCH_NO = '#BATCH_NO#'
  775. </query>
  776. <query id = "FrmCouplingAppl.updatePlnZyJgMiddleWork" desc = "修改计划工单状态">
  777. UPDATE PLN_ZY_JG_WORKBILL T SET T.ZY_BILL_STATUS = '3' WHERE T.WO_ID = '#WO_ID#'
  778. </query>
  779. <query id = "FrmCouplingAppl.updatePlnZyJgMiddleCancel" desc = "修改计划工单状态">
  780. UPDATE PLN_ZY_JG_WORKBILL T SET T.ZY_BILL_STATUS = '2' WHERE T.WO_ID = '#WO_ID#'
  781. </query>
  782. <query id = "FrmCouplingAppl.doQueryHttType" desc = "获取热处理类型">
  783. select T.SORT_CODE
  784. from COM_BASE_PROCESS_C t
  785. WHERE T.PROCESS_CDOE_C = (select T1.PROCESS_CODE_C
  786. from PLN_ZY_RCL_M T1
  787. where 1 =1
  788. </query>
  789. <query id = "FrmCouplingAppl.doQueryHttTemp" desc = "获取热处理温度工艺制度">
  790. SELECT
  791. case
  792. when t.LOW_TEMP is null
  793. then ''
  794. else MAX(T.LOW_TEMP) || '℃' end LHEAT_EXIT_TEMP,
  795. case
  796. when T.LHEAT_EXIT_TEMP is null and t1.HHEAT_EXIT_TEMP is not null
  797. then T1.HHEAT_EXIT_TEMP || '℃' || '×' || T1.TOTAL_TIME || 'min'
  798. when T1.HHEAT_EXIT_TEMP is null and t.LHEAT_EXIT_TEMP is not null
  799. then T.LHEAT_EXIT_TEMP || '℃' || '×' || T.TOTAL_TIME || 'min'
  800. when T.LHEAT_EXIT_TEMP is null and T1.HHEAT_EXIT_TEMP is null
  801. then ''
  802. else T1.HHEAT_EXIT_TEMP || '℃' || '×' || T1.TOTAL_TIME || 'min' || '+' ||T.LHEAT_EXIT_TEMP || '℃' || '×' || T.TOTAL_TIME || 'min' end HEAT_EXIT_TEMP,
  803. MAX(T.CREATE_TIME),MAX(T1.CREATE_TIME)
  804. FROM HTT_LHEAT_RESULT T,HTT_HHEAT_RESULT T1
  805. WHERE T.HEAT_PLAN_NO = T1.HEAT_PLAN_NO
  806. AND T.PLINE_CODE = T1.PLINE_CODE
  807. AND T1.CREATE_TIME = (SELECT MAX(T2.CREATE_TIME) FROM HTT_HHEAT_RESULT T2 WHERE #HEAT_PLAN_NO# and #PLINE_CODE#)
  808. AND #LHEAT_PLAN_NO#
  809. and #LPLINE_CODE#
  810. GROUP BY T.LHEAT_EXIT_TEMP,t1.total_time,t.total_time,t.LOW_TEMP,
  811. T1.HHEAT_EXIT_TEMP
  812. </query>
  813. <query id = "FrmCouplingAppl.doQueryHttTempTech" desc = "获取热处理温度工艺制度">
  814. SELECT T.MIN_TEMP,T.HTT_TECHNOLOGY FROM qcm_zg_jugde_apply T WHERE 1 =1 AND #LHEAT_PLAN_NO# AND #LPLINE_CODE#
  815. </query>
  816. <query id = "FrmCouplingAppl.SelectZgJudgeNoE" desc = "查询组炉号">
  817. SELECT T.GROUP_ID,
  818. CASE
  819. WHEN T.ZP_BATCH_NO IS NULL
  820. THEN T.ZP_JUDGE_STOVE_NO
  821. ELSE T.ZP_JUDGE_STOVE_NO || '+' || T.ZP_BATCH_NO END ZP_M_LH
  822. FROM VRP_OFFLINE_RESULT T WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#' AND T.GROUP_LOG = '1'
  823. </query>
  824. <query id = "FrmCouplingAppl.SelectJudgeNoE" desc = "查询组炉前炉号">
  825. SELECT
  826. LISTAGG(DECODE(T.BATCH_NO,
  827. '',T.JUDGE_STOVE_NO,T.JUDGE_STOVE_NO || '+' || T.BATCH_NO), ',') WITHIN GROUP(ORDER BY T.BATCH_NO) ZP_COLL
  828. FROM VRP_GROUP_RESULT T WHERE T.GROUP_ID = ?
  829. </query>
  830. <query id = "FrmCouplingAppl.SelectZgJudgeNoF" desc = "查询组炉号">
  831. SELECT T.GROUP_ID,
  832. CASE
  833. WHEN T.ZP_BATCH_NO IS NULL
  834. THEN T.ZP_JUDGE_STOVE_NO
  835. ELSE T.ZP_JUDGE_STOVE_NO || '+' || T.ZP_BATCH_NO END ZP_M_LH
  836. FROM HTT_OFFLINE_RESULT T WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#' AND T.GROUP_LOG = '1'
  837. </query>
  838. <query id = "FrmCouplingAppl.SelectJudgeNoF" desc = "查询组炉前炉号">
  839. SELECT
  840. LISTAGG(DECODE(T.BATCH_NO,
  841. '',T.JUDGE_STOVE_NO,T.JUDGE_STOVE_NO || '+' || T.BATCH_NO), ',') WITHIN GROUP(ORDER BY T.BATCH_NO) ZP_COLL
  842. FROM HTT_GROUP_RESULT T WHERE T.GROUP_ID = ?
  843. </query>
  844. <query id = "FrmCouplingAppl.SelectZgJudgeNoG" desc = "查询组炉号">
  845. SELECT T.GROUP_ID,
  846. CASE
  847. WHEN T.ZP_BATCH_NO IS NULL
  848. THEN T.ZP_JUDGE_STOVE_NO
  849. ELSE T.ZP_JUDGE_STOVE_NO || '+' || T.ZP_BATCH_NO END ZP_M_LH
  850. FROM MCH_OFFLINE_RESULT T WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#' AND T.GROUP_LOG = '1'
  851. </query>
  852. <query id = "FrmCouplingAppl.SelectJudgeNoG" desc = "查询组炉前炉号">
  853. SELECT
  854. LISTAGG(DECODE(T.BATCH_NO,
  855. '',T.JUDGE_STOVE_NO,T.JUDGE_STOVE_NO || '+' || T.BATCH_NO), ',') WITHIN GROUP(ORDER BY T.BATCH_NO) ZP_COLL
  856. FROM MCH_GROUP_RESULT T WHERE T.GROUP_ID = ?
  857. </query>
  858. <query id = "FrmCouplingAppl.SelectGroupResultE" desc = "查询组炉号">
  859. SELECT
  860. CASE
  861. WHEN T.ZP_BATCH_NO IS NULL
  862. THEN T.ZP_JUDGE_STOVE_NO
  863. ELSE T.ZP_JUDGE_STOVE_NO || '+' || T.ZP_BATCH_NO END ZP_M_LH,
  864. CASE
  865. WHEN T.BATCH_NO IS NULL
  866. THEN LISTAGG(T.JUDGE_STOVE_NO, ',') WITHIN GROUP(ORDER BY T.JUDGE_STOVE_NO || T.BATCH_NO)
  867. ELSE LISTAGG(T.JUDGE_STOVE_NO || '+' || T.BATCH_NO, ',') WITHIN GROUP(ORDER BY T.JUDGE_STOVE_NO || T.BATCH_NO) END ZP_COLL
  868. FROM VRP_GROUP_RESULT T
  869. WHERE T.ZP_JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  870. GROUP BY T.ZP_JUDGE_STOVE_NO, T.ZP_BATCH_NO,T.BATCH_NO
  871. </query>
  872. <query id = "FrmCouplingAppl.SelectGroupResultF" desc = "查询组炉号">
  873. SELECT
  874. CASE
  875. WHEN T.ZP_BATCH_NO IS NULL
  876. THEN T.ZP_JUDGE_STOVE_NO
  877. ELSE T.ZP_JUDGE_STOVE_NO || '+' || T.ZP_BATCH_NO END ZP_M_LH,
  878. CASE
  879. WHEN T.BATCH_NO IS NULL
  880. THEN LISTAGG(T.JUDGE_STOVE_NO, ',') WITHIN GROUP(ORDER BY T.JUDGE_STOVE_NO || T.BATCH_NO)
  881. ELSE LISTAGG(T.JUDGE_STOVE_NO || '+' || T.BATCH_NO, ',') WITHIN GROUP(ORDER BY T.JUDGE_STOVE_NO || T.BATCH_NO) END ZP_COLL
  882. FROM HTT_GROUP_RESULT T
  883. WHERE T.ZP_JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  884. GROUP BY T.ZP_JUDGE_STOVE_NO, T.ZP_BATCH_NO,T.BATCH_NO
  885. </query>
  886. <query id = "FrmCouplingAppl.SelectGroupResultG" desc = "查询组炉号">
  887. SELECT
  888. CASE
  889. WHEN T.ZP_BATCH_NO IS NULL
  890. THEN T.ZP_JUDGE_STOVE_NO
  891. ELSE T.ZP_JUDGE_STOVE_NO || '+' || T.ZP_BATCH_NO END ZP_M_LH,
  892. CASE
  893. WHEN T.BATCH_NO IS NULL
  894. THEN LISTAGG(T.JUDGE_STOVE_NO, ',') WITHIN GROUP(ORDER BY T.JUDGE_STOVE_NO || T.BATCH_NO)
  895. ELSE LISTAGG(T.JUDGE_STOVE_NO || '+' || T.BATCH_NO, ',') WITHIN GROUP(ORDER BY T.JUDGE_STOVE_NO || T.BATCH_NO) END ZP_COLL
  896. FROM MCH_GROUP_RESULT T
  897. WHERE T.ZP_JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  898. GROUP BY T.ZP_JUDGE_STOVE_NO, T.ZP_BATCH_NO,T.BATCH_NO
  899. </query>
  900. <query id = "FrmCouplingAppl.SelectCraftNo" desc = "查找工艺文件号">
  901. SELECT T.CRAFT_SEQ, T.CRAFT_FILE_NO,T.INDEX_SEQ
  902. FROM PLN_ZY_JG_WORKBILL T
  903. WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  904. AND T.WO_ID = '#WO_ID#'
  905. </query>
  906. <query id = "FrmCouplingAppl.SelectDemand" desc = "查找要求">
  907. SELECT T.DEMAND_COPPER,T.DEMAND_DETECTION,T.DEMAND_BLAST,T.DEMAND_BONDERIZING FROM PLN_ZY_JG_WORKBILL T
  908. WHERE T.WO_ID = ?
  909. </query>
  910. <query id = "FrmCouplingAppl.SelectDemandYayin" desc = "查找压印喷标">
  911. SELECT NVL(T.EMB_COUNT,0) EMB_COUNT FROM coupling_cut_result T WHERE T.WO_ID = ?
  912. </query>
  913. <query id = "FrmCouplingAppl.SelectDemandPen" desc = "查找喷标">
  914. SELECT NVL(T.COL_COUNT,0) COL_COUNT,NVL(T.SPRAY_COUNT, 0) SPRAY_COUNT
  915. FROM COUPLING_PHOSPHATE_RESULT T
  916. WHERE T.WO_ID = ?
  917. </query>
  918. <query id = "FrmCouplingAppl.SelectDemandTan" desc = "查找探伤">
  919. SELECT NVL(T.INSPECT_PIECES, 0) INSPECT_PIECES
  920. FROM COUPLING_INSPECTION_RESULT T
  921. WHERE T.WO_ID = ?
  922. </query>
  923. <query id = "FrmCouplingAppl.SelectDemandSha" desc = "查找喷砂">
  924. SELECT NVL(T.SPRAY_COUNT, 0) SPRAY_COUNT
  925. FROM COUPLING_SANDBLAST_RESULT T
  926. WHERE T.WO_ID = ?
  927. </query>
  928. <query id = "FrmCouplingAppl.SelectCraftNoRcl" desc = "查找工艺文件号">
  929. SELECT T.CRAFT_SEQ, T.CRAFT_FILE_NO,T.INDEX_SEQ
  930. FROM PLN_ZY_RCL_M T
  931. WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
  932. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  933. </query>
  934. <query id = "FrmCouplingAppl.SelectCrackType" desc = "查找探伤类型">
  935. SELECT REPLACE(DBMS_LOB.SUBSTR(WMSYS.WM_CONCAT(DISTINCT DECODE(REPORT_NO,
  936. '4',
  937. 'ET',
  938. 'UT')),
  939. 400),
  940. ',',
  941. '+') TESTING_TYPE
  942. FROM HTT_CRACK_DETECTION_PARA
  943. WHERE HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
  944. AND BATCH_NO = '#BATCH_NO#'
  945. </query>
  946. <query id = "FrmCouplingAppl.SelectCrackGade" desc = "查找探伤类型">
  947. SELECT REPLACE(DBMS_LOB.SUBSTR(WMSYS.WM_CONCAT(DISTINCT TESTING_GRAGE),
  948. 400),
  949. ',',
  950. '+') TESTING_GRAGE
  951. FROM (SELECT LONGITUDINAL_EXTERNAL TESTING_GRAGE
  952. FROM HTT_CRACK_DETECTION_PARA
  953. WHERE HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
  954. AND BATCH_NO = '#BATCH_NO#'
  955. AND LONGITUDINAL_EXTERNAL IS NOT NULL
  956. AND LONGITUDINAL_EXTERNAL != '/'
  957. UNION
  958. SELECT ACCPETANCE_LEVEL TESTING_GRAGE
  959. FROM HTT_CRACK_DETECTION_PARA
  960. WHERE HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
  961. AND BATCH_NO = '#BATCH_NO#'
  962. AND ACCPETANCE_LEVEL IS NOT NULL
  963. AND ACCPETANCE_LEVEL != '/')
  964. </query>
  965. <query id = "FrmCouplingAppl.SelectQcmZcCheck" desc = "查找是否有重新热处理">
  966. SELECT COUNT(*) COUNT
  967. FROM QCM_ZC_CHECKCONSIGN T
  968. WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  969. AND T.BATCH_NO = '#BATCH_NO#'
  970. AND T.PROCESS_CODE = 'F'
  971. AND T.CYCLES_FLAG = '1'
  972. </query>
  973. <query id = "FrmCouplingAppl.SelectCraftNoJgx" desc = "查找工艺文件号">
  974. SELECT T.CRAFT_SEQ, T.CRAFT_FILE_NO,T.INDEX_SEQ
  975. FROM PLN_ZY_JGX_M T
  976. WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
  977. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  978. </query>
  979. <query id = "FrmCouplingAppl.SelectDesignKey" desc = "查找designKey">
  980. SELECT T.DESGIN_KEY
  981. FROM CRAFT_ORD_DESIGN T
  982. WHERE T.CRAFT_NO = ?
  983. AND T.CRAFT_SEQ = ?
  984. </query>
  985. <query id = "FrmCouplingAppl.QueryVrpPortPiece" desc = "查询各实绩废品和">
  986. select NVL(SUM(T.ACT_COUNT), 0) ACT_COUNT
  987. from PORT_HTT_BATCH_SAMPLE_RESULT t
  988. WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
  989. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  990. AND ((T.MAT_STATUS = '00' and t.instore_flag='0')
  991. or t.mat_status = '20')
  992. </query>
  993. <query id = "FrmCouplingAppl.SelectBaseCode" desc = "查找交货状态">
  994. SELECT T.BASECODE, T.BASENAME
  995. FROM COM_BASE_INFO T
  996. WHERE T.BASECODE = (SELECT GET_DELIVERY_STATE(?,
  997. ?) SORTCODE
  998. FROM DUAL)
  999. AND T.SORTCODE='4100'
  1000. </query>
  1001. <query id = "FrmCouplingAppl.SelectBaseCode1" desc = "查找交货状态">
  1002. SELECT T.BASECODE, T.BASENAME
  1003. FROM COM_BASE_INFO T
  1004. WHERE T.BASECODE = (SELECT GET_SHIPPED_STATE(?,?,?) SORTCODE
  1005. FROM DUAL)
  1006. AND T.SORTCODE='4100'
  1007. </query>
  1008. <query id = "FrmCouplingAppl.SelectOrderSlaOrg" desc= "查询合同所属部门">
  1009. SELECT S.SALE_ORG, S.SALE_ORG_DESC
  1010. FROM SLM_ORDER_HEAD S,SLM_ORDER_LINE S1,pln_zy_jg_middle T1
  1011. WHERE S.ORD_PK = S1.ORD_PK
  1012. AND S.ORDER_NO ||'/'||S1.ORDER_SEQ = t1.ORDER_NO || '/' || t1.order_seq
  1013. AND T1.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  1014. AND T1.PLINE_CODE = '#PLINE_CODE#'
  1015. AND ROWNUM = 1
  1016. </query>
  1017. <query id = "FrmCouplingAppl.SelectNextPlineBelong" desc = "查询下工序产线部门">
  1018. SELECT P.DEPARTMENT_CODE,P.DEPARTMENT_DESC
  1019. FROM (SELECT S.ORD_LN_DLY_PK, S.PLN_DIVIDE_ID
  1020. FROM PLN_ZY_DBK_M T, PLN_ORDER_DBK_S S
  1021. WHERE T.PRO_PLAN_ID = S.PRO_PLAN_ID
  1022. AND T.GX_PLAN_NO = S.GX_PLAN_NO
  1023. AND T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
  1024. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#') E,
  1025. #PLAN# F,
  1026. COM_BASE_PLINE P
  1027. WHERE E.ORD_LN_DLY_PK = F.ORD_LN_DLY_PK
  1028. AND E.PLN_DIVIDE_ID = F.PLN_DIVIDE_ID
  1029. AND F.PLINE_CODE = P.PLINE_CODE
  1030. AND ROWNUM = 1
  1031. </query>
  1032. <query id = "FrmCouplingAppl.SelectValueFlag" desc = "查询判定状态">
  1033. SELECT T.VALIDFLAG,T.INSTOCK_FLAG
  1034. FROM QCM_ZG_JUGDE_APPLY T
  1035. WHERE T.JUGDE_APPLY_CODE = '#JUGDE_APPLY_CODE#'
  1036. AND T.JUGDE_APPLY_SEQUENO = '#JUGDE_APPLY_SEQUENO#'
  1037. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  1038. AND T.BATCH_NO = '#BATCH_NO#'
  1039. AND T.BATCH_GROUD_NO = '#BATCH_GROUD_NO#'
  1040. AND T.PLINE_CODE = '#PLINE_CODE#'
  1041. AND T.IS_ALL_SCRAP = '0'
  1042. </query>
  1043. <query id = "FrmCouplingAppl.SelectValueFlagData" desc = "查询判定状态">
  1044. SELECT T.VALIDFLAG,T.INSTOCK_FLAG
  1045. FROM QCM_ZG_JUGDE_APPLY T
  1046. WHERE T.IS_ALL_SCRAP = '0'
  1047. </query>
  1048. <query id = "FrmCouplingAppl.deleteQcmJudgeApply" desc = "撤销申请判定">
  1049. DECLARE
  1050. V_APPLY_FLAG QCM_ZG_JUGDE_APPLY.APPLY_FLAG%TYPE := NULL;
  1051. BEGIN
  1052. SELECT T.APPLY_FLAG
  1053. INTO V_APPLY_FLAG
  1054. FROM QCM_ZG_JUGDE_APPLY T
  1055. WHERE T.JUGDE_APPLY_CODE = '#DETER_NO#'
  1056. AND T.JUGDE_APPLY_SEQUENO = '#DETER_NO_SEQ#'
  1057. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  1058. AND T.BATCH_NO = '#BATCH_NO#'
  1059. AND T.BATCH_GROUD_NO = '001'
  1060. AND T.PLINE_CODE = '#PLINE_CODE#'
  1061. AND T.IS_ALL_SCRAP = '0';
  1062. FOR MYROW IN (SELECT *
  1063. FROM COUPLING_MAT_M T
  1064. WHERE T.DETER_NO = '#DETER_NO#'
  1065. AND T.DETER_NO_SEQ = '#DETER_NO_SEQ#'
  1066. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  1067. AND T.BATCH_NO = '#BATCH_NO#'
  1068. AND T.PLINE_CODE = '#PLINE_CODE#'
  1069. ) LOOP
  1070. UPDATE COUPLING_MAT_M S
  1071. SET S.DETER_NO = '',S.DETER_NO_SEQ = '',S.DETER_STATUS = '0'
  1072. WHERE S.MAT_NO = MYROW.MAT_NO
  1073. AND S.PLINE_CODE = MYROW.PLINE_CODE;
  1074. UPDATE coupling_phosphate_result S
  1075. SET S.DETER_NO = '',S.DETER_NO_SEQ = '',S.DETER_STATUS = '0'
  1076. WHERE S.WO_ID = '#WO_ID#'
  1077. AND S.PLINE_CODE = MYROW.PLINE_CODE;
  1078. DELETE FROM MAT_BC_QCMTRACK S
  1079. WHERE S.MAT_NO = MYROW.MAT_NO
  1080. AND S.PROCESS_CDOE = 'H';
  1081. END LOOP;
  1082. IF (V_APPLY_FLAG = '1') THEN
  1083. UPDATE QCM_ZG_JUGDE_APPLY T
  1084. SET T.IS_FLAG = '1'
  1085. WHERE T.JUGDE_APPLY_CODE = '#DETER_NO#'
  1086. AND T.JUGDE_APPLY_SEQUENO = '#DETER_NO_SEQ#'
  1087. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  1088. AND T.BATCH_NO = '#BATCH_NO#'
  1089. AND T.BATCH_GROUD_NO = '001'
  1090. AND T.PLINE_CODE = '#PLINE_CODE#';
  1091. ELSE
  1092. DELETE FROM QCM_ZG_JUGDE_APPLY S
  1093. WHERE S.JUGDE_APPLY_CODE ='#DETER_NO#'
  1094. AND S.JUGDE_APPLY_SEQUENO = '#DETER_NO_SEQ#'
  1095. AND S.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  1096. AND S.BATCH_NO = '#BATCH_NO#'
  1097. AND S.BATCH_GROUD_NO = '001'
  1098. AND S.PLINE_CODE = '#PLINE_CODE#';
  1099. END IF;
  1100. END;
  1101. </query>
  1102. <query id = "FrmCouplingAppl.insertMatQcmBack" desc = "插入质量跟踪表">
  1103. DECLARE
  1104. BEGIN
  1105. FOR MYROW IN (SELECT *
  1106. FROM COUPLING_MAT_M T
  1107. WHERE T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  1108. AND T.BATCH_NO = '#BATCH_NO#'
  1109. AND T.PLINE_CODE = '#PLINE_CODE#'
  1110. AND T.DETER_NO = '#JUGDE_APPLY_CODE#'
  1111. AND T.DETER_NO_SEQ = '#JUGDE_APPLY_SEQUENO#'
  1112. ) LOOP
  1113. INSERT INTO MAT_BC_QCMTRACK
  1114. (MAT_NO,
  1115. PROCESS_CDOE,
  1116. STOVE_NO,
  1117. JUDGE_STOVE_NO,
  1118. BATCH_NO,
  1119. GRADECODE,
  1120. GRADENAME,
  1121. MATERIAL_NO,
  1122. MATERIAL_NAME,
  1123. JUGDE_APPLY_CODE,
  1124. JUGDE_APPLY_TIME,
  1125. JUGDE_APPLY_MAKER)
  1126. VALUES
  1127. (MYROW.MAT_NO,
  1128. 'H',
  1129. '',
  1130. MYROW.JUDGE_STOVE_NO,
  1131. MYROW.BATCH_NO,
  1132. MYROW.GRADECODE,
  1133. MYROW.GRADENAME,
  1134. MYROW.BL_WL_ID,
  1135. MYROW.BL_WL_DESC,
  1136. '#JUGDE_APPLY_CODE#',
  1137. TO_DATE('#APPLY_TIME#','YYYY-MM-DD HH24:MI:SS'),
  1138. '#APPLY_NAME#');
  1139. END LOOP;
  1140. END;
  1141. </query>
  1142. <query id = "FrmCouplingAppl.SelectIsWic" desc = "查询是否有水压要求">
  1143. SELECT COUNT(1) ACOUNT
  1144. FROM CRAFT_ORD_DESIGN_MSC_PL_PRC T, CRAFT_ORD_DESIGN_STD_WIC W
  1145. WHERE T.DESGIN_KEY = W.DESGIN_KEY
  1146. AND T.MSC_PLINE = W.MSC_PLINE
  1147. and t.PROCESS_CODE = W.PROCESS_CODE
  1148. AND W.SPECL_FL = '2'
  1149. AND T.PROCESS_CODE = ?
  1150. AND T.DESGIN_KEY = ?
  1151. </query>
  1152. <query id = "FrmCouplingAppl.doQueryWicValue" desc = "查询水压">
  1153. select t.*
  1154. from MCH_WATERGAGE_RESULT t
  1155. WHERE T.HEAT_PLAN_NO = ?
  1156. AND T.JUDGE_STOVE_NO = ?
  1157. </query>
  1158. <query id = "FrmCouplingAppl.doQueryMchPathResult" desc = "查询加工通径结果">
  1159. select MAX(T.DRIFT_MODEL_MIN) DRIFT_MODEL_MIN,
  1160. MIN(T2.MEASURED_END_PART) MEASURED_END_PART,
  1161. MIN(T2.MEASURED_MIDDLE_PART) MEASURED_MIDDLE_PART,
  1162. MIN(T2.MEASURED_TAIL_PART) MEASURED_TAIL_PART
  1163. from MCH_PATH_RESULT t, MCH_PATH_RESULT_D T2
  1164. WHERE T.HEAT_PLAN_NO = T2.HEAT_PLAN_NO(+)
  1165. AND T.HEAT_PLAN_NO = ?
  1166. AND T.JUDGE_STOVE_NO = ?
  1167. </query>
  1168. <query id = "FrmCouplingAppl.doQueryMchChamferingResult" desc = "查询加工倒棱结果">
  1169. select t.*
  1170. from MCH_CHAMFERING_RESULT t
  1171. WHERE T.HEAT_PLAN_NO = ?
  1172. AND T.JUDGE_STOVE_NO = ?
  1173. </query>
  1174. <query id = "FrmCouplingAppl.doQueryMchTwistinglyResult" desc = "查询加工拧接结果">
  1175. select t.*
  1176. from MCH_TWISTINGLY_RESULT t
  1177. WHERE T.HEAT_PLAN_NO = ?
  1178. AND T.JUDGE_STOVE_NO = ?
  1179. </query>
  1180. <query id = "FrmCouplingAppl.doQueryHttCrackDetectionEt" desc = "查询探伤结果">
  1181. <![CDATA[
  1182. SELECT listagg(TESTING_GRADE, ',') within GROUP(order by TESTING_GRADE) over(partition by '') TESTING_GRADE,
  1183. listagg(TESTING_TYPE, ',') within GROUP(order by TESTING_GRADE) over(partition by '') TESTING_TYPE
  1184. FROM (select DISTINCT T.TESTING_GRADE, T.TESTING_TYPE
  1185. from HTT_CRACK_DETECTION_ET t
  1186. WHERE T.HEAT_PLAN_NO = ?
  1187. AND T.JUDGE_STOVE_NO = ?
  1188. AND T.PROCESS_CODE = ?)
  1189. ]]>
  1190. </query>
  1191. <query id = "FrmCouplingAppl.SelectQcmZgData" desc = "查询送判表支数">
  1192. SELECT SUM(T.ACT_COUNT) ACT_COUNT
  1193. FROM QCM_ZG_JUGDE_APPLY T
  1194. WHERE T.JUDGE_STOVE_NO = ?
  1195. AND T.PLINE_CODE = ?
  1196. AND T.PROCESS_CODE = 'F'
  1197. </query>
  1198. <query id = "FrmCouplingAppl.SelectTestingStandar" desc = "查询探伤标准">
  1199. <![CDATA[
  1200. SELECT WMSYS.WM_CONCAT(DISTINCT T2.STANDARD_NAME) TESTING_STANDAR
  1201. FROM HTT_CRACK_DETECTION_PARA T1, HTT_CRACK_DETECTION_STANDARD T2
  1202. WHERE T1.STANDARD_ID = T2.STANDARD_ID
  1203. AND T1.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
  1204. ]]>
  1205. </query>
  1206. <query id = "FrmCouplingAppl.SelectInputCountVrp" desc = "查询镦拔扩投料量">
  1207. <![CDATA[
  1208. select SUM(T.ACT_COUNT) ACT_COUNT,
  1209. SUM(NVL(T.ACT_THEORY_WEIGHT, T.ACT_WEIGHT)) ACT_WEIGHT
  1210. from PORT_VRP_BATCH_SAMPLE_RESULT t
  1211. WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
  1212. ]]>
  1213. </query>
  1214. <query id = "FrmCouplingAppl.SelectInputCountHtt" desc = "查询热处理投料量">
  1215. <![CDATA[
  1216. select SUM(T.ACT_COUNT) ACT_COUNT,
  1217. SUM(NVL(T.ACT_THEORY_WEIGHT, T.ACT_WEIGHT)) ACT_WEIGHT
  1218. from PORT_HTT_BATCH_SAMPLE_RESULT t
  1219. WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
  1220. ]]>
  1221. </query>
  1222. <query id = "FrmCouplingAppl.SelectInputCountMch" desc = "查询加工投料量">
  1223. <![CDATA[
  1224. select SUM(T.ACT_COUNT) ACT_COUNT,
  1225. SUM(NVL(T.ACT_THEORY_WEIGHT, T.ACT_WEIGHT)) ACT_WEIGHT
  1226. from PORT_MCH_BATCH_SAMPLE_RESULT t
  1227. WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
  1228. ]]>
  1229. </query>
  1230. <query id = "FrmCouplingAppl.doQueryQcmZgApplyData" desc = "查询加工线前紧急放行数据">
  1231. <![CDATA[
  1232. SELECT T.*
  1233. FROM QCM_ZG_JUGDE_APPLY T
  1234. WHERE T.INSTANCY_FLAG = '1'
  1235. AND (T.JUDGE_RESULT is null OR T.JUDGE_RESULT = '不合格' OR T.JUDGE_RESULT_CODE = '40740709')
  1236. ]]>
  1237. </query>
  1238. <query id = "FrmCouplingAppl.SelectJudegApplyCount" desc = "查询是否已送判定过">
  1239. SELECT COUNT(1) ACOUNT
  1240. FROM QCM_ZG_JUGDE_APPLY T
  1241. WHERE T.JUDGE_STOVE_NO = ?
  1242. AND T.PROCESS_CODE = ?
  1243. AND T.IS_FLAG = '0'
  1244. AND T.IS_ALL_SCRAP IN ('0', '1')
  1245. </query>
  1246. <query id="FrmCouplingAppl.SelectJgStuts" desc="查询公共表结炉状态">
  1247. <![CDATA[
  1248. SELECT T.STATION_STATUS, T.STATION_DESC
  1249. FROM COUPLING_COM_INFO T
  1250. WHERE T.WO_ID = ?
  1251. AND T.STATION_CODE = '700310'
  1252. ]]>
  1253. </query>
  1254. <query id = "FrmCouplingAppl.SelectIsGroupE" desc = "查询炉计划标识">
  1255. SELECT T.IF_MATCH_ODD FROM PLN_ZY_DBK_M T WHERE T.HEAT_PLAN_NO = ? AND T.JUDGE_STOVE_NO = ?
  1256. </query>
  1257. <query id = "FrmCouplingAppl.SelectIsGroupF" desc = "查询炉计划标识">
  1258. SELECT T.IF_MATCH_ODD FROM PLN_ZY_RCL_M T WHERE T.HEAT_PLAN_NO = ? AND T.JUDGE_STOVE_NO = ?
  1259. </query>
  1260. <query id = "FrmCouplingAppl.SelectIsGroupG" desc = "查询炉计划标识">
  1261. SELECT T.IF_MATCH_ODD FROM PLN_ZY_JGX_M T WHERE T.HEAT_PLAN_NO = ? AND T.JUDGE_STOVE_NO = ?
  1262. </query>
  1263. </queryMap>