Sipariş Üzerindeki Durdurmaları Serbest Bırakan API

 
/* Formatted on 11/06/2018 13:11:51 (QP5 v5.287) */
CREATE OR REPLACE PROCEDURE APPS.xxdbo_release_order_p (
   p_header_id   IN NUMBER)
IS
   d_order_tbl       oe_holds_pvt.order_tbl_type;
   h_return_status   VARCHAR2 (100);
   h_msg_count       NUMBER;
   h_msg_data        VARCHAR2 (1000);
   p_errbuf          VARCHAR2 (1000);
   p_retcode         NUMBER;
   l_hold_id         NUMBER;
BEGIN
   fnd_global.apps_initialize (0, RESPONSIBILITY_ID, APPLICATION_ID);
   d_order_tbl (1).header_id := p_header_id;
 
   --------------------------------------------------
   BEGIN
        SELECT ho.hold_id
          INTO l_hold_id
          FROM oe_sold_to_orgs_v org,
               mtl_system_items_vl si,
               oe_order_holds_all oh,
               oe_order_lines_all l,
               oe_order_headers_all h,
               oe_hold_definitions ho,
               oe_hold_sources_all hs
         WHERE     oh.header_id = h.header_id
               AND h.sold_to_org_id = org.organization_id
               AND (h.cancelled_flag IS NULL OR h.cancelled_flag = 'N')
               AND h.open_flag = 'Y'
               AND oh.hold_source_id = hs.hold_source_id
               AND hs.hold_id = ho.hold_id
               AND h.header_id = l.header_id(+)
               AND l.open_flag = 'Y'
               AND l.line_id = NVL (oh.line_id, l.line_id)
               AND l.inventory_item_id = si.inventory_item_id
               AND oh.hold_release_id IS NULL
               AND h.ORG_ID = -- siparişin üstünde oldugu organizasyon alınmalı.
                             AND h.header_id = p_header_id
               AND ROWNUM = 1
      ORDER BY org.NAME,
               ho.NAME,
               h.order_number,
               si.description;
   EXCEPTION
      WHEN OTHERS
      THEN
         DBMS_OUTPUT.put_line ('HOLD_ID alınamadı !');
         RETURN;
   END;
 
   ---------------------------------------------------
   oe_holds_pub.release_holds (1.0,                           -- p_api_version
                               fnd_api.g_true,              -- p_init_msg_list
                               fnd_api.g_false,                    -- p_commit
                               fnd_api.g_valid_level_full, -- p_validation_level
                               d_order_tbl,
                               l_hold_id,                          --p_hold_id
                               --select * from OE_HOLD_DEFINITIONS --> hold_id , dur
                               'MANUAL_RELEASE_MARGIN_HOLD',
                               -- p_release_reason_code
                               --Manuel olarak serbest bırakıldı, yeniden durdurmayın
                               NULL,                      -- p_release_comment
                               h_return_status,                         -- OUT
                               h_msg_count,                             -- OUT
                               h_msg_data                               -- OUT
                                         );
 
   IF h_return_status = 'S'
   THEN
      DBMS_OUTPUT.put_line (
         'ORDER msg : ' || h_msg_data || ' ' || h_return_status);
      p_errbuf := h_return_status;
      p_retcode := '0';
      DBMS_OUTPUT.put_line ('Durdurma kaldırıldı.' || h_msg_data);
      COMMIT;
   ELSE
      p_errbuf := h_return_status;
      p_retcode := '1';
      DBMS_OUTPUT.put_line ('HATA => ' || h_msg_data);
      RETURN;
   END IF;
EXCEPTION
   WHEN OTHERS
   THEN
      p_errbuf := 'E';
      p_retcode := '2';
      DBMS_OUTPUT.put_line ('HATA => ' || SQLERRM || h_msg_data);
      ROLLBACK;
END;