daebe797b4b4f483429b41293abf269b67446440.svn-base 15 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424
  1. <?xml version="1.0" encoding='UTF-8'?>
  2. <queryMap desc="STEEL MAKING QUERY ">
  3. <query id="UIH052400_01.select" desc="冷轧转运量查询-订单材">
  4. <![CDATA[
  5. SELECT 'N' CHK,H.CUR_PROG_CD, H.OLD_SAMPL_NO,H.STL_GRD,H.ORD_NO,H.ORD_SEQ,H.COIL_WTH,
  6. H.COIL_THK,H.COIL_LEN,H.ACT_WGT,H.CUR_LOAD_LOC,H.CR_PLANT_TRS_SEQ,H.COIL_NO
  7. ,DECODE(H.CUR_PROG_CD,'SGB','移送待机','SFA','发货指示待机','SED','综合判定待机','SRC','充当待机') CUR_PROG_CD_NM
  8. ,H.CUR_PROG_CD
  9. ,SUBSTR(H.SLAB_NO,1,10) CHARGE_NO,H.INSTR_COIL_THK,H.INSTR_COIL_WTH
  10. ,H.COIL_INDIA,H.COIL_OUTDIA,decode(H.EXTSHAPE_DEC_GRD,'1','合格','2','订单外合格','3','次品','4','废品') EXTSHAPE_DEC_GRD
  11. FROM TBH02_COIL_COMM H,TBA01_ORD_LINE A WHERE
  12. A.ORD_NO = H.ORD_NO
  13. AND A.ORD_SEQ = H.ORD_SEQ
  14. AND H.COIL_STAT = '2'
  15. AND H.EXTSHAPE_DEC_GRD = '1'
  16. AND H.SIZE_DEC_RST = '1'
  17. AND ((A.PROD_LINE IN ('C','L')
  18. AND H.CUR_PROG_CD = 'SGB')
  19. OR (H.CUR_PROG_CD in ('SED') AND SUBSTR(H.ORD_NO,0,1) IN ('4','5')))
  20. AND H.ORD_NO||'&' like ? || '%'
  21. AND H.ORD_SEQ||'&' like ? || '%'
  22. AND H.OLD_SAMPL_NO||'&' LIKE ? || '%'
  23. ]]>
  24. </query>
  25. <query id="UIH052400_11.select" desc="冷轧转运量查询-余材">
  26. <![CDATA[
  27. SELECT 'N' CHK,H.CUR_PROG_CD, H.OLD_SAMPL_NO,H.STL_GRD,H.ORD_NO,H.ORD_SEQ,H.COIL_WTH,
  28. H.COIL_THK,H.COIL_LEN,H.ACT_WGT,H.CUR_LOAD_LOC,H.CR_PLANT_TRS_SEQ,H.COIL_NO
  29. ,DECODE(H.CUR_PROG_CD,'SGB','移送待机','SFA','发货指示待机','SED','综合判定待机','SRC','充当待机') CUR_PROG_CD_NM
  30. ,SUBSTR(H.SLAB_NO,1,10) CHARGE_NO,H.INSTR_COIL_THK,H.INSTR_COIL_WTH
  31. ,H.COIL_INDIA,H.COIL_OUTDIA,decode(H.EXTSHAPE_DEC_GRD,'1','合格','2','订单外合格','3','次品','4','废品') EXTSHAPE_DEC_GRD
  32. FROM TBH02_COIL_COMM H WHERE
  33. H.COIL_STAT = '2'
  34. AND H.CUR_PROG_CD = 'SRC'
  35. AND H.OLD_SAMPL_NO||'&' LIKE ?||'%'
  36. ]]>
  37. </query>
  38. <query id="UIH052400_02.select" desc="查询冷轧原料库是否已经存在转运的钢卷信息">
  39. <![CDATA[
  40. SELECT COUNT(1) COUNT FROM C_TBK02_COIL_COMM WHERE COIL_NO = ?
  41. ]]>
  42. </query>
  43. <query id="UIH052400_03.select" desc="查询热轧卷订单信息">
  44. <![CDATA[
  45. SELECT ORD_NO FROM TBH02_COIL_COMM WHERE OLD_SAMPL_NO = ?
  46. ]]>
  47. </query>
  48. <query id="UIH052400_04.select" desc="冷轧移送实绩查询">
  49. <![CDATA[
  50. select 'N' CHK, h.old_sampl_no,h.stl_grd,h.ord_no,h.ord_seq,
  51. h.coil_wth,h.coil_thk,h.coil_len,h.act_wgt,
  52. DECODE(h.cr_plant_trs_clf,'B','冷轧厂','C','其他转运') cr_plant_trs_clf,
  53. h.cr_plant_trs_no,H.CR_PLANT_TRS_SEQ cr_plant_trs_cd,h.cur_load_loc,
  54. TO_CHAR(TO_DATE(h.cr_plant_trs_dtime,'YYYYMMDD'),'YYYY-MM-DD') AS cr_plant_trs_dtime,
  55. k.YARD_ENTRY_REG receive_reg,
  56. TO_CHAR(TO_DATE(k.YARD_ENTRY_DTIME,'YYYYMMDDHH24MISS'),'YYYY-MM-DD HH24:MI:SS') AS receive_time,
  57. k.trnf_reg,TO_CHAR(TO_DATE(k.trnf_dtime,'YYYYMMDDHH24MISS'),'YYYY-MM-DD HH24:MI:SS') AS trnf_dtime
  58. from tbh02_coil_comm h,c_tbk02_coil_comm k where h.old_sampl_no = k.coil_no(+)
  59. and h.coil_stat = '3' and h.cur_prog_cd = 'SGF' and (k.coil_stat = '1' or (k.coil_stat = 3 and k.out_yard_kind = 2))
  60. and h.cr_plant_trs_dtime like '%'||trim(?)||'%'
  61. and h.cr_plant_trs_no like '%'||trim(?)||'%' order by h.cr_plant_trs_dtime desc,H.CR_PLANT_TRS_SEQ desc
  62. ]]>
  63. </query>
  64. <query id="UIH052400_05.select" desc="判断c_tbk02_coil_comm_d是否存在冷轧订单信息">
  65. <![CDATA[
  66. select coil_no from c_tbk02_coil_comm_d where coil_no = ?
  67. ]]>
  68. </query>
  69. <query id="UIH052400_09.select" desc="判断c_tbk02_coil_comm_d是否存cut信息">
  70. <![CDATA[
  71. select d.CUT_SEQ
  72. from tbh02_coil_comm_d d,tbh02_coil_comm h
  73. where d.coil_no = h.coil_no
  74. and h.old_sampl_no = ?
  75. ]]>
  76. </query>
  77. <query id="UIH052400_06.select" desc="查询冷轧订单信息">
  78. <![CDATA[
  79. select d.c_ord_thk ord_thk
  80. ,d.c_ord_wth ord_wth,d.c_ord_len ord_len
  81. ,d.c_ord_wgt ord_wgt,d.c_ord_wgt_min ord_wgt_min
  82. ,d.c_ord_wgt_max ord_wgt_max,d.c_ord_india ord_india
  83. ,d.c_ord_outdia ord_outdia,d.ord_no ord_no
  84. ,d.ord_seq ord_seq,d.ord_fl ord_fl
  85. from tbh02_coil_comm_d d
  86. where d.coil_no = (
  87. select coil_no from tbh02_coil_comm where
  88. old_sampl_no = ?
  89. )
  90. ]]>
  91. </query>
  92. <query id="UIH052400_07.select" desc="查询原料库钢卷信息">
  93. <![CDATA[
  94. SELECT H.SLAB_NO,H.CUR_PROG_CD,H.CUR_PROG_CD_DTIME,H.CUR_PROG_CD_PGM,H.INSTR_COIL_THK
  95. ,H.INSTR_COIL_WTH,H.INSTR_COIL_LEN,H.INSTR_COIL_INDIA,H.INSTR_COIL_OUTDIA,H.INSTR_COIL_WGT
  96. ,H.DEVLMT_DTIME,H.DEST_CD,H.ORDCUST_CD,H.CUST_CD,H.COIL_LEN,H.COIL_INDIA
  97. --,(CASE WHEN(H.COIL_OUTDIA IS NOT NULL OR H.COIL_OUTDIA <> '' or H.COIL_OUTDIA <> 0)THEN H.COIL_OUTDIA ELSE C_PKG_UIF.F_FUN_GET_OUTSIDE(H.COIL_INDIA,H.ACT_WGT,H.COIL_WTH)end) COIL_OUTDIA
  98. ,H.COIL_OUTDIA
  99. ,H.COIL_THK,H.COIL_WTH,H.ACT_WGT,H.ORD_FL,H.ORD_NO,H.ORD_SEQ,P.C_PRODNM_CD PRODNM_CD,H.SPEC_ABBSYM
  100. ,P.C_SPEC_STL_GRD SPEC_STL_GRD,H.ORD_USE_CD,H.SPEC_STL_GRD STL_GRD,H.PATH_MILL_CD,H.INGR_DEC_GRD,H.EXTSHAPE_DEC_GRD
  101. ,H.SIZE_DEC_RST,H.WGT_DEC_RST,H.PROC_DEC_RST,H.MATLQLTY_DEC_GRD,H.TOT_DEC_GRD,H.MILL_DTIME
  102. ,H.CRK_CD1,H.CRK_CD2,H.CRK_CD3,H.CRK_CD4,H.CRK_CD5,H.CAL_WGT,H.OLD_SAMPL_NO
  103. ,H.YARD_ENTRY_DTIME
  104. ,H.SAMPL_NO,H.SAMPL_CUT_LOC
  105. ,R.FM_EXT_STRIP_THK_AVG ,R.FM_EXT_STRIP_TEMP_AVG,R.DC_TEMP_AVG,R.FM_EXT_STRIP_CROWN_AVG
  106. FROM TBH02_COIL_COMM H,TBH02_MILL_RESULT R,TBE02_ORD_PRC P
  107. WHERE H.COIL_NO = R.COIL_NO AND H.ORD_NO = P.ORD_NO(+) AND H.ORD_SEQ = P.ORD_SEQ(+)
  108. AND H.OLD_SAMPL_NO = ?
  109. ]]>
  110. </query>
  111. <query id="UIH052400_01.insert" desc="冷轧原料钢卷基础信息插入">
  112. <![CDATA[
  113. INSERT INTO C_TBK02_COIL_COMM
  114. (COIL_NO,
  115. SLAB_NO,
  116. COIL_STAT,
  117. CUR_PROG_CD,
  118. CUR_PROG_CD_DTIME,
  119. CUR_PROG_CD_PGM,
  120. BEF_PROG_CD,
  121. BEF_PROG_CD_DTIME,
  122. BEF_PROG_CD_PGM,
  123. INSTR_COIL_THK,
  124. INSTR_COIL_WTH,
  125. INSTR_COIL_LEN,
  126. INSTR_COIL_INDIA,
  127. INSTR_COIL_OUTDIA,
  128. INSTR_COIL_WGT,
  129. DEVLMT_DTIME,
  130. DEST_CD,
  131. ORDCUST_CD,
  132. CUST_CD,
  133. COIL_LEN,
  134. COIL_INDIA,
  135. COIL_OUTDIA,
  136. COIL_THK,
  137. COIL_WTH,
  138. ACT_WGT,
  139. ORD_FL,
  140. ORD_NO,
  141. ORD_SEQ,
  142. PRODNM_CD,
  143. SPEC_ABBSYM,
  144. SPEC_STL_GRD,
  145. ORD_USE_CD,
  146. STL_GRD,
  147. PATH_MILL_CD,
  148. INGR_DEC_GRD,
  149. EXTSHAPE_DEC_GRD,
  150. SIZE_DEC_RST,
  151. WGT_DEC_RST,
  152. PROC_DEC_RST,
  153. MATLQLTY_DEC_GRD,
  154. TOT_DEC_GRD,
  155. MILL_DTIME,
  156. CRK_CD1,
  157. CRK_CD2,
  158. CRK_CD3,
  159. CRK_CD4,
  160. CRK_CD5,
  161. CAL_WGT,
  162. OLD_SAMPL_NO,
  163. CR_PLANT_TRS_CLF,
  164. CR_PLANT_TRS_NO,
  165. CR_PLANT_TRS_DTIME,
  166. FM_EXT_STRIP_THK_AVG,
  167. FM_EXT_STRIP_TEMP_AVG,
  168. DC_TEMP_AVG,
  169. FM_EXT_STRIP_CROWN_AVG,
  170. RECEIVE_TIME,
  171. SMP_NO,
  172. SMP_CUT_LOC,
  173. OLD_ORD_NO,
  174. OLD_ORD_SEQ,
  175. OLD_ORD_FL,
  176. CR_PLANT_TRS_SEQ,
  177. BEF_STL_GRD)
  178. SELECT H.OLD_SAMPL_NO COIL_NO,
  179. H.SLAB_NO,
  180. '1' COIL_STAT,
  181. 'PAB' CUR_PROG_CD,
  182. TO_CHAR(SYSDATE, 'YYYYMMDDHH24MISS') CUR_PROG_CD_DTIME,
  183. 'UIH052400' CUR_PROG_CD_PGM,
  184. CUR_PROG_CD BEF_PROG_CD,
  185. CUR_PROG_CD_DTIME BEF_PROG_CD_DTIME,
  186. CUR_PROG_CD_PGM BEF_PROG_CD_PGM,
  187. H.INSTR_COIL_THK,
  188. H.INSTR_COIL_WTH,
  189. H.INSTR_COIL_LEN,
  190. H.INSTR_COIL_INDIA,
  191. H.INSTR_COIL_OUTDIA,
  192. H.INSTR_COIL_WGT,
  193. H.DEVLMT_DTIME,
  194. H.DEST_CD,
  195. H.ORDCUST_CD,
  196. H.CUST_CD,
  197. H.COIL_LEN,
  198. H.COIL_INDIA
  199. --,(CASE WHEN(H.COIL_OUTDIA IS NOT NULL OR H.COIL_OUTDIA <> '' or H.COIL_OUTDIA <> 0)THEN H.COIL_OUTDIA ELSE C_PKG_UIF.F_FUN_GET_OUTSIDE(H.COIL_INDIA,H.ACT_WGT,H.COIL_WTH)end) COIL_OUTDIA
  200. ,
  201. H.COIL_OUTDIA,
  202. H.COIL_THK,
  203. H.COIL_WTH,
  204. H.ACT_WGT,
  205. H.ORD_FL,
  206. H.ORD_NO,
  207. H.ORD_SEQ,
  208. P.C_PRODNM_CD PRODNM_CD,
  209. H.SPEC_ABBSYM,
  210. P.C_SPEC_STL_GRD SPEC_STL_GRD,
  211. H.ORD_USE_CD,
  212. H.SPEC_STL_GRD STL_GRD,
  213. H.PATH_MILL_CD,
  214. H.INGR_DEC_GRD,
  215. H.EXTSHAPE_DEC_GRD,
  216. H.SIZE_DEC_RST,
  217. H.WGT_DEC_RST,
  218. H.PROC_DEC_RST,
  219. H.MATLQLTY_DEC_GRD,
  220. H.TOT_DEC_GRD,
  221. H.MILL_DTIME,
  222. H.CRK_CD1,
  223. H.CRK_CD2,
  224. H.CRK_CD3,
  225. H.CRK_CD4,
  226. H.CRK_CD5,
  227. H.CAL_WGT,
  228. H.OLD_SAMPL_NO,
  229. ? CR_PLANT_TRS_CLF,
  230. ? CR_PLANT_TRS_NO,
  231. ? CR_PLANT_TRS_DTIME,
  232. R.FM_EXT_STRIP_THK_AVG,
  233. R.FM_EXT_STRIP_TEMP_AVG,
  234. R.DC_TEMP_AVG,
  235. R.FM_EXT_STRIP_CROWN_AVG,
  236. H.MILL_DTIME,
  237. H.SAMPL_NO,
  238. H.SAMPL_CUT_LOC,
  239. H.ORD_NO,
  240. H.ORD_SEQ,
  241. H.ORD_FL,
  242. ? CR_PLANT_TRS_SEQ,
  243. H.SPEC_STL_GRD BEF_STL_GRD
  244. FROM TBH02_COIL_COMM H, TBH02_MILL_RESULT R, TBE02_ORD_PRC P
  245. WHERE H.COIL_NO = R.COIL_NO
  246. AND H.ORD_NO = P.ORD_NO(+)
  247. AND H.ORD_SEQ = P.ORD_SEQ(+)
  248. AND H.COIL_NO =
  249. (SELECT COIL_NO FROM TBH02_COIL_COMM WHERE OLD_SAMPL_NO = ?)
  250. ]]>
  251. </query>
  252. <query id="UIH052400_02.insert" desc="插入c_tbk02_comm_d">
  253. <![CDATA[
  254. insert into c_tbk02_coil_comm_d
  255. (coil_no,cut_seq,ord_thk
  256. ,ord_wth,ord_len,ord_wgt,ord_wgt_min,ord_wgt_max
  257. ,ord_india,ord_outdia,ord_no,ord_seq,ord_fl)
  258. select h.old_sampl_no coil_no,d.cut_seq cut_seq,d.c_ord_thk ord_thk
  259. ,d.c_ord_wth ord_wth,d.c_ord_len ord_len
  260. ,d.ord_wgt ord_wgt,d.ord_wgt_min ord_wgt_min
  261. ,d.ord_wgt_max ord_wgt_max,d.c_ord_india ord_india
  262. ,d.c_ord_outdia ord_outdia,d.ord_no ord_no
  263. ,d.ord_seq ord_seq,d.ord_fl ord_fl
  264. from tbh02_coil_comm_d d
  265. ,tbh02_coil_comm h
  266. where d.coil_no = h.coil_no
  267. and h.old_sampl_no = ?
  268. ]]>
  269. </query>
  270. <query id="UIH052400_03.insert" desc="新增移送记录">
  271. <![CDATA[
  272. insert into tbh02_coil_trans t
  273. (
  274. t.TRANS_NO,t.COIL_NO,t.TRANS_FLAG,t.YARD_ADDR
  275. ,t.REG_ID,t.REG_ORDER,t.REG_GROUP,t.REG_DTIME,t.REG_USER_TIME
  276. ,t.cr_plant_trs_clf,t.cr_plant_trs_no,t.cr_plant_trs_seq
  277. )
  278. values
  279. (
  280. (select nvl(max(t1.TRANS_NO),0)+1 from tbh02_coil_trans t1)
  281. ,?,'0',(select max(h.BEF_LOAD_LOC) from tbh02_coil_comm h where h.OLD_SAMPL_NO = ?)
  282. ,?,?,?,?,to_char(sysdate,'YYYYMMDDHH24MISS')
  283. ,?,?,?
  284. )
  285. ]]>
  286. </query>
  287. <query id="UIH052400_04.insert" desc="新增退回记录">
  288. <![CDATA[
  289. insert into tbh02_coil_trans t
  290. (
  291. t.TRANS_NO,t.COIL_NO,t.TRANS_FLAG,t.YARD_ADDR
  292. ,t.REG_ID,t.REG_ORDER,t.REG_GROUP,t.REG_DTIME,t.REG_USER_TIME
  293. )
  294. values
  295. (
  296. (select nvl(max(t1.TRANS_NO),0)+1 from tbh02_coil_trans t1)
  297. ,?,'1',?
  298. ,?,?,?,?,to_char(sysdate,'YYYYMMDDHH24MISS')
  299. )
  300. ]]>
  301. </query>
  302. <query id="UIH052400_05.insert" desc="插入步进梁接口表">
  303. <![CDATA[
  304. INSERT INTO TBS02_L3_IC_TAKE_COIL I(
  305. SEQ_NO --记录顺序号
  306. ,COIL_NO --钢卷号
  307. ,WB_NO --步进梁编号
  308. ,SADDLE_NO --鞍座号
  309. ,DIRECT --方向
  310. ,PROC_NAME --进程名称
  311. )
  312. VALUES(?,?,nvl(?,'4'),nvl(?,'1'),'0','UIH052400')
  313. ]]>
  314. </query>
  315. <query id="UIH052400_01.update" desc="c_tbk02_comm_d订单信息修改">
  316. <![CDATA[
  317. update c_tbk02_coil_comm_d d set
  318. d.ord_thk = ?
  319. ,d.ord_wth = ?
  320. ,d.ord_len = ?
  321. ,d.ord_wgt = ?
  322. ,d.ord_wgt_min = ?
  323. ,d.ord_wgt_max = ?
  324. ,d.ord_india = ?
  325. ,d.ord_outdia = ?
  326. ,d.ord_no = ?
  327. ,d.ord_seq = ?
  328. ,d.ord_fl = ?
  329. where d.coil_no = ?
  330. AND d.CUT_SEQ = ?
  331. ]]>
  332. </query>
  333. <query id="UIH052400_02.update" desc="原料公共表转运更新">
  334. <![CDATA[
  335. UPDATE C_TBK02_COIL_COMM K set K.SLAB_NO = ?,K.COIL_STAT = 1,K.CUR_PROG_CD = 'PAB'
  336. ,K.CUR_PROG_CD_DTIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS'),K.CUR_PROG_CD_PGM = 'UIH052400'
  337. ,K.BEF_PROG_CD = ?,K.BEF_PROG_CD_DTIME= ?,K.BEF_PROG_CD_PGM= ?
  338. ,K.INSTR_COIL_THK = ?,K.INSTR_COIL_WTH = ?,K.INSTR_COIL_LEN = ?
  339. ,K.INSTR_COIL_INDIA = ?,K.INSTR_COIL_OUTDIA = ?,K.INSTR_COIL_WGT = ?
  340. ,K.DEVLMT_DTIME = ?,K.DEST_CD = ?,K.ORDCUST_CD = ?,K.CUST_CD = ?
  341. ,K.COIL_LEN = ?,K.COIL_INDIA = ?,K.COIL_OUTDIA = ?,K.COIL_THK = ?,
  342. K.COIL_WTH = ?,K.ACT_WGT = ?,K.ORD_FL = ?,K.ORD_NO = ?,K.ORD_SEQ = ?
  343. ,K.PRODNM_CD = ?,K.SPEC_ABBSYM = ?,K.SPEC_STL_GRD = ?,K.ORD_USE_CD = ?
  344. ,K.STL_GRD = ?,K.PATH_MILL_CD = ?,K.INGR_DEC_GRD = ?,K.EXTSHAPE_DEC_GRD = ?
  345. ,K.SIZE_DEC_RST = ?,K.WGT_DEC_RST = ?,K.PROC_DEC_RST = ?,K.MATLQLTY_DEC_GRD = ?
  346. ,K.TOT_DEC_GRD = ?,K.MILL_DTIME = ?,K.CRK_CD1 = ?,K.CRK_CD2 = ?,K.CRK_CD3 = ?
  347. ,K.CRK_CD4 = ?,K.CRK_CD5 = ?,K.CAL_WGT = ?,K.OLD_SAMPL_NO = ?
  348. ,K.CR_PLANT_TRS_CLF = ?,K.CR_PLANT_TRS_NO = ?,K.CR_PLANT_TRS_DTIME = ?
  349. ,K.FM_EXT_STRIP_THK_AVG = ?,K.FM_EXT_STRIP_TEMP_AVG = ?,K.DC_TEMP_AVG = ?
  350. ,K.FM_EXT_STRIP_CROWN_AVG = ?
  351. ,K.RECEIVE_TIME = ?,K.SMP_NO = ?,K.SMP_CUT_LOC = ?
  352. ,k.OLD_ORD_FL = ?,k.OLD_ORD_NO = ?,k.OLD_ORD_SEQ = ?
  353. ,k.CR_PLANT_TRS_SEQ = ?
  354. WHERE K.COIL_NO = ?
  355. ]]>
  356. </query>
  357. <query id="UIH052400_03.update" desc="更新热轧库移送出库状态">
  358. <![CDATA[
  359. UPDATE TBH02_COIL_COMM H SET H.COIL_STAT = '3',H.BEF_PROG_CD = H.CUR_PROG_CD,
  360. H.BEF_PROG_CD_DTIME = H.CUR_PROG_CD_DTIME,H.BEF_PROG_CD_PGM = H.CUR_PROG_CD_PGM,
  361. H.CUR_PROG_CD = 'SGF', H.CUR_PROG_CD_DTIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS'),
  362. H.CUR_PROG_CD_PGM = 'UIH052400',H.BEF_LOAD_LOC = H.CUR_LOAD_LOC,
  363. H.TRNF_SHIFT = ?, H.TRNF_GROUP = ?, H.TRNF_REG = ?,H.CUR_LOAD_LOC = 'L',
  364. H.TRNF_DTIME = ?, H.TRNF_USE_TIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS'),
  365. H.CR_PLANT_TRS_CLF = ?, H.CR_PLANT_TRS_NO = ?, H.CR_PLANT_TRS_DTIME = ?
  366. ,H.DLIV_TP = 'L',H.CR_PLANT_TRS_SEQ = ?,H.CR_PLANT_TRS_FLAG = ?
  367. WHERE H.OLD_SAMPL_NO = ?
  368. ]]>
  369. </query>
  370. <query id="UIH052400_04.update" desc="更新热轧库存表 ">
  371. <![CDATA[
  372. UPDATE TBH05_COIL_YARD T SET
  373. T.COIL_NO = '',
  374. T.REG_ID = '',
  375. T.REG_DTIME = ''
  376. WHERE T.COIL_NO = ?
  377. ]]>
  378. </query>
  379. <query id="UIH052400_05.update" desc="更新热轧库退回状态">
  380. <![CDATA[
  381. UPDATE TBH02_COIL_COMM H SET H.COIL_STAT = '2',H.CUR_PROG_CD = decode(H.ORD_FL,'1','SGB','SRC'),H.CUR_PROG_CD_PGM = 'UIH052400',
  382. H.YARD_ENTRY_SHIFT = ?, H.YARD_ENTRY_GROUP = ?, H.YARD_ENTRY_REG = ?,H.CUR_LOAD_LOC = ?,
  383. H.YARD_ENTRY_DTIME = ?, H.YARD_ENTRY_USE_TIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS')
  384. WHERE H.OLD_SAMPL_NO = ?
  385. ]]>
  386. </query>
  387. <query id="UIH052400_06.update" desc="更新热轧库退回入库垛位">
  388. <![CDATA[
  389. UPDATE TBH05_COIL_YARD T SET
  390. T.COIL_NO = ?,
  391. T.REG_ID = ?,
  392. T.REG_DTIME = TO_CHAR(SYSDATE,'YYYYMMDDHH24MISS')
  393. where t.YARD_CLF = substr(?,0,5)
  394. and t.STEP_CLF = substr(?,6,2)
  395. and t.STORELAY = substr(?,8,1)
  396. and t.STORE_SEQ = substr(?,9,1)
  397. ]]>
  398. </query>
  399. <query id="UIH052401_01.select" desc="查询待判移送钢卷">
  400. <![CDATA[
  401. SELECT 'N' CHK, H.COIL_NO,H.OLD_SAMPL_NO,H.CR_PLANT_TRS_DTIME,H.CR_PLANT_TRS_SEQ
  402. ,decode(H.TOT_DEC_GRD,'1','合格','2','不合格','3','外观异常','4','废品') TOT_DEC_GRD
  403. ,H.SPEC_STL_GRD,TO_CHAR(H.COIL_THK,'FM990.099')||'*'||H.COIL_WTH T_W
  404. ,TO_CHAR(H.INSTR_COIL_THK,'FM990.099')||'*'||H.INSTR_COIL_WTH IT_IW
  405. ,H.ACT_WGT,H.ORD_NO,H.ORD_SEQ,H.CR_PLANT_TRS_CLF,H.CR_PLANT_TRS_NO
  406. FROM TBH02_COIL_COMM H WHERE H.CR_PLANT_TRS_FLAG = 'N'
  407. ORDER BY H.CR_PLANT_TRS_DTIME,H.CR_PLANT_TRS_SEQ
  408. ]]>
  409. </query>
  410. <query id="UIH052401_01.update" desc="更改热轧成口移送确认状态">
  411. <![CDATA[
  412. UPDATE TBH02_COIL_COMM H SET H.CR_PLANT_TRS_FLAG = ? WHERE H.OLD_SAMPL_NO = ?
  413. ]]>
  414. </query>
  415. <query id="UIH052400_08.select" desc="查询移送钢卷,外观判定和尺寸判定">
  416. <![CDATA[
  417. select t.EXTSHAPE_DEC_GRD,t.SIZE_DEC_RST from tbh02_coil_comm t where t.OLD_SAMPL_NO = ?
  418. ]]>
  419. </query>
  420. </queryMap>