EBS INV：API导入仓库、储位

89 阅读 0 评论 59 点赞

我是靠谱客的博主冷静冥王星，最近开发中收集的这篇文章主要介绍EBS INV：API导入仓库、储位，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

导入仓库
MTL_SECONDARY_INVENTORIES_PKG.INSERT_ROW
MTL_SECONDARY_INVENTORIES_PKG.UPDATE_ROW
MTL_SECONDARY_INVENTORIES_PKG.DELETE_ROW

导入储位
inv_loc_wms_pub.create_locator
inv_loc_wms_pub.update_locator
inv_loc_wms_pub.delete_locator

DECLARE
    x_return_status         VARCHAR2(1000);
    x_msg_count             NUMBER;
    x_msg_data              VARCHAR2(1000);
    x_inventory_location_id NUMBER;
    x_locator_exists        VARCHAR2(100);
BEGIN
    fnd_global.apps_initialize(user_id      => 0,     --SYSADMIN
                               resp_id      => 51686, 
                               resp_appl_id => 401);  --Inventory
   
    inv_loc_wms_pub.create_locator(
             x_return_status            => x_return_status,
             x_msg_count                => x_msg_count,
             x_msg_data                 => x_msg_data,
             x_inventory_location_id    => x_inventory_location_id,
             x_locator_exists           => x_locator_exists,
             p_organization_id          => 242,
             p_organization_code        => NULL,
             p_concatenated_segments    => 'DDD',  --locator
             p_description              => NULL,   --locator description
             p_inventory_location_type =>  3,      --type of locator: storge
             p_picking_order            => NULL,
             p_location_maximum_units   => NULL,
             p_subinventory_code        => 'FGL',
             p_location_weight_uom_code => NULL,
             p_max_weight               => NULL,
             p_volume_uom_code          => NULL,
             p_max_cubic_area           => NULL,
             p_x_coordinate             => NULL,
             p_y_coordinate             => NULL,
             p_z_coordinate             => NULL,
             p_physical_location_id     => NULL,
             p_pick_uom_code            => NULL,
             p_dimension_uom_code       => NULL,
             p_length                   => NULL,
             p_width                    => NULL,
             p_height                   => NULL,
             p_status_id                => 1,
             p_dropping_order           => NULL);
             
     DBMS_OUTPUT.PUT_LINE('Return Status: '||x_return_status);
     
     DBMS_OUTPUT.PUT_LINE('x_locator_exists: '||x_locator_exists||' x_inventory_location_id:'||x_inventory_location_id);

     IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
        DBMS_OUTPUT.PUT_LINE('Msg Count:'||x_msg_count||' Error Message :'||x_msg_data);
        
        IF ( x_msg_count > 1 ) THEN
            FOR i IN 1 .. x_msg_count LOOP
                x_msg_data := fnd_msg_pub.get ( p_msg_index => i , p_encoded =>FND_API.G_FALSE ) ;
                dbms_output.put_line ( 'message :' || x_msg_data);
            END LOOP;
        END IF;
     END IF;     
--COMMIT;
END;

指定物料到仓库储位
路径：INV -> 料号 -> 组织料号 -> 顶部菜单栏“工具” -> 料号仓库
或 INV -> 设定 -> 组织 -> 仓库 -> 查询仓库 -> “料号/仓库”按钮
在这里插入图片描述
且物料有勾选“限制仓库”或“限制储位”，那么异动只能在此仓库、储位中进行。

不能输入非指定的仓库储位，会弹出指定仓库储位列表供选择。

API指定物料到仓库储位

DECLARE
    x_return_status         VARCHAR2(1000);
    x_msg_count             NUMBER;
    x_msg_data              VARCHAR2(1000);
BEGIN
    fnd_global.apps_initialize(user_id      => 0,     --SYSADMIN
                               resp_id      => 51686, 
                               resp_appl_id => 401);  --Inventory
   
    inv_loc_wms_pub.create_loc_item_tie(
               x_return_status     => x_return_status,
               x_msg_count         => x_msg_count,
               x_msg_data          => x_msg_data,
               p_inventory_item_id => 171132, 
               p_item              => null,
               p_organization_id   => 242,
               p_organization_code => null,
               p_subinventory_code => 'FGL',
               p_inventory_location_id => null,
               p_locator           => 'DDD',
               p_status_id         => 1,
               p_par_level         => null);
               
     DBMS_OUTPUT.PUT_LINE('Return Status: '||x_return_status);

     IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
        DBMS_OUTPUT.PUT_LINE('Msg Count:'||x_msg_count||' Error Message :'||x_msg_data);
        
        IF ( x_msg_count > 1 ) THEN
            FOR i IN 1 .. x_msg_count LOOP
                x_msg_data := fnd_msg_pub.get ( p_msg_index => i , p_encoded =>FND_API.G_FALSE ) ;
                dbms_output.put_line ( 'message :' || x_msg_data);
            END LOOP;
        END IF;
     END IF;     
--COMMIT;
END;