FrmStuffMoveOut.xml 34 KB

12345678910111213141516171819202122232425262728293031323334353637383940414243444546474849505152535455565758596061626364656667686970717273747576777879808182838485868788899091929394959697989910010110210310410510610710810911011111211311411511611711811912012112212312412512612712812913013113213313413513613713813914014114214314414514614714814915015115215315415515615715815916016116216316416516616716816917017117217317417517617717817918018118218318418518618718818919019119219319419519619719819920020120220320420520620720820921021121221321421521621721821922022122222322422522622722822923023123223323423523623723823924024124224324424524624724824925025125225325425525625725825926026126226326426526626726826927027127227327427527627727827928028128228328428528628728828929029129229329429529629729829930030130230330430530630730830931031131231331431531631731831932032132232332432532632732832933033133233333433533633733833934034134234334434534634734834935035135235335435535635735835936036136236336436536636736836937037137237337437537637737837938038138238338438538638738838939039139239339439539639739839940040140240340440540640740840941041141241341441541641741841942042142242342442542642742842943043143243343443543643743843944044144244344444544644744844945045145245345445545645745845946046146246346446546646746846947047147247347447547647747847948048148248348448548648748848949049149249349449549649749849950050150250350450550650750850951051151251351451551651751851952052152252352452552652752852953053153253353453553653753853954054154254354454554654754854955055155255355455555655755855956056156256356456556656756856957057157257357457557657757857958058158258358458558658758858959059159259359459559659759859960060160260360460560660760860961061161261361461561661761861962062162262362462562662762862963063163263363463563663763863964064164264364464564664764864965065165265365465565665765865966066166266366466566666766866967067167267367467567667767867968068168268368468568668768868969069169269369469569669769869970070170270370470570670770870971071171271371471571671771871972072172272372472572672772872973073173273373473573673773873974074174274374474574674774874975075175275375475575675775875976076176276376476576676776876977077177277377477577677777877978078178278378478578678778878979079179279379479579679779879980080180280380480580680780880981081181281381481581681781881982082182282382482582682782882983083183283383483583683783883984084184284384484584684784884985085185285385485585685785885986086186286386486586686786886987087187287387487587687787887988088188288388488588688788888989089189289389489589689789889990090190290390490590690790890991091191291391491591691791891992092192292392492592692792892993093193293393493593693793893994094194294394494594694794894995095195295395495595695795895996096196296396496596696796896997097197297397497597697797897998098198298398498598698798898999099199299399499599699799899910001001100210031004100510061007100810091010101110121013101410151016101710181019102010211022102310241025102610271028102910301031103210331034103510361037103810391040104110421043104410451046104710481049105010511052105310541055105610571058105910601061106210631064106510661067106810691070107110721073107410751076107710781079108010811082108310841085108610871088108910901091109210931094109510961097109810991100110111021103110411051106110711081109
  1. <?xml version="1.0" encoding="UTF-8"?>
  2. <queryMap desc = "管坯倒库管理">
  3. <query id = "FrmStuffMoveOut.doQuery" desc = "管坯库存查询">
  4. <![CDATA[
  5. SELECT T.PRODUCT_FLAG,
  6. T.MAT_STATUS,
  7. T.STOVE_NO,
  8. T.JUDGE_STOVE_NO,
  9. T.GROUD_NO,
  10. T.MATERIAL_NO,
  11. T.MATERIAL_NAME,
  12. T.GRADECODE,
  13. T.GRADENAME,
  14. T.STD_CODE,
  15. T.STD_NAME,
  16. T.PRO_ORDER_NO,
  17. T.PLINE_CODE,
  18. T.PLINE_NAME,
  19. T.DIMATER,
  20. T.ACT_LEN,
  21. T.FIX_NUM,
  22. T.FIX_LEN,
  23. SUM(T.ACT_COUNT) ACT_COUNT,
  24. SUM(T.ACT_WEIGHT) ACT_WEIGHT,
  25. T.BELONG_CODE,
  26. T.BELONG_NAME,
  27. (SELECT C.STORAGE_NAME
  28. FROM YDM_BS_STORAGE C
  29. WHERE C.STORAGE_NO = S.STORAGE_NO) STORAGE_NAME,
  30. S.STORAGE_NO,
  31. DECODE(T.QCM_STAUS,
  32. '00',
  33. '合格',
  34. '11',
  35. '待处理',
  36. '22',
  37. '废品') QCM_STAUS,
  38. DECODE(T.GPTYPE, '1', '铸坯', '2', '锻坯') GPTYPE,
  39. T.FURNACENO,
  40. T.SEQUENCENO,
  41. S.LOCATION_NO,
  42. S.LARY_NO,
  43. S.LOCATION_NAME,
  44. T.PRO_PLAN_ID_ZG,
  45. T.GX_PLAN_NO_ZG,
  46. MAX(TO_CHAR(T.INSTOCK_TIME, 'YYYY-MM-DD HH:MM:SS')) INSTOCK_TIME,
  47. DECODE(T.INSTANCY_FLAG, '0', '否', '1', '是') INSTANCY_FLAG,
  48. (SELECT T1.BASENAME
  49. FROM COM_BASE_INFO T1
  50. WHERE T1.BASECODE = T.JUDGE_RESULT_CODE) JUDGE_RESULT_CODE,
  51. T.CUT_NUM,
  52. (SELECT K.PLINE_NAME FROM PLN_ORDER_ZG_S K WHERE K.PRO_PLAN_ID = T.PRO_PLAN_ID_ZG AND K.GX_PLAN_NO = T.GX_PLAN_NO_ZG)MAT_GOWHERE_NAME,
  53. (SELECT K.ORDER_NO||'/'||K.ORDER_SEQ FROM PLN_ORDER_ZG_S K WHERE K.PRO_PLAN_ID = T.PRO_PLAN_ID_ZG AND K.GX_PLAN_NO = T.GX_PLAN_NO_ZG) ORDER_NO,
  54. T.SUPPLY_UNIT, --tzh 24.8.15 ADD 新增制造商
  55. T.SOURE_NAME --tzh 24.8.15 ADD 新增材料来源地
  56. FROM MAT_GP_M T, YDM_GP_BUTTRESS S
  57. WHERE T.MAT_NO = S.MAT_NO
  58. AND T.QCM_STAUS = '00'
  59. AND T.IS_SETFOOT = '0'
  60. #INSTOCK_TIME#
  61. #PARM#
  62. #CONDITION#
  63. #STOVE#
  64. GROUP BY T.STOVE_NO,
  65. T.JUDGE_STOVE_NO,
  66. T.MATERIAL_NO,
  67. T.MATERIAL_NAME,
  68. T.GROUD_NO,
  69. T.FURNACENO,
  70. T.SEQUENCENO,
  71. T.GRADECODE,
  72. T.GRADENAME,
  73. T.STD_CODE,
  74. T.STD_NAME,
  75. T.PRO_ORDER_NO,
  76. T.PLINE_CODE,
  77. T.PLINE_NAME,
  78. T.QCM_STAUS,
  79. T.GPTYPE,
  80. T.JUDGE_RESULT_CODE,
  81. T.DIMATER,
  82. T.ACT_LEN,
  83. T.FIX_NUM,
  84. T.FIX_LEN,
  85. T.PRODUCT_FLAG,
  86. T.MAT_STATUS,
  87. S.STORAGE_NO,
  88. T.BELONG_CODE,
  89. T.BELONG_NAME,
  90. S.LOCATION_NO,
  91. S.LARY_NO,
  92. S.LOCATION_NAME,
  93. T.INSTANCY_FLAG,
  94. T.PRO_PLAN_ID_ZG,
  95. T.GX_PLAN_NO_ZG,
  96. T.CUT_NUM,
  97. T.SUPPLY_UNIT,
  98. T.SOURE_NAME
  99. ]]>
  100. </query>
  101. <!-- SELECT T1.*,S1.GOWHERE_NAME AS MAT_GOWHERE_NAME FROM (SELECT
  102. T.PRODUCT_FLAG,
  103. T.MAT_STATUS,
  104. T.STOVE_NO,
  105. T.JUDGE_STOVE_NO,
  106. T.GROUD_NO,
  107. T.MATERIAL_NO,
  108. T.MATERIAL_NAME,
  109. T.GRADECODE,
  110. T.GRADENAME,
  111. T.STD_CODE,
  112. T.STD_NAME,
  113. T.PRO_ORDER_NO,
  114. T.PLINE_CODE,
  115. T.PLINE_NAME,
  116. T.DIMATER,
  117. T.ACT_LEN,
  118. T.FIX_NUM,
  119. T.FIX_LEN,
  120. SUM(T.ACT_COUNT) ACT_COUNT,
  121. SUM(T.ACT_WEIGHT) ACT_WEIGHT,
  122. T.BELONG_CODE,
  123. T.BELONG_NAME,
  124. (SELECT C.STORAGE_NAME
  125. FROM YDM_BS_STORAGE C
  126. WHERE C.STORAGE_NO = S.STORAGE_NO) STORAGE_NAME,
  127. S.STORAGE_NO,
  128. DECODE(T.QCM_STAUS,'00','合格','11','待处理','22','废品')QCM_STAUS,
  129. DECODE(T.GPTYPE,'1','铸坯','2','锻坯')GPTYPE,
  130. T.FURNACENO,
  131. T.SEQUENCENO,
  132. S.LOCATION_NO,
  133. S.LARY_NO,
  134. S.LOCATION_NAME,
  135. MAX(TO_CHAR(T.INSTOCK_TIME,'YYYY-MM-DD HH:MM:SS'))INSTOCK_TIME,
  136. DECODE(T.INSTANCY_FLAG,'0','否','1','是')INSTANCY_FLAG,
  137. (SELECT T1.BASENAME FROM COM_BASE_INFO T1 WHERE T1.BASECODE = T.JUDGE_RESULT_CODE)JUDGE_RESULT_CODE
  138. FROM MAT_GP_M T, YDM_GP_BUTTRESS S
  139. WHERE T.MAT_NO = S.MAT_NO -->
  140. <query id = "FrmStuffMoveOut.doQueryOutList" desc = "出库实绩查询">
  141. SELECT
  142. OUTSTOCK_PLAN_NO,
  143. OUTSTOCK_DOC,
  144. OUTSTOCK_TYPE_CODE,
  145. OUTSTOCK_TYPE_NAME,
  146. DRIVER,
  147. VEHICLE_NO,
  148. (SELECT C.BASENAME FROM COM_BASE_INFO C WHERE C.BASECODE = T.PRODUCT_FLAG) PRODUCT_FLAG,
  149. (SELECT D.BASENAME FROM COM_BASE_INFO D WHERE D.BASECODE = T.MAT_STATUS)MAT_STATUS,
  150. STOVE_NO,
  151. FLAG_STOVE_NO,
  152. JUDGE_STOVE_NO,
  153. GROUD_NO,
  154. CAST_NO,
  155. CCMID,
  156. MATERIAL_NO,
  157. MATERIAL_NAME,
  158. GRADECODE,
  159. GRADENAME,
  160. STD_CODE,
  161. STD_NAME,
  162. DIMATER,
  163. ACT_LEN,
  164. FIX_NUM,
  165. FIX_LEN,
  166. SUM(ACT_COUNT)ACT_COUNT,
  167. SUM(ACT_WEIGHT)ACT_WEIGHT,
  168. PLINE_CODE,
  169. PLINE_NAME,
  170. PRO_ORDER_NO,
  171. BELONG_CODE,
  172. BELONG_NAME,
  173. (SELECT C.STORAGE_NAME FROM YDM_BS_STORAGE C WHERE C.STORAGE_NO = T.STORAGE_NO)STORAGE_NAME,
  174. STORAGE_NO,
  175. (SELECT D.LOCATION_NAME FROM YDM_BS_LOCATION D WHERE D.LOCATION_NO = T.LOCATION_NO)LOCATION_NAME,
  176. LOCATION_NO,
  177. LARY_NO,
  178. T.TAR_STORAGE_NO,
  179. (SELECT C.STORAGE_NAME FROM YDM_BS_STORAGE C WHERE C.STORAGE_NO = T.TAR_STORAGE_NO)TAR_STORAGE_NAME,
  180. DECODE(TAR_REC_FLAG,'0','未接收','1','已接收')TAR_REC_FLAG,
  181. max(TO_CHAR(OUTSTOCK_TIME, 'YYYY-MM-DD HH24:MI:SS')) OUTSTOCK_TIME,
  182. MEMO,
  183. CREATE_NAME,
  184. DECODE(OUT_TYPE,'0','写卡倒运','1','票据倒运','2','过跨倒运','3','纠错倒运')OUT_TYPE,
  185. CUT_NUM
  186. FROM YDM_GP_OUTLIST T
  187. WHERE OUTSTOCK_TYPE_CODE = '800803'
  188. AND VALIDFLAG = '1'
  189. </query>
  190. <query id = "FrmStuffMoveOut.doQueryOutList1" desc = "出库实绩查询">
  191. SELECT
  192. OUTSTOCK_DOC,
  193. OUTSTOCK_TYPE_CODE,
  194. OUTSTOCK_TYPE_NAME,
  195. DRIVER,
  196. VEHICLE_NO,
  197. SUM(ACT_COUNT)ACT_COUNT,
  198. SUM(ACT_WEIGHT)ACT_WEIGHT,
  199. T.TAR_STORAGE_NO,
  200. (SELECT C.STORAGE_NAME FROM YDM_BS_STORAGE C WHERE C.STORAGE_NO = T.TAR_STORAGE_NO)TAR_STORAGE_NAME
  201. FROM YDM_GP_OUTLIST T
  202. WHERE OUTSTOCK_TYPE_CODE = '800803'
  203. </query>
  204. <query id = "FrmStuffMoveOut.doQueryTmsDemand" desc = "查询运输需求">
  205. <![CDATA[
  206. SELECT
  207. CAR_WT_VAL,
  208. CURRENT_JOB_NO,
  209. TO_CHAR(TRANSPORT_START_TIME, 'YYYY-MM-DD HH24:MI:SS') TRANSPORT_START_TIME,
  210. COST_COUNT,
  211. DECODE(VALIDFLAG,'00','无效','10','草稿','20','待分派','30','执行中','40','结束','50','关闭')VALIDFLAG,
  212. OUTPUT_QTY_VAL,
  213. DELETE_USERID,
  214. URGENCY_TYPE_CODE,
  215. DEMAND_ORG_DESC,
  216. DIMATER_VAL,
  217. TO_CHAR(CREATE_TIME, 'YYYY-MM-DD HH24:MI:SS') CREATE_TIME,
  218. START_AREA_DESC,
  219. END_AREA_DESC,
  220. UOM_DESC,
  221. MATERIALS_CODE,
  222. ARCHIVE_FLAG,
  223. TO_CHAR(DELETE_TIME, 'YYYY-MM-DD HH24:MI:SS') DELETE_TIME,
  224. STATUS,
  225. DEMAND_VERTICAL_NO,
  226. PRO_ORDER_SQE,
  227. DEMAND_NO,
  228. COST_TYPE_DESC,
  229. REFE_TYPE_NAME,
  230. DEMAND_ORG_CODE,
  231. DEMAND_QTY_VAL,
  232. HEAT_NO,
  233. CREATE_NAME,
  234. GROUP_NO,
  235. CARRIER_NAME,
  236. UOM_CODE,
  237. OUTPUT_WT_VAL,
  238. ACCOUNT_YEAR_MONTH,
  239. END_NODE_CODE,
  240. CARRIER_CODE,
  241. START_NODE_DESC,
  242. END_AREA_CODE,
  243. DELETE_NAME,
  244. DEMAND_DESC,
  245. TRAN_CLASS_CODE,
  246. SCRAP_QTY_VAL,
  247. CAR_USE_CODE,
  248. CAR_USE_DESC,
  249. MATERIALS_SPEC,
  250. OFFLINE_QTY_VAL,
  251. EXECUTE_SQE,
  252. BATCH_NO,
  253. HEIGHT_VAL,
  254. LEN_MIN_VAL,
  255. LEN_MAX_VAL,
  256. PREVIOUS_JOB_NO,
  257. ARCHIVE_NO,
  258. DEMAND_WT_VAL,
  259. UPDATE_USERID,
  260. LOGO_NO,
  261. OFFLINE_WT_VAL,
  262. UPDATE_NAME,
  263. END_NODE_DESC,
  264. SCRAP_WT_VAL,
  265. START_NODE_CODE,
  266. TO_CHAR(TRANSPORT_END_TIME, 'YYYY-MM-DD HH24:MI:SS') TRANSPORT_END_TIME,
  267. SOURCE_SIGN,
  268. WEIGHING_IF,
  269. CREATE_USERID,
  270. ARCHIVE_DATE,
  271. URGENCY_TYPE_DESC,
  272. TRAN_CLASS_DESC,
  273. COST_TYPE_CODE,
  274. REFE_TYPE_CODE,
  275. CAR_TYPE_DESC,
  276. WIDE_VAL,
  277. LEN_VAL,
  278. CALCULATE_CAR_VAL,
  279. PRO_ORDER_NO,
  280. CAR_TYPE_CODE,
  281. MEMO,
  282. TO_CHAR(UPDATE_TIME, 'YYYY-MM-DD HH24:MI:SS') UPDATE_TIME,
  283. MATERIALS_DESC,
  284. REFE_NO,
  285. START_AREA_CODE
  286. FROM TMS_DEMAND_M
  287. WHERE VALIDFLAG >= '20'
  288. AND START_AREA_CODE IN('TAS1','TCC5','TCC6','TCC7','TCC8','XED1','XEL1','XSL1','XYL1')
  289. AND TRAN_CLASS_CODE IN('DK','XX')
  290. ]]>
  291. </query>
  292. <query id = "FrmStuffMoveOut.selectMatData" desc = "查询库存信息是否存在">
  293. SELECT COUNT(1) ACOUNT
  294. FROM MAT_GP_M T, YDM_GP_BUTTRESS S
  295. WHERE T.MAT_NO = S.MAT_NO
  296. AND NVL(T.STOVE_NO,'/') = NVL('#STOVE_NO#','/')
  297. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  298. AND T.FIX_NUM = '#FIX_NUM#'
  299. AND T.PRODUCT_FLAG = '#PRODUCT_FLAG#'
  300. AND T.MAT_STATUS = '#MAT_STATUS#'
  301. AND NVL(S.STORAGE_NO,'/') = NVL('#STORAGE_NO#','/')
  302. AND NVL(T.QCM_STAUS,'/') = NVL('#QCM_STAUS#','/')
  303. AND NVL(T.PRO_PLAN_ID_ZG,'/') = NVL('#PRO_PLAN_ID_ZG#','/')
  304. AND NVL(T.GX_PLAN_NO_ZG,'/') = NVL('#GX_PLAN_NO_ZG#','/')
  305. AND NVL(T.FURNACENO,'/') = NVL(T.FURNACENO,'/')
  306. AND NVL(T.SEQUENCENO,'/') = NVL(T.SEQUENCENO,'/')
  307. AND T.IS_SETFOOT = '0'
  308. </query>
  309. <query id = "FrmStuffMoveOut.selectOutWgt" desc = "查询倒库支数对应重量">
  310. <![CDATA[
  311. SELECT SUM(T.ACT_WEIGHT)ACT_WEIGHT
  312. FROM MAT_GP_M T, YDM_GP_BUTTRESS S
  313. WHERE T.MAT_NO = S.MAT_NO
  314. AND NVL(T.STOVE_NO,'/') = NVL('#STOVE_NO#','/')
  315. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  316. AND T.FIX_NUM = '#FIX_NUM#'
  317. AND T.PRODUCT_FLAG = '#PRODUCT_FLAG#'
  318. AND T.MAT_STATUS = '#MAT_STATUS#'
  319. AND NVL(S.STORAGE_NO,'/') = NVL('#STORAGE_NO#','/')
  320. AND T.QCM_STAUS = '#QCM_STAUS#'
  321. AND S.LOCATION_NO = '#LOCATION_NO#'
  322. AND S.LARY_NO = '#LARY_NO#'
  323. AND NVL(T.PRO_PLAN_ID_ZG,'/') = NVL('#PRO_PLAN_ID_ZG#','/')
  324. AND NVL(T.GX_PLAN_NO_ZG,'/') = NVL('#GX_PLAN_NO_ZG#','/')
  325. AND NVL(T.FURNACENO,'/') = NVL(T.FURNACENO,'/')
  326. AND NVL(T.SEQUENCENO,'/') = NVL(T.SEQUENCENO,'/')
  327. AND T.IS_SETFOOT = '0'
  328. AND ROWNUM <= #ACT_COUNT#
  329. ORDER BY T.MAT_NO DESC
  330. ]]>
  331. </query>
  332. <query id = "FrmStuffMoveOut.selectSuper" desc = "查询监装人">
  333. SELECT T.SUPERVISOR_NAME,T.SUPERVISOR_CALL FROM YDM_BC_SUPERVISOR T WHERE T.SUPERVISOR_CODE = ?
  334. </query>
  335. <query id = "FrmStuffMoveOut.doAddData" desc = "插入出库表">
  336. <![CDATA[
  337. DECLARE
  338. V_OUTSTOCK_DOC YDM_GP_OUTLIST.OUTSTOCK_DOC%TYPE := NULL; --出库单号
  339. V_OUTSTOCK_SQE YDM_GP_OUTLIST.OUTSTOCK_SQE%TYPE := NULL; --出库流水
  340. V_MEMO COM_BASE_INFO.MEMO%TYPE := NULL;
  341. V_BASENAME COM_BASE_INFO.BASENAME%TYPE :=NULL;
  342. V_OCOUNT NUMBER := 1;
  343. V_TIME YDM_GP_OUTLIST.CREATE_TIME%TYPE := SYSDATE;
  344. V_BATHYEAR MAT_GP_M.BAL_YEAR_MONTH%TYPE := TO_CHAR(SYSDATE, 'YYYYMM');
  345. BEGIN
  346. --生成出库单号
  347. V_OUTSTOCK_DOC := '#OUTSTOCK_DOC#';
  348. SELECT MEMO,BASENAME INTO V_MEMO,V_BASENAME FROM COM_BASE_INFO WHERE BASECODE = '#OUTSTOCK_TYPE_CODE#';
  349. SELECT TO_NUMBER(LPAD((NVL(MAX(SUBSTR(T.OUTSTOCK_SQE, 16)), 0) + 1), 4, 0)) OUTSTOCK_SQE
  350. INTO V_OCOUNT
  351. FROM YDM_GP_OUTLIST T
  352. WHERE T.OUTSTOCK_DOC = '#OUTSTOCK_DOC#';
  353. FOR MYROW IN (SELECT T.*,
  354. S.STORAGE_NO,
  355. S.LOCATION_NO,
  356. S.LARY_NO,
  357. S.STORAGE_ATTR,
  358. S.STORAGE_ATTR_NAME,
  359. S.STORAGE_TYPE_NO,
  360. S.STORAGE_TYPE_NAME
  361. FROM MAT_GP_M T, YDM_GP_BUTTRESS S
  362. WHERE T.MAT_NO = S.MAT_NO
  363. AND NVL(T.STOVE_NO,'/') = NVL('#STOVE_NO#','/')
  364. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  365. AND T.FIX_NUM = '#FIX_NUM#'
  366. AND T.ACT_LEN = '#ACT_LEN#'
  367. AND T.PRODUCT_FLAG = '#PRODUCT_FLAG#'
  368. AND T.MAT_STATUS = '#MAT_STATUS#'
  369. AND NVL(S.STORAGE_NO,'/') = NVL('#STORAGE_NO#','/')
  370. AND T.QCM_STAUS = '#QCM_STAUS#'
  371. AND S.LOCATION_NO = '#LOCATION_NO#'
  372. AND S.LARY_NO = '#LARY_NO#'
  373. AND NVL(T.PRO_PLAN_ID_ZG,'/') = NVL('#PRO_PLAN_ID_ZG#','/')
  374. AND NVL(T.GX_PLAN_NO_ZG,'/') = NVL('#GX_PLAN_NO_ZG#','/')
  375. AND NVL(T.FURNACENO,'/') = NVL(T.FURNACENO,'/')
  376. AND NVL(T.SEQUENCENO,'/') = NVL(T.SEQUENCENO,'/')
  377. AND T.IS_SETFOOT = '0'
  378. AND ROWNUM <= #ACT_COUNT#
  379. ORDER BY T.MAT_NO DESC) LOOP
  380. V_OUTSTOCK_SQE := V_OUTSTOCK_DOC || LPAD(V_OCOUNT, 4, 0);
  381. INSERT INTO YDM_GP_OUTLIST(
  382. OUTSTOCK_SQE,
  383. OUTSTOCK_PLAN_NO,
  384. OUTSTOCK_DOC,
  385. OUTSTOCK_TYPE_CODE,
  386. OUTSTOCK_TYPE_NAME,
  387. VEHICLE_NO,
  388. MAT_NO,
  389. PRODUCT_FLAG,
  390. MAT_STATUS,
  391. STOVE_NO,
  392. FLAG_STOVE_NO,
  393. JUDGE_STOVE_NO,
  394. CAST_NO,
  395. CCMID,
  396. MATERIAL_NO,
  397. MATERIAL_NAME,
  398. GRADECODE,
  399. GRADENAME,
  400. STD_CODE,
  401. STD_NAME,
  402. DIMATER,
  403. HEIGHT,
  404. ACT_LEN,
  405. FIX_NUM,
  406. FIX_LEN,
  407. ACT_COUNT,
  408. ACT_WEIGHT,
  409. ACT_THEORY_WEIGHT,
  410. PLINE_CODE,
  411. PLINE_NAME,
  412. PRO_ORDER_NO,
  413. BELONG_CODE,
  414. BELONG_NAME,
  415. STORAGE_NO,
  416. LOCATION_NO,
  417. LARY_NO,
  418. DEPARTMENT_CODE,
  419. DEPARTMENT_DESC,
  420. MANAGEMENT_NO,
  421. MANAGEMENT_NAME,
  422. TAR_STORAGE_NO,
  423. TAR_LOCATION_NO,
  424. TAR_DEPARTMENT_CODE,
  425. TAR_DEPARTMENT_DESC,
  426. TAR_MANAGEMENT_NO,
  427. TAR_MANAGEMENT_NAME,
  428. TAR_REC_FLAG,
  429. BAL_YEAR_MONTH,
  430. OUTSTOCK_TIME,
  431. OUT_BC,
  432. OUT_BZ,
  433. STORAGE_ATTR,
  434. STORAGE_ATTR_NAME,
  435. STORAGE_TYPE_NO,
  436. STORAGE_TYPE_NAME,
  437. MEMO,
  438. CREATE_NAME,
  439. CREATE_TIME,
  440. GROUD_NO,
  441. ICCAR_NO,
  442. FURNACENO,
  443. SEQUENCENO,
  444. PRO_PLAN_ID,
  445. GX_PLAN_NO,
  446. DRIVER,
  447. PRO_PLAN_ID_ZG,
  448. GX_PLAN_NO_ZG,
  449. LEAVE_FACTORY_FLAG,
  450. SUPERVISOR_NAME,
  451. SUPERVISOR_CALL,
  452. OUT_TYPE,
  453. CUT_NUM,GPREQ_ID)
  454. VALUES(
  455. V_OUTSTOCK_SQE,
  456. '',
  457. V_OUTSTOCK_DOC,
  458. '#OUTSTOCK_TYPE_CODE#',
  459. V_BASENAME,
  460. '#VEHICLE_NO#',
  461. MYROW.MAT_NO,
  462. MYROW.PRODUCT_FLAG,
  463. MYROW.MAT_STATUS,
  464. MYROW.STOVE_NO,
  465. MYROW.FLAG_STOVE_NO,
  466. MYROW.JUDGE_STOVE_NO,
  467. MYROW.CAST_NO,
  468. MYROW.CCMID,
  469. MYROW.MATERIAL_NO,
  470. MYROW.MATERIAL_NAME,
  471. MYROW.GRADECODE,
  472. MYROW.GRADENAME,
  473. MYROW.STD_CODE,
  474. MYROW.STD_NAME,
  475. MYROW.DIMATER,
  476. MYROW.HEIGHT,
  477. MYROW.ACT_LEN,
  478. MYROW.FIX_NUM,
  479. MYROW.FIX_LEN,
  480. MYROW.ACT_COUNT,
  481. MYROW.ACT_WEIGHT,
  482. MYROW.ACT_THEORY_WEIGHT,
  483. MYROW.PLINE_CODE,
  484. MYROW.PLINE_NAME,
  485. MYROW.PRO_ORDER_NO,
  486. MYROW.BELONG_CODE,
  487. MYROW.BELONG_NAME,
  488. MYROW.STORAGE_NO,
  489. MYROW.LOCATION_NO,
  490. MYROW.LARY_NO,
  491. '#DEPARTMENT_CODE#',
  492. '#DEPARTMENT_DESC#',
  493. '#MANAGEMENT_NO#',
  494. '#MANAGEMENT_NAME#',
  495. '#TAR_STORAGE_NO#',
  496. '#TAR_LOCATION_NO#',
  497. '',
  498. '',
  499. '',
  500. '',
  501. '0',
  502. '#BAL_YEAR_MONTH#',
  503. V_TIME,
  504. '1',
  505. '1',
  506. MYROW.STORAGE_ATTR,
  507. MYROW.STORAGE_ATTR_NAME,
  508. MYROW.STORAGE_TYPE_NO,
  509. MYROW.STORAGE_TYPE_NAME,
  510. MYROW.MEMO,
  511. '#CREATE_NAME#',
  512. V_TIME,
  513. MYROW.GROUD_NO,
  514. '#ICCAR_NO#',
  515. MYROW.FURNACENO,
  516. MYROW.SEQUENCENO,
  517. MYROW.PRO_PLAN_ID,
  518. MYROW.GX_PLAN_NO,
  519. '#DRIVER#',
  520. MYROW.PRO_PLAN_ID_ZG,
  521. MYROW.GX_PLAN_NO_ZG,
  522. '0',
  523. '#SUPERVISOR_NAME#',
  524. '#SUPERVISOR_CALL#',
  525. '#OUT_TYPE#',
  526. MYROW.CUT_NUM,
  527. MYROW.GPREQ_ID);
  528. DELETE YDM_GP_BUTTRESS T WHERE T.MAT_NO = MYROW.MAT_NO;
  529. UPDATE MAT_GP_M T SET T.MAT_GOWHERE_CODE = '#MAT_GOWHERE_CODE#',
  530. T.MAT_GOWHERE_NAME = '#MAT_GOWHERE_NAME#'
  531. WHERE T.MAT_NO = MYROW.MAT_NO;
  532. V_OCOUNT := V_OCOUNT + 1;
  533. END LOOP;
  534. END;
  535. ]]>
  536. </query>
  537. <query id = "deleteData.selectLocationName" desc = "查询库位名称">
  538. SELECT T.LOCATION_NAME FROM YDM_BS_LOCATION T WHERE T.LOCATION_NO = ?
  539. </query>
  540. <query id = "FrmStuffMoveOut.doQueryDoc" desc = "生成单号,2代表坯,区分管子">
  541. SELECT ? || TO_CHAR(SYSDATE, 'YYMMDD') || '2' ||
  542. LPAD(NVL(MAX(SUBSTR(OUTSTOCK_DOC, 12)), 0) + 1, 4, 0) OUTSTOCK_DOC
  543. FROM YDM_GP_OUTLIST T
  544. WHERE T.OUTSTOCK_TYPE_CODE = ?
  545. AND T.OUTSTOCK_DOC LIKE ? || TO_CHAR(SYSDATE, 'YYMMDD') || '2____'
  546. </query>
  547. <query id = "FrmStuffMoveOut.SelectOutListData" desc = "倒库记录是否被接收">
  548. SELECT COUNT(1) ACOUNT
  549. FROM YDM_GP_OUTLIST T
  550. WHERE T.TAR_REC_FLAG = '1'
  551. AND T.STOVE_NO = '#STOVE_NO#'
  552. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  553. AND T.GROUD_NO = '#GROUD_NO#'
  554. AND T.OUTSTOCK_DOC = '#OUTSTOCK_DOC#'
  555. </query>
  556. <query id = "FrmStuffMoveOut.deleteOutListData" desc= "撤销倒库记录">
  557. <![CDATA[
  558. DECLARE
  559. V_TIME YDM_GP_OUTLIST.CREATE_TIME%TYPE := SYSDATE;
  560. BEGIN
  561. FOR MYROW IN (SELECT T.*
  562. FROM YDM_GP_OUTLIST T
  563. WHERE T.OUTSTOCK_DOC = '#OUTSTOCK_DOC#'
  564. ORDER BY T.MAT_NO DESC) LOOP
  565. INSERT INTO YDM_GP_BUTTRESS
  566. (GROUD_NO,
  567. MAT_NO,
  568. STOVE_NO,
  569. FLAG_STOVE_NO,
  570. JUDGE_STOVE_NO,
  571. STORAGE_NO,
  572. LOCATION_NO,
  573. LARY_NO,
  574. LOC_NO,
  575. STORAGE_ATTR,
  576. STORAGE_ATTR_NAME,
  577. STORAGE_TYPE_NO,
  578. STORAGE_TYPE_NAME,
  579. DEPARTMENT_CODE,
  580. DEPARTMENT_DESC,
  581. MANAGEMENT_NO,
  582. MANAGEMENT_NAME,
  583. MEMO,
  584. CREATE_NAME,
  585. CREATE_TIME,
  586. LOCATION_NAME)
  587. VALUES
  588. (MYROW.GROUD_NO,
  589. MYROW.MAT_NO,
  590. MYROW.STOVE_NO,
  591. MYROW.FLAG_STOVE_NO,
  592. MYROW.JUDGE_STOVE_NO,
  593. MYROW.STORAGE_NO,
  594. MYROW.LOCATION_NO,
  595. MYROW.LARY_NO,
  596. '',
  597. MYROW.STORAGE_ATTR,
  598. MYROW.STORAGE_ATTR_NAME,
  599. MYROW.STORAGE_TYPE_NO,
  600. MYROW.STORAGE_TYPE_NAME,
  601. '#DEPARTMENT_CODE#',
  602. '#DEPARTMENT_DESC#',
  603. '#MANAGEMENT_NO#',
  604. '#MANAGEMENT_NAME#',
  605. MYROW.MEMO,
  606. '#CREATE_NAME#',
  607. V_TIME,
  608. '#LOCATION_NAME#');
  609. IF(MYROW.LEAVE_FACTORY_FLAG = '1')THEN
  610. UPDATE YDM_GP_OUTLIST T
  611. SET T.VALIDFLAG = '0'
  612. WHERE T.OUTSTOCK_DOC = MYROW.OUTSTOCK_DOC;
  613. ELSE
  614. DELETE YDM_GP_OUTLIST T WHERE T.OUTSTOCK_DOC = MYROW.OUTSTOCK_DOC;
  615. END IF;
  616. END LOOP;
  617. END;
  618. ]]>
  619. </query>
  620. <query id = "FrmStuffMoveOut.doQueryTarDepart" desc = "查询目标仓库科室">
  621. SELECT T.MANAGEMENT_NO,T.MANAGEMENT_NAME FROM YDM_BS_STORAGE T WHERE T.STORAGE_NO = ?
  622. </query>
  623. <query id = "FrmStuffMoveOut.updateYdmOutCarNo" desc = "回写车号">
  624. UPDATE YDM_GP_OUTLIST T
  625. SET T.VEHICLE_NO = '#VEHICLE_NO#'
  626. WHERE T.OUTSTOCK_DOC = '#OUTSTOCK_DOC#'
  627. AND T.STOVE_NO = '#STOVE_NO#'
  628. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  629. AND T.FIX_NUM = '#FIX_NUM#'
  630. AND T.LOCATION_NO = '#LOCATION_NO#'
  631. AND T.LARY_NO = '#LARY_NO#'
  632. AND T.TAR_STORAGE_NO = '#TAR_STORAGE_NO#'
  633. </query>
  634. <query id = "FrmStuffMoveOut.doQueryWeight" desc = "查询重量">
  635. <![CDATA[
  636. SELECT NVL(SUM(T.ACT_WEIGHT),0)ACT_WEIGHT
  637. FROM MAT_GP_M T, YDM_GP_BUTTRESS S
  638. WHERE T.MAT_NO = S.MAT_NO
  639. AND NVL(T.STOVE_NO, '/') = NVL('#STOVE_NO#', '/')
  640. AND T.JUDGE_STOVE_NO = '#JUDGE_STOVE_NO#'
  641. AND T.FIX_NUM = '#FIX_NUM#'
  642. AND T.PRODUCT_FLAG = '#PRODUCT_FLAG#'
  643. AND T.MAT_STATUS = '#MAT_STATUS#'
  644. AND NVL(S.STORAGE_NO, '/') = NVL('#STORAGE_NO#', '/')
  645. AND T.QCM_STAUS = '#QCM_STAUS#'
  646. AND S.LOCATION_NO = '#LOCATION_NO#'
  647. AND S.LARY_NO = '#LARY_NO#'
  648. AND T.IS_SETFOOT = '0'
  649. AND ROWNUM <= #ACT_COUNT#
  650. ORDER BY T.MAT_NO DESC
  651. ]]>
  652. </query>
  653. <query id = "FrmStuffMoveOut.selectWayBill" desc = "查询运单信息">
  654. SELECT NVL(COUNT(1),0) ACOUNT,MAX(S.END_AREA_CODE)END_AREA_CODE
  655. FROM TMS_WAYBILL_M T,TMS_PLN_C S,TMS_PLN_M P
  656. WHERE T.PLN_NO = S.PLN_NO
  657. AND T.PLN_NO = P.PLN_NO
  658. AND S.PLN_NO = P.PLN_NO
  659. AND S.HEAT_NO = ?
  660. AND S.START_AREA_CODE = ?
  661. AND T.CAR_LICENSE = ?
  662. AND T.VALIDFLAG IN('20','35')
  663. AND P.STATUS = '20'
  664. </query>
  665. <query id = "FrmStuffMoveOut.SelectWayM" desc = "查询运单主表信息">
  666. SELECT T.*,S.START_NODE_CODE
  667. FROM TMS_WAYBILL_M T,TMS_COM_LINE_M S
  668. WHERE T.LINE_CODE = S.LINE_CODE
  669. AND T.CAR_LICENSE = ?
  670. AND T.VALIDFLAG IN('20','35')
  671. </query>
  672. <query id = "FrmStuffMoveOut.selectWgt" desc = "查询对应支数重量">
  673. SELECT T.JUDGE_STOVE_NO,
  674. T.GROUD_NO,
  675. T.MATERIAL_NO,
  676. T.MATERIAL_NAME,
  677. T.DIMATER,
  678. T.FLAG_STOVE_NO,
  679. T.SUPERVISOR_NAME,
  680. T.SUPERVISOR_CALL,
  681. T.OUTSTOCK_DOC,
  682. T.PRODUCT_FLAG,
  683. T.MAT_STATUS,
  684. T.PLINE_CODE,
  685. T.PLINE_NAME,
  686. T.PRODUCCODE,
  687. T.PRODUCNAME,
  688. '00'QCM_STAUS,
  689. T.PRODUCT_FLAG,
  690. T.MAT_STATUS,
  691. (SELECT T1.PRODUC_HEAD FROM COM_BASE_PRODUCT T1 WHERE T1.PRODUCCODE = T.PRODUCCODE)PRODUCT_CODE,
  692. (SELECT S.BASENAME FROM COM_BASE_PRODUCT T2,COM_BASE_INFO S WHERE T2.PRODUC_HEAD = S.BASECODE AND T2.PRODUCCODE = T.PRODUCCODE)PRODUCT_NAME,
  693. MAX(T.SUPERVISOR_NAME)SUPERVISOR_NAME,
  694. MAX(T.SUPERVISOR_CALL)SUPERVISOR_CALL,
  695. SUM(T.ACT_COUNT) ACT_COUNT,
  696. SUM(T.ACT_WEIGHT) ACT_WEIGHT
  697. FROM YDM_GP_OUTLIST T
  698. WHERE T.OUTSTOCK_DOC = ?
  699. GROUP BY T.JUDGE_STOVE_NO,
  700. T.GROUD_NO,
  701. T.MATERIAL_NO,
  702. T.MATERIAL_NAME,
  703. T.DIMATER,
  704. T.FLAG_STOVE_NO,
  705. T.SUPERVISOR_NAME,
  706. T.SUPERVISOR_CALL,
  707. T.OUTSTOCK_DOC,
  708. T.PRODUCT_FLAG,
  709. T.MAT_STATUS,
  710. T.PLINE_CODE,
  711. T.PLINE_NAME,
  712. T.PRODUCCODE,
  713. T.PRODUCNAME,
  714. T.PRODUCT_FLAG,
  715. T.MAT_STATUS
  716. </query>
  717. <query id = "FrmStuffMoveOut.insertWayC" desc = "新增运单子表信息">
  718. DECLARE
  719. V_WAYBILL_SQE TMS_WAYBILL_C.WAYBILL_SQE%TYPE := NULL;
  720. BEGIN
  721. SELECT LPAD(NVL(MAX(SUBSTR(T.WAYBILL_SQE,0)), 0) + 1,3,0)
  722. INTO V_WAYBILL_SQE
  723. FROM TMS_WAYBILL_C T
  724. WHERE T.WAYBILL_NO = '#WAYBILL_NO#';
  725. INSERT INTO TMS_WAYBILL_C
  726. (MATERIALS_DIMATER,
  727. MATERIALS_HEIGHT,
  728. MAT_STATUS,
  729. SUPERVISOR_NAME,
  730. SUPERVISOR_CALL,
  731. PRODUCT_FLAG,
  732. MAT_TYPE,
  733. WAYBILL_NO,
  734. WAYBILL_SQE,
  735. PLN_NO,
  736. PLN_SQE,
  737. HEAT_NO,
  738. BATCH_NO,
  739. LOGO_NO,
  740. GROUP_NO,
  741. MATERIALS_CODE,
  742. MATERIALS_DESC,
  743. MATERIALS_SPEC,
  744. WAYBILL_QTY_VAL,
  745. WAYBILL_WT_VAL,
  746. REF_PLN_NO,
  747. START_NODE_CODE,
  748. START_NODE_DESC,
  749. START_AREA_CODE,
  750. START_AREA_DESC,
  751. END_NODE_CODE,
  752. END_NODE_DESC,
  753. END_AREA_CODE,
  754. END_AREA_DESC,
  755. PLINE_CODE,
  756. PLINE_NAME,
  757. PROCESS_CDOE,
  758. PROCESS_DESC,
  759. PRODUCCODE,
  760. PRODUCNAME,
  761. PRODUCT_CODE,
  762. PRODUCT_NAME,
  763. QCM_STAUS,
  764. DEMAND_ORG_CODE,
  765. DEMAND_ORG_DESC)
  766. VALUES
  767. ('#MATERIALS_DIMATER#',
  768. '#MATERIALS_HEIGHT#',
  769. '#MAT_STATUS#',
  770. '#SUPERVISOR_NAME#',
  771. '#SUPERVISOR_CALL#',
  772. '#PRODUCT_FLAG#',
  773. '#MAT_TYPE#',
  774. '#WAYBILL_NO#',
  775. V_WAYBILL_SQE,
  776. '#PLN_NO#',
  777. V_WAYBILL_SQE,
  778. '#HEAT_NO#',
  779. '#BATCH_NO#',
  780. '#LOGO_NO#',
  781. '#GROUP_NO#',
  782. '#MATERIALS_CODE#',
  783. '#MATERIALS_DESC#',
  784. '#MATERIALS_SPEC#',
  785. '#WAYBILL_QTY_VAL#',
  786. '#WAYBILL_WT_VAL#',
  787. '#REF_PLN_NO#',
  788. '#START_NODE_CODE#',
  789. '#START_NODE_DESC#',
  790. '#START_AREA_CODE#',
  791. '#START_AREA_DESC#',
  792. '#END_NODE_CODE#',
  793. '#END_NODE_DESC#',
  794. '#END_AREA_CODE#',
  795. '#END_AREA_DESC#',
  796. '#PLINE_CODE#',
  797. '#PLINE_NAME#',
  798. '#PROCESS_CDOE#',
  799. '#PROCESS_DESC#',
  800. '#PRODUCCODE#',
  801. '#PRODUCNAME#',
  802. '#PRODUCT_CODE#',
  803. '#PRODUCT_NAME#',
  804. '#QCM_STAUS#',
  805. '#DEMAND_ORG_CODE#',
  806. '#DEMAND_ORG_DESC#');
  807. END;
  808. </query>
  809. <query id = "FrmStuffMoveOut.selectStartArea" desc = "查询起点、区域">
  810. SELECT T.START_NODE_CODE,
  811. T.START_NODE_DESC,
  812. T.START_AREA_CODE,
  813. T.START_AREA_DESC,
  814. T.END_NODE_CODE,
  815. T.END_NODE_DESC,
  816. T.END_AREA_CODE,
  817. T.END_AREA_DESC,
  818. S.DEMAND_ORG_CODE,
  819. S.DEMAND_ORG_DESC
  820. FROM TMS_PLN_C T,TMS_DEMAND_M S
  821. WHERE T.DEMAND_NO = S.DEMAND_NO
  822. AND T.PLN_NO = ?
  823. AND T.HEAT_NO = ?
  824. </query>
  825. <query id = "FrmStuffMoveOut.insertExcute" desc = "新增装车实绩表">
  826. DECLARE
  827. V_EXECUTE_NO TMS_EXECUTE_B.EXECUTE_NO%TYPE := NULL;
  828. BEGIN
  829. SELECT TO_CHAR(SYSDATE, 'YYYYMMDD') ||
  830. LPAD(NVL(MAX(SUBSTR(T.EXECUTE_NO,9)), 0) + 1, 5, 0)
  831. INTO V_EXECUTE_NO
  832. FROM TMS_EXECUTE_B T
  833. WHERE EXECUTE_NO LIKE TO_CHAR(SYSDATE, 'YYYYMMDD')|| '_____';
  834. INSERT INTO TMS_EXECUTE_B
  835. (EXECUTE_NO,
  836. UNLOADING_CODE,
  837. CAR_LICENSE,
  838. PLN_NO,
  839. WAYBILL_NO,
  840. EXECUTE_TIME,
  841. REFE_NO,
  842. ACCOUNT_YEAR_MONTH,
  843. CREATE_TIME)
  844. VALUES
  845. ( V_EXECUTE_NO,
  846. '#UNLOADING_CODE#',
  847. '#CAR_LICENSE#',
  848. '#PLN_NO#',
  849. '#WAYBILL_NO#',
  850. SYSDATE,
  851. '#REFE_NO#',
  852. '#ACCOUNT_YEAR_MONTH#',
  853. SYSDATE);
  854. END;
  855. </query>
  856. <query id = "FrmStuffMoveOut.insertTraceM" desc = "写跟踪记录">
  857. INSERT INTO TMS_TRACE_M
  858. (WAYBILL_NO,
  859. TRACE_NO,
  860. NODE_CODE,
  861. NODE_DESC,
  862. NODE_TYPE_CODE,
  863. NODE_TYPE_DESC,
  864. REFE_NO,
  865. EVENT_CODE,
  866. EVENT_DESC,
  867. EVENT_TIME)
  868. VALUES
  869. ('#WAYBILL_NO#',
  870. (SELECT NVL(MAX(T.TRACE_NO),'0')+1 FROM TMS_TRACE_M T WHERE T.WAYBILL_NO = '#WAYBILL_NO#'),
  871. '#NODE_CODE#',
  872. '#NODE_DESC#',
  873. '#NODE_TYPE_CODE#',
  874. '#NODE_TYPE_DESC#',
  875. '#REFE_NO#',
  876. '#EVENT_CODE#',
  877. '#EVENT_DESC#',
  878. SYSDATE)
  879. </query>
  880. <query id = "FrmStuffMoveOut.insertCraneWayC" desc = "新增吊车运单子表">
  881. INSERT INTO TMS_WAYBILL_C
  882. (WAYBILL_NO,
  883. WAYBILL_SQE,
  884. PLN_NO,
  885. PLN_SQE,
  886. HEAT_NO,
  887. BATCH_NO,
  888. LOGO_NO,
  889. GROUP_NO,
  890. MATERIALS_CODE,
  891. MATERIALS_DESC,
  892. MATERIALS_SPEC,
  893. WAYBILL_QTY_VAL,
  894. WAYBILL_WT_VAL,
  895. UOM_CODE,
  896. UOM_DESC,
  897. PRO_ORDER_NO,
  898. PRO_ORDER_SQE,
  899. CURRENT_JOB_NO,
  900. NEXT_JOB_NO,
  901. MEMO,
  902. REF_PLN_NO,
  903. REF_PLN_SQE,
  904. REFE_NO,
  905. CAR_LICENSE,
  906. AFFIRM_TIME,
  907. MATERIALS_DIMATER,
  908. MATERIALS_HEIGHT,
  909. IS_SORT,
  910. SUPERVISOR_NAME,
  911. SUPERVISOR_CALL,
  912. PRODUCT_FLAG,
  913. MAT_STATUS,
  914. MAT_TYPE,
  915. START_NODE_CODE,
  916. START_NODE_DESC,
  917. END_NODE_CODE,
  918. END_NODE_DESC,
  919. START_AREA_CODE,
  920. START_AREA_DESC,
  921. END_AREA_DESC,
  922. END_AREA_CODE,
  923. PLINE_CODE,
  924. PLINE_NAME,
  925. PROCESS_CDOE,
  926. PROCESS_DESC,
  927. PRODUCCODE,
  928. PRODUCNAME,
  929. PRODUCT_CODE,
  930. PRODUCT_NAME,
  931. QCM_STAUS,
  932. DEMAND_ORG_CODE,
  933. DEMAND_ORG_DESC)
  934. SELECT '#CRANE_WAYBILL_NO#',
  935. (SELECT NVL(MAX(TO_NUMBER(WAYBILL_SQE)), 0)
  936. FROM TMS_WAYBILL_C
  937. WHERE WAYBILL_NO = '#CRANE_WAYBILL_NO#' ) + ROWNUM,
  938. (SELECT PLN_NO FROM TMS_WAYBILL_M WHERE WAYBILL_NO = '#CRANE_WAYBILL_NO#'),
  939. '1',
  940. HEAT_NO,
  941. BATCH_NO,
  942. LOGO_NO,
  943. GROUP_NO,
  944. MATERIALS_CODE,
  945. MATERIALS_DESC,
  946. MATERIALS_SPEC,
  947. WAYBILL_QTY_VAL,
  948. WAYBILL_WT_VAL,
  949. UOM_CODE,
  950. UOM_DESC,
  951. PRO_ORDER_NO,
  952. PRO_ORDER_SQE,
  953. CURRENT_JOB_NO,
  954. NEXT_JOB_NO,
  955. MEMO,
  956. PLN_NO,
  957. PLN_SQE,
  958. '#WAYBILL_NO#',
  959. (SELECT CAR_LICENSE FROM TMS_WAYBILL_M WHERE WAYBILL_NO = '#WAYBILL_NO#'),
  960. SYSDATE,
  961. MATERIALS_DIMATER,
  962. MATERIALS_HEIGHT,
  963. IS_SORT,
  964. SUPERVISOR_NAME,
  965. SUPERVISOR_CALL,
  966. PRODUCT_FLAG,
  967. MAT_STATUS,
  968. MAT_TYPE,
  969. START_NODE_CODE,
  970. START_NODE_DESC,
  971. START_NODE_CODE,
  972. START_NODE_DESC,
  973. START_AREA_CODE,
  974. START_AREA_DESC,
  975. START_AREA_DESC,
  976. START_AREA_CODE,
  977. PLINE_CODE,
  978. PLINE_NAME,
  979. PROCESS_CDOE,
  980. PROCESS_DESC,
  981. PRODUCCODE,
  982. PRODUCNAME,
  983. PRODUCT_CODE,
  984. PRODUCT_NAME,
  985. QCM_STAUS,
  986. DEMAND_ORG_CODE,
  987. DEMAND_ORG_DESC
  988. FROM TMS_WAYBILL_C T
  989. WHERE T.WAYBILL_NO = '#WAYBILL_NO#'
  990. AND T. START_NODE_CODE= '#NODE_CODE#'
  991. </query>
  992. <query id = "FrmStuffMoveOut.updateWayM" desc = "修改运单主表状态">
  993. UPDATE TMS_WAYBILL_M T SET T.VALIDFLAG = '#VALIDFLAG#' WHERE T.WAYBILL_NO = '#WAYBILL_NO#'
  994. </query>
  995. <query id = "FrmStuffMoveOut.selectWayBillStaus" desc = "查询运单状态">
  996. SELECT T.VALIDFLAG, T.WAYBILL_NO
  997. FROM TMS_WAYBILL_M T, TMS_WAYBILL_C S
  998. WHERE T.WAYBILL_NO = S.WAYBILL_NO
  999. AND S.REF_PLN_NO = ?
  1000. AND S.MAT_TYPE = '2'
  1001. AND ROWNUM = 1
  1002. </query>
  1003. <query id = "FrmStuffMoveOut.cancelLoadFrim" desc = "撤销装车确认">
  1004. DECLARE
  1005. V_FLAG TMS_TRACE_M.EVENT_CODE%TYPE := NULL;
  1006. BEGIN
  1007. DELETE FROM TMS_WAYBILL_C T
  1008. WHERE (T.WAYBILL_NO = '#WAYBILL_NO#' OR T.REFE_NO = '#WAYBILL_NO#');
  1009. DELETE FROM TMS_EXECUTE_B T WHERE T.WAYBILL_NO = '#WAYBILL_NO#';
  1010. DELETE FROM TMS_TRACE_M T
  1011. WHERE T.WAYBILL_NO = '#WAYBILL_NO#'
  1012. AND T.REFE_NO = '#REFE_NO#'
  1013. AND T.EVENT_CODE IN ('RC04', 'RC14');
  1014. SELECT T.EVENT_CODE
  1015. INTO V_FLAG
  1016. FROM TMS_TRACE_M T
  1017. WHERE T.WAYBILL_NO = '#WAYBILL_NO#'
  1018. AND T.TRACE_NO = (SELECT MAX(T1.TRACE_NO)
  1019. FROM TMS_TRACE_M T1
  1020. WHERE T1.WAYBILL_NO = '#WAYBILL_NO#');
  1021. IF (V_FLAG = 'RC18') THEN
  1022. UPDATE TMS_WAYBILL_M T
  1023. SET T.VALIDFLAG = '35'
  1024. WHERE T.WAYBILL_NO = '#WAYBILL_NO#';
  1025. ELSE
  1026. UPDATE TMS_WAYBILL_M T
  1027. SET T.VALIDFLAG = '20'
  1028. WHERE T.WAYBILL_NO = '#WAYBILL_NO#';
  1029. END IF;
  1030. END;
  1031. </query>
  1032. <query id = "FrmStuffMoveOut.SelectStorageIsCarUser" desc = "查询是否限制了一车一卡">
  1033. SELECT T.IS_CAR_TAKING,T.IS_CAR_TAKING_BILL FROM YDM_BS_STORAGE T WHERE T.STORAGE_NO = ?
  1034. </query>
  1035. <query id = "FrmStuffMoveOut.doQueryCar" desc = "查询车辆信息">
  1036. SELECT T.CAR_LICENSE AS BASECODE ,T.CAR_LICENSE FROM TMS_CAR_BASE T WHERE T.CAR_TYPE_CODE = 'CAR01'
  1037. </query>
  1038. <query id = "FrmStuffMoveOut.selectQcmJudgeNo" desc = "查询是否改判过">
  1039. SELECT JUDGE_STOVE_NO
  1040. FROM (SELECT T.JUDGE_STOVE_NO
  1041. FROM QCM_GP_JUDGE_CHANGE T
  1042. WHERE T.JUDGE_STOVE_NO_GP = ?
  1043. AND T.VALID_FLAG = '1'
  1044. ORDER BY T.AGREE_TIME DESC)
  1045. WHERE ROWNUM = 1
  1046. </query>
  1047. <query id = "FrmStuffMoveOut.selectTmsWayRealation" desc = "查询拖车、吊车关系表">
  1048. SELECT T.* FROM TMS_WAYBILL_RELATION T WHERE T.WAYBILL_NO = '#WAYBILL_NO#'
  1049. </query>
  1050. <query id = "FrmStuffMoveOut.doQueryPln" desc = "查询计划主">
  1051. <![CDATA[
  1052. SELECT M.* ,NVL(D.WAYBIL_QTY,0) WAYBIL_QTY,NVL(D.WAYBIL_WT,0) WAYBIL_WT,
  1053. NVL(D.WAYBIL_COUNT,0) WAYBIL_COUNT,NVL(D.WAYBIL_COMPLETE_COUNT,0) WAYBIL_COMPLETE_COUNT,
  1054. C.PLN_QTY_VAL, C.PLN_WT_VAL,
  1055. (SELECT DRIVER_NAME FROM TMS_COM_DRIVER WHERE DRIVER_CODE = M.DRIVER_CODE) DRIVER_NAME
  1056. from TMS_PLN_M M
  1057. LEFT JOIN (
  1058. SELECT PLN_NO , SUM(PLN_QTY_VAL) PLN_QTY_VAL,
  1059. SUM(PLN_WT_VAL) PLN_WT_VAL
  1060. FROM TMS_PLN_C GROUP BY PLN_NO
  1061. ) C ON M.PLN_NO = C.PLN_NO
  1062. LEFT JOIN
  1063. (SELECT A.PLN_NO , SUM(A.WAYBILL_QTY_VAL) WAYBIL_QTY,
  1064. SUM(A.WAYBILL_WT_VAL) WAYBIL_WT,
  1065. COUNT(DISTINCT A.WAYBILL_NO) WAYBIL_COUNT,
  1066. COUNT(DISTINCT CASE
  1067. WHEN B.VALIDFLAG IN ('60','70') THEN
  1068. B.WAYBILL_NO
  1069. ELSE
  1070. NULL
  1071. END) WAYBIL_COMPLETE_COUNT
  1072. FROM TMS_WAYBILL_C A, TMS_WAYBILL_M B
  1073. WHERE A.WAYBILL_NO = B.WAYBILL_NO
  1074. AND B.VALIDFLAG != '00'
  1075. GROUP BY A.PLN_NO) D ON M.PLN_NO = D.PLN_NO
  1076. WHERE 1=1
  1077. ]]>
  1078. </query>
  1079. <query id="FrmStuffMoveOut.doQueryPlnC" desc="查询计划">
  1080. <![CDATA[
  1081. SELECT * FROM TMS_PLN_C M WHERE 1=1
  1082. ]]>
  1083. </query>
  1084. <query id = "FrmStuffMoveOut.selectProcess" desc = "查询工序代码">
  1085. SELECT T.PROCESS_CODE,T.PROCESS_DESC FROM COM_BASE_PLINE T WHERE T.PLINE_CODE = ?
  1086. </query>
  1087. <query id = "FrmStuffMoveOut.queryStoreArea" desc = "查询仓库所属区域">
  1088. SELECT T.SEAM_AREA FROM YDM_BS_STORAGE T WHERE T.STORAGE_NO = ?
  1089. </query>
  1090. <query id = "FrmStuffMoveOut.doQueryCarNo" desc = "查询已过皮重车辆">
  1091. SELECT DISTINCT T.CAR_NO,T.CAR_NO AS CAR_NO1
  1092. FROM CMM_WEIGHT_RECORD T
  1093. WHERE T.VALIDFLAG = '1'
  1094. AND T.WT_TYPE = '0'
  1095. ORDER BY T.CAR_NO ASC
  1096. </query>
  1097. </queryMap>