来自:http://blog.csdn.net/cunxiyuan108/article/details/6014769

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

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

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

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

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

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

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

2. 销售订单发放

调用API进行销售订单发放

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

3.  销售订单挑库发放

调用API进行挑库发放

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

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

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

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

4. 处理物料搬运单

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

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

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

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

成功:返回发运号

失败:未返回发运号

6.  发运确认

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

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

具体实现代码

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

调用API验证货位的代码:

  1. fnd_profile.put('MFG_ORGANIZATION_ID',p_organization_id);
  2. l_locator_type := get_locator_type(p_sub_inv,p_organization_id);
  3. IF l_locator_type != 1  THEN
  4. l_locator  := p_sub_inv || '.' ||
  5. p_project || '.' ||
  6. p_task;
  7. inv_loc_wms_pub.create_locator(x_return_status            => l_status,
  8. x_msg_count                => l_msg_count,
  9. x_msg_data                 => l_msg_data,
  10. x_inventory_location_id    => l_locator_id,
  11. x_locator_exists           => l_locator_exists,
  12. p_organization_id          => p_organization_id,
  13. p_organization_code        => p_organization_code,
  14. p_concatenated_segments    => l_locator,
  15. p_description              => NULL,
  16. p_inventory_location_type  => l_locator_type,
  17. p_picking_order            => NULL,
  18. p_location_maximum_units   => NULL,
  19. p_subinventory_code        => p_sub_inv,
  20. p_location_weight_uom_code => NULL,
  21. p_max_weight               => NULL,
  22. p_volume_uom_code          => NULL,
  23. p_max_cubic_area           => NULL,
  24. p_x_coordinate             => NULL,
  25. p_y_coordinate             => NULL,
  26. p_z_coordinate             => NULL,
  27. p_physical_location_id     => NULL,
  28. p_pick_uom_code            => NULL,
  29. p_dimension_uom_code       => NULL,
  30. p_length                   => NULL,
  31. p_width                    => NULL,
  32. p_height                   => NULL,
  33. p_status_id                => 1,
  34. p_dropping_order           => NULL);
  35. IF l_locator_id IS NULL THEN
  36. o_err_code := g_error;
  37. o_err_msg  := '创建(获取)货位弹性域发生错误';
  38. ELSE
  39. o_locator_id := l_locator_id;
  40. END IF;

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验证库存现用量和可用量的代码:

  1. inv_quantity_tree_pub.query_quantities(p_api_version_number  => 1.0,
  2. x_return_status       => l_return_status,
  3. x_msg_count           => l_msg_count,
  4. x_msg_data            => l_msg_data,
  5. p_organization_id     => l_organization_id,
  6. p_inventory_item_id   => rec_data.item_id,--item id
  7. p_tree_mode           => 2,
  8. p_is_revision_control => FALSE,
  9. p_is_lot_control      => l_lot_control_flag,
  10. p_lot_expiration_date => rec_data.transaction_date,
  11. p_is_serial_control   => FALSE,
  12. p_grade_code          => NULL, -- INVCONV      NOT NEEDED NOW
  13. p_revision            => NULL,
  14. p_lot_number          => NULL,
  15. p_subinventory_code   => rec_data.pick_from_subinventory,
  16. p_locator_id          => l_locator_id,
  17. x_qoh                 => l_qoh,
  18. x_rqoh                => l_rqoh,
  19. x_qr                  => l_qr,
  20. x_qs                  => l_qs,
  21. x_att                 => l_att,
  22. x_atr                 => l_atr,
  23. x_sqoh                => l_sqoh, -- INVCONV
  24. x_srqoh               => l_srqoh, -- INVCONV
  25. x_sqr                 => l_sqr, -- INVCONV
  26. x_sqs                 => l_sqs, -- INVCONV
  27. x_satt                => l_satt, -- INVCONV
  28. x_satr                => l_satr); -- INVCONV
  29. IF nvl(l_atr,0) = 0 THEN
  30. GOTO end_loop;
  31. END IF;

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进行销售订单发放的代码:

  1. fnd_profile.PUT('MFG_ORGANIZATION_ID',l_organization_id);
  2. wsh_picking_batches_pkg.insert_row(x_rowid                       => l_row_id,
  3. x_batch_id                    => l_batch_id,
  4. p_creation_date               => g_sysdate,
  5. p_created_by                  => g_user_id,
  6. p_last_update_date            => g_sysdate,
  7. p_last_updated_by             => g_user_id,
  8. p_last_update_login           => g_login_id,
  9. p_batch_name_prefix           => NULL,
  10. x_name                        => l_name,
  11. p_backorders_only_flag        => l_rule_rec.backorders_only_flag,
  12. p_document_set_id             => l_rule_rec.document_set_id,
  13. p_existing_rsvs_only_flag     => l_rule_rec.existing_rsvs_only_flag,
  14. p_shipment_priority_code      => l_rule_rec.shipment_priority_code,
  15. p_ship_method_code            => l_rule_rec.ship_method_code,
  16. p_customer_id                 => l_customer_id,
  17. p_order_header_id             => rec_data.order_header_id,
  18. p_ship_set_number             => l_rule_rec.ship_set_number,
  19. p_inventory_item_id           => NULL,
  20. p_order_type_id               => l_order_type_id,
  21. p_from_requested_date         => NULL,
  22. p_to_requested_date           => NULL,
  23. p_from_scheduled_ship_date    => NULL,
  24. p_to_scheduled_ship_date      => NULL,
  25. p_ship_to_location_id         => l_rule_rec.ship_to_location_id,
  26. p_ship_from_location_id       => l_rule_rec.ship_from_location_id/*l_stage_locator_id*/,
  27. p_trip_id                     => NULL,
  28. p_delivery_id                 => NULL,
  29. p_include_planned_lines       => l_rule_rec.include_planned_lines,
  30. p_pick_grouping_rule_id        => l_rule_rec.pick_grouping_rule_id,
  31. p_pick_sequence_rule_id       => l_rule_rec.pick_sequence_rule_id,
  32. p_autocreate_delivery_flag    => 'Y', --l_rule_rec.autocreate_delivery_flag;
  33. --无论规则是否自动创建交货号,都让系统自动创建(用shipment_number做交货号)
  34. p_attribute_category          => NULL,
  35. p_attribute1                  => NULL,
  36. p_attribute2                  => NULL,
  37. p_attribute3                  => NULL,
  38. p_attribute4                  => NULL,
  39. p_attribute5                  => NULL,
  40. p_attribute6                  => NULL,
  41. p_attribute7                  => NULL,
  42. p_attribute8                  => NULL,
  43. p_attribute9                  => NULL,
  44. p_attribute10                 => NULL,
  45. p_attribute11                 => NULL,
  46. p_attribute12                 => NULL,
  47. p_attribute13                 => NULL,
  48. p_attribute14                 => NULL,
  49. p_attribute15                 => NULL,
  50. p_autodetail_pr_flag          => l_rule_rec.autodetail_pr_flag,
  51. p_carrier_id                  => l_rule_rec.carrier_id,
  52. p_trip_stop_id                => NULL,
  53. p_default_stage_subinventory  => l_rule_rec.default_stage_subinventory,--ERP临时发货区
  54. p_default_stage_locator_id    => l_stage_locator_id,
  55. p_pick_from_subinventory      => rec_data.pick_from_subinventory,/*l_rule_rec.pick_from_subinventory,*/--ERP提货区
  56. p_pick_from_locator_id        => l_locator_id,--l_rule_rec.pick_from_locator_id,
  57. p_auto_pick_confirm_flag      => 'N'/*l_rule_rec.auto_pick_confirm_flag*/,
  58. --无论规则是否自动确认挑库,都不让系统自动挑库(可能会修改分配数)
  59. p_delivery_detail_id          => NULL,
  60. p_project_id                  => rec_data.project_id,
  61. p_task_id                     => rec_data.task_id,
  62. p_organization_id             => l_organization_id,
  63. p_ship_confirm_rule_id        => l_rule_rec.ship_confirm_rule_id,
  64. p_autopack_flag               => l_rule_rec.autopack_flag,
  65. p_autopack_level              => l_rule_rec.autopack_level,
  66. p_task_planning_flag          => l_rule_rec.task_planning_flag,
  67. p_non_picking_flag            => NULL,
  68. p_regionid                     => l_rule_rec.region_id,
  69. p_zoneid                       => l_rule_rec.zone_id,
  70. p_categoryid                   => l_rule_rec.category_id,
  71. p_categorysetid               => l_rule_rec.category_set_id,
  72. p_acdelivcriteria             => l_rule_rec.ac_delivery_criteria,
  73. p_relsubinventory             => l_rule_rec.rel_subinventory,
  74. --如果规则不做限制则可以任意子库中挑库
  75. --nvl(p_subinventory_from,l_rule_rec.rel_subinventory),
  76. --如果在此处修改来源子库会导致发放不成功 不能创建物料搬运单
  77. p_append_flag                 => l_rule_rec.append_flag,
  78. p_task_priority               => l_rule_rec.task_priority,
  79. p_ship_set_smc_flag           => NULL,
  80. p_actual_departure_date       => NULL,
  81. p_allocation_method           => l_rule_rec.allocation_method,
  82. p_crossdock_criteria_id       => l_rule_rec.crossdock_criteria_id,
  83. p_delivery_name_lo            => NULL,
  84. p_delivery_name_hi            => NULL,
  85. p_bol_number_lo               => NULL,
  86. p_bol_number_hi               => NULL,
  87. p_intmed_ship_to_loc_id       => NULL,
  88. p_pooled_ship_to_loc_id       => NULL,
  89. p_fob_code                    => NULL,
  90. p_freight_terms_code          => NULL,
  91. p_pickup_date_lo              => NULL,
  92. p_pickup_date_hi              => NULL,
  93. p_dropoff_date_lo             => NULL,
  94. p_dropoff_date_hi             => NULL,
  95. p_planned_flag                => NULL,
  96. p_selected_batch_id           => NULL);
  97. IF l_batch_id IS NULL THEN
  98. l_err_code := g_warning;
  99. l_err_msg  := '销售订单发放没有产生批号';
  100. GOTO next_line;
  101. END IF;

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进行挑库发放的代码:

  1. wsh_pick_list.online_release(p_batch_id    => l_batch_id,
  2. p_pick_result => l_pick_result,
  3. p_pick_phase  => l_pick_phase,
  4. p_pick_skip   => l_pick_skip);
  5. --F:Failure
  6. IF nvl(l_pick_result,'F') = 'F' THEN
  7. IF (nvl(l_pick_phase,'START') = 'MOVE_ORDER_LINES') THEN
  8. l_err_code := g_warning;
  9. l_err_msg  := '联机挑库发放已部分完成。未完全处理物料搬运单:' || l_batch_id;
  10. ELSE
  11. l_err_code := g_warning;
  12. l_err_msg  := '联机挑库发放失败。请在并发模式下发放订单:' || l_batch_id;
  13. END IF;
  14. ELSIF nvl(l_pick_skip,'Y') = 'Y' THEN
  15. l_err_code := g_warning;
  16. l_err_msg  := '联机挑库发放已结束但出现警告。请检查“发运例外报表”';
  17. --即使部分挑库成功也不继续处理
  18. ELSIF nvl(l_pick_result,'F') = 'W' THEN
  19. IF nvl(l_pick_phase,'START') = 'MOVE_ORDER_LINES' THEN
  20. l_err_code := g_warning;
  21. l_err_msg  := '联机挑库发放已部分完成,但出现警告。';
  22. ELSE
  23. l_err_code := g_warning;
  24. l_err_msg  := '联机挑库发放已结束但出现警告。请检查“发运例外报表”';
  25. END IF;
  26. ELSIF nvl(l_pick_result,'F') = 'S' THEN
  27. NULL;
  28. END IF;

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处理物料搬运单的代码:

  1. get_move_order_line_id(p_order_line_id      => rec_data.line_id,
  2. o_move_order_line_id => l_mv_line_id,
  3. o_mv_status          => l_mv_status,
  4. o_err_code           => l_err_code,
  5. o_err_msg            => l_err_msg);
  6. IF l_err_code IS NOT NULL THEN
  7. GOTO next_line;
  8. END IF;
  9. <<move_order>>
  10. l_trolin_tbl := inv_trolin_util.query_rows(p_line_id => l_mv_line_id);
  11. l_mold_tbl   := inv_mo_line_detail_util.query_rows(p_line_id => l_mv_line_id);
  12. inv_pick_wave_pick_confirm_pub.pick_confirm(p_api_version_number  => 1.0,
  13. p_init_msg_list       => fnd_api.g_false,
  14. p_commit              => fnd_api.g_false,
  15. x_return_status       => l_return_status,
  16. x_msg_count           => l_msg_count,
  17. x_msg_data            => l_msg_data,
  18. p_move_order_type     => 3,
  19. p_transaction_mode    => 1,
  20. p_trolin_tbl          => l_trolin_tbl,
  21. p_mold_tbl            => l_mold_tbl,
  22. x_mmtt_tbl            => l_mold_tbl,
  23. x_trolin_tbl          => l_trolin_tbl);
  24. IF l_return_status != fnd_api.g_ret_sts_success THEN
  25. l_err_code := g_warning;
  26. l_err_msg  := '处理物料搬运单失败';
  27. GOTO next_line;
  28. END IF;

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;

