declare
x_po_head_id number ;
begin
select po_header_id
into x_po_head_id
from po_headers_all where
segment1 = '&ponumber'
and org_id = &org_id;
update po_headers_all
set authorization_status = 'APPROVED',
approved_flag = 'Y',
approved_date = sysdate,
last_update_date= sysdate
where po_header_id = x_po_head_id;
update po_line_locations_all
set approved_flag = 'Y'
where po_header_id = x_po_head_id ;
commit;
end;
x_po_head_id number ;
begin
select po_header_id
into x_po_head_id
from po_headers_all where
segment1 = '&ponumber'
and org_id = &org_id;
update po_headers_all
set authorization_status = 'APPROVED',
approved_flag = 'Y',
approved_date = sysdate,
last_update_date= sysdate
where po_header_id = x_po_head_id;
update po_line_locations_all
set approved_flag = 'Y'
where po_header_id = x_po_head_id ;
commit;
end;
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/12122734/viewspace-760995/ ，如需转载，请注明出处，否则将追究法律责任。
请登录后发表评论
登录
全部评论
