How To Load a Project Budget Line Through API in R12 ?

Question

Hello
Could you please let me know how to load the project budget lines through API in R12 system, I am trying with below script but it is not working.
Could you please let me know if you have any solution.
=========================================================================================================================================================================
Script
DECLARE
--––variables needed for API standard parameters
   l_api_version_number     NUMBER                                 := 1.0;
   l_commit                 VARCHAR2 (1)                           := 'T';
   l_return_status          VARCHAR2 (1);
   l_init_msg_list          VARCHAR2 (1);
   l_msg_count              NUMBER;
   l_msg_data               VARCHAR2 (2000);
   l_data                   VARCHAR2 (2000);
   l_msg_entity             VARCHAR2 (100);
   l_msg_entity_index       NUMBER;
   l_msg_index              NUMBER;
   l_msg_index_out          NUMBER;
   l_encoded                VARCHAR2 (1);
   i                        NUMBER;
   a                        NUMBER;
--––variables needed for Oracle Project specific parameters
   l_pm_product_code        VARCHAR2 (100);
   l_pa_project_id          NUMBER;
   l_pm_project_reference   VARCHAR2 (100);
   l_budget_type_code       VARCHAR2 (30);
   l_change_reason_code     VARCHAR2 (30);
   l_description            VARCHAR2 (255);
   l_entry_method_code      VARCHAR2 (30);
   l_resource_list_name     VARCHAR2 (60);
   l_resource_list_id       NUMBER;
   l_budget_lines_in        pa_budget_pub.budget_line_in_tbl_type;
   l_budget_lines_in_rec    pa_budget_pub.budget_line_in_rec_type;
   l_budget_lines_out       pa_budget_pub.budget_line_out_tbl_type;
   l_line_index             NUMBER;
   l_line_return_status     VARCHAR2 (1);
   l_user_id                NUMBER;
   l_responsibility_id      NUMBER;
   API_ERROR                EXCEPTION;