<<move_order>>

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)

得到交货号的代码:

  1. PROCEDURE get_delivery_line_id(p_order_line_id IN NUMBER,
  2. o_delivery_id   OUT NUMBER,
  3. o_err_code      OUT number,
  4. o_err_msg       OUT VARCHAR2) IS
  5. BEGIN
  6. SELECT wda.delivery_id
  7. INTO o_delivery_id
  8. FROM wsh_delivery_details wdd, wsh_delivery_assignments wda
  9. WHERE wdd.source_line_id = p_order_line_id
  10. AND wdd.delivery_detail_id = wda.delivery_detail_id
  11. AND rownum = 1;
  12. EXCEPTION
  13. WHEN NO_DATA_FOUND THEN
  14. o_err_code := g_warning;
  15. o_err_msg  := '无法获取订单行发运号';
  16. WHEN OTHERS THEN
  17. o_err_code := g_error;
  18. o_err_msg  := '获取发运行ID时发生意外错误:' || SQLERRM;
  19. END;
  20. --调用过程得到交货号
  21. get_delivery_line_id(p_order_line_id => rec_data.line_id,
  22. o_delivery_id   => l_delivery_id,
  23. o_err_code      => l_err_code,
  24. o_err_msg       => l_err_msg);
  25. IF l_delivery_id IS NULL THEN
  26. l_err_code := g_warning;
  27. l_err_msg  := '没有为该订单成功创建发运号';
  28. GOTO next_line;
  29. END IF;

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进行发运确认的代码:

  1. WSH_NEW_DELIVERY_ACTIONS.Confirm_Delivery(p_del_rows              => l_delivery_id_tab,
  2. p_action_flag           => l_action_flag,
  3. p_intransit_flag        => l_intransit_flag,
  4. p_close_flag            => l_close_trip_flag,
  5. p_stage_del_flag        => l_stage_del_flag,
  6. p_report_set_id         => l_report_set_id,
  7. p_ship_method           => l_trip_ship_method,
  8. p_actual_dep_date       => l_actual_dep_date,
  9. p_bol_flag              => l_create_bol_flag,
  10. p_mc_bol_flag           => l_mc_bill_of_lading_flag,
  11. p_defer_interface_flag  => l_defer_interface_flag,
  12. p_send_945_flag         => l_send_945_flag,
  13. x_return_status         => l_return_status);
  14. IF l_return_status NOT IN (fnd_api.g_ret_sts_success,'') THEN
  15. l_err_code := g_warning;
  16. l_err_msg  := '销售订单发放确认失败';
  17. GOTO next_head;
  18. END IF;

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;

