Guest User

Untitled

a guest
Oct 16th, 2017
110
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 3.34 KB | None | 0 0
  1. --반품박스정보 조회
  2. PROCEDURE PROC_OPEN_BOX ( P_COMPCD IN VARCHAR2
  3. ,P_CENTCD IN VARCHAR2
  4. ,P_BOXNNO IN VARCHAR2
  5. ,P_RESULTSET OUT SYS_REFCURSOR)
  6. IS
  7. V_BOXSTARTTIMES VARCHAR2(50);
  8. V_COMPCD CO_BOX.COMPCD %TYPE;
  9. V_CENTCD CO_BOX.CENTCD %TYPE;
  10. V_BOXNO CO_BOX.BOXNO %TYPE;
  11. V_OWNGB CO_BOX.OWNGB %TYPE;
  12. V_BRANDCD CO_BOX.BRANDCD %TYPE;
  13. V_SHOPCD CO_BOX.SHOPCD %TYPE;
  14. V_INSDD SR_INSMST.INSDD %TYPE;
  15. BEGIN
  16. --1번주석 04-4-C52116090263 값에 문제가 없습니다.
  17. --RAISE_APPLICATION_ERROR(-20001, P_COMPCD||'-'||P_CENTCD||'-'||P_BOXNNO);
  18.  
  19. BEGIN
  20. SELECT OWNGB , SHOPCD , BRANDCD
  21. INTO V_OWNGB, V_SHOPCD, V_BRANDCD
  22. FROM CO_BOX
  23. WHERE COMPCD = P_COMPCD
  24. AND CENTCD = P_CENTCD
  25. AND BOXNO = P_BOXNNO;
  26. EXCEPTION WHEN NO_DATA_FOUND THEN
  27. --2번주석 XX-X-XXXX 로 변수값들이 변하였습니다. 왜일까요?
  28. RAISE_APPLICATION_ERROR(-20001, P_COMPCD||'-'||P_CENTCD||'-'||P_BOXNNO);
  29. END;
  30.  
  31. --매장브랜드 체크
  32. SELECT TO_CHAR(SYSDATE,'YYYY-MM-DD') INTO V_INSDD FROM DUAL;
  33.  
  34. IF ( V_OWNGB = '4' ) THEN
  35. PRO_SHOPCHK(P_COMPCD, V_SHOPCD, V_BRANDCD, V_INSDD);
  36. END IF;
  37.  
  38. SELECT TO_CHAR(systimestamp, 'yyyy-mm-dd hh24:mi:ss ff6') INTO V_BOXSTARTTIMES FROM DUAL;
  39.  
  40. OPEN P_RESULTSET FOR
  41. SELECT ' ' CURRENTROW, A.BOXNO, A.OWNGB, D.CODENM OWNGBNM, A.BOXGB, A.SHOPCD, C.SHOPNM, A.BOXSTATEGB, A.AREACD,
  42. B.STYLECD, B.COLORCD, B.SIZECD, B.QTY RTNQTY, 0 INSQTY, -1*NVL(B.QTY,0) GAPQTY,
  43. B.BRANDCD SBRANDCD,
  44. CASE WHEN B.BRANDCD <> A.BRANDCD THEN '●' ELSE '' END NONBOXBRAND,
  45. A.AREACD, A.PALLETNO, F_AREA_USEGROUP(A.COMPCD, A.CENTCD, A.AREACD) AREAGROUP,
  46. V_BOXSTARTTIMES BOXSTARTTIMES,
  47. A.BRANDCD BXBRANDCD, E.CODENM BXBRANDNM,
  48. TO_BLOB('') BARCODE, TO_BLOB('') BARCODE1, TO_BLOB('') BARCODE2,
  49. B.STYLECD||B.COLORCD||B.SIZECD STYLECODE
  50. , DECODE(A.OWNGB, '4', NVL(F.BRANDCD, 'XXXXX'), A.BRANDCD) CHEBRANDCD
  51. FROM CO_BOX A, CO_BOX_SKU B, V_SHOPINFO_ALLCOMPANY C,
  52. ( SELECT * FROM SYSCOMMINFO_WMS WHERE COMPCD = P_COMPCD AND BUSIGB = 'NS' AND CODEGB = '1010' ) D,
  53. ( SELECT * FROM V_SYSCOMMINFO WHERE COMPCD = P_COMPCD AND BUSIGB = 'PL' AND CODEGB = '0020' ) E
  54. , (SELECT *
  55. FROM SMASHOPBRAND
  56. WHERE COMPCD = P_COMPCD
  57. AND TO_CHAR(SYSDATE,'YYYY-MM-DD') BETWEEN STARTDT AND NVL(ENDDT, '2099-12-31')) F
  58. WHERE A.COMPCD = B.COMPCD AND A.CENTCD = B.CENTCD AND A.BOXNO = B.BOXNO
  59. AND A.OWNGB = C.OWNGB AND A.SHOPCD = C.SHOPCD
  60. AND A.OWNGB = D.CODE(+)
  61. AND A.BRANDCD = E.CODE(+)
  62. AND A.COMPCD = F.COMPCD(+)
  63. AND A.SHOPCD = F.SHOPCD(+)
  64. AND A.BRANDCD = F.BRANDCD(+)
  65. AND A.COMPCD = P_COMPCD
  66. AND A.CENTCD = P_CENTCD
  67. AND A.BOXGB = 'B' --B반품
  68. AND A.BOXSTATEGB = 'C' --C생성 D폐기
  69. AND A.BOXNO = P_BOXNNO
  70. ORDER BY B.STYLECD, B.COLORCD, B.SIZECD;
  71. EXCEPTION WHEN NO_DATA_FOUND THEN
  72. RAISE_APPLICATION_ERROR(-20001, SQLERRM);
  73. END;
Add Comment
Please, Sign In to add comment