Oracle EBS技术爱好者论坛:[ www.techwind.net ] Oracle EBS MSN 交流群 :group199946@msnzone.cn 欢迎加入! 朋友的原单外贸鞋店(做技术的,大多都厚道): http://shoe1314.totaobao.com/

一个简单发送Workflow的例子

上一篇 / 下一篇  2008-02-15 11:34:41 / 个人分类:Workflow


--首先定义一个序列:
-- Create sequence
/*
create sequence XXUTS_MECO_S;
*/
--然后在pl/sql developer 执行以下:
declare
l_asset_number VARCHAR2(100) :='HM';
l_ItemType varchar2(100) := 'UTS_ECO';--流程内部名称
l_ItemKey varchar2(100) ;
v_url varchar2(1000) := 'http://';
P_CONTENT VARCHAR2(3000) :='Test receipter!';
begin

select XXUTS_MECO_S.nextval into l_ItemKey from dual;--获取序列号
wf_engine.createProcess(ItemType => l_ItemType, --流程名
ItemKey => l_ItemKey, --项目关键字
process => 'P_PRO', --process内部名称
user_key => l_ItemKey, --用户关键字
owner_role => 'D' --流程责任人
);
--以下是参数
wf_engine.SetItemAttrText(itemtype => l_itemtype,
itemkey => l_itemkey,
aname => 'P_USER',--对应的都是内部名称
avalue => l_asset_number);

wf_engine.SetItemAttrText(itemtype => l_itemtype,
itemkey => l_itemkey,
aname => 'P_SUBJECT',
avalue => 'HM WF');

wf_engine.SetItemAttrText(itemtype => l_itemtype,
itemkey => l_itemkey,
aname => 'P_CONTENT',
avalue => P_CONTENT);
wf_engine.StartProcess(ItemType => l_ItemType, ItemKey => l_ItemKey);
commit;
/*
EXCEPTION

WHEN OTHERS THEN
NULL;
*/
END;


TAG: ebs erp oracle r12 workflow

引用 删除 Guest   /   2008-07-01 11:07:57
5
 

评分:0

我来说两句

显示全部

:loveliness: :handshake :victory: :funk: :time: :kiss: :call: :hug: :lol :'( :Q :L ;P :$ :P :o :@ :D :( :)

Open Toolbar