通过API删除库存货位

库存货位分配到错误的子库存下,导致无法再正常分配到其他的子库存。只能考虑调用标准API删除。

DECLARE

  l_msg_data              VARCHAR2(100);

  l_msg_count             NUMBER;

  l_return_status         VARCHAR2(1);

  l_locator_id            NUMBER;

  l_locator_exists        VARCHAR2(1);

  

BEGIN

  /* APPS_INITIALIZE required because indirectly use profile options */

  fnd_global.apps_initialize(1150, 50963, 401);



  fnd_profile.put('MFG_ORGANIZATION_ID', 90);



  fnd_msg_pub.initialize;

  

  inv_loc_wms_pub.delete_locator(x_return_status         => l_return_status,

                                 x_msg_count             => l_msg_count,

                                 x_msg_data              => l_msg_data,

                                 p_inventory_location_id => NULL,

                                 p_organization_id       => 90,

                                 p_organization_code     => 'T2S',

                                 p_concatenated_segments => 'WPH_001.1.T2S0003.0000.一等', 

                                 p_validation_req_flag   => 'Y');   



  COMMIT;



  dbms_output.put_line('Return Status ' || l_return_status);



  IF l_return_status IN ('E', 'U') THEN

    dbms_output.put_line('# of Errors ' || l_msg_count);



    IF l_msg_count = 1 THEN

      dbms_output.put_line('Error ' || l_msg_data);

    ELSE

      FOR i IN 1 .. l_msg_count LOOP

        dbms_output.put_line('Error ' || fnd_msg_pub.get(i, 'F'));

      END LOOP;

    END IF;

  ELSE

    dbms_output.put_line('Locator Id is ' || l_locator_id);

  END IF;



END;

 

你可能感兴趣的:(api)