Pessoal, boa tarde.

 

 

Preciso de uma ajuda.

 

Aqui na empresa estamos com a seguinte demanda: A partir de um sistema legado (Maximo), precisamos concluir uma tarefa específica de projetos no Oracle Projects.

 

Alguém já passou por essa situação?

 

Encontrei a API pública PA_PROJECT_PUB, porém não sei se a procedure UPDATE_TASK pode ser utilizada para atender essa necessidade.

 

Aqui ainda utilizamos a versão 11.5.10.2.

 

Alguma idéia de como fazer essa integração?

 

 

Obrigado,

 

Marquinho

One Reply to “Conclusão de Tarefas – Projects”

  1. Você tentou atualizar a tarefa de tal maneira que os status fique como cancelado?

    DECLARE
    l_msg_count NUMBER;
    l_msg_data VARCHAR2 (2000);
    l_return_status VARCHAR2 (1);
    l_pm_product_code VARCHAR2 (10);
    l_out_pa_task_id NUMBER;
    l_out_pm_task_reference VARCHAR2 (2000);
    l_output VARCHAR2 (2000);
    l_msg_dummy VARCHAR2 (2000);
    api_error EXCEPTION;
    n NUMBER := 0;
    l_pa_project_id NUMBER := :project_id;
    BEGIN
    pa_interface_utils_pub.Set_global_info (p_api_version_number => 1.0,
    p_responsibility_id => :Responsibility_id, p_user_id => :User_id,
    p_msg_count => l_msg_count, p_msg_data => l_msg_data,
    p_return_status => l_return_status);

    pa_project_pub.Update_task (p_api_version_number => ‘1.0’, p_commit => ‘F’,
    p_init_msg_list => ‘F’, 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_pa_task_id => :pa_task_id,
    — p_task_description => ‘TEST DESC1’,
    p_tasks_dff => ‘N’, p_out_pa_task_id => l_out_pa_task_id,
    p_out_pm_task_reference => l_out_pm_task_reference);

    COMMIT;

    IF l_return_status <> ‘S’ THEN
    FOR n IN 1 .. l_msg_count LOOP
    fnd_msg_pub.Get (n, fnd_api.g_false, l_msg_data, l_msg_dummy);

    l_output := ( To_char (n)
    || ‘: ‘
    || l_msg_data );

    dbms_output.Put_line (‘Error: API Error while updating the Task: ‘
    || l_output);

    COMMIT;
    END LOOP;
    ELSE
    dbms_output.Put_line (‘Sucessfully Update the task’);

    COMMIT;
    END IF;
    EXCEPTION
    WHEN api_error THEN
    dbms_output.Put_line (‘API Error in Project: ‘);
    WHEN OTHERS THEN
    dbms_output.Put_line (‘Other Error in Project: ‘
    || SQLERRM);
    END;

Deixe um comentário