修改完采购订单明细以后,需求要审批。经查调用代码如下:
Declare
ActionOriginatedFrom varchar2(30) := 'PO_FORM';
DocumentID Number := 63556;
DocumentNumber Varchar2(30) := '211000024751';
PreparerID Number := 273; --采购员的员工ID
DocumentTypeCode varchar2(30) := 'PA';
DocumentSubtype varchar2(60) := 'BLANKET';
DocumentStatus varchar2(60) := 'REQUIRES REAPPROVAL';
RequestorAction varchar2(60) := 'APPROVE';
forwardToID number;
forwardFromID number;
DefaultApprovalPathID number;
--< Note expansion project FPJ Start>
--DocumentNote VARCHAR2(480) := '';
DocumentNote WF_ITEM_ATTRIBUTE_VALUES.text_value%TYPE := NULL; --VARCHAR2(4000)
--< Note expansion project FPJ End>
ItemType varchar2(8) := null;
ItemKey varchar2(240) := null;
WorkflowProcess varchar2(80) := null;
print_check varchar2(3) := 'N';
fax_check varchar2(3) := 'N';
fax_number varchar2(30);
email_check varchar2(30) := 'N';
emailaddress varchar2(2000);
xml_or_edi varchar2(10);
-- FPH Autocreate sourcing Rule Start
rel_gen_mthd varchar2(30); --发放生成方法
create_sourcing_rule varchar2(30) := 'N'; --启用自动来源补充
update_sourcing_rule varchar2(30) := 'N'; --更新现有的来源补充夫则和分配
-- FPH Autocreate sourcing Rule End
l_massupdate_release VARCHAR2(1) := 'N'; -- RETROACTIVE FPI
l_org_assign_change VARCHAR2(1) := 'N'; -- GA FPI
--
l_change_summary PO_HEADERS_ALL.change_summary%TYPE;
--
--
l_communicate_updates VARCHAR2(1) := 'N';
l_retro_price_change VARCHAR2(1) := 'N';
--
l_user_id Number := 1110;
Begin
fnd_client_info.set_org_context(114);
apps.fnd_global.apps_initialize(user_id => l_user_id,
resp_id => 50406,
resp_appl_id => 201);
PO_REQAPPROVAL_INIT1.Start_WF_Process(ItemType => ItemType, --Default Null
ItemKey => ItemKey, --Default Null
WorkflowProcess => WorkflowProcess, --Default Null
ActionOriginatedFrom => ActionOriginatedFrom,
DocumentID => DocumentID, --Po header id
DocumentNumber => DocumentNumber, --采购订单编码
PreparerID => PreparerID, --采购员的员工ID
DocumentTypeCode => DocumentTypeCode, --采购订单类型代码:
DocumentSubtype => DocumentSubtype, --采购订单类型:报价单、标准采购订单、PBA
SubmitterAction => RequestorAction, --提交类型
forwardToID => forwardToID,
forwardFromID => forwardFromID,
DefaultApprovalPathID => DefaultApprovalPathID,
Note => DocumentNote,
printFlag => print_check, --是否打印
FaxFlag => fax_check, --是否传真
FaxNumber => fax_number, --传真号
EmailFlag => email_check, --是否邮件
EmailAddress => emailaddress, --邮件地址
CreateSourcingRule => Create_Sourcing_Rule,
UpdateSourcingRule => Update_Sourcing_Rule,
ReleaseGenMethod => Rel_Gen_Mthd,
MassUpdateReleases => l_massupdate_release, -- RETROACTIVE FPI CHANGE
--
RetroactivePriceChange => l_retro_price_change,
OrgAssignChange => l_org_assign_change, -- GA FPI
CommunicatePriceChange => l_communicate_updates);
End;
可以启用配置文件:PO:将调试工作流设置为“打开”(PO_SET_DEBUG_WORKFLOW_ON) 查看PO工作流审批调试工作。执行如下查询查看相关关键操作过程:
Select * From PO_WF_DEBUG Where ITEMKEY Like '63556%'
或
Select * From PO_WF_DEBUG Where EXECUTION_DATE>=System-5