FrmScrapApplyFrim.xml 6.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183
  1. <?xml version="1.0" encoding="UTF-8"?>
  2. <queryMap desc = "废品审核">
  3. <query id = "FrmScrapApplyFrim.doQueryApply" desc = "查询废品信息">
  4. SELECT
  5. T.FAIL_APPROVAL_CODE,
  6. T.LOT_NO,
  7. T.STOVE_NO,
  8. T.JUDGE_STOVE_NO,
  9. T.MATERIAL_NO,
  10. T.MATERIAL_NAME,
  11. T.PRODUCCODE,
  12. T.PRODUCNAME,
  13. T.STEELCODE,
  14. T.STEELNAME,
  15. T.GRADECODE,
  16. T.GRADENAME,
  17. T.SPEC_CODE,
  18. T.SPEC_NAME,
  19. T.MODEL_CODE,
  20. T.MODEL_DESC,
  21. T.STD_CODE,
  22. T.STD_NAME,
  23. T.STD_STYLE,
  24. T.STD_STYLE_DESC,
  25. T.PRO_ORDER_NO,
  26. T.PROCESS_CDOE,
  27. T.PROCESS_DESC,
  28. T.PLINE_CODE,
  29. T.PLINE_NAME,
  30. T.ACT_DIMATER,
  31. T.ACT_HEIGHT,
  32. T.ACT_LEN,
  33. T.ACT_LEN_MIN,
  34. T.ACT_LEN_MAX,
  35. T.ACT_COUNT,
  36. T.ACT_WEIGHT,
  37. T.BELONG_CODE,
  38. T.BELONG_NAME,
  39. T.TARGET,
  40. T.SCRAP_REASON,
  41. T.BELONG_CODE_RESPONSE,
  42. T.BELONG_NAME_RESPONSE,
  43. T.CREATE_NAME,
  44. TO_CHAR(T.CREATE_TIME, 'YYYY-MM-DD HH24:MI:SS') CREATE_TIME,
  45. T.FRIM_NAME,
  46. TO_CHAR(T.FRIM_TIME, 'YYYY-MM-DD HH24:MI:SS') FRIM_TIME,
  47. DECODE(T.FRIM_FLAG,'0','未审核','1','审核通过','2','审核不通过')FRIM_FLAG,
  48. T.BAL_YEAR_MONTH,
  49. T.CRAFT_NO,
  50. T.CRAFT_PATH,
  51. DECODE(T.IS_FAST,'0','否','1','是') IS_FAST,
  52. T.SCRAP_DESC
  53. FROM YDM_BC_SCRAPFRIM T
  54. WHERE T.SCRAP_TYPE = '0'
  55. </query>
  56. <query id = "FrmScrapApplyFrim.frimScarpApply" desc = "审核成功">
  57. DECLARE
  58. V_PROCESS_CODE MAT_BC_M.PROCESS_CDOE%TYPE := NULL;
  59. BEGIN
  60. SELECT T.PROCESS_CODE
  61. INTO V_PROCESS_CODE
  62. FROM COM_BASE_PLINE T
  63. WHERE T.PLINE_CODE = '#PLINE_CODE#';
  64. FOR MYROW IN (SELECT *
  65. FROM MAT_BC_M T
  66. WHERE T.FAIL_APPROVAL_CODE = '#FAIL_APPROVAL_CODE#'
  67. AND T.PLINE_CODE = '#PLINE_CODE#'
  68. AND T.QCM_STAUS = '22'
  69. AND T.SCRAP_FRIM_FLAG = '1') LOOP
  70. UPDATE MAT_BC_M T
  71. SET T.SCRAP_FRIM_FLAG = '2',
  72. T.JUDGE_RESULT_CODE = '40740705',
  73. T.JUDGE_RESULT = '废品',
  74. T.JUDGE_RESULT_TIME = SYSDATE,
  75. T.BELONG_CODE_RESPONSE = '#BELONG_CODE_RESPONSE#',
  76. T.BELONG_NAME_RESPONSE = '#BELONG_NAME_RESPONSE#'
  77. WHERE T.MAT_NO = MYROW.MAT_NO
  78. AND T.PLINE_CODE = MYROW.PLINE_CODE;
  79. IF (V_PROCESS_CODE = 'F') THEN
  80. UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
  81. SET T.IS_FAIL_CHECK = '1',
  82. T.BAL_YEAR_MONTH_FAIL = '#BAL_YEAR_MONTH#'
  83. WHERE T.MAT_NO = MYROW.MAT_NO
  84. AND T.MAT_STATUS IN ('10', '40');
  85. ELSIF (V_PROCESS_CODE = 'G') THEN
  86. UPDATE PORT_MCH_BATCH_SAMPLE_RESULT T
  87. SET T.IS_FAIL_CHECK = '1',
  88. T.BAL_YEAR_MONTH_FAIL = '#BAL_YEAR_MONTH#'
  89. WHERE T.MAT_NO = MYROW.MAT_NO
  90. AND T.MAT_STATUS IN ('10', '40');
  91. ELSIF(V_PROCESS_CODE = 'E')THEN
  92. UPDATE PORT_VRP_BATCH_SAMPLE_RESULT T
  93. SET T.IS_FAIL_CHECK = '1',
  94. T.BAL_YEAR_MONTH_FAIL = '#BAL_YEAR_MONTH#'
  95. WHERE T.MAT_NO = MYROW.MAT_NO
  96. AND T.MAT_STATUS IN ('10', '40');
  97. END IF;
  98. END LOOP;
  99. UPDATE YDM_BC_SCRAPFRIM T
  100. SET T.FRIM_FLAG = '1',
  101. T.FRIM_NAME = '#FRIM_NAME#',
  102. T.FRIM_TIME = SYSDATE,
  103. T.BAL_YEAR_MONTH = '#BAL_YEAR_MONTH#',
  104. T.BELONG_CODE_RESPONSE = '#BELONG_CODE_RESPONSE#',
  105. T.BELONG_NAME_RESPONSE = '#BELONG_NAME_RESPONSE#'
  106. WHERE T.FAIL_APPROVAL_CODE = '#FAIL_APPROVAL_CODE#';
  107. END;
  108. </query>
  109. <query id = "FrmScrapApplyFrim.frimScarpApplyNot" desc = "审核不通过">
  110. DECLARE
  111. BEGIN
  112. FOR MYROW IN (SELECT *
  113. FROM MAT_BC_M T
  114. WHERE T.FAIL_APPROVAL_CODE = '#FAIL_APPROVAL_CODE#'
  115. AND T.PLINE_CODE = '#PLINE_CODE#'
  116. AND T.QCM_STAUS = '22'
  117. AND T.SCRAP_FRIM_FLAG = '1') LOOP
  118. UPDATE MAT_BC_M T
  119. SET T.SCRAP_FRIM_FLAG = '0',
  120. T.FAIL_APPROVAL_CODE = ''
  121. WHERE T.MAT_NO = MYROW.MAT_NO
  122. AND T.PLINE_CODE = MYROW.PLINE_CODE;
  123. END LOOP;
  124. UPDATE YDM_BC_SCRAPFRIM T
  125. SET T.FRIM_FLAG = '2',
  126. T.FRIM_NAME = '#FRIM_NAME#',
  127. T.FRIM_TIME = SYSDATE,
  128. T.BAL_YEAR_MONTH = '#BAL_YEAR_MONTH#'
  129. WHERE T.FAIL_APPROVAL_CODE = '#FAIL_APPROVAL_CODE#';
  130. END;
  131. </query>
  132. <query id = "FrmScrapApplyFrim.cancelFrimScrapApply" desc = "撤销审核通过">
  133. DECLARE
  134. V_PROCESS_CODE MAT_BC_M.PROCESS_CDOE%TYPE := NULL;
  135. BEGIN
  136. SELECT T.PROCESS_CODE
  137. INTO V_PROCESS_CODE
  138. FROM COM_BASE_PLINE T
  139. WHERE T.PLINE_CODE = '#PLINE_CODE#';
  140. FOR MYROW IN (SELECT *
  141. FROM MAT_BC_M T
  142. WHERE T.FAIL_APPROVAL_CODE = '#FAIL_APPROVAL_CODE#'
  143. AND T.PLINE_CODE = '#PLINE_CODE#'
  144. AND T.QCM_STAUS = '22'
  145. AND T.SCRAP_FRIM_FLAG = '2') LOOP
  146. UPDATE MAT_BC_M T
  147. SET T.SCRAP_FRIM_FLAG = '1',
  148. T.JUDGE_RESULT_CODE = '',
  149. T.JUDGE_RESULT = '',
  150. T.JUDGE_RESULT_TIME = '',
  151. T.BELONG_CODE_RESPONSE = '',
  152. T.BELONG_NAME_RESPONSE = ''
  153. WHERE T.MAT_NO = MYROW.MAT_NO
  154. AND T.PLINE_CODE = MYROW.PLINE_CODE;
  155. IF (V_PROCESS_CODE = 'F') THEN
  156. UPDATE PORT_HTT_BATCH_SAMPLE_RESULT T
  157. SET T.IS_FAIL_CHECK = '0',
  158. T.BAL_YEAR_MONTH_FAIL = ''
  159. WHERE T.MAT_NO = MYROW.MAT_NO
  160. AND T.MAT_STATUS IN ('10', '40');
  161. ELSIF (V_PROCESS_CODE = 'G') THEN
  162. UPDATE PORT_MCH_BATCH_SAMPLE_RESULT T
  163. SET T.IS_FAIL_CHECK = '0',
  164. T.BAL_YEAR_MONTH_FAIL = ''
  165. WHERE T.MAT_NO = MYROW.MAT_NO
  166. AND T.MAT_STATUS IN ('10', '40');
  167. ELSIF (V_PROCESS_CODE = 'E') THEN
  168. UPDATE PORT_VRP_BATCH_SAMPLE_RESULT T
  169. SET T.IS_FAIL_CHECK = '0',
  170. T.BAL_YEAR_MONTH_FAIL = ''
  171. WHERE T.MAT_NO = MYROW.MAT_NO
  172. AND T.MAT_STATUS IN ('10', '40');
  173. END IF;
  174. END LOOP;
  175. UPDATE YDM_BC_SCRAPFRIM T
  176. SET T.FRIM_FLAG = '0',
  177. T.FRIM_NAME = '',
  178. T.BELONG_CODE_RESPONSE = '',
  179. T.BELONG_NAME_RESPONSE = ''
  180. WHERE T.FAIL_APPROVAL_CODE = '#FAIL_APPROVAL_CODE#';
  181. END;
  182. </query>
  183. </queryMap>