客制供应商申请审批单和供应商导入api

最新推荐文章于 2024-07-28 10:09:03 发布

huangwenkangz

最新推荐文章于 2024-07-28 10:09:03 发布

阅读量1.2k

点赞数

分类专栏： PO 文章标签：供应商导入供应商api

本文链接：https://blog.csdn.net/huangwenkangz/article/details/53184962

版权

PO 专栏收录该内容

16 篇文章 2 订阅

订阅专栏

用户需求：由于公司没有OA系统，但是又想对新建的供应商有一个审批的功能，以致可以很好的

对新供应商进行有效管理，收集供应商数据，审厂审批，部门经理审批等流程。

做法：客制Form界面，用户界面中录入供应商相关资料，然后workflow送审到相关人员，

最后部门主管审批时，系统调用api导入供应商

供应商导入api code如下：

procedure new_vendor_api(p_vendor_id number,p_flag out varchar2) is--供应商导入api
    --新建供应商部分 
    p_api_version          number;
    p_init_msg_list        varchar2(200);
    p_commit               varchar2(200);
    p_validation_level     number;
    x_return_status        varchar2(200);
    x_msg_count            number;
    x_msg_data             varchar2(200);
    l_msg                  varchar2(200);
    lr_vend                apps.ap_vendor_pub_pkg.r_vendor_rec_type;
    lr_ex_vend             ap_suppliers%rowtype;
    x_vendor_id            number;
    x_party_id             number;
    pin_copy_vendor_id     number;
    
    --新建供应商地点部分
    l_vendor_site_rec      ap_vendor_pub_pkg.r_vendor_site_rec_type;
    lc_return_status         VARCHAR2(10);
    ln_msg_count            NUMBER;
    lc_msg_data               VARCHAR2(1000);
    ln_vendor_site_id     NUMBER;
    ln_party_site_id         NUMBER;
    ln_location_id            NUMBER;
    
    --新建联系人部分
    l_vendor_contact_rec ap_vendor_pub_pkg.r_vendor_contact_rec_type;
    l_return_status VARCHAR2(10);
    l_msg_count NUMBER;
    l_msg_data VARCHAR2(1000);
    l_vendor_contact_id NUMBER;
    l_per_party_id NUMBER;
    l_rel_party_id NUMBER;
    l_rel_id NUMBER;
    l_org_contact_id NUMBER;
    l_party_site_id NUMBER;
    
    l_vendor jw_vendor_t%rowtype;
    
    cursor ou1 is
      select o.ou_id,o.vat_code
        from jw_vendor_org_t  o 
       where o.jw_vendor_id = p_vendor_id
         and o.flag = 'Y';
  begin
    select * into l_vendor from  jw_vendor_t t where t.jw_vendor_id = p_vendor_id;
    fnd_global.apps_initialize(l_vendor.created_by,
                             50643,
                             201);
    mo_global.init('SQLAP'); 
    p_api_version      := 1.0;
    p_init_msg_list    := fnd_api.g_true;
    p_commit           := fnd_api.g_true;
    p_validation_level := fnd_api.g_valid_level_full;
    lr_vend.hold_flag              := null;
    lr_vend.purchasing_hold_reason := null;
    lr_vend.hold_by                := null;
    lr_vend.hold_date              := null; 
    begin
    if l_vendor.attribute9 is not null then
      lr_vend.END_DATE_ACTIVE := sysdate + l_vendor.attribute9;--增加临时厂商的有效期天数
    end if;
    exception
      when others then
         null;
    end;
    lr_vend.vendor_id         := null;
    lr_vend.vendor_name       := l_vendor.vendor_name;   --供应商名字
    lr_vend.start_date_active := sysdate;
    ap_vendor_pub_pkg.create_vendor(p_api_version      => p_api_version,
                                  p_init_msg_list    => p_init_msg_list,
                                  p_commit           => p_commit,
                                  p_validation_level => p_validation_level,
                                  x_return_status    => x_return_status,
                                  x_msg_count        => x_msg_count,
                                  x_msg_data         => x_msg_data,
                                  p_vendor_rec       => lr_vend,
                                  x_vendor_id        => x_vendor_id,
                                  x_party_id         => x_party_id);
    commit;                              
    IF (x_return_status <> FND_API.G_RET_STS_SUCCESS) THEN --失败 
       p_flag := 'E';
    else--成功后新建供应商地点
       p_flag := 'Y';
       for org1 in ou1 loop
         
         l_vendor_site_rec.vendor_id               := x_vendor_id;--vendor_id
         l_vendor_site_rec.vendor_site_code  := l_vendor.vendor_site_code;
         l_vendor_site_rec.address_line1         := l_vendor.vendor_site_address;
          --l_vendor_site_rec.city                           := 'New York';
         l_vendor_site_rec.country                    := 'CN';
         l_vendor_site_rec.org_id                      := org1.ou_id;
         l_vendor_site_rec.terms_id := l_vendor.attribute1;--付款条件
         l_vendor_site_rec.purchasing_site_flag  :='Y';
         l_vendor_site_rec.pay_site_flag                :='Y'; 
         l_vendor_site_rec.rfq_only_site_flag       :='N';
         l_vendor_site_rec.vat_code := org1.vat_code;
         l_vendor_site_rec.payment_currenCY_code := l_vendor.attribute4;
         l_vendor_site_rec.INVOICE_currenCY_code := l_vendor.attribute4;
         pos_vendor_pub_pkg.create_vendor_site
        ( 
              -- ------------------------------
              -- Input data elements
              -- ------------------------------
              p_vendor_site_rec    => l_vendor_site_rec,
              -- ---------------------------------
              -- Output data elements
              -- ---------------------------------
              x_return_status         => lc_return_status,
              x_msg_count             => ln_msg_count,
              x_msg_data                => lc_msg_data,
              x_vendor_site_id      => ln_vendor_site_id,
              x_party_site_id         => ln_party_site_id,
              x_location_id            => ln_location_id
        );
        commit;
        IF (lc_return_status <> FND_API.G_RET_STS_SUCCESS) THEN  --失败
          p_flag :='E';
        else
          p_flag := 'Y';
          
        end if;
       end loop;
       if p_flag  = 'Y' then
         if l_vendor.vendor_contact is not null then--有联系人时才调用此api
               l_vendor_contact_rec.vendor_id := x_vendor_id;
            --   l_vendor_contact_rec.org_id := org1.ou_id; 
               l_vendor_contact_rec.person_last_name := l_vendor.vendor_contact; 
               l_vendor_contact_rec.phone := l_vendor.vendor_contact_tel;
               l_vendor_contact_rec.org_party_site_id := ln_party_site_id;
               pos_vendor_pub_pkg.create_vendor_contact(
                  p_vendor_contact_rec => l_vendor_contact_rec,
                  x_return_status => l_return_status,
                  x_msg_count => l_msg_count,
                  x_msg_data => l_msg_data,
                  x_vendor_contact_id => l_vendor_contact_id,
                  x_per_party_id => l_per_party_id,
                  x_rel_party_id => l_rel_party_id,
                  x_rel_id => l_rel_id,
                  x_org_contact_id => l_org_contact_id,
                  x_party_site_id => l_party_site_id);

               COMMIT;
               IF (l_return_status <> FND_API.G_RET_STS_SUCCESS) THEN
                 p_flag :='E';
               else
                 p_flag := 'Y';
               end if;
            end if;
       end if;
    end if;                                                
    null;
  end;

ps:以上api包括导入供应商名字，地点，联系人，没有银行等数据，系统版本R12.1.3