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

41 篇文章 1 订阅

来自: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验证货位的代码:

      

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

     

 

     调用API验证库存现用量和可用量的代码:

     

[c-sharp] view plain copy print ?
  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;  

 

 

 2. 销售订单发放

     调用API进行销售订单发放的代码:

     

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

  

   销售订单发放生成的批号作为步骤3的参数

 

 3. 销售订单挑库发放 

    调用API进行挑库发放的代码:

     

[c-sharp] view plain copy print ?
  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;  

 

 

4.  处理物料搬运单

     调用API处理物料搬运单的代码:

     

[c-sharp] view plain copy print ?
  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.           
  10.         <<move_order>>  
  11.           
  12.         l_trolin_tbl := inv_trolin_util.query_rows(p_line_id => l_mv_line_id);  
  13.         l_mold_tbl   := inv_mo_line_detail_util.query_rows(p_line_id => l_mv_line_id);  
  14.           
  15.         inv_pick_wave_pick_confirm_pub.pick_confirm(p_api_version_number  => 1.0,  
  16.                                                     p_init_msg_list       => fnd_api.g_false,  
  17.                                                     p_commit              => fnd_api.g_false,  
  18.                                                     x_return_status       => l_return_status,  
  19.                                                     x_msg_count           => l_msg_count,  
  20.                                                     x_msg_data            => l_msg_data,  
  21.                                                     p_move_order_type     => 3,  
  22.                                                     p_transaction_mode    => 1,  
  23.                                                     p_trolin_tbl          => l_trolin_tbl,  
  24.                                                     p_mold_tbl            => l_mold_tbl,  
  25.                                                     x_mmtt_tbl            => l_mold_tbl,  
  26.                                                     x_trolin_tbl          => l_trolin_tbl);  
  27.         IF l_return_status != fnd_api.g_ret_sts_success THEN  
  28.           l_err_code := g_warning;  
  29.           l_err_msg  := '处理物料搬运单失败';  
  30.           GOTO next_line;  
  31.         END IF;  

 

 

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

    得到交货号的代码:

    

[c-sharp] view plain copy print ?
  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.   
  13. EXCEPTION  
  14.   WHEN NO_DATA_FOUND THEN  
  15.     o_err_code := g_warning;  
  16.     o_err_msg  := '无法获取订单行发运号';  
  17.   WHEN OTHERS THEN  
  18.     o_err_code := g_error;  
  19.     o_err_msg  := '获取发运行ID时发生意外错误:' || SQLERRM;  
  20. END;  
  21.   
  22. --调用过程得到交货号  
  23. get_delivery_line_id(p_order_line_id => rec_data.line_id,  
  24.                              o_delivery_id   => l_delivery_id,  
  25.                              o_err_code      => l_err_code,  
  26.                              o_err_msg       => l_err_msg);  
  27.         IF l_delivery_id IS NULL THEN  
  28.           l_err_code := g_warning;  
  29.           l_err_msg  := '没有为该订单成功创建发运号';  
  30.           GOTO next_line;  
  31.         END IF;  

  

 

6.  发运确认  

     根据步骤5中返回的delivery_id确认是否进行发运确认,

     如果delivery_id不为空,并且没有返回错误信息。

     调用API进行发运确认的代码:

   

[c-sharp] view plain copy print ?
  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;  

 

   

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

   

 

 

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值