1. 程式人生 > >銷售訂單 出庫 發運確認

銷售訂單 出庫 發運確認

DECLARE
  --PARAMETER FOR "WSH_DELIVERIES_PUB.Delivery_Action"
  p_api_version_number      NUMBER := 1.0;
  p_init_msg_list           VARCHAR2(30);
  x_msg_count               NUMBER;
  x_msg_data                VARCHAR2(2000);
  p_action_code             VARCHAR2(15) := 'CONFIRM';
  p_delivery_id             NUMBER := 93024;
  p_delivery_name           VARCHAR2(30) := '93024';
  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_stop_seq     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_stop_seq    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) := 'S';
  p_sc_intransit_flag       VARCHAR2(10) := 'Y';
  p_sc_close_trip_flag      VARCHAR2(10) := 'Y';
  p_sc_create_bol_flag      VARCHAR2(10) := 'N';
  p_sc_stage_del_flag       VARCHAR2(10) := 'Y';
  p_sc_trip_ship_method     VARCHAR2(30);
  p_sc_actual_dep_date      DATE;
  p_sc_report_set_id        NUMBER;
  p_sc_report_set_name      VARCHAR2(60);
  p_sc_defer_interface_flag VARCHAR2(60) := 'Y';
  p_sc_send_945_flag        VARCHAR2(60) := 'N';
  p_wv_override_flag        VARCHAR2(10) := 'N';
  x_trip_id                 VARCHAR2(30);
  x_trip_name               VARCHAR2(30);

  --PARAMETERS FOR "WSH_SHIP_CONFIRM_ACTIONS.Interface_ALL"

  errbuf      VARCHAR2(2000);
  retcode     VARCHAR2(3);
  p_mod       VARCHAR2(30) := 'ALL';
  p_stop_id   NUMBER;
  p_log_level NUMBER := 0;
 
  l_msg_return    VARCHAR2(2000);
  x_return_status VARCHAR2(1);

BEGIN
  fnd_global.APPS_INITIALIZE(1371,50627,660);
 
  wsh_deliveries_pub.delivery_action(p_api_version_number      => p_api_version_number,
                                     p_init_msg_list           => p_init_msg_list,
                                     x_return_status           => x_return_status,
                                     x_msg_count               => x_msg_count,
                                     x_msg_data                => x_msg_data,
                                     p_action_code             => p_action_code,
                                     p_delivery_id             => p_delivery_id,
                                     p_delivery_name           => p_delivery_name,
                                     p_asg_trip_id             => p_asg_trip_id,
                                     p_asg_trip_name           => p_asg_trip_name,
                                     p_asg_pickup_stop_id      => p_asg_pickup_stop_id,
                                     p_asg_pickup_loc_id       => p_asg_pickup_loc_id,
                                     p_asg_pickup_stop_seq     => p_asg_pickup_stop_seq,
                                     p_asg_pickup_loc_code     => p_asg_pickup_loc_code,
                                     p_asg_pickup_arr_date     => p_asg_pickup_arr_date,
                                     p_asg_pickup_dep_date     => p_asg_pickup_dep_date,
                                     p_asg_dropoff_stop_id     => p_asg_dropoff_stop_id,
                                     p_asg_dropoff_loc_id      => p_asg_dropoff_loc_id,
                                     p_asg_dropoff_stop_seq    => p_asg_dropoff_stop_seq,
                                     p_asg_dropoff_loc_code    => p_asg_dropoff_loc_code,
                                     p_asg_dropoff_arr_date    => p_asg_dropoff_arr_date,
                                     p_asg_dropoff_dep_date    => p_asg_dropoff_dep_date,
                                     p_sc_action_flag          => p_sc_action_flag,
                                     p_sc_intransit_flag       => p_sc_intransit_flag,
                                     p_sc_close_trip_flag      => p_sc_close_trip_flag,
                                     p_sc_create_bol_flag      => p_sc_create_bol_flag,
                                     p_sc_stage_del_flag       => p_sc_stage_del_flag,
                                     p_sc_trip_ship_method     => p_sc_trip_ship_method,
                                     p_sc_actual_dep_date      => p_sc_actual_dep_date,
                                     p_sc_report_set_id        => p_sc_report_set_id,
                                     p_sc_report_set_name      => p_sc_report_set_name,
                                     p_sc_defer_interface_flag => p_sc_defer_interface_flag,
                                     p_sc_send_945_flag        => p_sc_send_945_flag,
                                     p_wv_override_flag        => p_wv_override_flag,
                                     x_trip_id                 => x_trip_id,
                                     x_trip_name               => x_trip_name);

  IF x_return_status != 'S' THEN
    dbms_output.put_line('EEE');
    FOR i IN 1..x_msg_count LOOP
      fnd_msg_pub.get(p_msg_index     => i
                     ,p_encoded       => 'F'
                     ,p_data          => x_msg_data
                     ,p_msg_index_out => l_msg_return);
      dbms_output.put_line(x_msg_data);
    END LOOP;
   
  ELSE
 
    wsh_ship_confirm_actions.interface_all(errbuf        => errbuf,
                                           retcode       => retcode,
                                           p_mode        => p_mod,
                                           p_stop_id     => p_stop_id,
                                           p_delivery_id => p_delivery_id,
                                           p_log_level   => p_log_level);
 
    IF retcode != '0' THEN
      dbms_output.put_line('E');
    ELSE
      dbms_output.put_line('S');
    END IF;
  END IF;
END;