创建PO

最新推荐文章于 2023-03-20 16:19:12 发布

cizha3055

最新推荐文章于 2023-03-20 16:19:12 发布

阅读量136

点赞数

-- Created on 2013-5-7 by ADMINISTRATOR
declare
-- Local variables here
i               integer;
l_header_rec    po.po_headers_interface%rowtype;
l_line_rec      po.po_lines_interface%rowtype;
l_dist_rec      po.po_distributions_interface%rowtype;
l_error_message varchar2(4000);
begin
-- Test statements here
mo_global.init('PO');
mo_global.set_policy_context('S', 204);
fnd_global.APPS_INITIALIZE(user_id      => 1068,
                             resp_id      => 53394,
                             resp_appl_id => 385);
--PO头
l_header_rec.org_id := 204;
select po.po_headers_interface_s.nextval
    into l_header_rec.interface_header_id
    from dual;
dbms_output.put_line('HEADER_ID:' || l_header_rec.interface_header_id);
l_header_rec.batch_id           := l_header_rec.interface_header_id;
l_header_rec.process_code       := 'PENDING';
l_header_rec.action             := 'ORIGINAL';
l_header_rec.document_type_code := 'STANDARD'; --'BLANKET';
--l_iface_rec.document_subtype   := NULL;
l_header_rec.approval_status := 'APPROVED';
l_header_rec.vendor_id       := 600;
l_header_rec.vendor_site_id := 1414;
l_header_rec.agent_id        := 57;
l_header_rec.currency_code   := 'USD'; --USD是本位币
l_header_rec.rate_type_code := null;
l_header_rec.rate_date       := null;
l_header_rec.rate            := null;
insert into po.po_headers_interface values l_header_rec;

--PO行
l_line_rec.interface_header_id := l_header_rec.interface_header_id;
select po.po_lines_interface_s.nextval
    into l_line_rec.interface_line_id
    from dual;
l_line_rec.line_num                := 1;
l_line_rec.line_type               := '货物';
l_line_rec.action                  := 'ORIGINAL';
l_line_rec.process_code            := 'PENDING';
l_line_rec.item_id                 := 6068;
l_line_rec.uom_code                := 'Ea';
l_line_rec.unit_price              := 60;
l_line_rec.quantity                := 10;
l_line_rec.need_by_date            := sysdate;
l_line_rec.ship_to_organization_id := 207;
l_line_rec.ship_to_location_id     := 207;
insert into po.po_lines_interface values l_line_rec;
-- PO分配
l_dist_rec.interface_header_id := l_header_rec.interface_header_id;
l_dist_rec.interface_line_id   := l_line_rec.interface_line_id;
select po.po_distributions_interface_s.nextval
    into l_dist_rec.interface_distribution_id
    from dual;
l_dist_rec.quantity_ordered := 10;
insert into po.po_distributions_interface values l_dist_rec;

po_docs_interface_sv5.process_po_headers_interface(x_selected_batch_id          => l_header_rec.batch_id,
                                                     x_buyer_id                   => NULL,
                                                     x_document_type              => l_header_rec.document_type_code,
                                                     x_document_subtype           => l_header_rec.document_subtype,
                                                     x_create_items               => 'N',
                                                     x_create_sourcing_rules_flag => NULL,
                                                     x_rel_gen_method             => NULL,
                                                     x_approved_status            => l_header_rec.approval_status,
                                                     x_commit_interval            => 1,
                                                     x_process_code               => 'PENDING',
                                                     x_interface_header_id        => NULL,
                                                     x_org_id_param               => NULL,
                                                     x_ga_flag                    => NULL);
select max(pie.error_message)
    into l_error_message
    from po_interface_errors pie
   where pie.interface_header_id = l_header_rec.interface_header_id;
dbms_output.put_line('头错误信息:' || l_error_message);
end;