结果:通过以上步骤,可以成功的将一个外围系统导入的销售订单进行挑库发放,成功处理此销售订单,并将销售订单行的状态变成“关闭”

EBS销售订单挑库发放处理程序的更多相关文章

  1. 详解EBS接口开发之销售订单挑库发放

     1. 对销售订单的有效性验证     1)检查销售订单的行是否被完全传回客户化表     2)验证销售订单的关键字段     3)检查子库存是否启用了货位控制,如果启用了货位控制,没有生成货位, ...

  2. Oracle EBS INV 挑库发放物料搬运单

    create or replace PROCEDURE XX_TRANSACT_MO_LINE AS -- Common Declarations l_api_version NUMBER := 1. ...

  3. EBS销售(OE)模块常用表

     select * from ra_customers 客户 select * from ra_addresses_all 地址 select * from ra_site_uses_all 用户 ...

  4. 详解EBS接口开发之库事务处理带提前发运通知(ASN)采购接收入库-补充

     A)   Via ROI Create a ASN [ship,ship]  for a quantity =3 on STANDARD PURCHASE ORDER Create  via R ...

  5. 第十一篇 Material Status设置与测试,制药业案例一则

    详见,http://bbs.erp100.com/thread-273173-1-1.htmlMaterial Status不同于Item Status.Item Status用于统一控制Item的s ...

  6. EBS-子库存转移和物料搬运单区别

    FROM:http://bbs.erp100.com/forum.php?mod=viewthread&tid=261550&extra=page%3D7 EBS-子库存转移和物料搬运 ...

  7. Oracle EBS发放销售订单

     模拟发放销售订单界面进行发放操作 PROCEDURE insert_row(x_batch_id OUT NUMBER) IS l_autopack_flag VARCHAR2(1 ); l_a ...

  8. Oracle EBS应用笔记整理 (转自IT++ flyingkite)

    ***************************************************** Author: Flyingkite Blog:   http://space.itpub. ...

  9. Oracle EBS 采购 接收入库 接口开发

    http://blog.itpub.net/25164132/viewspace-746657/ 接收入库是项目中会经常碰到的开发,这类开发一般来说比较简单,但是接收入库在Oracle中其实涉及到很多 ...

