http://www.linuxidc.com/Linux/2011-06/37917p2.htm
在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;
调用API验证库存现用量和可用量的代码：
inv_quantity_tree_pub.query_quantities(p_api_version_number => 1.0,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_organization_id => l_organization_id,
p_inventory_item_id => rec_data.item_id,--item id
p_tree_mode => 2,
p_is_revision_control => FALSE,
p_is_lot_control => l_lot_control_flag,
p_lot_expiration_date => rec_data.transaction_date,
p_is_serial_control => FALSE,
p_grade_code => NULL, -- INVCONV NOT NEEDED NOW
p_revision => NULL,
p_lot_number => NULL,
p_subinventory_code => rec_data.pick_from_subinventory,
p_locator_id => l_locator_id,
x_qoh => l_qoh,
x_rqoh => l_rqoh,
x_qr => l_qr,
x_qs => l_qs,
x_att => l_att,
x_atr => l_atr,
x_sqoh => l_sqoh, -- INVCONV
x_srqoh => l_srqoh, -- INVCONV
x_sqr => l_sqr, -- INVCONV
x_sqs => l_sqs, -- INVCONV
x_satt => l_satt, -- INVCONV
x_satr => l_satr); -- INVCONV
IF nvl(l_atr,0) = 0 THEN
GOTO end_loop;
END IF;
2. 销售订单发放
调用API进行销售订单发放的代码：
fnd_profile.PUT('MFG_ORGANIZATION_ID',l_organization_id);
wsh_picking_batches_pkg.insert_row(x_rowid => l_row_id,
x_batch_id => l_batch_id,
p_creation_date => g_sysdate,
p_created_by => g_user_id,
p_last_update_date => g_sysdate,
p_last_updated_by => g_user_id,
p_last_update_login => g_login_id,
p_batch_name_prefix => NULL,
x_name => l_name,
p_backorders_only_flag => l_rule_rec.backorders_only_flag,
p_document_set_id => l_rule_rec.document_set_id,
p_existing_rsvs_only_flag => l_rule_rec.existing_rsvs_only_flag,
p_shipment_priority_code => l_rule_rec.shipment_priority_code,
p_ship_method_code => l_rule_rec.ship_method_code,
p_customer_id => l_customer_id,
p_order_header_id => rec_data.order_header_id,
p_ship_set_number => l_rule_rec.ship_set_number,
p_inventory_item_id => NULL,
p_order_type_id => l_order_type_id,
p_from_requested_date => NULL,
p_to_requested_date => NULL,
p_from_scheduled_ship_date => NULL,
p_to_scheduled_ship_date => NULL,
p_ship_to_location_id => l_rule_rec.ship_to_location_id,
p_ship_from_location_id => l_rule_rec.ship_from_location_id/*l_stage_locator_id*/,
p_trip_id => NULL,
p_delivery_id => NULL,
p_include_planned_lines => l_rule_rec.include_planned_lines,
p_pick_grouping_rule_id => l_rule_rec.pick_grouping_rule_id,
p_pick_sequence_rule_id => l_rule_rec.pick_sequence_rule_id,
p_autocreate_delivery_flag => 'Y', --l_rule_rec.autocreate_delivery_flag;
--无论规则是否自动创建交货号，都让系统自动创建(用shipment_number做交货号)
p_attribute_category => NULL,
p_attribute1 => NULL,
p_attribute2 => NULL,
p_attribute3 => NULL,
p_attribute4 => NULL,
p_attribute5 => NULL,
p_attribute6 => NULL,
p_attribute7 => NULL,
p_attribute8 => NULL,
p_attribute9 => NULL,
p_attribute10 => NULL,
p_attribute11 => NULL,
p_attribute12 => NULL,
p_attribute13 => NULL,
p_attribute14 => NULL,
p_attribute15 => NULL,
p_autodetail_pr_flag => l_rule_rec.autodetail_pr_flag,
p_carrier_id => l_rule_rec.carrier_id,
p_trip_stop_id => NULL,
p_default_stage_subinventory => l_rule_rec.default_stage_subinventory,--ERP临时发货区
p_default_stage_locator_id => l_stage_locator_id,
p_pick_from_subinventory => rec_data.pick_from_subinventory,/*l_rule_rec.pick_from_subinventory,*/--ERP提货区
p_pick_from_locator_id => l_locator_id,--l_rule_rec.pick_from_locator_id,
p_auto_pick_confirm_flag => 'N'/*l_rule_rec.auto_pick_confirm_flag*/,
--无论规则是否自动确认挑库，都不让系统自动挑库(可能会修改分配数)
p_delivery_detail_id => NULL,
p_project_id => rec_data.project_id,
p_task_id => rec_data.task_id,
p_organization_id => l_organization_id,
p_ship_confirm_rule_id => l_rule_rec.ship_confirm_rule_id,
p_autopack_flag => l_rule_rec.autopack_flag,
p_autopack_level => l_rule_rec.autopack_level,
p_task_planning_flag => l_rule_rec.task_planning_flag,
p_non_picking_flag => NULL,
p_regionid => l_rule_rec.region_id,
p_zoneid => l_rule_rec.zone_id,
p_categoryid => l_rule_rec.category_id,
p_categorysetid => l_rule_rec.category_set_id,
p_acdelivcriteria => l_rule_rec.ac_delivery_criteria,
p_relsubinventory => l_rule_rec.rel_subinventory,
--如果规则不做限制则可以任意子库中挑库
--nvl(p_subinventory_from,l_rule_rec.rel_subinventory),
--如果在此处修改来源子库会导致发放不成功 不能创建物料搬运单
p_append_flag => l_rule_rec.append_flag,
p_task_priority => l_rule_rec.task_priority,
p_ship_set_smc_flag => NULL,
p_actual_departure_date => NULL,
p_allocation_method => l_rule_rec.allocation_method,
p_crossdock_criteria_id => l_rule_rec.crossdock_criteria_id,
p_delivery_name_lo => NULL,
p_delivery_name_hi => NULL,
p_bol_number_lo => NULL,
p_bol_number_hi => NULL,
p_intmed_ship_to_loc_id => NULL,
p_pooled_ship_to_loc_id => NULL,
p_fob_code => NULL,
p_freight_terms_code => NULL,
p_pickup_date_lo => NULL,
p_pickup_date_hi => NULL,
p_dropoff_date_lo => NULL,
p_dropoff_date_hi => NULL,
p_planned_flag => NULL,
p_selected_batch_id => NULL);
IF l_batch_id IS NULL THEN
l_err_code := g_warning;
l_err_msg := '销售订单发放没有产生批号';
GOTO next_line;
END IF;
销售订单发放生成的批号作为步骤3的参数
3. 销售订单挑库发放
调用API进行挑库发放的代码：
wsh_pick_list.online_release(p_batch_id => l_batch_id,
p_pick_result => l_pick_result,
p_pick_phase => l_pick_phase,
p_pick_skip => l_pick_skip);
--F:Failure
IF nvl(l_pick_result,'F') = 'F' THEN
IF (nvl(l_pick_phase,'START') = 'MOVE_ORDER_LINES') THEN
l_err_code := g_warning;
l_err_msg := '联机挑库发放已部分完成。未完全处理物料搬运单:' || l_batch_id;
ELSE
l_err_code := g_warning;
l_err_msg := '联机挑库发放失败。请在并发模式下发放订单:' || l_batch_id;
END IF;
ELSIF nvl(l_pick_skip,'Y') = 'Y' THEN
l_err_code := g_warning;
l_err_msg := '联机挑库发放已结束但出现警告。请检查“发运例外报表”';
--即使部分挑库成功也不继续处理
ELSIF nvl(l_pick_result,'F') = 'W' THEN
IF nvl(l_pick_phase,'START') = 'MOVE_ORDER_LINES' THEN
l_err_code := g_warning;
l_err_msg := '联机挑库发放已部分完成，但出现警告。';
ELSE
l_err_code := g_warning;
l_err_msg := '联机挑库发放已结束但出现警告。请检查“发运例外报表”';
END IF;
ELSIF nvl(l_pick_result,'F') = 'S' THEN
NULL;
END IF;
4. 处理物料搬运单
调用API处理物料搬运单的代码：
get_move_order_line_id(p_order_line_id => rec_data.line_id,
o_move_order_line_id => l_mv_line_id,
o_mv_status => l_mv_status,
o_err_code => l_err_code,
o_err_msg => l_err_msg);
IF l_err_code IS NOT NULL THEN
GOTO next_line;
END IF;
<>
l_trolin_tbl := inv_trolin_util.query_rows(p_line_id => l_mv_line_id);
l_mold_tbl := inv_mo_line_detail_util.query_rows(p_line_id => l_mv_line_id);
inv_pick_wave_pick_confirm_pub.pick_confirm(p_api_version_number => 1.0,
p_init_msg_list => fnd_api.g_false,
p_commit => fnd_api.g_false,
x_return_status => l_return_status,
x_msg_count => l_msg_count,
x_msg_data => l_msg_data,
p_move_order_type => 3,
p_transaction_mode => 1,
p_trolin_tbl => l_trolin_tbl,
p_mold_tbl => l_mold_tbl,
x_mmtt_tbl => l_mold_tbl,
x_trolin_tbl => l_trolin_tbl);
IF l_return_status != fnd_api.g_ret_sts_success THEN
l_err_code := g_warning;
l_err_msg := '处理物料搬运单失败';
GOTO next_line;
END IF;
5. 得到销售订单的交货号(delivery_id)
得到交货号的代码：
PROCEDURE get_delivery_line_id(p_order_line_id IN NUMBER,
o_delivery_id OUT NUMBER,
o_err_code OUT number,
o_err_msg OUT VARCHAR2) IS
BEGIN
SELECT wda.delivery_id
INTO o_delivery_id
FROM wsh_delivery_details wdd, wsh_delivery_assignments wda
WHERE wdd.source_line_id = p_order_line_id
AND wdd.delivery_detail_id = wda.delivery_detail_id
AND rownum = 1;
EXCEPTION
WHEN NO_DATA_FOUND THEN
o_err_code := g_warning;
o_err_msg := '无法获取订单行发运号';
WHEN OTHERS THEN
o_err_code := g_error;
o_err_msg := '获取发运行ID时发生意外错误：' || SQLERRM;
END;
--调用过程得到交货号
get_delivery_line_id(p_order_line_id => rec_data.line_id,
o_delivery_id => l_delivery_id,
o_err_code => l_err_code,
o_err_msg => l_err_msg);
IF l_delivery_id IS NULL THEN
l_err_code := g_warning;
l_err_msg := '没有为该订单成功创建发运号';
GOTO next_line;
END IF;
6. 发运确认
根据步骤5中返回的delivery_id确认是否进行发运确认，
如果delivery_id不为空，并且没有返回错误信息。
调用API进行发运确认的代码：
WSH_NEW_DELIVERY_ACTIONS.Confirm_Delivery(p_del_rows => l_delivery_id_tab,
p_action_flag => l_action_flag,
p_intransit_flag => l_intransit_flag,
p_close_flag => l_close_trip_flag,
p_stage_del_flag => l_stage_del_flag,
p_report_set_id => l_report_set_id,
p_ship_method => l_trip_ship_method,
p_actual_dep_date => l_actual_dep_date,
p_bol_flag => l_create_bol_flag,
p_mc_bol_flag => l_mc_bill_of_lading_flag,
p_defer_interface_flag => l_defer_interface_flag,
p_send_945_flag => l_send_945_flag,
x_return_status => l_return_status);
IF l_return_status NOT IN (fnd_api.g_ret_sts_success,'') THEN
l_err_code := g_warning;
l_err_msg := '销售订单发放确认失败';
GOTO next_head;
END IF;
结果：通过以上步骤，可以成功的将一个外围系统导入的销售订单进行挑库发放，成功处理此销售订单，并将销售订单行的状态变成“关闭”
订单发放的前提：该订单的订单周期中发放的状态是否为可发放。
发放订单的选择：根据客户的需求时间发放。根据某个客户发放订
单。系统将根据发放订单的条件，去寻找所有符
合条件的并且状态是能够被发放的订单。所以，
订单的发放可以是针对多个订单而不是只能一个
一个的发放。
订单发放的结果：处理物料搬运（Move Order）使该订单上的产品能够被
仓库人员从库存中发给客户。
1）一般用来做各类杂收发、Cost Update，对于和业务有关的事务一般不建议使用，比如SO发货，如果自己发会导致Workflow没有往下走
2）成功导入之后运行Cost Manager生成会计分录
3） 平均成本更新也通过此接口；如果该Item没有交易，则成本数据不会进入cst_item_costs
1）fa_mass_additions这个表有几个Trigger需要注意；会自动去插其他表，删除的时候也是
2）折旧方法接口表无法给，而是自动从Category继承下来，所以导入之后需要Update表
3）不是通过AP引过来的FA，是没有Source Lines信息的；如果需要，可以通过插表来实现
4）数据进接口之后从Navigator:Mass Additions/Post Mass Additions提交请求集，这样会有个报表显示导入结果。不过我的测试程序可以直接提交请求集。
总账分录接口：gl_interface
1）最简单的接口，不说了
1）Profile AP: Use Invoice Batch Controls定义是否使用批控制
2）仅支持CREDIT/STANDARD；注意金额正负，小于零用CREDIT，大于零用STANDARD
3）PREPAYMENT/DEBIT/EXPENSE REPORT/MIXED不支持，先用CREDIT或者STANDARD，进去之后再Update正式表ap_invoices_all
4）导入之后可再调用请求Invoice Validation自动Validate发票
应收发票接口：ra_interface_lines_all/ra_interface_salescredits_all
1）几个接口表之间的关系和其他接口不同，不是通过ID关联，而是通过描述性 弹性域Line Transaction Flexfield定义
2）接口给ID还是Name，要根据Transaction Source上的定义，不能随便给
3）ra_interface_distributions_all这个表可以不插，让系统自动生成分配行
4）如果没有销售员，可以提供一条ID=-3的No Sales Person记录给接口。这个要看AR System Option Miscellaneous上的设置是否要求销售员
1）AR Receipt标准接口是Lockbox，需要预先定义Fo RMAt；Oracle根据Format定义把接口数据写到ar_interim_cash_receipts_all；我们可以跳过第一步，直接把数据插入到ar_interim_cash_receipts_all，不过Batch需要我们直接插表
2）在Batch界面查看：数据在ar_interim_cash_receipts_all的Batch Type为 Mannual Quick
3）Batch的Currency取本位币即可，收据用需要的货币
1）要导Customer，ra_customer_profiles_int_all需要有记录
2）orig_system_party_ref相同的话，Customer_Number不同，可以在一个Party下建多个Customer
3）ship to的bill_to_orig_address_ref可用bill to的orig_system_address_ref，这样可以自动关联
4）需要打Patch 3606744和3558213，否则Statement和Dunning类型的Site Use导不进去
5）不是所以字段都可以从Interface进去；以HZ_Cust_Site_Uses_all为例，导入之后需要直接Update如下比较重要的字段：payment_term_id、order_type_id、warehouse_id、territory_id、primary_salesrep_id
6）更新HZ_Cust_Site_Uses_all的Primary_flag的时候注意同时更新hz_cust_acct_sites_all的bill_to_flag和ship_to_flag为P（Primary）或者Y
1）整张Close的订单可以通过接口表；Close的订单，Oracle几乎是直接插表；其他的要做很多验证
2）部分行Close的订单，可以给行Assign一个仅负责Close（Enter/Fulfill/Close/End）的工作流，这样Workflow Back Ground Process起来之后就会Close
3）非Close的订单行号不能重复，所以接口表我们给空；如果有需要待导入后Update Line表即可
4）数量正负要与Line Type的类型一致，正的对Order，负的对Return，否则接口报Inventory Item错误
5）订单号更新需要更新几个表：oe_order_headers_all/wsh_delivery_details/mtl_sales_orders
6）订单行在收货或者发货不足的情况下会拆行，拆行的时候系统几乎是拷贝所有的字段，如果碰到Unique的字段会失败。我碰到的问题是把源系统的line_id记录在弹性域上，并给这个弹性域建了Unique索引，导致Dropship的订单采购部分收货老是报错
1）PO接口有问题可察看错误信息表po_interface_errors，可以解决大部分问题
2）本位币导入之后，头上的Rate Date为空，需要Update表
3）quantity_billed也可以事后更新，这样AP不会再Match过来
4）审批记录可以直接插入表po_action_history
5）注意采购的Valdiate ORG
6）如果Item没有Assign给Ship_to_org，会报No data found错误
1）收据头直接写表；收据行和收货事务通过接口
2）注意parent_transaction_id，Receive需要放空
3）PO接口有问题可察看错误信息表po_interface_errors，可以解决大部分问题
4）如果要再现原来的Receiving Transaction，可按如下顺序分批进入接口RECEIVE、TRANSFER、ACCEPT、REJECT、DELIVER、RETURN TO RECEIVING、RETURN TO VENDOR、CORRECT
1）在Master Org新增Item比较简单，给足需要的字段即可
2）在其他组织增加Item（相当于从Master Assign后再Update），需要注意Master Org Conctrol的字段需要保持主组织的值（比较多，看mtl_item_attributes的Conctrol_level = 1）
3）在其他组织增加Item还需要注意一些字段需要保持主组织的值，否则接口会报错，它们是create_supply_flag、dual_uom_control、buyer_id、allowed_units_lookup_code、purchasing_item_flag、internal_order_flag、inventory_item_flag
4）如果要给Item Assign Category，可以通过mtl_item_categories_interface，对应的请求是Item Category Assignment Open Interface
1）Profile AP: Use Invoice Batch Controls定义是否使用批控制
2）仅支持CREDIT/STANDARD；注意金额正负，小于零用CREDIT，大于零用STANDARD
3）PREPAYMENT/DEBIT/EXPENSE REPORT/MIXED不支持，先用CREDIT或者STANDARD，进去之后再Update正式表ap_invoices_all
4）导入之后可再调用请求Invoice Validation自动Validate发票
来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/25164132/viewspace-745079/，如需转载，请注明出处，否则将追究法律责任。
转载于:http://blog.itpub.net/25164132/viewspace-745079/
4567
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
