Estou tendo dificuldades em iniciar o Fluxo de Aprovação de Ordem de compras pelo PLSQL.
O comando está conseguindo iniciar o fluxo porém não estou conseguindo que ele termine.
Quando clico em "Histórico da atividade" ele mostra o status "Aguardando programa Concorrente".
Já rodei a concurrent "segundo Plano" mesmo assim nada.
Se mando detalhar aparece as informações abaixo
Nome Aguardar Programa Concorrente
Nome Interno WAITFORCONCURRENTPROGRAM
Tipo Função
Descrição
Versão da Atividade 4
Tipo de Resultado Status do Programa Concorrente
Resultado da Atividade Default
Nome da Mensagem
Funções de Expansão Não
Tipo de Função PL/SQL
Função FND_WF_STANDARD.WAITFORCONCPROGRAM
Revisita em Loop Redefinir
Custo 0
Custo da atividade da função em segundos.
Workflow de Erros Sistema: Erro
Processo de Erros
Nó Inicial/Final
Tipo de Função do Executor Constante
Função do Executor
Função do executor ou nome do atributo de workflow interno.
Comentário do Desenvolvedor
Timeout
Abaixo esta a procedure que estou utilizando....Tentei chamar tanto o fluxo CORE "POAPPRV" como o customizado da empresa.
PROCEDURE start_approval_wf(p_document_id NUMBER /*
,p_document_type_code VARCHAR2
,p_document_subtype VARCHAR2
,p_user_id NUMBER
,p_resp_id NUMBER
,p_resp_appl_id NUMBER
,p_note VARCHAR2*/) IS
--pragma autonomous_transaction;
l_vitemkey VARCHAR2(100);
l_seq_for_item_key VARCHAR2(20);
BEGIN
fnd_client_info.set_org_context('108');
fnd_global.apps_initialize(1126, 50326, 178);
--p_user_id, p_resp_id, p_resp_appl_id);
BEGIN
SELECT to_char(po_wf_itemkey_s.NEXTVAL) INTO l_seq_for_item_key FROM sys.dual;
EXCEPTION
WHEN OTHERS THEN
dbms_output.put_line('ERRO select to_char(PO_WF_ITEMKEY_S.NEXTVAL) ' || SQLERRM);
END;
l_vitemkey := to_char(p_document_id) || '-' || l_seq_for_item_key;
po_reqapproval_init1.start_wf_process(itemtype => 'MQSAPO', -- POAPPRV
itemkey => l_vitemkey, -- null
workflowprocess => NULL,
actionoriginatedfrom => NULL,
documentid => p_document_id --p_document_id --v_doc_id
,
documentnumber => NULL,
preparerid => 1126, --fnd_global.employee_id,
documenttypecode => 'RELEASE' --v_header_interface.document_type_code
,
documentsubtype => 'BLANKET' --v_header_interface.document_subtype
,
submitteraction => 'APPROVE',
forwardtoid => NULL,
forwardfromid => NULL,
defaultapprovalpathid => NULL,
note => 'Teste de WF Acordo de compra. 01' ||
p_document_id,
printflag => 'N',
faxflag => 'N',
faxnumber => 'N',
emailflag => 'N',
emailaddress => NULL,
createsourcingrule => 'N',
updatesourcingrule => 'N',
releasegenmethod => NULL,
massupdatereleases => 'N',
retroactivepricechange => 'N',
orgassignchange => NULL,
communicatepricechange => 'Y');
--commit;
EXCEPTION
WHEN OTHERS THEN
raise_application_error(-20000, 'ERRO AO INICIAR WF DE APROVAÇÃO: ' || SQLERRM);
END;