FrmPlanStoveE.xml 24 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797
  1. <?xml version="1.0" encoding="UTF-8"?>
  2. <queryMap desc="镦拔扩炉计划">
  3. <query id="FrmPlanStoveE.queryPlanStoveME" desc="查询镦拔扩虚拟炉计划">
  4. <![CDATA[
  5. SELECT T.HEAT_PLAN_NO,
  6. S.GX_PRO_SEQ,
  7. T.STOVE_NO,
  8. T.JUDGE_STOVE_NO,
  9. DECODE(T.PLANSTATUS,'00','计划','10','下发','20','生产中','30','生产完成','40','关闭') PLANSTATUS,
  10. DECODE(T.PER_STATUS,'00','上料开始','10','旋扩开始','20','匀整开始','30','定径开始','40','表验开始','50','测量开始','60','交库开始','/') PER_STATUS,
  11. DECODE(T.BESIDE_STATUS,'00','上料结束','10','旋扩结束','20','匀整结束','30','定径结束','40','表验结束','50','测量结束','60','交库结束','/') BESIDE_STATUS,
  12. T.UPPER_HEATPLAN_ID,
  13. T.PRO_PLAN_ID,
  14. T.GX_PLAN_NO,
  15. T.PLINE_CODE,
  16. T.PLINE_NAME,
  17. T.PROCESS_CODE_C,
  18. T.PROCESS_DESC_C,
  19. T.UPPER_PROCESS_CODE,
  20. T.NEXT_PROCESS_CODE,
  21. T.GOWHERE_CODE,
  22. T.GOWHERE_NAME,
  23. T.PROD_STANDARD,
  24. T.OUTPUT_STANDARD,
  25. DECODE(T.ISENDGX,'1','是','/') ISENDGX,
  26. DECODE(T.IF_MATCH_ODD,'1','利库计划','2','组炉计划','3','精整利库','6','本工序精整利库','正常计划') IF_MATCH_ODD,
  27. DECODE(T.IF_DO_HEAT_PLAN,'1','有','无') IF_DO_HEAT_PLAN,
  28. T.ORDER_SOURCE,
  29. T.ORD_LN_DLY_PK,
  30. T.ORDER_NO||'/'||T.ORDER_SEQ ORDER_NO,
  31. T.ORDER_SEQ,
  32. T.DELIVERY_NO,
  33. T.REQ_BL_ID,
  34. T.IF_EXPORT,
  35. T.PRIORITY,
  36. T.PRIORITY_MEMO,
  37. T.PRO_MONTH,
  38. TO_CHAR(TO_DATE(T.PRO_DAY, 'YYYY-MM-DD'), 'YYYY-MM-DD') PRO_DAY,
  39. TO_CHAR(TO_DATE(T.BAL_YEAR_MONTH, 'YYYY-MM'), 'YYYY-MM') BAL_YEAR_MONTH,
  40. DECODE(T.IF_MONITOR,'1','是','/') IF_MONITOR,
  41. T.PRDCR_NO,
  42. T.MONITOR_POINT,
  43. T.BOM,
  44. T.WHOLE_BACKLOG,
  45. T.WHOLE_BACKLOG_DESC,
  46. T.STATION_ROAD,
  47. T.CIC,
  48. T.PIC,
  49. T.SIC,
  50. T.DIC,
  51. T.CRAFT_FILE_NO,
  52. T.CRAFT_FILE_MAN,
  53. T.CRAFT_SEQ,
  54. T.SEC_CRAFT_FILE_NO,
  55. T.GRADECODE,
  56. T.GRADENAME,
  57. T.STEELCODE,
  58. T.STEELNAME,
  59. T.PRODUCCODE,
  60. T.PRODUCNAME,
  61. T.MODEL_CODE,
  62. T.MODEL_DESC,
  63. T.INWL_ID,
  64. T.INWL_DESC,
  65. T.OUTWL_ID,
  66. T.OUTWL_DESC,
  67. T.OUTDIAMETER_IN,
  68. T.WALLTHICK_IN,
  69. T.LENGTH_IN,
  70. T.LENGTHMAX_IN,
  71. T.LENGTHMIN_IN,
  72. T.OUTNUM_CUT,
  73. T.AIMOUTDIAMETER,
  74. T.AIMWALLTHICK,
  75. T.AIMLENGTH,
  76. T.AIMLENGTH_MAX,
  77. T.AIMLENGTH_MIN,
  78. T.LEN_CUTHEAD,
  79. T.LEN_CUTEND,
  80. T.PLN_INSINGLE_NUM,
  81. T.PLN_INSINGLE_WT,
  82. T.PLN_INDOUBLE_NUM,
  83. T.PLN_INDOUBLE_WT,
  84. T.PLN_OUTSINGLE_NUM,
  85. T.PLN_OUTSINGLE_W,
  86. T.PLN_OUTDOUBLE_NUM,
  87. T.PLN_OUTDOUBLE_W,
  88. T.CREATE_NAME,
  89. TO_CHAR(T.CREATE_TIME, 'YYYY-MM-DD HH24:MI:SS') CREATE_TIME,
  90. T.UPDATE_NAME,
  91. TO_CHAR(T.UPDATE_TIME, 'YYYY-MM-DD HH24:MI:SS') UPDATE_TIME,
  92. T.DOWNMAN,
  93. TO_CHAR(T.DOWNTIME, 'YYYY-MM-DD HH24:MI:SS') DOWNTIME,
  94. T.INDEX_SEQ,S.PLN_DIVIDE_ID,S.ZY_BATCH_ID,T.FEED_HEAT_NO,T.MEMO,T.ZY_BATCH_ID_ZG,
  95. T.DECISION,
  96. T.FLAG_STOVE_NO,
  97. (SELECT MAX(DECODE(Z.PLANSTATUS,'00','计划','10','下发','20','生产中','30','生产完成','40','关闭')) FROM PLN_ZY_ZG_M Z WHERE Z.Heat_Plan_No=T.Upper_Heatplan_Id) PLANSTATUS_GX,
  98. DECODE(T.IS_LOAD_FLAG,'1','是','否')IS_LOAD_FLAG,
  99. DECODE(T.IS_WEIGHT_FLAG,'0','否','1','是')IS_WEIGHT_FLAG
  100. FROM PLN_ZY_DBK_M T, PLN_ORDER_DBK_S S
  101. WHERE T.PRO_PLAN_ID = S.PRO_PLAN_ID
  102. AND T.GX_PLAN_NO = S.GX_PLAN_NO
  103. ]]>
  104. </query>
  105. <query id="FrmPlanStoveE.queryPlanStoveReadyE" desc="查询镦拔扩实际炉计划">
  106. <![CDATA[
  107. SELECT T.HEAT_PLAN_NO,
  108. T.GX_PRO_SEQ,
  109. CASE
  110. WHEN T.ZY_BATCH_ID IS NULL THEN
  111. (SELECT S.ZY_BATCH_ID
  112. FROM PLN_ORDER_DBK_S S
  113. WHERE S.PRO_PLAN_ID = T.PRO_PLAN_ID
  114. AND S.GX_PLAN_NO = T.GX_PLAN_NO)
  115. ELSE
  116. T.ZY_BATCH_ID
  117. END ZY_BATCH_ID,
  118. T.STOVE_NO,
  119. T.JUDGE_STOVE_NO,
  120. DECODE(T.PLANSTATUS,'00','计划','10','下发','20','生产中','30','生产完成','40','关闭') PLANSTATUS,
  121. DECODE(T.PER_STATUS,'00','上料开始','10','旋扩开始','20','匀整开始','30','定径开始','40','表验开始','50','测量开始','60','交库开始') PER_STATUS,
  122. DECODE(T.BESIDE_STATUS,'00','上料结束','10','旋扩结束','20','匀整结束','30','定径结束','40','表验结束','50','测量结束','60','交库结束') BESIDE_STATUS,
  123. T.UPPER_HEATPLAN_ID,
  124. T.PRO_PLAN_ID,
  125. T.GX_PLAN_NO,
  126. T.PLINE_CODE,
  127. T.PLINE_NAME,
  128. T.PROCESS_CODE_C,
  129. T.PROCESS_DESC_C,
  130. T.UPPER_PROCESS_CODE,
  131. T.NEXT_PROCESS_CODE,
  132. T.GOWHERE_CODE,
  133. T.GOWHERE_NAME,
  134. T.PROD_STANDARD,
  135. T.OUTPUT_STANDARD,
  136. DECODE(T.ISENDGX,'1','是','/') ISENDGX,
  137. DECODE(T.IF_MATCH_ODD, '1', '利库计划','2','组炉计划','3','精整利库', '6','本工序精整利库','正常计划') IF_MATCH_ODD,
  138. DECODE(T.IF_DO_HEAT_PLAN,'1','有','无') IF_DO_HEAT_PLAN,
  139. T.ORDER_SOURCE,
  140. T.ORD_LN_DLY_PK,
  141. T.ORDER_NO || '/' || T.ORDER_SEQ ORDER_NO,
  142. T.ORDER_SEQ,
  143. T.DELIVERY_NO,
  144. T.REQ_BL_ID,
  145. T.IF_EXPORT,
  146. T.PRIORITY,
  147. T.PRIORITY_MEMO,
  148. T.PRO_MONTH,
  149. TO_CHAR(TO_DATE(T.PRO_DAY, 'YYYY-MM-DD'), 'YYYY-MM-DD') PRO_DAY,
  150. TO_CHAR(TO_DATE(T.BAL_YEAR_MONTH, 'YYYY-MM'), 'YYYY-MM') BAL_YEAR_MONTH,
  151. DECODE(T.IF_MONITOR,'1','是','/') IF_MONITOR,
  152. T.PRDCR_NO,
  153. T.MONITOR_POINT,
  154. T.BOM,
  155. T.WHOLE_BACKLOG,
  156. T.WHOLE_BACKLOG_DESC,
  157. T.STATION_ROAD,
  158. T.CIC,
  159. T.PIC,
  160. T.SIC,
  161. T.DIC,
  162. T.CRAFT_FILE_NO,
  163. T.CRAFT_FILE_MAN,
  164. T.CRAFT_SEQ,
  165. T.SEC_CRAFT_FILE_NO,
  166. T.GRADECODE,
  167. T.GRADENAME,
  168. T.STEELCODE,
  169. T.STEELNAME,
  170. T.PRODUCCODE,
  171. T.PRODUCNAME,
  172. T.MODEL_CODE,
  173. T.MODEL_DESC,
  174. T.INWL_ID,
  175. T.INWL_DESC,
  176. T.OUTWL_ID,
  177. T.OUTWL_DESC,
  178. T.OUTDIAMETER_IN,
  179. T.WALLTHICK_IN,
  180. T.LENGTH_IN,
  181. T.LENGTHMAX_IN,
  182. T.LENGTHMIN_IN,
  183. T.OUTNUM_CUT,
  184. T.AIMOUTDIAMETER,
  185. T.AIMWALLTHICK,
  186. T.AIMLENGTH,
  187. T.AIMLENGTH_MAX,
  188. T.AIMLENGTH_MIN,
  189. T.LEN_CUTHEAD,
  190. T.LEN_CUTEND,
  191. NVL(T.PLN_INSINGLE_NUM,0) PLN_INSINGLE_NUM,
  192. NVL(T.PLN_INSINGLE_WT,0) PLN_INSINGLE_WT,
  193. NVL(T.PLN_INDOUBLE_NUM,0) PLN_INDOUBLE_NUM,
  194. NVL(T.PLN_INDOUBLE_WT,0) PLN_INDOUBLE_WT,
  195. NVL(T.PLN_OUTSINGLE_NUM,0) PLN_OUTSINGLE_NUM,
  196. NVL(T.PLN_OUTSINGLE_W,0) PLN_OUTSINGLE_W,
  197. NVL(T.PLN_OUTDOUBLE_NUM,0) PLN_OUTDOUBLE_NUM,
  198. NVL(T.PLN_OUTDOUBLE_W,0) PLN_OUTDOUBLE_W,
  199. T.CREATE_NAME,
  200. TO_CHAR(T.CREATE_TIME, 'YYYY-MM-DD HH24:MI:SS') CREATE_TIME,
  201. T.UPDATE_NAME,
  202. TO_CHAR(T.UPDATE_TIME, 'YYYY-MM-DD HH24:MI:SS') UPDATE_TIME,
  203. T.DOWNMAN,
  204. TO_CHAR(T.DOWNTIME, 'YYYY-MM-DD HH24:MI:SS') DOWNTIME,
  205. T.INDEX_SEQ,
  206. T1.HEAT_PLAN_SQE,
  207. T1.BATCH_NO,
  208. T1.BATCH_GROUD_NO,
  209. T1.JUGDE_APPLY_CODE,
  210. T1.PLAN_INDOUBLE_NUM,
  211. T1.PLAN_INDOUBLE_WT,
  212. T1.REAL_INDOUBLE_NUM,
  213. T1.REAL_INDOUBLE_WT,
  214. T1.REAL_OUTDOUBLE_NUM,
  215. T1.REAL_OUTDOUBLE_WT,T.FEED_HEAT_NO,T.MEMO,
  216. T.ZY_BATCH_ID_ZG,
  217. T.DECISION,
  218. (SELECT MAX(DECODE(Z.PLANSTATUS,'00','计划','10','下发','20','生产中','30','生产完成','40','关闭')) FROM PLN_ZY_ZG_M Z WHERE Z.Heat_Plan_No=T.Upper_Heatplan_Id) PLANSTATUS_GX,
  219. (SELECT NVL(SUM(M.ACT_COUNT), 0)
  220. FROM MAT_BC_M M
  221. WHERE M.JUDGE_STOVE_NO = T1.FEED_HEAT_NO
  222. AND NVL(M.JUGDE_APPLY_CODE, '/') = NVL(T1.JUGDE_APPLY_CODE, '/')
  223. AND M.HEAT_PLAN_NO_NEXT = T.HEAT_PLAN_NO
  224. AND M.BATCH_NO= T1.BATCH_NO
  225. AND M.BATCH_GROUD_NO = T1.BATCH_GROUD_NO
  226. AND M.MAT_STATUS = '80150103'
  227. AND M.NEXT_PROCESS_CDOE='E') ACT_COUNT,
  228. T.FLAG_STOVE_NO,
  229. (select GET_BUTTRESS(T1.FEED_HEAT_NO,T1.BATCH_NO,T1.BATCH_GROUD_NO,'E',T1.HEAT_PLAN_NO) from dual) Storage_No,
  230. (
  231. SELECT
  232. APPLY_DESC
  233. FROM
  234. QCM_PROBLEM_HANDLING
  235. WHERE
  236. JUDGE_STOVE_NO = T.FEED_HEAT_NO
  237. --AND ( BATCH_NO = '1' OR BATCH_NO = t1.BATCH_NO )
  238. --AND ( BATCH_GROUD_NO = '1' OR BATCH_GROUD_NO = t1.BATCH_GROUD_NO )
  239. AND PROCESS_CODE = 'E'
  240. AND ROWNUM = '1'
  241. ) APPLY_DESC
  242. FROM PLN_ZY_DBK_M T,PLN_ZY_DBK_C T1
  243. WHERE T.HEAT_PLAN_NO=T1.HEAT_PLAN_NO(+)
  244. ]]>
  245. </query>
  246. <query id="FrmPlanStoveE.QueryPlnZYStatus" desc="查询虚拟炉计划状态">
  247. <![CDATA[
  248. SELECT T.PLANSTATUS
  249. FROM PLN_ZY_DBK_M T
  250. WHERE 1 = 1
  251. AND T.JUDGE_STOVE_NO = ?
  252. AND T.PRO_PLAN_ID=?
  253. AND T.GX_PLAN_NO=?
  254. ORDER BY T.PLANSTATUS DESC
  255. ]]>
  256. </query>
  257. <query id="FrmPlanStoveE.QueryfeedJut" desc="获取在最大判定炉号">
  258. <![CDATA[
  259. SELECT CASE
  260. WHEN MAX(T.JUDGE_STOVE_NO) IS NULL THEN
  261. '380000'
  262. ELSE
  263. '38' || LPAD(SUBSTR(NVL(MAX(T.JUDGE_STOVE_NO), '0000'), -4, 4) + 1, 4, '0')
  264. END JUDGE_STOVE_NO
  265. FROM PLN_ZY_DBK_M T
  266. WHERE T.JUDGE_STOVE_NO IS NOT NULL
  267. AND T.JUDGE_STOVE_NO LIKE '%38%'
  268. ]]>
  269. </query>
  270. <query id="FrmPlanStoveE.QueryFeedAll" desc="获取镦拔扩虚拟炉炉计划所有区间判定炉号">
  271. <![CDATA[
  272. SELECT T.JUDGE_STOVE_NO
  273. FROM PLN_ZY_ZG_M T
  274. WHERE T.JUDGE_STOVE_NO LIKE '%38%'
  275. AND T.FEED_HEAT_NO=?
  276. ORDER BY T.JUDGE_STOVE_NO
  277. ]]>
  278. </query>
  279. <query id="FrmPlanStoveE.QueryHeatPlanNo" desc="查询该炉是否存在多个订单">
  280. <![CDATA[
  281. SELECT T.HEAT_PLAN_NO, T.JUDGE_STOVE_NO, T1.GX_PRO_SEQ
  282. FROM PLN_ZY_DBK_M T, PLN_ORDER_DBK_S T1
  283. WHERE T.PRO_PLAN_ID = T1.PRO_PLAN_ID
  284. AND T.GX_PLAN_NO = T1.GX_PLAN_NO
  285. AND T.FEED_HEAT_NO= ?
  286. ORDER BY TO_NUMBER(T1.GX_PRO_SEQ) ASC
  287. ]]>
  288. </query>
  289. <query id="FrmPlanStoveE.QueryRemaDbk" desc="查询是否有上料剩余计划支">
  290. <![CDATA[
  291. SELECT T1.FEED_HEAT_NO,
  292. T1.JUDGE_STOVE_NO,
  293. T.JUGDE_APPLY_CODE,
  294. T1.PRO_PLAN_ID,
  295. T1.GX_PLAN_NO,
  296. T.BATCH_NO,
  297. T.BATCH_GROUD_NO,
  298. T.PLAN_INDOUBLE_NUM,
  299. NVL(T.REAL_INDOUBLE_NUM, 0) REAL_INDOUBLE_NUM,
  300. TO_NUMBER(NVL(T.PLAN_INDOUBLE_NUM, 0)) -
  301. TO_NUMBER(NVL(T.REAL_INDOUBLE_NUM, 0)) COUNTNUM,
  302. T2.ACT_COUNT,
  303. T2.ACT_WEIGHT,
  304. T1.PLANSTATUS,
  305. NVL(T.REAL_INDOUBLE_WT, 0) REAL_INDOUBLE_WT
  306. FROM PLN_ZY_DBK_C T,PLN_ZY_DBK_M T1,(SELECT NVL(SUM(M.ACT_COUNT), 0) ACT_COUNT,
  307. NVL(SUM(M.ACT_WEIGHT), 0) ACT_WEIGHT,
  308. T3.HEAT_PLAN_SQE
  309. FROM MAT_BC_M M, PLN_ZY_JG_C T3
  310. WHERE M.JUDGE_STOVE_NO = T3.JUDGE_STOVE_NO
  311. AND NVL(M.JUGDE_APPLY_CODE, '/') = NVL(T3.JUGDE_APPLY_CODE, '/')
  312. AND M.PRO_PLAN_ID_NEXT = T3.PRO_PLAN_ID
  313. AND M.GX_PLAN_NO_NEXT = T3.GX_PLAN_NO
  314. AND M.BATCH_NO = T3.BATCH_NO
  315. AND M.BATCH_GROUD_NO = T3.BATCH_GROUD_NO
  316. AND M.MAT_STATUS = '80150103'
  317. GROUP BY T3.HEAT_PLAN_SQE) T2
  318. WHERE T1.HEAT_PLAN_NO = T.HEAT_PLAN_NO(+)
  319. AND T.HEAT_PLAN_SQE = T2.HEAT_PLAN_SQE(+)
  320. AND T.HEAT_PLAN_NO = ?
  321. AND T.HEAT_PLAN_SQE = ?
  322. ]]>
  323. </query>
  324. <query id="FrmPlanStoveE.QueryRemaRcl" desc="查询是否有上料剩余计划支">
  325. <![CDATA[
  326. SELECT T1.JUDGE_STOVE_NO,
  327. T.JUGDE_APPLY_CODE,
  328. T1.PRO_PLAN_ID,
  329. T1.GX_PLAN_NO,
  330. T.BATCH_NO,
  331. T.BATCH_GROUD_NO,
  332. T.PLAN_INDOUBLE_NUM,
  333. NVL(T.REAL_INDOUBLE_NUM, 0) REAL_INDOUBLE_NUM,
  334. TO_NUMBER(NVL(T.PLAN_INDOUBLE_NUM, 0)) -
  335. TO_NUMBER(NVL(T.REAL_INDOUBLE_NUM, 0)) COUNTNUM,
  336. T2.ACT_COUNT,
  337. T2.ACT_WEIGHT,
  338. T1.PLANSTATUS,
  339. NVL(T.REAL_INDOUBLE_WT, 0) REAL_INDOUBLE_WT
  340. FROM PLN_ZY_RCL_C T,PLN_ZY_RCL_M T1,(SELECT NVL(SUM(M.ACT_COUNT), 0) ACT_COUNT,
  341. NVL(SUM(M.ACT_WEIGHT), 0) ACT_WEIGHT,
  342. T3.HEAT_PLAN_SQE
  343. FROM MAT_BC_M M, PLN_ZY_JG_C T3
  344. WHERE M.JUDGE_STOVE_NO = T3.JUDGE_STOVE_NO
  345. AND NVL(M.JUGDE_APPLY_CODE, '/') = NVL(T3.JUGDE_APPLY_CODE, '/')
  346. AND M.PRO_PLAN_ID_NEXT = T3.PRO_PLAN_ID
  347. AND M.GX_PLAN_NO_NEXT = T3.GX_PLAN_NO
  348. AND M.BATCH_NO = T3.BATCH_NO
  349. AND M.BATCH_GROUD_NO = T3.BATCH_GROUD_NO
  350. AND M.MAT_STATUS = '80150103'
  351. GROUP BY T3.HEAT_PLAN_SQE) T2
  352. WHERE T1.HEAT_PLAN_NO = T.HEAT_PLAN_NO(+)
  353. AND T.HEAT_PLAN_SQE = T2.HEAT_PLAN_SQE(+)
  354. AND T.HEAT_PLAN_NO = ?
  355. AND T.HEAT_PLAN_SQE = ?
  356. ]]>
  357. </query>
  358. <query id="FrmPlanStoveE.QueryRemaJgx" desc="查询是否有上料剩余计划支">
  359. <![CDATA[
  360. SELECT T1.JUDGE_STOVE_NO,
  361. T.JUGDE_APPLY_CODE,
  362. T1.PRO_PLAN_ID,
  363. T1.GX_PLAN_NO,
  364. T.BATCH_NO,
  365. T.BATCH_GROUD_NO,
  366. T.PLAN_INDOUBLE_NUM,
  367. NVL(T.REAL_INDOUBLE_NUM, 0) REAL_INDOUBLE_NUM,
  368. TO_NUMBER(NVL(T.PLAN_INDOUBLE_NUM, 0)) -
  369. TO_NUMBER(NVL(T.REAL_INDOUBLE_NUM, 0)) COUNTNUM,
  370. T2.ACT_COUNT,
  371. T2.ACT_WEIGHT,
  372. T1.PLANSTATUS,
  373. NVL(T.REAL_INDOUBLE_WT, 0) REAL_INDOUBLE_WT
  374. FROM PLN_ZY_JGX_C T,PLN_ZY_JGX_M T1,(SELECT NVL(SUM(M.ACT_COUNT), 0) ACT_COUNT,
  375. NVL(SUM(M.ACT_WEIGHT), 0) ACT_WEIGHT,
  376. T3.HEAT_PLAN_SQE
  377. FROM MAT_BC_M M, PLN_ZY_JG_C T3
  378. WHERE M.JUDGE_STOVE_NO = T3.JUDGE_STOVE_NO
  379. AND NVL(M.JUGDE_APPLY_CODE, '/') = NVL(T3.JUGDE_APPLY_CODE, '/')
  380. AND M.PRO_PLAN_ID_NEXT = T3.PRO_PLAN_ID
  381. AND M.GX_PLAN_NO_NEXT = T3.GX_PLAN_NO
  382. AND M.BATCH_NO = T3.BATCH_NO
  383. AND M.BATCH_GROUD_NO = T3.BATCH_GROUD_NO
  384. AND M.MAT_STATUS = '80150103'
  385. GROUP BY T3.HEAT_PLAN_SQE) T2
  386. WHERE T1.HEAT_PLAN_NO = T.HEAT_PLAN_NO(+)
  387. AND T.HEAT_PLAN_SQE = T2.HEAT_PLAN_SQE(+)
  388. AND T.HEAT_PLAN_NO = ?
  389. AND T.HEAT_PLAN_SQE = ?
  390. ]]>
  391. </query>
  392. <query id="FrmPlanStoveE.QueryRemaJg" desc="查询是否有上料剩余计划支">
  393. <![CDATA[
  394. SELECT T1.JUDGE_STOVE_NO,
  395. T.JUGDE_APPLY_CODE,
  396. T1.PRO_PLAN_ID,
  397. T1.GX_PLAN_NO,
  398. T.BATCH_NO,
  399. T.BATCH_GROUD_NO,
  400. T.USE_BL_NUM,
  401. NVL(T.REAL_INDOUBLE_NUM, 0) REAL_INDOUBLE_NUM,
  402. TO_NUMBER(NVL(T.USE_BL_NUM, 0)) -
  403. TO_NUMBER(NVL(T.REAL_INDOUBLE_NUM, 0)) COUNTNUM,
  404. T2.ACT_COUNT,
  405. T2.ACT_WEIGHT,
  406. T1.PLANSTATUS,
  407. NVL(T.REAL_INDOUBLE_WT, 0) REAL_INDOUBLE_WT
  408. FROM PLN_ZY_JG_C T,PLN_ZY_JG_M T1,(SELECT NVL(SUM(M.ACT_COUNT), 0) ACT_COUNT,
  409. NVL(SUM(M.ACT_WEIGHT), 0) ACT_WEIGHT,
  410. T3.HEAT_PLAN_SQE
  411. FROM MAT_BC_M M, PLN_ZY_JG_C T3
  412. WHERE M.JUDGE_STOVE_NO = T3.JUDGE_STOVE_NO
  413. AND NVL(M.JUGDE_APPLY_CODE, '/') = NVL(T3.JUGDE_APPLY_CODE, '/')
  414. AND M.PRO_PLAN_ID_NEXT = T3.PRO_PLAN_ID
  415. AND M.GX_PLAN_NO_NEXT = T3.GX_PLAN_NO
  416. AND M.BATCH_NO = T3.BATCH_NO
  417. AND M.BATCH_GROUD_NO = T3.BATCH_GROUD_NO
  418. AND M.MAT_STATUS = '80150103'
  419. GROUP BY T3.HEAT_PLAN_SQE) T2
  420. WHERE T1.HEAT_PLAN_NO = T.HEAT_PLAN_NO(+)
  421. AND T.HEAT_PLAN_SQE = T2.HEAT_PLAN_SQE(+)
  422. AND T.HEAT_PLAN_NO = ?
  423. AND T.HEAT_PLAN_SQE = ?
  424. ]]>
  425. </query>
  426. <query id="FrmPlanStoveE.UpdateMatBcYc" desc="释放管坯余材">
  427. <![CDATA[
  428. UPDATE MAT_BC_M M
  429. SET M.PRO_PLAN_ID_NEXT = '',
  430. M.HEAT_PLAN_NO_NEXT = '',
  431. M.GX_PLAN_NO_NEXT = '',
  432. M.MAT_STATUS = DECODE(M.JUDGE_RESULT_CODE,'','80150101','80150102'),
  433. M.HANGING_FLAG = '0',
  434. M.LOCK_LIKU = '0'
  435. WHERE M.JUDGE_STOVE_NO =?
  436. AND NVL(M.JUGDE_APPLY_CODE, '/') = NVL(?, '/')
  437. AND M.PRO_PLAN_ID_NEXT = ?
  438. AND M.GX_PLAN_NO_NEXT = ?
  439. AND M.BATCH_NO = ?
  440. AND M.BATCH_GROUD_NO = ?
  441. AND M.NEXT_PROCESS_CDOE=?
  442. AND M.MAT_STATUS = '80150103'
  443. ]]>
  444. </query>
  445. <query id="FrmPlanStoveE.queryZgMSStatus" desc="查询订单状态">
  446. <![CDATA[
  447. SELECT T.* FROM PLN_ORDER_DBK_S T WHERE T.PRO_PLAN_ID=? AND T.GX_PLAN_NO=?
  448. ]]>
  449. </query>
  450. <query id="FrmPlanStoveE.SelectatchId" desc="查询是否存在轧批号">
  451. <![CDATA[
  452. SELECT COUNT(*) COUNT FROM PLN_ORDER_DBK_S T
  453. WHERE T.ZY_BATCH_ID =?
  454. AND T.PLINE_CODE= ?
  455. AND T.VALIDFLAG='1'
  456. ]]>
  457. </query>
  458. <query id="FrmPlanStoveE.UpdateBatchId" desc="修改轧管排产轧批号">
  459. <![CDATA[
  460. UPDATE PLN_ORDER_DBK_S T
  461. SET T.ZY_BATCH_ID ='#ZY_BATCH_ID#'
  462. WHERE T.PRO_PLAN_ID ='#PRO_PLAN_ID#'
  463. AND T.GX_PLAN_NO = '#GX_PLAN_NO#'
  464. AND T.VALIDFLAG='1'
  465. ]]>
  466. </query>
  467. <query id="FrmPlanStoveE.QueryMatWt" desc="查询库存可拆吨">
  468. <![CDATA[
  469. SELECT SUM(T.ACT_WEIGHT) ACT_WEIGHT
  470. FROM MAT_BC_M T
  471. WHERE T.JUDGE_STOVE_NO = ?
  472. AND T.BATCH_NO = ?
  473. AND T.BATCH_GROUD_NO = ?
  474. AND NVL(T.JUGDE_APPLY_CODE,'/') = NVL(?,'/')
  475. AND T.HEAT_PLAN_NO_NEXT = ?
  476. AND T.NEXT_PROCESS_CDOE = ?
  477. AND T.QCM_STAUS = '00'
  478. AND T.MAT_STATUS = '80150103'
  479. AND ROWNUM <= ?
  480. ]]>
  481. </query>
  482. <query id="FrmPlanStoveE.addPlnMDbk" desc="新增镦拔扩虚拟炉计划">
  483. <![CDATA[
  484. INSERT INTO PLN_ZY_DBK_M(
  485. HEAT_PLAN_NO,
  486. GX_PRO_SEQ,
  487. ZY_BATCH_ID,
  488. STOVE_NO,
  489. JUDGE_STOVE_NO,
  490. BATCH_NO,
  491. PLANSTATUS,
  492. UPPER_HEATPLAN_ID,
  493. PRO_PLAN_ID,
  494. GX_PLAN_NO,
  495. PLINE_CODE,
  496. PLINE_NAME,
  497. PROCESS_CODE_C,
  498. PROCESS_DESC_C,
  499. UPPER_PROCESS_CODE,
  500. NEXT_PROCESS_CODE,
  501. GOWHERE_CODE,
  502. GOWHERE_NAME,
  503. PROD_STANDARD,
  504. OUTPUT_STANDARD,
  505. ISENDGX,
  506. IF_MATCH_ODD,
  507. IF_DO_HEAT_PLAN,
  508. ORDER_SOURCE,
  509. ORD_LN_DLY_PK,
  510. ORDER_NO,
  511. ORDER_SEQ,
  512. DELIVERY_NO,
  513. REQ_BL_ID,
  514. IF_EXPORT,
  515. PRIORITY,
  516. PRIORITY_MEMO,
  517. PRO_MONTH,
  518. PRO_DAY,
  519. BAL_YEAR_MONTH,
  520. IF_MONITOR,
  521. PRDCR_NO,
  522. MONITOR_POINT,
  523. BOM,
  524. WHOLE_BACKLOG,
  525. WHOLE_BACKLOG_DESC,
  526. STATION_ROAD,
  527. CIC,
  528. PIC,
  529. SIC,
  530. DIC,
  531. CRAFT_FILE_NO,
  532. CRAFT_FILE_MAN,
  533. CRAFT_SEQ,
  534. SEC_CRAFT_FILE_NO,
  535. GRADECODE,
  536. GRADENAME,
  537. STEELCODE,
  538. STEELNAME,
  539. PRODUCCODE,
  540. PRODUCNAME,
  541. MODEL_CODE,
  542. MODEL_DESC,
  543. INWL_ID,
  544. INWL_DESC,
  545. OUTWL_ID,
  546. OUTWL_DESC,
  547. OUTDIAMETER_IN,
  548. WALLTHICK_IN,
  549. LENGTH_IN,
  550. LENGTHMAX_IN,
  551. LENGTHMIN_IN,
  552. OUTNUM_CUT,
  553. AIMOUTDIAMETER,
  554. AIMWALLTHICK,
  555. AIMLENGTH,
  556. AIMLENGTH_MAX,
  557. AIMLENGTH_MIN,
  558. LEN_CUTHEAD,
  559. LEN_CUTEND,
  560. PLN_INSINGLE_NUM,
  561. PLN_INSINGLE_WT,
  562. PLN_INDOUBLE_NUM,
  563. PLN_INDOUBLE_WT,
  564. PLN_OUTSINGLE_NUM,
  565. PLN_OUTSINGLE_W,
  566. PLN_OUTDOUBLE_NUM,
  567. PLN_OUTDOUBLE_W,
  568. CREATE_NAME,
  569. CREATE_TIME,
  570. INDEX_SEQ,
  571. SPEC_CODE,
  572. SPEC_NAME,
  573. STD_CODE,
  574. STD_NAME,
  575. STD_STYLE,
  576. STD_STYLE_DESC,
  577. FEED_HEAT_NO,
  578. MEMO,
  579. ZY_BATCH_ID_ZG,
  580. DECISION,
  581. PASS_CODE,
  582. PASS_NAME,
  583. FLAG_STOVE_NO,HEAT_PLAN_NO_OLD)
  584. VALUES(
  585. ?,
  586. '#GX_PRO_SEQ#',
  587. '#ZY_BATCH_ID#',
  588. '#STOVE_NO#',
  589. '#JUDGE_STOVE_NO#',
  590. '#BATCH_NO#',
  591. '00',
  592. '#UPPER_HEATPLAN_ID#',
  593. '#PRO_PLAN_ID#',
  594. '#GX_PLAN_NO#',
  595. '#PLINE_CODE#',
  596. '#PLINE_NAME#',
  597. '#PROCESS_CODE_C#',
  598. '#PROCESS_DESC_C#',
  599. '#UPPER_PROCESS_CODE#',
  600. '#NEXT_PROCESS_CODE#',
  601. '#GOWHERE_CODE#',
  602. '#GOWHERE_NAME#',
  603. '#PROD_STANDARD#',
  604. '#OUTPUT_STANDARD#',
  605. '#ISENDGX#',
  606. '#IF_MATCH_ODD#',
  607. '#IF_DO_HEAT_PLAN#',
  608. '#ORDER_SOURCE#',
  609. '#ORD_LN_DLY_PK#',
  610. '#ORDER_NO#',
  611. '#ORDER_SEQ#',
  612. '#DELIVERY_NO#',
  613. '#REQ_BL_ID#',
  614. '#IF_EXPORT#',
  615. '#PRIORITY#',
  616. '#PRIORITY_MEMO#',
  617. '#PRO_MONTH#',
  618. '#PRO_DAY#',
  619. '#BAL_YEAR_MONTH#',
  620. '#IF_MONITOR#',
  621. '#PRDCR_NO#',
  622. '#MONITOR_POINT#',
  623. '#BOM#',
  624. '#WHOLE_BACKLOG#',
  625. '#WHOLE_BACKLOG_DESC#',
  626. '#STATION_ROAD#',
  627. '#CIC#',
  628. '#PIC#',
  629. '#SIC#',
  630. '#DIC#',
  631. '#CRAFT_FILE_NO#',
  632. '#CRAFT_FILE_MAN#',
  633. '#CRAFT_SEQ#',
  634. '#SEC_CRAFT_FILE_NO#',
  635. '#GRADECODE#',
  636. '#GRADENAME#',
  637. '#STEELCODE#',
  638. '#STEELNAME#',
  639. '#PRODUCCODE#',
  640. '#PRODUCNAME#',
  641. '#MODEL_CODE#',
  642. '#MODEL_DESC#',
  643. '#INWL_ID#',
  644. '#INWL_DESC#',
  645. '#OUTWL_ID#',
  646. '#OUTWL_DESC#',
  647. '#OUTDIAMETER_IN#',
  648. '#WALLTHICK_IN#',
  649. '#LENGTH_IN#',
  650. '#LENGTHMAX_IN#',
  651. '#LENGTHMIN_IN#',
  652. '#OUTNUM_CUT#',
  653. '#AIMOUTDIAMETER#',
  654. '#AIMWALLTHICK#',
  655. '#AIMLENGTH#',
  656. '#AIMLENGTH_MAX#',
  657. '#AIMLENGTH_MIN#',
  658. '#LEN_CUTHEAD#',
  659. '#LEN_CUTEND#',
  660. '#PLN_INSINGLE_NUM#',
  661. '#PLN_INSINGLE_WT#',
  662. '#PLN_INDOUBLE_NUM#',
  663. '#PLN_INDOUBLE_WT#',
  664. '#PLN_OUTSINGLE_NUM#',
  665. '#PLN_OUTSINGLE_W#',
  666. '#PLN_OUTDOUBLE_NUM#',
  667. '#PLN_OUTDOUBLE_W#',
  668. ?,
  669. SYSDATE,
  670. '#INDEX_SEQ#',
  671. '#SPEC_CODE#',
  672. '#SPEC_NAME#',
  673. '#STD_CODE#',
  674. '#STD_NAME#',
  675. '#STD_STYLE#',
  676. '#STD_STYLE_DESC#',
  677. '#FEED_HEAT_NO#',
  678. '#MEMO#',
  679. '#ZY_BATCH_ID_ZG#',
  680. '#DECISION#',
  681. '#PASS_CODE#',
  682. '#PASS_NAME#',
  683. '#FLAG_STOVE_NO#','#HEAT_PLAN_NO_OLD#')
  684. ]]>
  685. </query>
  686. <query id="FrmPlanStoveE.addPlnCDbk" desc="新增镦拔扩实际炉计划">
  687. <![CDATA[
  688. INSERT INTO PLN_ZY_DBK_C
  689. (HEAT_PLAN_NO,
  690. HEAT_PLAN_SQE,
  691. JUGDE_APPLY_CODE,
  692. ZY_BATCH_ID,
  693. STOVE_NO,
  694. JUDGE_STOVE_NO,
  695. BATCH_NO,
  696. BATCH_GROUD_NO,
  697. PRO_PLAN_ID,
  698. GX_PLAN_NO,
  699. PLINE_CODE,
  700. PLINE_NAME,
  701. OUTDIAMETER_IN,
  702. WALLTHICK_IN,
  703. OUTNUM_CUT,
  704. LENGTH_IN,
  705. LENGTHMAX_IN,
  706. LENGTHMIN_IN,
  707. PLAN_INDOUBLE_NUM,
  708. PLAN_INDOUBLE_WT,
  709. REAL_INDOUBLE_NUM,
  710. REAL_INDOUBLE_WT,
  711. REAL_OUTDOUBLE_NUM,
  712. REAL_OUTDOUBLE_WT,
  713. FEED_HEAT_NO,
  714. FLAG_STOVE_NO)
  715. VALUES
  716. (?,
  717. ?,
  718. '#JUGDE_APPLY_CODE#',
  719. '#ZY_BATCH_ID#',
  720. '#STOVE_NO#',
  721. '#JUDGE_STOVE_NO#',
  722. '#BATCH_NO#',
  723. '#BATCH_GROUD_NO#',
  724. '#PRO_PLAN_ID#',
  725. '#GX_PLAN_NO#',
  726. '#PLINE_CODE#',
  727. '#PLINE_NAME#',
  728. '#OUTDIAMETER_IN#',
  729. '#WALLTHICK_IN#',
  730. '#OUTNUM_CUT#',
  731. '#LENGTH_IN#',
  732. '#LENGTHMAX_IN#',
  733. '#LENGTHMIN_IN#',
  734. '#PLAN_INDOUBLE_NUM#',
  735. '#PLAN_INDOUBLE_WT#',
  736. '#REAL_INDOUBLE_NUM#',
  737. '#REAL_INDOUBLE_WT#',
  738. '#REAL_OUTDOUBLE_NUM#',
  739. '#REAL_OUTDOUBLE_WT#',
  740. '#FEED_HEAT_NO#',
  741. '#FLAG_STOVE_NO#')
  742. ]]>
  743. </query>
  744. <query id="FrmPlanStoveE.UpdateMatBc" desc="修改库存炉计划ID">
  745. <![CDATA[
  746. DECLARE
  747. BEGIN
  748. FOR MYROW IN (SELECT MAT_NO
  749. FROM (SELECT T.MAT_NO
  750. FROM MAT_BC_M T
  751. WHERE T.JUDGE_STOVE_NO = ?
  752. AND T.BATCH_NO = ?
  753. AND T.BATCH_GROUD_NO = ?
  754. AND NVL(T.JUGDE_APPLY_CODE, '/') = NVL(?, '/')
  755. AND T.HEAT_PLAN_NO_NEXT = ?
  756. AND T.NEXT_PROCESS_CDOE = ?
  757. AND T.QCM_STAUS = '00'
  758. AND T.MAT_STATUS = '80150103'
  759. ORDER BY T.MAT_NO ASC)
  760. WHERE ROWNUM <= ?) LOOP
  761. UPDATE MAT_BC_M T
  762. SET T.HEAT_PLAN_NO_NEXT = ? WHERE T.MAT_NO = MYROW.MAT_NO;
  763. END LOOP;
  764. END;
  765. ]]>
  766. </query>
  767. <query id = "FrmPlanStoveE.updateGoWhere" desc = "修改去向">
  768. UPDATE PLN_ZY_DBK_M T
  769. SET T.GOWHERE_CODE = '#GOWHERE_CODE#', T.GOWHERE_NAME = '#GOWHERE_NAME#'
  770. WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
  771. </query>
  772. <query id = "FrmPlanStoveE.updateLoadFlag" desc = "修改上料标识">
  773. UPDATE PLN_ZY_DBK_M T
  774. SET T.IS_LOAD_FLAG = '#IS_LOAD_FLAG#'
  775. WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
  776. </query>
  777. <query id = "FrmPlanStoveE.updateIsWeight" desc = "修改过磅标识">
  778. UPDATE PLN_ZY_DBK_M T
  779. SET T.IS_WEIGHT_FLAG = '#IS_WEIGHT_FLAG#'
  780. WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#'
  781. </query>
  782. <query id = "FrmPlanStoveE.updateDbkJudgeStoveNo" desc = "修改炉计划判定炉号">
  783. DECLARE
  784. BEGIN
  785. UPDATE PLN_ZY_DBK_M T
  786. SET T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#', T.FLAG_STOVE_NO = '#JUDGE_STOVE_NO#'
  787. WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#';
  788. UPDATE PLN_ZY_DBK_C T
  789. SET T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#', T.FLAG_STOVE_NO = '#JUDGE_STOVE_NO#'
  790. WHERE T.HEAT_PLAN_NO = '#HEAT_PLAN_NO#';
  791. END;
  792. </query>
  793. </queryMap>