Adding Freight costs

Question

Hi folks,
I have a requirement where I have to add freight costs to a delivery. I am using the following code.
DECLARE
  action_code         VARCHAR2(15);
  pub_freight_costs   wsh_freight_costs_pub.pubfreightcostrectype;
  freight_cost_id     NUMBER;
  lv_freight_cost_id  NUMBER;
  lv_msg_data         VARCHAR2(10000);
  lv_msg_count        NUMBER;
  lv_ret_status       VARCHAR2(5);
  l_user_id           NUMBER;
  l_resp_id           NUMBER;
  l_appl_id           NUMBER;
  l_msg_index         NUMBER;
  lv_msg_index_out    NUMBER;
  lv_error_message    VARCHAR2(10000);
BEGIN
  SELECT user_id
    INTO l_user_id
    FROM fnd_user
   WHERE user_name = 'ANUJ_K';
  SELECT responsibility_id, application_id
    INTO l_resp_id, l_appl_id
    FROM fnd_responsibility_vl
   WHERE responsibility_name = 'Order Management Super User';
  fnd_global.apps_initialize(l_user_id, l_resp_id, l_appl_id);
  mo_global.set_policy_context('S',82);
  mo_global.init('ONT');
  pub_freight_costs.freight_cost_type_id := 1;
  pub_freight_costs.unit_amount          := 20;
  pub_freight_costs.currency_code        := 'USD';
  pub_freight_costs.delivery_id          := 36661664;
  pub_freight_costs.delivery_detail_id   := 9319784;
  wsh_freight_costs_pub.Create_Update_Freight_Costs(p_api_version_number  => 1.0              ,
                                                    p_init_msg_list       => fnd_api.g_false  ,
                                                    p_commit              => fnd_api.g_false  ,
                                                    x_return_status       => lv_ret_status    ,
                                                    x_msg_count           => lv_msg_count     ,
                                                    x_msg_data            => lv_msg_data      ,
                                                    p_pub_freight_costs  => pub_freight_costs,
                                                    p_action_code         => 'CREATE'         ,
                                                    x_freight_cost_id     => lv_freight_cost_id
  COMMIT;
  dbms_output.put_line('Return Status: '||lv_ret_status);
  dbms_output.put_line('Message Count: '||lv_msg_count);
  dbms_output.put_line('Freight Cost ID: '||lv_freight_cost_id);
  IF (lv_ret_status = 'S') THEN
      DBMS_OUTPUT.put_line('Freight Costs added.');
  ELSE
      DBMS_OUTPUT.put_line('Error creating freight costs');
      FOR i IN 1 .. lv_msg_count LOOP
                   apps.fnd_msg_pub.get(p_msg_index     => i              ,
                                        p_encoded       => fnd_api.g_false,
                                        p_data          => lv_msg_data    ,
                                        p_msg_index_out => lv_msg_index_out);
                   --COMMIT;                    
                   IF lv_error_message IS NULL THEN
                      lv_error_message := SUBSTR(lv_msg_data, 1, 250);
                   ELSE
                      lv_error_message := lv_error_message || ' /' ||SUBSTR(lv_msg_data, 1, 250);
                   END IF;
                   --show_mesg('------------------------------------------','LOG');
                   --show_mesg('Return Status : ' || lv_return_status,'LOG');
                   --show_mesg('Error Message : ' || lv_error_message,'LOG');
                   --show_mesg('------------------------------------------','LOG');
                   dbms_output.put_line('------------------------------------------');
                   dbms_output.put_line('Return Status : ' || lv_ret_status);
                   dbms_output.put_line('Error Message : ' || lv_error_message);
                   dbms_output.put_line('------------------------------------------');
      END LOOP;
  END IF;
EXCEPTION
  WHEN OTHERS THEN
     dbms_output.put_line('Error: '||SQLERRM);
END;    
But upon execution I get the following Error.
Return Status: E
Message Count: 0
Freight Cost ID:
Error creating freight costs
Could someone help me as to where exactly I am going wrong? Since the message count is 0 so it is not displaying any error.
Thanks                                                   

Answer 1

Since you are already on R12 please refer to Note 781061.1. Please note that this is referring to 12.1.1 (after 12.1 which I believe is yet to be released). This functionality is available out of the box in that release. Since then if you want real time solution (cost has to change for the receipt and accounting needs to be correct) for the purchase receipt transaction, you have to use Costing hooks. You have to use transaction costing hooks as well as accounting hooks to offset receiving account value.
Thanks
Nagamohan