8c2337e39c8aadbf6eca7ecfacc13ed2177e2cef.svn-base 34 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895
  1. <?xml version="1.0" encoding="UTF-8"?>
  2. <queryMap desc="成品库库存数据查询">
  3. <query id="UIM010232_01.SELECT" desc="成品库库存数据查询">
  4. <![CDATA[
  5. SELECT A.OLD_SAMPL_NO
  6. --XB_PACKAGE.GF_COMNNAME_FIND('A01004' , A.PRODNM_CD) PRODNM_CD
  7. ,
  8. A.SPEC_STL_GRD,
  9. (SELECT T.SM_CFNM
  10. FROM TBZ00_COMMCD T
  11. WHERE T.LG_CD = 'E01010'
  12. AND T.SM_CD = A.NONORD_CAUSE_CD) NONORD_CAUSE_CD
  13. ,A.COIL_INDIA,
  14. A.COIL_THK,
  15. A.COIL_WTH,
  16. A.INSTR_COIL_THK,
  17. A.INSTR_COIL_WTH,
  18. A.ACT_WGT,
  19. A.DCS_THK,
  20. A.DCS_WTH,
  21. A.FB_YN,
  22. A.FB_REASON,
  23. A.DEFECTIVE,
  24. DECODE(A.ORD_FL, '1', '订单材', '2', '余材', '', '未判') ORD_FL,
  25. A.ORD_NO,
  26. A.ORD_SEQ,
  27. L.YCSCCZYJ,
  28. L.YCJSCZYJ,
  29. M.YC_MEMO
  30. ,M.YC_GSDW
  31. ,ROUND(TO_NUMBER(SYSDATE -
  32. TO_DATE(A.MILL_DTIME, 'YYYY-MM-DD HH24:MI:SS')) * 24) ZKSJ,
  33. A.CUR_LOAD_LOC,
  34. DECODE(A.TOT_DEC_GRD,
  35. '1',
  36. '合格',
  37. '2',
  38. '不合格',
  39. '3',
  40. '次品',
  41. '4',
  42. '废品') TOT_DEC_GRD,
  43. DECODE(A.INGR_DEC_GRD,
  44. '0',
  45. '综合判定取消',
  46. '1',
  47. '合格',
  48. '2',
  49. '不合格') INGR_DEC_GRD,
  50. DECODE(A.MATLQLTY_DEC_GRD,
  51. '0',
  52. '无性能要求',
  53. '1',
  54. '合格',
  55. '2',
  56. '不合格') MATRL_END_CAUSE_CD,
  57. DECODE(A.SIZE_DEC_RST, '1', '合格', '2', '不合格') SIZE_DEC_RST,
  58. DECODE(A.EXTSHAPE_DEC_GRD,
  59. '1',
  60. '合格',
  61. '2',
  62. '订单外合格',
  63. '3',
  64. '次品',
  65. '4',
  66. '废品',
  67. '待判') EXTSHAPE_DEC_GRD,
  68. DECODE(A.WGT_DEC_RST, '1', '合格', '2', '不合格') WGT_DEC_RST,
  69. C_PKG_UIM.GET_STDDATESTR(A.YARD_ENTRY_DTIME) YARD_ENTRY_DTIME,
  70. C_PKG_UIM.GET_STDTIMESTR(A.YARD_ENTRY_USE_TIME) YARD_ENTRY_USE_TIME,
  71. (SELECT USERNAME
  72. FROM CORE_APP_USER U
  73. WHERE U.USERID = A.YARD_ENTRY_REG) YARD_ENTRY_REG,
  74. DECODE(A.YARD_ENTRY_SHIFT,
  75. '0',
  76. '常白班',
  77. '1',
  78. '早班',
  79. '2',
  80. '中班',
  81. '3',
  82. '晚班') YARD_ENTRY_SHIFT,
  83. DECODE(A.YARD_ENTRY_GROUP,
  84. '0',
  85. '常白班',
  86. '1',
  87. '甲班',
  88. '2',
  89. '乙班',
  90. '3',
  91. '丙班',
  92. '4',
  93. '丁班') YARD_ENTRY_GROUP,
  94. SUBSTR(B.SLAB_NO, 0, 10) CHARGE_NO,
  95. (SELECT TBZ00_COMMCD.SM_CFNM
  96. FROM TBZ00_COMMCD
  97. WHERE TBZ00_COMMCD.SM_CD = J.DEST_PCD
  98. AND ROWNUM = 1) STATIONCODE, --到站
  99. (SELECT T.SM_CFNM
  100. FROM TBZ00_COMMCD T
  101. WHERE T.LG_CD = 'A01012'
  102. AND T.SM_CD = C.DLIV_TP) DLIV_TP,
  103. (SELECT T.CUST_NM
  104. FROM TBZ00_CUSTOMER T
  105. WHERE T.CUST_CD = D.ORDCUST_CD) ORDCUST_CD
  106. /*,DECODE(A.CUR_PROG_CD,'DRC','连退卷充当待机','DBA','重卷指示待机','DBB','重卷作业待机'
  107. ,'DCA','包装指示待机','DCB','包装作业待机','DED','综合判定待机','DFA','发货指示待机'
  108. ,'DFB','发货待机','CCA','连退作业指示待机','CCB','连退作业待机','CCC','连退卷取待机'
  109. ) CUR_PROG_CD*/,
  110. (CASE
  111. WHEN XB_PACKAGE.GF_COMNNAME_FIND('E01002', A.CUR_PROG_CD) =
  112. '连退成品充当待机' AND a.DEFECTIVE = 'Y' then
  113. '二级库存'
  114. ELSE
  115. XB_PACKAGE.GF_COMNNAME_FIND('E01002', a.CUR_PROG_CD)
  116. END)
  117. CUR_PROG_CD,
  118. C_PKG_UIM.GET_STDDATESTR(C.ORD_DEVLMT_DATE) ORD_DEVLMT_DATE,
  119. E.SMP_SEND_DTIME,
  120. E.SMP_WORK_DTIME,
  121. TO_CHAR(TO_DATE(A.TOT_DEC_DTIME, 'YYYY-MM-DD HH24:MI:SS'),
  122. 'YYYY-MM-DD HH24:MI:SS') QLTY_DCS_DTIME,
  123. E.SMP_INTO_DTIME,
  124. TO_CHAR(ROUND(((TO_DATE(E.SMP_SEND_DTIME, 'YYYY-MM-DD HH24:MI:SS') -
  125. TO_DATE(A.MILL_DTIME, 'YYYY-MM-DD HH24:MI:SS')) *
  126. 86400) / 3600,
  127. 1)) GET_SEND_DTIME,
  128. TO_CHAR(ROUND(((TO_DATE(A.TOT_DEC_DTIME, 'YYYY-MM-DD HH24:MI:SS') -
  129. TO_DATE(E.SMP_SEND_DTIME, 'YYYY-MM-DD HH24:MI:SS')) *
  130. 86400) / 3600,
  131. 1)) TO_YANG_DTIME,
  132. C_PKG_UIM.GET_STDTIMESTR(A.MILL_DTIME) MILL_DTIME,
  133. C.XSQY,
  134. TO_CHAR(TO_DATE(J.DLIV_DIR_DATE, 'YYYY-MM-DD'), 'YYYY-MM-DD') || '/' || '' AFFIRMTIME,
  135. C_PKG_UIM.GET_STDDATESTR(C.ORD_PLAN_DATA) ORD_PLAN_DATA,
  136. pkg_quality_comm.FZ00_COMM('A01010',A.PACKAGE_LEVEL) PACKAGE_LEVEL,
  137. DECODE(A.CAL_TYPE, '2', '返修', '3', '过渡', NULL) RCAL,
  138. A.ORG_ORD_NO,
  139. A.ORG_ORD_SEQ,
  140. A.BEF_STL_GRD,
  141. A.EXTSHAPE_QUALITY,
  142. F.CAL_NO,
  143. H.STL_GRD,
  144. B.SLAB_DCS_DETAIL BPBZ,
  145. k.C_EXTSHAPE_REQ,
  146. C.TRTMTH_TP C_PRODNM_CD,
  147. K.MK_CONTENT,-----------订单注备
  148. -- A.PRODNM_CD,
  149. /* XB_PACKAGE.GF_COMNNAME_FIND('B02001', A.CRK_CD1) || CASE
  150. WHEN A.CRK_CD2 IS NOT NULL THEN
  151. '+'
  152. ELSE
  153. ' '
  154. END || XB_PACKAGE.GF_COMNNAME_FIND('B02001', A.CRK_CD2) COIL_CRK,*/
  155. XB_PACKAGE.GF_COMNNAME_FIND('B02001', A.CRK_CD1) CRK_CD1,
  156. REGEXP_SUBSTR(A.CRK_CD1_TYPE, '[【][A-Za-z0-9,-]+[】]$') CRK_CD1_TYPE,
  157. XB_PACKAGE.GF_COMNNAME_FIND('B02001', A.CRK_CD2) CRK_CD2,
  158. REGEXP_SUBSTR(A.CRK_CD2_TYPE, '[【][A-Za-z0-9,-]+[】]$') CRK_CD2_TYPE,
  159. XB_PACKAGE.GF_COMNNAME_FIND('B02001', A.CRK_CD3) CRK_CD3,
  160. REGEXP_SUBSTR(A.CRK_CD3_TYPE, '[【][A-Za-z0-9,-]+[】]$') CRK_CD3_TYPE,
  161. XB_PACKAGE.GF_COMNNAME_FIND('B02001', A.CRK_CD4) CRK_CD4,
  162. REGEXP_SUBSTR(A.CRK_CD4_TYPE, '[【][A-Za-z0-9,-]+[】]$') CRK_CD4_TYPE,
  163. XB_PACKAGE.GF_COMNNAME_FIND('B02001', A.CRK_CD5) CRK_CD5,
  164. REGEXP_SUBSTR(A.CRK_CD5_TYPE, '[【][A-Za-z0-9,-]+[】]$') CRK_CD5_TYPE
  165. ,TA.*
  166. ,K.ROLL_SURFACE_YN --辊面要求
  167. ,K.ANNOITA_YN --涂油要求
  168. ,A.OIL_TOP
  169. ,A.OIL_BOT
  170. ,C.C_ORD_INDIA
  171. ,(CASE WHEN A.ORD_FL = '2' THEN '' ELSE
  172. K.C_PRODNM_CD || '/' || C.C_EXTSHAPE_REQ || '/' ||
  173. SUBSTR(PKG_QUALITY_COMM.FZ00_COMM('A01010', C.PAKMTH_TP), 0, 1) ||
  174. '/大于' || C.PROD_WGT_MIN || '小于' || C.PROD_WGT_MAX || '/' ||
  175. PKG_QUALITY_COMM.FZ00_COMM('A01010', C.PAKMTH_TP) || '/厚度(' ||
  176. K.C_ORD_THK_MIN || '~' || K.C_ORD_THK_MAX || ')/宽度(' ||
  177. K.C_ORD_WTH_MIN || '~' || K.C_ORD_WTH_MAX || ')/内径(' ||
  178. C.C_ORD_INDIA || ')' END) JISHUYAOQIU
  179. FROM C_TBC02_COIL_COMM A,
  180. TBG02_SLAB_COMM B,
  181. TBA01_ORD_LINE C,
  182. TBA01_ORD_COMM D,
  183. TBJ01_DLIV_DIR J,
  184. TBB02_LOT_COM E,
  185. LZ_YCCZYJ L,
  186. JB_YC M,
  187. TBE02_ORD_PRC K,
  188. (SELECT CK.STL_GRD STL_GRD,
  189. CK.SPEC_STL_GRD SPEC_STL_GRD,
  190. CT.C_COIL_NO C_COIL_NO
  191. FROM C_TBK02_COIL_COMM CK, C_TBF03_SPEC_MILL CT
  192. WHERE CK.OLD_SAMPL_NO = CT.COIL_NO) H,
  193. (SELECT MAX(CAL_NO) CAL_NO, EXIT_COIL_NO
  194. FROM L_TBF03_SPEC_MILL
  195. GROUP BY EXIT_COIL_NO) F
  196. ,(SELECT T1.OLD_SAMPL_NO OLDSAMPLNO,
  197. MAX(DECODE(SUBSTR(T2.QLTY_CD, 1, 2) || T3.MS_QLTY_RP,
  198. 'YS000',
  199. T2.QLTY_VAL_WK,
  200. NULL)) LC_YSREL --屈服强度REL ReL
  201. ,
  202. MAX(DECODE(SUBSTR(T2.QLTY_CD, 1, 2) || T3.MS_QLTY_RP,
  203. 'YS0.2',
  204. T2.QLTY_VAL_WK,
  205. NULL)) LC_YSRP --屈服强度Rp0.2 Rp0.2
  206. ,
  207. MAX(DECODE(SUBSTR(T2.QLTY_CD, 1, 2) || T3.MS_QLTY_RP,
  208. 'EL050',
  209. T2.QLTY_VAL_WK,
  210. NULL)) LC_EL50 --伸长率A50 伸长率A50
  211. ,
  212. MAX(DECODE(SUBSTR(T2.QLTY_CD, 1, 2) || T3.MS_QLTY_RP,
  213. 'EL080',
  214. T2.QLTY_VAL_WK,
  215. NULL)) LC_EL80 --伸长率A50 伸长率A80
  216. ,
  217. MAX(DECODE(SUBSTR(T2.QLTY_CD, 1, 2) || T3.MS_QLTY_RP,
  218. 'EL000',
  219. T2.QLTY_VAL_WK,
  220. NULL)) LC_EL --伸长率A(非定标) 伸长率A
  221. ,
  222. MAX(DECODE(SUBSTR(T2.QLTY_CD, 1, 2), 'TE', T2.QLTY_VAL_WK, NULL)) LC_TE --抗拉强度 抗拉强度
  223. ,
  224. MAX(DECODE(T2.QLTY_CD, 'TT09', T2.QLTY_VAL_WK, NULL)) LC_R --r值
  225. ,
  226. MAX(DECODE(T2.QLTY_CD, 'TT20', T2.QLTY_VAL_WK, NULL)) LC_N --n值
  227. ,
  228. MAX(DECODE(T2.QLTY_CD, 'TT19', T2.QLTY_VAL_WK, NULL)) LC_BH --烘烤硬化
  229. ,
  230. MAX(DECODE(T2.QLTY_CD, 'DC01', T2.QLTY_VAL_WK, NULL)) LC_TS --铁损
  231. ,
  232. MAX(DECODE(T2.QLTY_CD, 'DC02', T2.QLTY_VAL_WK, NULL)) LC_CG -- 磁感
  233. ,
  234. MAX(DECODE(T2.QLTY_CD, 'TT18', T2.QLTY_VAL_WK, NULL)) LC_TT18 -- 上表面粗糙度
  235. ,
  236. MAX(DECODE(T2.QLTY_CD, 'TT26', T2.QLTY_VAL_WK, NULL)) LC_TT26 -- 下表面粗糙度
  237. ,
  238. ROUND(AVG(CASE WHEN SUBSTR(T4.QLTY_CD,1,2) = 'HD' THEN T4.QLTY_VAL_WK ELSE NULL END),1) LC_YD ---硬度
  239. FROM C_TBC02_COIL_COMM T1, TBB02_WORK_QLTY T2 , TBB01_SEQ_QLTY T3 , TBB02_REWORK_QLTY T4
  240. WHERE T1.SMP_NO = T2.SMP_NO
  241. AND T1.SMP_CUT_LOC = T2.SMP_CUT_LOC
  242. AND T1.SMP_NO = T4.SMP_NO(+)
  243. AND T1.SMP_CUT_LOC = T4.SMP_CUT_LOC(+)
  244. AND T2.QLTY_CD = T3.QLTY_CD
  245. AND T1.COIL_STAT='2'
  246. GROUP BY T1.OLD_SAMPL_NO
  247. union all --20221121 加入一体化上线之后的性能
  248. select T.OLD_SAMPL_NO LC_COIL_NO,
  249. MAX(DECODE(t2.phy_code_s || t3.phy_unit,
  250. 'A01ReL',
  251. to_number(T2.VAL1),
  252. NULL)) LC_YSREL, --屈服rel
  253. MAX(DECODE(t2.phy_code_s || t3.phy_unit,
  254. 'A01Rp0.2',
  255. to_number(T2.VAL1),
  256. NULL)) LC_YSRP, --屈服rp0.2
  257. MAX(DECODE(t2.phy_code_s || t3.phy_unit,
  258. 'A0650mm',
  259. to_number(T2.VAL1),
  260. NULL)) LC_EL50, --伸长A50
  261. MAX(DECODE(t2.phy_code_s || t3.phy_unit,
  262. 'A0680mm',
  263. to_number(T2.VAL1),
  264. NULL)) LC_EL80, --伸长A80
  265. MAX(DECODE(t2.phy_code_s || t3.phy_unit,
  266. 'A06',
  267. to_number(T2.VAL1),
  268. NULL)) LC_EL, --伸长A
  269. MAX(DECODE(t2.phy_code_s, 'A02', to_number(T2.VAL1), NULL)) LC_TE, --抗拉
  270. MAX(DECODE(t2.phy_code_s, 'A12', to_number(t2.val1), null)) LC_R, --塑性应变比(r90)
  271. MAX(DECODE(t2.phy_code_s, 'A09', to_number(t2.val1), null)) LC_N, --应变硬化指数(n90)
  272. MAX(DECODE(t2.phy_code_s, 'T01', to_number(t2.val1), null)) LC_TX, --铁损[P1.5/50,W/kg](原来的表TBB01_SEQ_QLTY是前面的名称,新表qcm_jhy_insp_physics只有铁损两个字)
  273. MAX(DECODE(t2.phy_code_s, 'T02', to_number(t2.val1), null)) LC_CG, --磁感[B5000,T](跟上面的一样,新表没有中括号里面的内容)
  274. to_number('') LC_BH, --老表中是烘烤硬化值(BH2),新表没看到相关的数据
  275. MAX(DECODE(t2.phy_code_s, 'V01', to_number(t2.AVG_VAL), null)) LC_TT18, --上表面粗糙度
  276. MAX(DECODE(t2.phy_code_s, 'V02', to_number(t2.AVG_VAL), null)) LC_TT26, --下表面粗糙度
  277. MAX(DECODE(t2.phy_code_s, 'D01', to_number(T2.AVG_VAL), NULL)) YD_PJ --平均硬度
  278. from c_tbc02_coil_comm t,
  279. qcm_jhy_sample_consign_d t1,
  280. qcm_jhy_insp_physics t2,
  281. qcm_jhy_sample_consign_d_item t3
  282. where t.SMP_NO = t1.inspection_lot
  283. and t1.specimen_no = t2.specimen_no
  284. and t2.specimen_no = t3.specimen_no
  285. and t2.seq = t3.seq
  286. AND T.COIL_STAT='2'
  287. GROUP BY T.OLD_SAMPL_NO
  288. ) TA
  289. WHERE '1' = '1'
  290. AND A.SLAB_NO = B.SLAB_NO(+)
  291. AND A.ORD_NO = C.ORD_NO(+)
  292. AND A.ORD_SEQ = C.ORD_SEQ(+)
  293. AND A.ORD_NO = D.ORD_NO(+)
  294. AND A.SMP_NO = E.SMP_NO(+)
  295. AND A.ORD_NO = K.ORD_NO(+)
  296. AND A.ORD_SEQ = K.ORD_SEQ(+)
  297. AND A.DLIV_DIRNO = J.DLIV_DIRNO(+)
  298. AND A.OLD_SAMPL_NO = F.EXIT_COIL_NO(+)
  299. AND A.OLD_SAMPL_NO = L.COIL_NO(+)
  300. AND A.OLD_SAMPL_NO = M.OLD_SAMPL_NO(+)
  301. AND A.COIL_STAT = '2'
  302. AND A.OLD_SAMPL_NO = TA.OLDSAMPLNO(+)
  303. AND NVL(A.EXTSHAPE_QUALITY,'NULLP') NOT IN('FP','CP')---屏蔽废次卷
  304. AND SUBSTR(A.OLD_SAMPL_NO, 1, 12) = H.C_COIL_NO(+)
  305. --AND A.CUR_PROG_CD IN ('DFA' ,'DFB')
  306. --AND A.PACKAGE_FL='1'
  307. AND A.OLD_SAMPL_NO || '&' LIKE '%' || ? || '%'
  308. AND A.SPEC_STL_GRD || '&' LIKE ? || '%'
  309. AND A.CUR_LOAD_LOC LIKE ? || '%'
  310. AND A.COIL_THK >= NVL(?, '000')
  311. AND A.COIL_THK <= NVL(?, '999')
  312. AND A.COIL_WTH >= NVL(?, '00000')
  313. AND A.COIL_WTH <= NVL(?, '99999')
  314. AND SUBSTR(NVL(A.YARD_ENTRY_DTIME, 99999999999999), 1, 8) >= NVL(?, 0)
  315. AND SUBSTR(NVL(A.YARD_ENTRY_DTIME, 0), 1, 8) <= NVL(?, 99999999999999)
  316. AND A.ORD_NO || '&' LIKE ? || '%'
  317. AND A.CUR_PROG_CD || '&' LIKE ? || '%'
  318. AND C.ORD_DEVLMT_DATE || '&' LIKE ? || '%'
  319. AND E.SMP_SEND_DTIME || '&' LIKE ? || '%'
  320. AND A.PRODNM_CD || '&' LIKE ? || '%'
  321. AND A.ORD_FL || '&' LIKE ? || '%'
  322. ]]>
  323. </query>
  324. <query id="UIM010232_02.SELECT" desc="成品库库存非计划数据查询">
  325. <![CDATA[
  326. SELECT A.OLD_SAMPL_NO
  327. --XB_PACKAGE.GF_COMNNAME_FIND('A01004' , A.PRODNM_CD) PRODNM_CD
  328. ,
  329. A.SPEC_STL_GRD,
  330. (SELECT T.SM_CFNM
  331. FROM TBZ00_COMMCD T
  332. WHERE T.LG_CD = 'E01010'
  333. AND T.SM_CD = A.NONORD_CAUSE_CD) NONORD_CAUSE_CD
  334. ,A.COIL_INDIA,
  335. A.COIL_THK,
  336. A.COIL_WTH,
  337. A.INSTR_COIL_THK,
  338. A.INSTR_COIL_WTH,
  339. A.ACT_WGT,
  340. A.DCS_THK,
  341. A.DCS_WTH,
  342. A.FB_YN,
  343. A.DEFECTIVE,
  344. DECODE(A.ORD_FL, '1', '订单材', '2', '余材', '', '未判') ORD_FL,
  345. A.ORD_NO,
  346. A.ORD_SEQ,
  347. A.CUR_LOAD_LOC,
  348. DECODE(A.TOT_DEC_GRD,
  349. '1',
  350. '合格',
  351. '2',
  352. '不合格',
  353. '3',
  354. '次品',
  355. '4',
  356. '废品') TOT_DEC_GRD,
  357. DECODE(A.INGR_DEC_GRD,
  358. '0',
  359. '综合判定取消',
  360. '1',
  361. '合格',
  362. '2',
  363. '不合格') INGR_DEC_GRD,
  364. DECODE(A.MATLQLTY_DEC_GRD,
  365. '0',
  366. '无性能要求',
  367. '1',
  368. '合格',
  369. '2',
  370. '不合格') MATRL_END_CAUSE_CD,
  371. DECODE(A.SIZE_DEC_RST, '1', '合格', '2', '不合格') SIZE_DEC_RST,
  372. DECODE(A.EXTSHAPE_DEC_GRD,
  373. '1',
  374. '合格',
  375. '2',
  376. '订单外合格',
  377. '3',
  378. '次品',
  379. '4',
  380. '废品',
  381. '待判') EXTSHAPE_DEC_GRD,
  382. DECODE(A.WGT_DEC_RST, '1', '合格', '2', '不合格') WGT_DEC_RST,
  383. C_PKG_UIM.GET_STDDATESTR(A.YARD_ENTRY_DTIME) YARD_ENTRY_DTIME,
  384. C_PKG_UIM.GET_STDTIMESTR(A.YARD_ENTRY_USE_TIME) YARD_ENTRY_USE_TIME,
  385. (SELECT USERNAME
  386. FROM CORE_APP_USER U
  387. WHERE U.USERID = A.YARD_ENTRY_REG) YARD_ENTRY_REG,
  388. DECODE(A.YARD_ENTRY_SHIFT,
  389. '0',
  390. '常白班',
  391. '1',
  392. '早班',
  393. '2',
  394. '中班',
  395. '3',
  396. '晚班') YARD_ENTRY_SHIFT,
  397. DECODE(A.YARD_ENTRY_GROUP,
  398. '0',
  399. '常白班',
  400. '1',
  401. '甲班',
  402. '2',
  403. '乙班',
  404. '3',
  405. '丙班',
  406. '4',
  407. '丁班') YARD_ENTRY_GROUP,
  408. SUBSTR(B.SLAB_NO, 0, 10) CHARGE_NO,
  409. (SELECT TBZ00_COMMCD.SM_CFNM
  410. FROM TBZ00_COMMCD
  411. WHERE TBZ00_COMMCD.SM_CD = J.DEST_PCD
  412. AND ROWNUM = 1) STATIONCODE, --到站
  413. (SELECT T.SM_CFNM
  414. FROM TBZ00_COMMCD T
  415. WHERE T.LG_CD = 'A01012'
  416. AND T.SM_CD = C.DLIV_TP) DLIV_TP,
  417. (SELECT T.CUST_NM
  418. FROM TBZ00_CUSTOMER T
  419. WHERE T.CUST_CD = D.ORDCUST_CD) ORDCUST_CD
  420. /*,DECODE(A.CUR_PROG_CD,'DRC','连退卷充当待机','DBA','重卷指示待机','DBB','重卷作业待机'
  421. ,'DCA','包装指示待机','DCB','包装作业待机','DED','综合判定待机','DFA','发货指示待机'
  422. ,'DFB','发货待机','CCA','连退作业指示待机','CCB','连退作业待机','CCC','连退卷取待机'
  423. ) CUR_PROG_CD*/,
  424. (CASE
  425. WHEN XB_PACKAGE.GF_COMNNAME_FIND('E01002', A.CUR_PROG_CD) =
  426. '连退成品充当待机' AND a.DEFECTIVE = 'Y' then
  427. '二级库存'
  428. ELSE
  429. XB_PACKAGE.GF_COMNNAME_FIND('E01002', a.CUR_PROG_CD)
  430. END)
  431. CUR_PROG_CD,
  432. C_PKG_UIM.GET_STDDATESTR(C.ORD_DEVLMT_DATE) ORD_DEVLMT_DATE,
  433. E.SMP_SEND_DTIME,
  434. E.SMP_WORK_DTIME,
  435. TO_CHAR(TO_DATE(A.TOT_DEC_DTIME, 'YYYY-MM-DD HH24:MI:SS'),
  436. 'YYYY-MM-DD HH24:MI:SS') QLTY_DCS_DTIME,
  437. E.SMP_INTO_DTIME,
  438. TO_CHAR(ROUND(((TO_DATE(E.SMP_SEND_DTIME, 'YYYY-MM-DD HH24:MI:SS') -
  439. TO_DATE(A.MILL_DTIME, 'YYYY-MM-DD HH24:MI:SS')) *
  440. 86400) / 3600,
  441. 1)) GET_SEND_DTIME,
  442. TO_CHAR(ROUND(((TO_DATE(A.TOT_DEC_DTIME, 'YYYY-MM-DD HH24:MI:SS') -
  443. TO_DATE(E.SMP_SEND_DTIME, 'YYYY-MM-DD HH24:MI:SS')) *
  444. 86400) / 3600,
  445. 1)) TO_YANG_DTIME,
  446. C_PKG_UIM.GET_STDTIMESTR(A.MILL_DTIME) MILL_DTIME,
  447. C.XSQY,
  448. TO_CHAR(TO_DATE(J.DLIV_DIR_DATE, 'YYYY-MM-DD'), 'YYYY-MM-DD') || '/' || '' AFFIRMTIME,
  449. C_PKG_UIM.GET_STDDATESTR(C.ORD_PLAN_DATA) ORD_PLAN_DATA,
  450. DECODE(A.PACKAGE_LEVEL,
  451. '1',
  452. '不包装',
  453. '2',
  454. '简易包装',
  455. '3',
  456. '普通包装',
  457. '4',
  458. '精包装',
  459. '5',
  460. '出口包装') PACKAGE_LEVEL,
  461. DECODE(A.CAL_TYPE, '2', '返修', '3', '过渡', NULL) RCAL,
  462. A.ORG_ORD_NO,
  463. A.ORG_ORD_SEQ,
  464. L.YCSCCZYJ,
  465. L.YCJSCZYJ
  466. ,M.YC_MEMO
  467. ,M.YC_GSDW
  468. ,ROUND(TO_NUMBER(SYSDATE -
  469. TO_DATE(A.MILL_DTIME, 'YYYY-MM-DD HH24:MI:SS')) * 24) ZKSJ,
  470. A.BEF_STL_GRD,
  471. A.EXTSHAPE_QUALITY,
  472. F.CAL_NO,
  473. H.STL_GRD,
  474. B.SLAB_DCS_DETAIL BPBZ,
  475. k.C_EXTSHAPE_REQ,
  476. C.TRTMTH_TP C_PRODNM_CD,
  477. K.MK_CONTENT,-----------订单注备
  478. -- A.PRODNM_CD,
  479. /* XB_PACKAGE.GF_COMNNAME_FIND('B02001', A.CRK_CD1) || CASE
  480. WHEN A.CRK_CD2 IS NOT NULL THEN
  481. '+'
  482. ELSE
  483. ' '
  484. END || XB_PACKAGE.GF_COMNNAME_FIND('B02001', A.CRK_CD2) COIL_CRK,*/
  485. XB_PACKAGE.GF_COMNNAME_FIND('B02001', A.CRK_CD1) CRK_CD1,
  486. REGEXP_SUBSTR(A.CRK_CD1_TYPE, '[【][A-Za-z0-9,-]+[】]$') CRK_CD1_TYPE,
  487. XB_PACKAGE.GF_COMNNAME_FIND('B02001', A.CRK_CD2) CRK_CD2,
  488. REGEXP_SUBSTR(A.CRK_CD2_TYPE, '[【][A-Za-z0-9,-]+[】]$') CRK_CD2_TYPE,
  489. XB_PACKAGE.GF_COMNNAME_FIND('B02001', A.CRK_CD3) CRK_CD3,
  490. REGEXP_SUBSTR(A.CRK_CD3_TYPE, '[【][A-Za-z0-9,-]+[】]$') CRK_CD3_TYPE,
  491. XB_PACKAGE.GF_COMNNAME_FIND('B02001', A.CRK_CD4) CRK_CD4,
  492. REGEXP_SUBSTR(A.CRK_CD4_TYPE, '[【][A-Za-z0-9,-]+[】]$') CRK_CD4_TYPE,
  493. XB_PACKAGE.GF_COMNNAME_FIND('B02001', A.CRK_CD5) CRK_CD5,
  494. REGEXP_SUBSTR(A.CRK_CD5_TYPE, '[【][A-Za-z0-9,-]+[】]$') CRK_CD5_TYPE
  495. ,TA.*
  496. ,K.ROLL_SURFACE_YN --辊面要求
  497. ,K.ANNOITA_YN --涂油要求
  498. ,A.OIL_TOP
  499. ,A.OIL_BOT
  500. ,C.C_ORD_INDIA
  501. ,(CASE WHEN A.ORD_FL = '2' THEN '' ELSE
  502. K.C_PRODNM_CD || '/' || C.C_EXTSHAPE_REQ || '/' ||
  503. SUBSTR(PKG_QUALITY_COMM.FZ00_COMM('A01010', C.PAKMTH_TP), 0, 1) ||
  504. '/大于' || C.PROD_WGT_MIN || '小于' || C.PROD_WGT_MAX || '/' ||
  505. PKG_QUALITY_COMM.FZ00_COMM('A01010', C.PAKMTH_TP) || '/厚度(' ||
  506. K.C_ORD_THK_MIN || '~' || K.C_ORD_THK_MAX || ')/宽度(' ||
  507. K.C_ORD_WTH_MIN || '~' || K.C_ORD_WTH_MAX || ')/内径(' ||
  508. C.C_ORD_INDIA || ')' END) JISHUYAOQIU
  509. FROM C_TBC02_COIL_COMM A,
  510. TBG02_SLAB_COMM B,
  511. TBA01_ORD_LINE C,
  512. TBA01_ORD_COMM D,
  513. TBJ01_DLIV_DIR J,
  514. TBB02_LOT_COM E,
  515. LZ_YCCZYJ L,
  516. JB_YC M,
  517. TBE02_ORD_PRC K,
  518. (SELECT CK.STL_GRD STL_GRD,
  519. CK.SPEC_STL_GRD SPEC_STL_GRD,
  520. CT.C_COIL_NO C_COIL_NO
  521. FROM C_TBK02_COIL_COMM CK, C_TBF03_SPEC_MILL CT
  522. WHERE CK.OLD_SAMPL_NO = CT.COIL_NO) H,
  523. (SELECT MAX(CAL_NO) CAL_NO, EXIT_COIL_NO
  524. FROM L_TBF03_SPEC_MILL
  525. GROUP BY EXIT_COIL_NO) F
  526. ,(SELECT T1.OLD_SAMPL_NO OLDSAMPLNO,
  527. MAX(DECODE(SUBSTR(T2.QLTY_CD, 1, 2) || T3.MS_QLTY_RP,
  528. 'YS000',
  529. T2.QLTY_VAL_WK,
  530. NULL)) LC_YSREL --屈服强度REL ReL
  531. ,
  532. MAX(DECODE(SUBSTR(T2.QLTY_CD, 1, 2) || T3.MS_QLTY_RP,
  533. 'YS0.2',
  534. T2.QLTY_VAL_WK,
  535. NULL)) LC_YSRP --屈服强度Rp0.2 Rp0.2
  536. ,
  537. MAX(DECODE(SUBSTR(T2.QLTY_CD, 1, 2) || T3.MS_QLTY_RP,
  538. 'EL050',
  539. T2.QLTY_VAL_WK,
  540. NULL)) LC_EL50 --伸长率A50 伸长率A50
  541. ,
  542. MAX(DECODE(SUBSTR(T2.QLTY_CD, 1, 2) || T3.MS_QLTY_RP,
  543. 'EL080',
  544. T2.QLTY_VAL_WK,
  545. NULL)) LC_EL80 --伸长率A50 伸长率A80
  546. ,
  547. MAX(DECODE(SUBSTR(T2.QLTY_CD, 1, 2) || T3.MS_QLTY_RP,
  548. 'EL000',
  549. T2.QLTY_VAL_WK,
  550. NULL)) LC_EL --伸长率A(非定标) 伸长率A
  551. ,
  552. MAX(DECODE(SUBSTR(T2.QLTY_CD, 1, 2), 'TE', T2.QLTY_VAL_WK, NULL)) LC_TE --抗拉强度 抗拉强度
  553. ,
  554. MAX(DECODE(T2.QLTY_CD, 'TT09', T2.QLTY_VAL_WK, NULL)) LC_R --r值
  555. ,
  556. MAX(DECODE(T2.QLTY_CD, 'TT20', T2.QLTY_VAL_WK, NULL)) LC_N --n值
  557. ,
  558. MAX(DECODE(T2.QLTY_CD, 'TT19', T2.QLTY_VAL_WK, NULL)) LC_BH --烘烤硬化
  559. ,
  560. MAX(DECODE(T2.QLTY_CD, 'DC01', T2.QLTY_VAL_WK, NULL)) LC_TS --铁损
  561. ,
  562. MAX(DECODE(T2.QLTY_CD, 'DC02', T2.QLTY_VAL_WK, NULL)) LC_CG -- 磁感
  563. ,
  564. MAX(DECODE(T2.QLTY_CD, 'TT18', T2.QLTY_VAL_WK, NULL)) LC_TT18 -- 上表面粗糙度
  565. ,
  566. MAX(DECODE(T2.QLTY_CD, 'TT26', T2.QLTY_VAL_WK, NULL)) LC_TT26 -- 下表面粗糙度
  567. ,
  568. ROUND(AVG(CASE WHEN SUBSTR(T4.QLTY_CD,1,2) = 'HD' THEN T4.QLTY_VAL_WK ELSE NULL END),1) LC_YD ---硬度
  569. FROM C_TBC02_COIL_COMM T1, TBB02_WORK_QLTY T2 , TBB01_SEQ_QLTY T3 , TBB02_REWORK_QLTY T4
  570. WHERE T1.SMP_NO = T2.SMP_NO
  571. AND T1.SMP_CUT_LOC = T2.SMP_CUT_LOC
  572. AND T1.SMP_NO = T4.SMP_NO(+)
  573. AND T1.SMP_CUT_LOC = T4.SMP_CUT_LOC(+)
  574. AND T2.QLTY_CD = T3.QLTY_CD
  575. AND T1.COIL_STAT='2'
  576. GROUP BY T1.OLD_SAMPL_NO) TA
  577. ,(select t3.old_sampl_no from tbb02_stat_lian t3 where t3.YN_FJH='Y' and t3.COIL_STAT='2')tb
  578. WHERE '1' = '1'
  579. AND A.SLAB_NO = B.SLAB_NO(+)
  580. AND A.ORD_NO = C.ORD_NO(+)
  581. AND A.ORD_SEQ = C.ORD_SEQ(+)
  582. AND A.ORD_NO = D.ORD_NO(+)
  583. AND A.SMP_NO = E.SMP_NO(+)
  584. AND A.ORD_NO = K.ORD_NO(+)
  585. AND A.ORD_SEQ = K.ORD_SEQ(+)
  586. AND A.DLIV_DIRNO = J.DLIV_DIRNO(+)
  587. AND A.OLD_SAMPL_NO = F.EXIT_COIL_NO(+)
  588. AND A.OLD_SAMPL_NO = L.COIL_NO(+)
  589. AND A.OLD_SAMPL_NO = M.OLD_SAMPL_NO(+)
  590. AND A.COIL_STAT = '2'
  591. AND A.old_sampl_no=tb.old_sampl_no
  592. AND A.OLD_SAMPL_NO = TA.OLDSAMPLNO(+)
  593. AND NVL(A.EXTSHAPE_QUALITY,'NULLP') NOT IN('FP','CP')---屏蔽废次卷
  594. AND SUBSTR(A.OLD_SAMPL_NO, 1, 12) = H.C_COIL_NO(+)
  595. --AND A.CUR_PROG_CD IN ('DFA' ,'DFB')
  596. --AND A.PACKAGE_FL='1'
  597. AND A.OLD_SAMPL_NO || '&' LIKE '%' || ? || '%'
  598. AND A.SPEC_STL_GRD || '&' LIKE ? || '%'
  599. AND A.CUR_LOAD_LOC LIKE ? || '%'
  600. AND A.COIL_THK >= NVL(?, '000')
  601. AND A.COIL_THK <= NVL(?, '999')
  602. AND A.COIL_WTH >= NVL(?, '00000')
  603. AND A.COIL_WTH <= NVL(?, '99999')
  604. AND SUBSTR(NVL(A.YARD_ENTRY_DTIME, 99999999999999), 1, 8) >= NVL(?, 0)
  605. AND SUBSTR(NVL(A.YARD_ENTRY_DTIME, 0), 1, 8) <= NVL(?, 99999999999999)
  606. AND A.ORD_NO || '&' LIKE ? || '%'
  607. AND A.CUR_PROG_CD || '&' LIKE ? || '%'
  608. AND C.ORD_DEVLMT_DATE || '&' LIKE ? || '%'
  609. AND E.SMP_SEND_DTIME || '&' LIKE ? || '%'
  610. AND A.PRODNM_CD || '&' LIKE ? || '%'
  611. AND A.ORD_FL || '&' LIKE ? || '%'
  612. ]]>
  613. </query>
  614. <query id="UIM010232_03.SELECT" desc="待包装钢卷查询">
  615. <![CDATA[
  616. SELECT 'False' CHK,
  617. A.OLD_SAMPL_NO,
  618. A.SPEC_STL_GRD,
  619. A.COIL_THK,
  620. A.COIL_WTH,
  621. A.INSTR_COIL_THK,
  622. A.INSTR_COIL_WTH,
  623. A.ACT_WGT,
  624. DECODE(A.ORD_FL, '1', '订单材', '2', '余材', '', '未判') ORD_FL,
  625. A.ORD_NO,
  626. A.ORD_SEQ,
  627. A.CUR_LOAD_LOC,
  628. /*,DECODE(A.CUR_PROG_CD,'DRC','连退卷充当待机','DBA','重卷指示待机','DBB','重卷作业待机'
  629. ,'DCA','包装指示待机','DCB','包装作业待机','DED','综合判定待机','DFA','发货指示待机'
  630. ,'DFB','发货待机','CCA','连退作业指示待机','CCB','连退作业待机','CCC','连退卷取待机'
  631. ) CUR_PROG_CD*/
  632. (CASE
  633. WHEN XB_PACKAGE.GF_COMNNAME_FIND('E01002', A.CUR_PROG_CD) =
  634. '连退成品充当待机' AND a.DEFECTIVE = 'Y' then
  635. '二级库存'
  636. ELSE
  637. XB_PACKAGE.GF_COMNNAME_FIND('E01002', a.CUR_PROG_CD)
  638. END) CUR_PROG_CD,
  639. C_PKG_UIM.GET_STDDATESTR(C.ORD_DEVLMT_DATE) ORD_DEVLMT_DATE,
  640. C_PKG_UIM.GET_STDTIMESTR(A.MILL_DTIME) MILL_DTIME
  641. FROM C_TBC02_COIL_COMM A, TBA01_ORD_LINE C
  642. WHERE '1' = '1'
  643. AND A.ORD_NO = C.ORD_NO(+)
  644. AND A.ORD_SEQ = C.ORD_SEQ(+)
  645. and a.FB_YN = 'N'
  646. and a.PACKAGE_LEVEL is null
  647. AND A.COIL_STAT = '2'
  648. and a.package_close_dtime is null
  649. AND A.OLD_SAMPL_NO LIKE ?||'%'
  650. -- and substr(a.mill_dtime,1,8) between ? and ?
  651. AND NVL(A.EXTSHAPE_QUALITY, 'NULLP') NOT IN ('FP', 'CP') ---屏蔽废次卷
  652. order by a.old_sampl_no desc
  653. -- AND SUBSTR(A.OLD_SAMPL_NO, 1, 12) = H.C_COIL_NO(+)
  654. --AND A.CUR_PROG_CD IN ('DFA' ,'DFB')
  655. --AND A.PACKAGE_FL='1'
  656. ]]>
  657. </query>
  658. <query id="UIM010232_04.UPDATE" desc="待包装钢卷截止时间添加">
  659. <![CDATA[
  660. UPDATE C_TBC02_COIL_COMM T SET T.PACKAGE_CLOSE_DTIME=? WHERE T.OLD_SAMPL_NO=?
  661. ]]>
  662. </query>
  663. <query id="UIM010232_04.SELECT" desc="待包装钢卷查询">
  664. <![CDATA[
  665. SELECT 'False' CHK,
  666. A.OLD_SAMPL_NO,
  667. A.SPEC_STL_GRD,
  668. A.COIL_THK,
  669. A.COIL_WTH,
  670. a.package_close_dtime,
  671. A.INSTR_COIL_THK,
  672. A.INSTR_COIL_WTH,
  673. A.ACT_WGT,
  674. DECODE(A.ORD_FL, '1', '订单材', '2', '余材', '', '未判') ORD_FL,
  675. A.ORD_NO,
  676. A.ORD_SEQ,
  677. A.CUR_LOAD_LOC,
  678. /*,DECODE(A.CUR_PROG_CD,'DRC','连退卷充当待机','DBA','重卷指示待机','DBB','重卷作业待机'
  679. ,'DCA','包装指示待机','DCB','包装作业待机','DED','综合判定待机','DFA','发货指示待机'
  680. ,'DFB','发货待机','CCA','连退作业指示待机','CCB','连退作业待机','CCC','连退卷取待机'
  681. ) CUR_PROG_CD*/
  682. (CASE
  683. WHEN XB_PACKAGE.GF_COMNNAME_FIND('E01002', A.CUR_PROG_CD) =
  684. '连退成品充当待机' AND a.DEFECTIVE = 'Y' then
  685. '二级库存'
  686. ELSE
  687. XB_PACKAGE.GF_COMNNAME_FIND('E01002', a.CUR_PROG_CD)
  688. END) CUR_PROG_CD,
  689. C_PKG_UIM.GET_STDDATESTR(C.ORD_DEVLMT_DATE) ORD_DEVLMT_DATE,
  690. C_PKG_UIM.GET_STDTIMESTR(A.MILL_DTIME) MILL_DTIME
  691. FROM C_TBC02_COIL_COMM A, TBA01_ORD_LINE C
  692. WHERE '1' = '1'
  693. AND A.ORD_NO = C.ORD_NO(+)
  694. AND A.ORD_SEQ = C.ORD_SEQ(+)
  695. and a.FB_YN = 'N'
  696. and a.PACKAGE_LEVEL is null
  697. AND A.COIL_STAT = '2'
  698. and a.package_close_dtime is not null
  699. AND A.OLD_SAMPL_NO LIKE ?||'%'
  700. AND NVL(A.EXTSHAPE_QUALITY, 'NULLP') NOT IN ('FP', 'CP') ---屏蔽废次卷
  701. -- AND SUBSTR(A.OLD_SAMPL_NO, 1, 12) = H.C_COIL_NO(+)
  702. --AND A.CUR_PROG_CD IN ('DFA' ,'DFB')
  703. --AND A.PACKAGE_FL='1'
  704. ]]>
  705. </query>
  706. <query id="UIM010232_05.UPDATE" desc="待包装钢卷截止时间添加">
  707. <![CDATA[
  708. UPDATE C_TBC02_COIL_COMM T SET T.PACKAGE_CLOSE_DTIME='' WHERE T.OLD_SAMPL_NO=?
  709. ]]>
  710. </query>
  711. <query id="UIM010232_06.SELECT" desc="二级库存查询">
  712. <![CDATA[
  713. SELECT '' GCZY,
  714. A.OLD_SAMPL_NO
  715. ,'' PINZHONG
  716. ,A.SPEC_STL_GRD
  717. , to_char(A.COIL_THK,'fm9999990.0099')||'*'|| A.COIL_WTH||'*'||A.COIL_LEN GUIGE
  718. , '新余钢铁' CHANDI,
  719. nvl(A.ACT_WGT,0)/1000 ACT_WGT,
  720. '' CANGKU,
  721. '' JIAGE,
  722. '' JIAGEMIN,
  723. '' YIJIA,
  724. A.SPEC_ABBSYM,
  725. '' CANKAOPAIHAO,
  726. '' ZLDJ,
  727. A.EXTSHAPE_QUALITY||';' GGXQ,
  728. A.CUR_LOAD_LOC,
  729. '' QZA,
  730. '' DUCENG,
  731. '' BIAOMIAN,
  732. '' MIANQI,
  733. '' YANSE,
  734. DECODE(A.PACKAGE_LEVEL,
  735. '1',
  736. '不包装',
  737. '2',
  738. '简易包装',
  739. '3',
  740. '普通包装',
  741. '4',
  742. '精包装',
  743. '5',
  744. '出口包装') PACKAGE_LEVEL,
  745. substr(A.YARD_ENTRY_DTIME,1,8) YARD_ENTRY_DTIME,
  746. substr(A.MILL_DTIME,1,8) MILL_DTIME,
  747. '' TESHUSHUOMING
  748. ,DECODE(W.WANGGOU_YN,'Y','是','否') WANGGOU_YN
  749. FROM C_TBC02_COIL_COMM A,TBC01_WSXS_COIL_COM W
  750. WHERE A.COIL_STAT = '2'
  751. AND A.OLD_SAMPL_NO = W.COIL_NO(+)
  752. AND NVL(A.EXTSHAPE_QUALITY, 'NULLP') NOT IN ('FP', 'CP') ---屏蔽废次卷
  753. AND A.DEFECTIVE='Y'
  754. AND A.OLD_SAMPL_NO || '&' LIKE '%' || ? || '%'
  755. AND A.SPEC_STL_GRD || '&' LIKE ? || '%'
  756. AND SUBSTR(NVL(A.mill_dtime, 99999999999999), 1, 8) >= NVL(?, 0)
  757. AND SUBSTR(NVL(A.mILL_DTIME, 0), 1, 8) <= NVL(?, 99999999999999)
  758. AND NVL(W.WANGGOU_YN,'N') LIKE ? || '%'
  759. -- AND A.ORD_NO || '&' LIKE ? || '%'
  760. order by a.old_sampl_no desc
  761. ]]>
  762. </query>
  763. <query id="UIM010232_07.SELECT" desc="二级库存查询">
  764. <![CDATA[
  765. SELECT T.*,DECODE(W.WANGGOU_YN,'Y','是','否') WANGGOU_YN FROM TBC02_ERJI_ZLXX T,TBC01_WSXS_COIL_COM W
  766. WHERE T.OLD_SAMPL_NO = W.COIL_NO(+)
  767. AND T.OLD_SAMPL_NO || '&' LIKE '%' || ? || '%'
  768. AND T.SPEC_STL_GRD || '&' LIKE ? || '%'
  769. AND NVL(T.MILL_TIME, '99999999') >= NVL(?, '00000000')
  770. AND NVL(T.MILL_TIME, '00000000') <= NVL(?, '99999999')
  771. AND NVL(W.WANGGOU_YN,'N') LIKE ? || '%'
  772. -- AND A.ORD_NO || '&' LIKE ? || '%'
  773. order by T.old_sampl_no desc
  774. ]]>
  775. </query>
  776. <query id="UIM010232_RZ.SELECT" desc="热轧二级库存查询">
  777. <![CDATA[
  778. SELECT '' GCZY,
  779. A.OLD_SAMPL_NO,
  780. '' PINZHONG,
  781. A.SPEC_STL_GRD,
  782. to_char(A.COIL_THK, 'fm9999990.0099') || '*' || A.COIL_WTH || '*' || A.COIL_LEN GUIGE,
  783. '新余钢铁' CHANDI,
  784. nvl(A.ACT_WGT, 0) / 1000 ACT_WGT,
  785. '' CANGKU,
  786. '' JIAGE,
  787. '' JIAGEMIN,
  788. '' YIJIA,
  789. A.SPEC_ABBSYM,
  790. '' CANKAOPAIHAO,
  791. A.COIL_PROD_GRADE ZLDJ,
  792. DECODE(A.EXTSHAPE_DEC_GRD,'1','合格','2','订单外合格','3','次品','4','废品','待判定') GGXQ,
  793. A.CUR_LOAD_LOC,
  794. '' QZA,
  795. '' DUCENG,
  796. '' BIAOMIAN,
  797. '' MIANQI,
  798. '' YANSE,
  799. DECODE(A.PACK_METHOD_CD,
  800. '1',
  801. '不包装',
  802. '2',
  803. '简易包装',
  804. '3',
  805. '普通包装',
  806. '4',
  807. '精包装',
  808. '5',
  809. '出口包装') PACKAGE_LEVEL,
  810. substr(A.YARD_ENTRY_DTIME, 1, 8) YARD_ENTRY_DTIME,
  811. substr(A.MILL_DTIME, 1, 8) MILL_DTIME,
  812. '' TESHUSHUOMING
  813. ,DECODE(W.WANGGOU_YN,'Y','是','否') WANGGOU_YN
  814. FROM TBH02_COIL_COMM A,TBC01_WSXS_COIL_COM W
  815. WHERE A.COIL_STAT = '2'
  816. AND A.OLD_SAMPL_NO = W.COIL_NO(+)
  817. AND A.QK_YN = 'Y'
  818. --AND NVL(A.TOT_DEC_GRD, 'NULLP') NOT IN ('3', '4') ---屏蔽废次卷
  819. AND A.OLD_SAMPL_NO || '&' LIKE '%' || ? || '%'
  820. AND A.SPEC_STL_GRD || '&' LIKE ? || '%'
  821. AND SUBSTR(NVL(A.mill_dtime, 99999999999999), 1, 8) >= NVL(?, 0)
  822. AND SUBSTR(NVL(A.mILL_DTIME, 0), 1, 8) <= NVL(?, 99999999999999)
  823. AND NVL(W.WANGGOU_YN,'N') LIKE ? || '%'
  824. -- AND A.ORD_NO || '&' LIKE ? || '%'
  825. order by a.old_sampl_no desc
  826. ]]>
  827. </query>
  828. <query id="UIM010232_RZZL.SELECT" desc="热轧二级库存质量查询">
  829. <![CDATA[
  830. SELECT T.*,DECODE(W.WANGGOU_YN,'Y','是','否') WANGGOU_YN FROM TBB02_ERJI_ZLXX T,TBC01_WSXS_COIL_COM W
  831. WHERE T.OLD_SAMPL_NO = W.COIL_NO(+)
  832. AND T.OLD_SAMPL_NO || '&' LIKE '%' || ? || '%'
  833. AND T.SPEC_STL_GRD || '&' LIKE ? || '%'
  834. AND NVL(T.MILL_TIME, '99999999') >= NVL(?, '00000000')
  835. AND NVL(T.MILL_TIME, '00000000') <= NVL(?, '99999999')
  836. AND NVL(W.WANGGOU_YN,'N') LIKE ? || '%'
  837. -- AND A.ORD_NO || '&' LIKE ? || '%'
  838. order by T.old_sampl_no desc
  839. ]]>
  840. </query>
  841. <query id="UIM010232_WSXS.SELECT" desc="根据钢卷号查询网购钢卷记录">
  842. <![CDATA[
  843. SELECT T.* FROM TBC01_WSXS_COIL_COM T WHERE T.COIL_NO = ?
  844. ]]>
  845. </query>
  846. <query id="UIM010232_WSXS.INSERT" desc="把已经导出到网购的钢卷保存到网购钢卷记录表中TBC01_WSXS_COIL_COM">
  847. insert into TBC01_WSXS_COIL_COM (
  848. COIL_NO,
  849. WANGGOU_YN,
  850. PROD_LINE,
  851. WANGGOU_INFO,
  852. REMARKS,
  853. REG_PGM_ID,
  854. REG_ID,
  855. REG_DTIME
  856. ) VALUES(?,?,?,?,?,?,?,TO_CHAR(SYSDATE , 'YYYYMMDDHH24MISS'))
  857. </query>
  858. <query id="UIM010232_WSXS.UPDATE" desc="导出后修改网购钢卷的状态WANGGOU_YN为Y">
  859. UPDATE TBC01_WSXS_COIL_COM
  860. SET
  861. WANGGOU_YN = ? --网购卷标识
  862. ,REMARKS = ?
  863. ,MOD_PGM_ID = ?
  864. ,MOD_ID = ?
  865. ,MOD_DTIME = TO_CHAR(SYSDATE , 'YYYYMMDDHH24MISS')
  866. WHERE COIL_NO = ? --目标钢号
  867. </query>
  868. </queryMap>