EBS销售订单挑库发放处理程序

在EBS实施中，经常遇到从外部传进来一个被登记的销售订单，需要通过程序进行销售订单的挑库发放

 

下面是对SO挑库发放的实现步骤的详细实现：

 

1. 对销售订单的有效性验证

    1）检查销售订单的行是否被完全传回客户化表

    2）验证销售订单的关键字段

    3）检查子库存是否启用了货位控制，如果启用了货位控制，没有生成货位，则调用API生成货位

    4）调用API检查子库存中的某一个物料的现用量和可用量

 

2. 销售订单发放

     调用API进行销售订单发放

     发放成功：        返回一个批号，这个批号作为挑库发放的参数

 

3.  销售订单挑库发放

     调用API进行挑库发放

     发放前             行状态：准备发放           下一步：挑库发放             判断依据：销售订单发放生成的批号作为挑库发放的参数

     发放成功          行状态：已发放至仓库     下一步：处理物料搬运单    判断依据：返回一个批号，这个批号作为挑库发放的参数

     发放失败          行状态：已延交              下一步：挑库发放             判断依据：未成功返回一个批号

     说明：订单发放是按照整个订单发放的。

 

4. 处理物料搬运单

    处理成功：         行状态：发运                 下一步：                                  判断依据：返回成功的处理状态

    处理成失败         行状态：                       下一步：处理物料搬运单             判断依据：未返回成功的处理状态

 

5.  得到销售订单的交货号(delivery_id)

     调用API 查看是否产生发运号

     成功：返回发运号

     失败：未返回发运号

 

6.  发运确认

     处理成功           订单状态为：关闭

     说明：如果发运确认已经成功，则会自动调用 连接形成停靠站 接口程序 

 

具体实现代码

  1. 对销售订单的有效性验证

 

      调用API验证货位的代码：

       fnd_profile.put('MFG_ORGANIZATION_ID',p_organization_id); l_locator_type := get_locator_type(p_sub_inv,p_organization_id); IF l_locator_type != 1 THEN l_locator := p_sub_inv || '.' || p_project || '.' || p_task; inv_loc_wms_pub.create_locator(x_return_status => l_status, x_msg_count => l_msg_count, x_msg_data => l_msg_data, x_inventory_location_id => l_locator_id, x_locator_exists => l_locator_exists, p_organization_id => p_organization_id, p_organization_code => p_organization_code, p_concatenated_segments => l_locator, p_description => NULL, p_inventory_location_type => l_locator_type, p_picking_order => NULL, p_location_maximum_units => NULL, p_subinventory_code => p_sub_inv, 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); IF l_locator_id IS NULL THEN o_err_code := g_error; o_err_msg := '创建(获取)货位弹性域发生错误'; ELSE o_locator_id := l_locator_id; END IF;