BEGIN
   -- SET GLOBAL INFO
   SELECT user_id,
          responsibility_id
     INTO l_user_id,
          l_responsibility_id
     FROM pa_user_resp_v
    WHERE user_name = 'RAJU';
   PA_INTERFACE_UTILS_PUB.SET_GLOBAL_INFO (p_api_version_number      => 1.0,
p_responsibility_id       => l_responsibility_id,
p_user_id                 => l_user_id,
                                           p_msg_count               => l_msg_count,
p_msg_data                => l_msg_data,
p_return_status           => l_return_status
   IF l_return_status != 'S'
   THEN
      RAISE API_ERROR;
   END IF;
--––PRODUCT RELATED DATA
   l_pm_product_code        := 'GMS';
--––BUDGET DATA
   l_pa_project_id          := 6271;
   l_pm_project_reference   := NULL;--'ABC';
   l_budget_type_code       := 'FC';
   -- l_change_reason_code := 'INITIAL';
   l_description            := 'New description –> 2';
   l_entry_method_code      := 'PA_TASKLVL_BASELINE';
   l_resource_list_id       := 1001;
--––BUDGET LINES DATA
   a                := 1;
   FOR i IN 1 .. a
   LOOP
      l_budget_lines_in_rec.pa_task_id := 405156;
      l_budget_lines_in_rec.pm_task_reference       := NULL;
      l_budget_lines_in_rec.resource_alias          := 'Labor';
      l_budget_lines_in_rec.resource_list_member_id := '1034';
      -- l_budget_lines_in_rec.budget_start_date        := '01-Jan-13';
      -- l_budget_lines_in_rec.budget_end_date          := '31-Dec-14';
      -- l_budget_lines_in_rec.period_name          := 'JUL-10FY2011';
      l_budget_lines_in_rec.description             := 'Some Text';
      l_budget_lines_in_rec.quantity := 100.00;
      l_budget_lines_in_rec.raw_cost := 300.00;
      l_budget_lines_in (i)                         := l_budget_lines_in_rec;
   END LOOP;
--––INIT_BUDGET
   pa_budget_pub.init_budget;
--––LOAD_BUDGET_LINE
   FOR i IN 1 .. a
   LOOP
      pa_budget_pub.load_budget_line
                        (p_api_version_number           => l_api_version_number,
p_return_status                => l_return_status,
                         p_pa_task_id                   => l_budget_lines_in (i).pa_task_id,
p_pm_task_reference            => l_budget_lines_in (i).pm_task_reference,
p_resource_alias               => l_budget_lines_in (i).resource_alias,
p_resource_list_member_id      => l_budget_lines_in (i).resource_list_member_id,
p_budget_start_date            => l_budget_lines_in (i).budget_start_date,
                         p_budget_end_date              => l_budget_lines_in (i).budget_end_date,
p_period_name                  => l_budget_lines_in (i).period_name,
p_description                  => l_budget_lines_in (i).description,
                         p_raw_cost                     => l_budget_lines_in (i).raw_cost,
p_burdened_cost                => l_budget_lines_in (i).burdened_cost,
p_revenue                      => l_budget_lines_in (i).revenue,
p_quantity                     => l_budget_lines_in (i).quantity
   END LOOP;
   IF l_return_status != 'S'
   THEN
      RAISE api_error;
   END IF;
--––EXECUTE_CREATE_DRAFT_BUDGET
    pa_budget_pub.execute_create_draft_budget (p_api_version_number        => l_api_version_number,
p_msg_count                 => l_msg_count,
p_msg_data                  => l_msg_data,
p_return_status             => l_return_status,
p_pm_product_code           => l_pm_product_code,
                                              p_pa_project_id             => l_pa_project_id,
p_pm_project_reference      => l_pm_project_reference,
p_budget_type_code          => l_budget_type_code,
p_change_reason_code        => l_change_reason_code,
p_description               => l_description,
                                              p_entry_method_code         => l_entry_method_code,
p_resource_list_name        => l_resource_list_name,
p_resource_list_id          => l_resource_list_id
   IF l_return_status != 'S'
   THEN
      NULL; --––RAISE API_ERROR;
   END IF;
--––FETCH_LINE
   FOR l_line_index IN 1 .. pa_budget_pub.g_budget_lines_tbl_count
   LOOP
      pa_budget_pub.fetch_budget_line (p_api_version_number      => l_api_version_number,
p_return_status           => l_return_status,
p_line_index              => l_line_index,
p_line_return_status      => l_line_return_status
      IF l_return_status != 'S' OR l_line_return_status != 'S'
      THEN
         RAISE api_error;
      END IF;
   END LOOP;
--––CLEAR_BUDGET
   pa_budget_pub.clear_budget;
   IF l_return_status != 'S'
   THEN
      RAISE api_error;
   END IF;
--––HANDLE EXCEPTIONS
EXCEPTION
   WHEN api_error
   THEN
      FOR i IN 1 .. l_msg_count
      LOOP
         pa_interface_utils_pub.get_messages (p_msg_data           => l_msg_data,
p_data               => l_data,
p_msg_count          => l_msg_count,
p_msg_index_out      => l_msg_index_out
         DBMS_OUTPUT.put_line ('Error Mesg ' || l_data);
         DBMS_OUTPUT.put_line ('Error Mesg ' || l_msg_data);
      END LOOP;
   WHEN OTHERS
   THEN
      FOR i IN 1 .. l_msg_count
      LOOP
         pa_interface_utils_pub.get_messages (p_msg_data           => l_msg_data,
p_data               => l_data,
                                              p_msg_count          => l_msg_count,
p_msg_index_out      => l_msg_index_out
         DBMS_OUTPUT.put_line ('error mesg ' || l_data);
      END LOOP;
END;
=========================================================================================================================================================================

Answer 1

Not knowing how its embedded...  you will need to get the report instance from the dll and cast it as a ReportDocument object.
Given the info so far, that is all we can say.
Ludek
Follow us on Twitter http://twitter.com/SAPCRNetSup
Got Enhancement ideas? Try the [SAP Idea Place|https://ideas.sap.com/community/products_and_solutions/crystalreports]