随机推荐

  1. Python---老王开枪

    class Person(object): """人类""" def __init__(self,name): super(Person,s ...

  2. Struts1开山篇

    ·本次学习的是Struts1的最终版本--struts-1.3.10. ·开发环境: Java版本:1.8.0_131 Tomcat版本:apache-tomcat-9.0.0.M21 下下来完整安装 ...

  3. [AHOI2016初中组]迷宫

    题目描述 小雪和小可可被困在了一个无限大的迷宫中. 已经知道这个迷宫有 N 堵环状的墙,如果把整个迷宫看作是一个二维平面,那么每一堵墙都是平面上一个圆.任意两个圆不相交,不重合,也不会相切, 但有可能 ...

  4. [HNOI2011]卡农

    题目描述 众所周知卡农是一种复调音乐的写作技法,小余在听卡农音乐时灵感大发,发明了一种新的音乐谱写规则.他将声音分成 n 个音阶,并将音乐分成若干个片段.音乐的每个片段都是由 1 到 n 个音阶构成的 ...

  5. 【BZOJ1483】【HNOI2009】梦幻布丁

    题意:n个连续的点,有若干种颜色,每个颜色会因为某些操作变为另一种颜色,动态查询颜色段数. 解题思路:对每个颜色开一棵平衡树启发式合并应该是最裸的想法,但是我们有更优的! 考虑对每个颜色利用链表储存它 ...

  6. bzoj 1880: [Sdoi2009]Elaxia的路线

    Description 最近,Elaxia和w的关系特别好,他们很想整天在一起,但是大学的学习太紧张了,他们 必须合理地安排两个人在一起的时间.Elaxia和w每天都要奔波于宿舍和实验室之间,他们 希 ...

  7. bzoj 2212: [Poi2011]Tree Rotations

    Description Byteasar the gardener is growing a rare tree called Rotatus Informatikus. It has some in ...

  8. UVA 1451 Average

    A DNA sequence consists of four letters, A, C, G, and T. The GC-ratio of a DNA sequence is the numbe ...

  9. NOI2017游记

    Day -1: THUSC后,下定决心好好学习,不过由于自制力太弱,还是没有忍住浪了几次. 老师把NOI前的天分为了4种:考试日.交流日.讲课日.自习日. 考试日是我被郭神短神妖神任神常神尹神龙神游神 ...

  10. C语言中#define的用法

    今天整理了一些#define的用法,与大家共享! 1.简单的define定义 #define MAXTIME 1000 一个简单的MAXTIME就定义好了,它代表1000,如果在程序里面写 if(i& ...