使用API进行发运确认并运行Interface Trip Stop

最新推荐文章于 2021-04-13 15:50:27 发布

李逍遥L11

最新推荐文章于 2021-04-13 15:50:27 发布

阅读量1.7k

点赞数

分类专栏： OM 文章标签： oracle ebs api 测试demo

本文链接：https://blog.csdn.net/chosen1brain/article/details/46561451

版权

这段代码展示了如何在Oracle EBS环境中通过API更新发货属性和执行发货确认。首先，初始化必要的参数，然后通过WSH_DELIVERY_DETAILS_PUB API更新发货详细信息，并进行发货确认。确认后，检查接口状态，如果满足条件，则调用接口提交Trip Stop。

摘要由CSDN通过智能技术生成

DECLARE

  p_sales_order            NUMBER := 1506764295;
  p_line_number            NUMBER := 1.1;
  p_org_id                 NUMBER := 121;
  l_shipped_quantity       NUMBER := 1;
  p_api_version_number     NUMBER := 1.0;
  init_msg_list            VARCHAR2(200);
  l_commit                 VARCHAR2(30);
  x_msg_details            VARCHAR2(3000);
  x_msg_summary            VARCHAR2(3000);
  x_return_status          VARCHAR2(3);
  x_msg_count              NUMBER;
  x_msg_data               VARCHAR2(3000);
  p_validation_level       NUMBER;
  v_errbuf                 VARCHAR2(2000);
  v_retcode                VARCHAR2(20);
  v_released_status        wsh_delivery_details.released_status%TYPE;
  v_inv_interfaced_flag    wsh_delivery_details.inv_interfaced_flag%TYPE;
  v_oe_interfaced_flag     wsh_delivery_details.oe_interfaced_flag%TYPE;
  v_source_code            wsh_delivery_details.source_code%TYPE;
  v_pending_interface_flag wsh_trip_stops.pending_interface_flag%TYPE;
  l_changed_attributes     wsh_delivery_details_pub.changedattributetabtype;
  l_source_code            VARCHAR2(30) := 'OE';
  -- Parameters for WSH_DELIVERIES_PUB
  p_delivery_name           VARCHAR2(30);
  p_action_code             VARCHAR2(15);
  p_asg_trip_id             NUMBER;
  p_asg_trip_name           VARCHAR2(30);
  p_asg_pickup_stop_id      NUMBER;
  p_asg_pickup_loc_id       NUMBER;
  p_asg_pickup_loc_code     VARCHAR2(30);
  p_asg_pickup_arr_date     DATE;
  p_asg_pickup_dep_date     DATE;
  p_asg_dropoff_stop_id     NUMBER;
  p_asg_dropoff_loc_id      NUMBER;
  p_asg_dropoff_loc_code    VARCHAR2(30);
  p_asg_dropoff_arr_date    DATE;
  p_asg_dropoff_dep_date    DATE;
  p_sc_action_flag          VARCHAR2(10);
  p_sc_intransit_flag       VARCHAR2(10);
  p_sc_close_trip_flag      VARCHAR2(10);
  p_sc_create_bol_flag      VARCHAR2(10);
  p_sc_stage_del_flag       VARCHAR2(10);
  p_sc_trip_ship_method     VARCHAR2(30);
  p_sc_actual_dep_date      VARCHAR2(30);
  p_sc_report_set_id        NUMBER;
  p_sc_report_set_name      VARCHAR2(60);
  p_sc_defer_interface_flag VARCHAR2(60);
  p_sc_send_945_flag        VARCHAR2(60);
  p_sc_rule_id              NUMBER;
  p_sc_rule_name            VARCHAR2(60);
  p_wv_override_flag        VARCHAR2(10);
  p_asg_pickup_stop_seq     NUMBER;
  p_asg_dropoff_stop_seq    NUMBER;
  x_trip_id                 VARCHAR2(30);
  x_trip_name               VARCHAR2(30);
  fail_api EXCEPTION;
  x_debug_file       VARCHAR2(100);
  l_ship_method_code VARCHAR2(100);
  l_user_id          NUMBER;
  l_resp_id          NUMBER;
  l_appl_id          NUMBER;

  CURSOR c_ord_details IS
  
    SELECT DISTINCT det.source_header_number sales_order
                   ,det.org_id
                   ,det.source_line_number
                   ,det.source_header_id
                   ,det.source_line_id
                   ,det.source_header_type_name
                   ,det.inventory_item_id
                   ,det.requested_quantity
                   ,det.delivery_detail_id
                   ,(SELECT concatenated_segments
                       FROM mtl_system_items_kfv
                      WHERE inventory_item_id = det.inventory_item_id
                        AND organization_id = det.organization_id) ordered_item